von mario bielert » Di 11. Jan 2005, 16:15
du brauchst dir doch nur ne cat file nehmen und diese dann interpretieren Oo
z.B.
[code]%Header Record --> was beginnt hier wohl ;)
Format:TXT -->format das ist im header der vom gtr kommt zeichen 2-4
Communication SW:0 -->kommt auch als head zeichen 5
Data Type:PG -->zeichen 6-7
Capacity:1005 -->irgentwie mit eichen 10-11
File Name:BERNOULL -->zeichen 12-19
Group Name: -->das musste selber rausfinden :) (gug doch in comcal :) )
Password: -->zeichen 28-35
Option1:NL --> vermutlich zeichen 36-37
Option2: --> vermutlich zeichen 38-39
Option3: --> vermutlich zeichen 40-41
Option4: --> vermutlich zeichen 42-43
%Data Record -->hier beginnt nun die datei ;)
{1,1}->Dim Mat A -->weie man sieht vor jedem Tag ein :)
ClrText
" "
" "
" "
Locate 1,1,"Bernoulli 1.2"
Locate 1,2,"(c)2003 Mario Bielert"
Locate 1,3,"Anzahl der Versuche n"
?->N
If N<=0
Then ClrText
Locate 1,1,"Toll, wozu soll ich"
Locate 1,2,"jetzt rechnen?"
Stop
IfEnd
ClrText
" "
" "
Locate 1,1,"Wahrscheinlichkeit"
Locate 1,2,"des Erfolges p"
?->P
If P<=0 Or P>=1
Then ClrText
Locate 1,1,"Bist du wirklich so"
Locate 1,2,"bloed?"
Stop
IfEnd
1-P->Q
ClrText
" "
" "
" "
Locate 1,1,"Zusaetzliche Info"
Locate 1,2,"0-nix 1-max 2-min"
Locate 1,3,"3-min(-)max 4-Statistik"
?->C
ClrText
If C=0
Then {N+1,2}->Dim Mat A
For 1->A To N+1
N-A+1->Mat A[A,1]
N-A+1->K
N
CrK*P^K*Q^(N-K)->Mat A[A,2]
Next
IfEnd
If C=1
Then " "
Locate 1,1,"Maximum"
?->B
{B+2,2}->Dim Mat A
For B+1->A To 1 Step -1
B-A+1->Mat A[A,1]
B-A+1->K
N
CrK*P^K*Q^(N-K)->Mat A[A,2]
Mat A[A,2]+Mat A[B+2,2]->Mat A[B+2,2]
-10->Mat A[B+2,1]
Next
IfEnd
If C=2
Then " "
Locate 1,1,"Minimum"
?->B
{N-B+2,2}->Dim Mat A
For 1->A To N-B+1
N-A+1->K
K->Mat A[A,1]
N
CrK*P^K*Q^(N-K)->Mat A[A,2]
Mat A[A,2]+Mat A[N-B+2,2]->Mat A[N-B+2,2]
Next
-10->Mat A[N-B+2,1]
IfEnd
If C=3
Then ClrText
" "
Locate 1,1,"Minimum"
?->B
ClrText
" "
Locate 1,1,"Maximum"
?->D
ClrText
{N-B+D+1,2}->Dim Mat A
IfEnd
If C=4
Then {N,2}->Dim Mat B
N*P->E
H->0
Do
{2H+2,2}->Dim Mat A
For E-H->K To E+H
N
CrK*P^K*Q^(N-K)->Mat A[H+1
%End-->ende vom lied
[/code]
is doch easy :)