%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1554
File Name:LINPRG
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl 0
\Fix 0
\Mat->List\Mat A,1)\->\List 6
\Dim \List 6\->R
R-1\->Q
\Dim \List 5=0\=>\List 6\->\List 5
\ClrText
"LINEAIR PROGRAMMEREN"
"1:Beperkingen inv."
"2:\Doelfunctie inv."
"3:Test punt (x,y)"
"4:Solve"
"Keuze="?\->K
K=1\=>\GotoB
K=2\=>\GotoD
K=3\=>\GotoX
K=4\=>\Goto4
\Stop
\Lbl B
"Aantal beperkingen"?\->Q:Q+1\->R:R+3\->C
\Identity R\->\Mat A
\Seq(0,X,1,R,1)\->\List 6
\List->Mat(\List 6,\List 6,\List 6)
\Augment(\Mat \Ans,\Mat A)\->\Mat A
1\->\Mat A[R,1]
0\->\Mat A[R,C]
\For 1\->K \To Q
\ClrText
\Locate 1,7,"Beperking"
\Locate 12,7,K
"ax+by (\>= \<=) c"
\Do
"KIES \>=:3 \<=:4"?\->T
\LpWhile T<3\ Or T>4
1\->F:T=3\=>\(-)F\->F
"a"?\->A
FA\->\Mat A[K,2]
"b"?\->B
FB\->\Mat A[K,3]
"c"?\->D
FD\->\Mat A[K,C]
\Next 
\Lbl D
\ClrText
"DF=ax+by"
\Do
"MIN:1 MAX:2 Keuze"?\->T
\LpWhile T<1\ Or T>2
1\->F:T=2\=>\(-)1\->F
"a"?\->A
A\->\List 5[1]
FA\->\Mat A[R,2]
"b"?\->B
B\->\List 5[2]
FB\->\Mat A[R,3]
\Goto4
'----
\Lbl X
\ClrText
"Proefpunt (x,y)"
""
"x"?\->P
"y"?\->Q
\Lbl P
\ClrText
\Locate 1,1,"Testpun\ProbT(P,Q)"
\Fix 4
\Locate 1,3,"P="
\Locate 3,3,P
\Locate 1,4,"Q="
\Locate 3,4,Q
1\->G
\For 1\->K \To R-1
(\Mat A[K,2]*P+\Mat A[K,3]*Q)>(\Mat A[K,C])\=>0\->G
\Next 
\If G=1
\Then \List 5[1]*P+\List 5[2]*Q\->D
\Locate 1,7,"D="
\Locate 3,7,D
\Else \Locate 1,7,"Voldoet niet"
\IfEnd
\Stop
\Lbl 4
\ClrText
"Solving..."
0\->I:0\->J:0\->X:0\->Y
\Dim \Mat A
\List \Ans[1]\->R
\List \Ans[2]\->C
\Mat A\->\Mat F
\Do
0\->P
\Trn \Mat F\->\Mat T
\For 1\->K \To C-1
\Mat F[R,K]<0\=>2\->P
\Next 
\For 1\->K \To R-1
\Mat F[K,C]<0\=>1\->P
\Next 
\If P=1
\Then \Mat->List\Mat F,C)\->\List 6
0\->\List 6[R]
\Min(\List 6)\->M
\For 1\->K \To R-1
M=\List 6[K]\=>K\->I
\Next 
\Mat->List\Mat T,I)\->\List 6
0\->\List 6[C]
\Min(\List 6)\->M
\If M<0
\Then \For 1\->K \To C-1
M=\List 6[K]\=>K\->J
\Next 
\Else 0\->P
\IfEnd
\IfEnd
\If P=2
\Then \Mat->List\Mat T,R)\->\List 6
0\->\List 6[C]
\Min(\List 6)\->M
\For 1\->K \To C-1
M=\List 6[K]\=>K\->J
\Next 
\Mat->List\Mat F,J)\->\List 6
0\->\List 6[R]
\For 1\->K \To R-1
\If (\List 6[K]>0\ And \Mat F[K,C]\<>0)
\Then \List 6[K]/\Mat F[K,C]\->\List 6[K]
\Else 0\->\List 6[K]
\IfEnd
\Next 
\Max(\List 6)\->M
\If M>0
\Then \For 1\->K \To R-1
M=\List 6[K]\=>K\->I
\Next 
\Else 0\->P
\IfEnd
\IfEnd
\If P\<>0
\Then \*Row((1\ab/c(\Mat F[I,J])),F,I
\For 1\->K \To R
K\<>I\=>\*Row+((\(-)\Mat F[K,J]),F,I,K
\Next 
R>2\ And J=2\=>I\->X
R>3\ And J=3\=>I\->Y
\IfEnd
\LpWhile P\<>0
\ClrText
\Fix 4
\Locate 1,1,"Optimum:":\Locate 10,1,\(-)F\Mat F[R,C]
\Locate 1,2,"x:":X\<>0\=>\Locate 3,2,\Mat F[X,C]
\Locate 1,3,"y:":Y\<>0\=>\Locate 3,3,\Mat F[Y,C]
\Stop
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:596
File Name:BIN LIST
Group Name:
Password:B
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Locate 1,1,"\List 1 w\ordt gevuld"
\Locate 1,2,"met getallen, zodat"
\Locate 1,3,"je bij Bpd of Bcd"
\Locate 1,4,"daar de kans van kan "
\Locate 1,5,"laten berekenen."
\Locate 1,6,"Kies je getallen "
\Locate 12,7,"EXE verder"
\While \Getkey\<>31
\WhileEnd
\ClrText
"Start"?\->U
"End"?\->V
"pitch"?\->W
\Seq(X,X,U,V,W)\->\List 1
\ClrText
\Locate 1,1,"Ga naar Bpd\slashBcd en"
\Locate 1,2,"maak een list met "
\Locate 1,3,"kansen. Zet deze list"
\Locate 1,4,"als volgt in list 2:"
\Locate 1,5,"EXIT"
\Locate 1,6,"EXIT"
\Locate 12,7,"EXE verder"
\While \Getkey\<>31
\WhileEnd
\ClrText
\Locate 1,1,"Curs\or op het wo\ord"
\Locate 1,2,"list 2 (bovenaan)"
\Locate 1,3,"OPTN"
\Locate 1,4,"LIST (F1)"
\Locate 1,5,"list (F1) \Ans"
\Locate 1,6,"EXE"
\Locate 12,7,"EXE verder"
\While \Getkey\<>31
\WhileEnd
\ClrText
\Stop
20-08-03 S.Biesheuvel
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:704
File Name:WORTEL
Group Name:
Password:W
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl A
\ClrText
2\->W:1\->U:1\->Y
\Locate 1,1,"F1   \sqrtX"
\Locate 1,2,"F2    1 / \sqrtX"
\Locate 1,3,"F3   \sqrtX * \sqrtY"
\Locate 1,4,"F4   \sqrtX / \sqrtY"
\Locate 1,6,"           EXIT stop"
0\->R
\Lbl F
\If \Getkey=79:\Then \ClrText:\Goto2:\IfEnd
\If \Getkey=69:\Then \ClrText:\Goto3:\IfEnd
\If \Getkey=59:\Then \ClrText:\Goto4:\IfEnd
\If \Getkey=49:\Then \ClrText:\Goto5:\IfEnd
\If \Getkey=47:\Then \ClrText:\Stop:\IfEnd
R+1\->R:\If R=5000:\Then \ClrText:\Stop:\IfEnd
\GotoF
\Lbl 2
"\sqrtX ":"X = "?\->X
\Lbl 1
\If Y=0:\Then "JE DEELT DOOR NUL":\For 1\->X \To 500
\Next :\GotoA
\IfEnd
\While W\x^2\<=X
X/W\x^2\->V
\If \Intg V=V:\Then V\->X:U*W\->U:W-1\->W:\IfEnd
W+1\->W
\WhileEnd
\ClrText
\If X=0:\Then \Locate 1,1,0:\Locate 1,6,"         EXE opnieuw":\Stop:\IfEnd
\If X=1:\Then \Locate 1,1,U\ab/cY:\Locate 1,6,"         EXE opnieuw":\Stop:\IfEnd
\If U\ab/cY\<>1:\Then \Locate 1,1,U\ab/cY:\IfEnd
\Locate 1,2,"\sqrt"
\Locate 2,2,X
\Locate 1,6,"         EXE opnieuw":\Stop
\Lbl 3
"1 / \sqrtX"
"X = ":?\->X:X\->Y
\Goto1
\Lbl 4
"\sqrtX * \sqrtY"
"X = ":?\->X
"Y = ":?\->Y
X*Y\->X:1\->Y
\Goto1
\Lbl 5
"\sqrtX / \sqrtY"
"X = ":?\->X
"Y = ":?\->Y
X*Y\->X
\Goto1
09-10-03 S.Biesheuvel
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:864
File Name:R RESPON
Group Name:
Password:R
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText:0\->Q
\If T+M+P=R+S+V+W+Z:\Then "laatste resultaten?":"kies een 1":"kies \anders nul":?\->Q:\IfEnd
\If Q=1:\Then -1\->Q:\GotoB:\IfEnd
\Lbl 1
\ClrText
"kies het percentage  ja kiezers   ":?\->P
P\->Z
"hoeveel mensen       kiezen "?\->M
\If M<1:\Then \Goto1:\IfEnd
\ClrText:"met tussenresultaten? kies 1 "
"":"zonder? kies 0 ":?\->Q
0\->T:0\->V:0\->W:0\->R:0\->S
\ClrText
\Locate 1,1,"een dobbelsteen":\Locate 1,2,"w\ordt gegooid":\Locate 1,3,"bij 1.2.3.4 zegt"
\Locate 1,4,P
\Locate 1,5,"proc. ja  de rest nee"
\Locate 1,6,"bij 5 steeds ja"
\Locate 1,7,"bij 6 steeds nee"
\For 1\->I \To 2000
\Next 
\Lbl B
\ClrText
\Locate 1,1,"aantal kiezers"
\Locate 1,2,"werkelijk   ja"
\Locate 1,3,"           nee"
\Locate 1,4,"dobbelsteen ja"
\Locate 1,5,"           nee"
\If Q=-1:\Then \GotoC:\IfEnd
\Lbl Z
T+1\->T
\Int (\Ran#*6+1)\->U
100*\Ran#\->X
\If X<P:\Then R+1\->R:\If U\<=4:\Then V+1\->V:\IfEnd:\Else S+1\->S:\If U\<=4:\Then W+1\->W:\IfEnd:\IfEnd
\If U=5:\Then V+1\->V:\IfEnd
\If U=6:\Then W+1\->W:\IfEnd
\If Q=0\ And T<M:\Then \GotoA:\IfEnd
\Lbl C
\Locate 16,1,T
\Locate 16,2,R
\Locate 16,3,S
\Locate 16,4,V
\Locate 16,5,W
\Lbl A
\If T<M:\Then \GotoZ:\IfEnd
\Locate 1,6,"opgegeven perc. was"
\Locate 1,7,P
\Stop
23-4-2003 S.Biesheuvel

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1466
File Name:NORM MSO
Group Name:
Password:N
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText:\Y=Type
" ":" ":" ":" ":" ":" "
\Locate 1,1,"de n\ormale verdeling"
\Locate 2,2,"vo\or een onbekende"
\Locate 2,3,"waarde neem je x"
\Lbl 1
\Locate 1,4,"1  oude gegevens":\Locate 1,5,"6  nieuwe gegevens"
\Locate 1,6,"9  stop"
?\->R
\If R=1:\Then \ClrText:\Goto4:\IfEnd
\If R=9:\Then \ClrText:\Stop:\IfEnd
\If R=6:\Then \ClrText:\Goto3:\IfEnd
\ClrText:\Goto1
\Lbl 3
\(-)0.1243*10^65\->X:"Links   "?\->J
"Rechts  "?\->K
"Mu GEM  "?\->M
"Sigma SA"?\->S
"Kans    "?\->P
\Lbl 4
0\->V:\(-)0.1243*10^65\->X
\ClrText:" ":" ":" ":" ":" ":" ":\Locate 1,1,"1  Links":\If J=X:\Then 1\->V:\Locate 13,1,"X":\Else \Locate 13,1,J:\IfEnd
\Locate 1,2,"2  Rechts":\If K=X:\Then 2\->V:\Locate 13,2,"X":\Else \Locate 13,2,K:\IfEnd
\Locate 1,3,"3  Mu GEM":\If M=X:\Then 3\->V:\Locate 13,3,"X":\Else \Locate 13,3,M:\IfEnd
\Locate 1,4,"4  Sigma SA":\If S=X:\Then 4\->V:\Locate 13,4,"X":\Else \Locate 13,4,S:\IfEnd
\Locate 1,5,"5  Kans":\If P=X:\Then 0\->V:\Locate 13,5,"X":\Else \Locate 13,5,P:\IfEnd
\Locate 1,6,"0  verder    9  stop"
?\->R
\If R=1:\Then \Locate 1,7,"Links               ":?\->J:\Goto4:\IfEnd
\If R=2:\Then \Locate 1,7,"Rechts              ":?\->K:\Goto4:\IfEnd
\If R=3:\Then \Locate 1,7,"Mu GEM              ":?\->M:\Goto4:\IfEnd
\If R=4:\Then \Locate 1,7,"Sigma SA            ":?\->S:\Goto4:\IfEnd
\If R=5:\Then \Locate 1,7,"Kans                ":?\->P:\Goto4:\IfEnd
\If R=0:\Then \Goto6:\IfEnd
\If R=9:\Then \ClrText:\Stop:\IfEnd
\Goto4
\Lbl 6
\ClrText:J\->L:K\->U:L<\(-)10^30\=>\(-)10^30\->L:U>10^30\=>10^30\->U
\If V=0:\Then \Goto7:\IfEnd
"View Window          \Xmin "?\->H
"\Xmax "?\->I
(I-H)*2\->N
\ViewWindow H,I,N,\(-)0.2,1,0.1
\For 1\->X \To 20
\G SelOff X
\Next 
\If V=1:\Then "\ProbP((U-M)/S)-\ProbP((X-M)/S)"\->\Y 6:\IfEnd
\If V=2:\Then "\ProbP((X-M)/S)-\ProbP((L-M)/S)"\->\Y 6:\IfEnd
\If V=3:\Then "\ProbP((U-X)/S)-\ProbP((L-X)/S)"\->\Y 6:\IfEnd
\If V=4:\Then "\ProbP((U-M)/X)-\ProbP((L-M)/X)"\->\Y 6:\IfEnd
"P"\->\Y 7
\OrangeG 7
\ClrText
\Locate 5,1,"het programma":\Locate 6,2,"is gestopt"
\Locate 3,5,"Type  MENU  5  EXE"
\Locate 4,7,"en gebruik  ISCT"
\Stop
\Lbl 7
0\->W:(L-M)/S\->Y:(U-M)/S\->Z
\ProbP(Z)-\ProbP(Y)\->X
"kans is ":\Locate 9,1,X
\Locate 1,7,"EXE opnieuw "
\Stop
15-08-04 S.Biesheuvel

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1282
File Name:GRAFIEKO
Group Name:
Password:G
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\For 1\->Z \To 20:\G SelOff Z:\T SelOff Z:\Next 
\Lbl 1:\ClrText
" ":" ":" ":" ":" ":" "
\Locate 1,1,"lijn do\or 2 punten"
\Locate 2,3,"2  met nieuwe punten"
\Locate 2,2,"1  met oude punten"
\Locate 1,4,"6  raaklijn aan de"
\Locate 4,5,"grafiek van Y1"
\Locate 1,7,"9 stop"
?\->W
\If W=2:\Then \ClrText:\Goto2:\IfEnd
\If W=1:\Then \ClrText:\Goto3:\IfEnd
\If W=6:\Then \ClrText:\Goto6:\IfEnd
\If W=9:\Then \ClrText:\Stop:\IfEnd
\Goto1
\Lbl 2
" x1= "?\->V
" y1= "?\->S
" x2= "?\->T
" y2= "?\->U
\Lbl 3:\ClrText:"1  x1=":\Locate 8,1,V
"2  y1=":\Locate 8,2,S
"3  x2=":\Locate 8,3,T
"4  y2=":\Locate 8,4,U
"0 verder    9 \Stop"
" "
?\->W
\If W=1:\Then "x1= ":?\->V:\Goto3:\IfEnd
\If W=2:\Then "y1= ":?\->S:\Goto3:\IfEnd
\If W=3:\Then "x2= ":?\->T:\Goto3:\IfEnd
\If W=4:\Then "y2= ":?\->U:\Goto3:\IfEnd
\If W=0:\Then \Goto5
\If W=9:\Then \ClrText:\Stop:\IfEnd
\Goto3
\Lbl 5
\If U=S:\Then \ClrText:"vergelijking van de  lijn is y=":\Locate 11,2,S:\Locate 1,7,"EXE opnieuw":\Stop:\IfEnd
\If V=T:\Then \ClrText:"vergelijking van de  lijn is x=":\Locate 11,2,T:\Locate 1,7,"EXE opnieuw":\Stop:\IfEnd
\Lbl 4:\ClrText
" ":" ":" ":" ":" ":" "
\Locate 1,1,"1  rechte lijn"
\Locate 1,3,"6  exponentiele lijn"
\Locate 1,6,"9  \Stop"
?\->W
\If W=1:\Then \ClrText:\Goto7:\IfEnd
\If W=6:\Then \ClrText:\Goto8:\IfEnd
\If W=9:\Then \ClrText:\Stop:\IfEnd
\Goto4
\Lbl 6
"Raakpunt x":?\->X
\d/dx((\Y 1,X)\->P:\Y 1\->Y
Y-PX\->Q
\Lbl V
\ClrText
"Vergelijking lijn is Y6=PX\@2BQ met":"  P = ":\Locate 7,3,P
"  Q = ":\Locate 7,4,Q:\GotoZ
\Lbl 7
(U-S)\ab/c(T-V)\->P:S-PV\->Q
\GotoV
\Lbl 8
(U/S)^(1/(T-V))\->P
S/(P^V)\->Q
"Vergelijking lijn is Y6=Q.P^X met":"  Q = ":\Locate 7,3,Q
"  P = ":\Locate 7,4,P
"Q*P^X"\->\Y 6:"Q*\e^x(RX)"\->\Y 7:\G SelOff 7:\T SelOff 7:\In P\->R
"of Y7=Q.e^(RX) met":"  R = ":\Locate 7,6,R
\Locate 1,7,"EXE opnieuw":\Stop
\Lbl Z
"PX+Q"\->\Y 6
\Locate 1,7,"EXE opnieuw":\Stop
13-10-04 S.Biesheuvel

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:623
File Name:BINLISTO
Group Name:
Password:B
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
" ":" ":" ":" ":" ":" "
\Locate 1,1,"\List 1 w\ordt gevuld"
\Locate 1,2,"met getallen, zodat"
\Locate 1,3,"je bij Bpd of Bcd"
\Locate 1,4,"daar de kans van kan "
\Locate 1,5,"laten berekenen."
\Locate 1,6,"Kies getallen (0 \->) "
?\->T
\ClrText
"Start"?\->U
"End"?\->V
"pitch"?\->W
\Seq(X,X,U,V,W)\->\List 1
\ClrText
" ":" ":" ":" ":" ":" "
\Locate 1,1,"Ga naar Bpd\slashBcd en"
\Locate 1,2,"maak een list met "
\Locate 1,3,"kansen. Zet deze list"
\Locate 1,4,"als volgt in list 2:"
\Locate 1,5,"EXIT"
\Locate 1,6,"EXIT           (0 \->)"
?\->T
\ClrText
" ":" ":" ":" ":" ":" "
\Locate 1,1,"Curs\or op het wo\ord"
\Locate 1,2,"list 2 (bovenaan)"
\Locate 1,3,"OPTN"
\Locate 1,4,"LIST (F1)"
\Locate 1,5,"list (F1) \Ans"
\Locate 1,6,"EXE            (0 \->)"
?\->T
\ClrText
\Stop
15-08-04 S.Biesheuvel
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:685
File Name:WORTEL O
Group Name:
Password:W
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl A
\ClrText
" ":" ":" ":" ":" ":" "
2\->W:1\->U:1\->Y
\Locate 1,1,"1   \sqrtX"
\Locate 1,2,"2    1 / \sqrtX"
\Locate 1,3,"3   \sqrtX * \sqrtY"
\Locate 1,4,"4   \sqrtX / \sqrtY"
\Locate 1,6,"              9 stop"
?\->R
\If R=1:\Then \ClrText:\Goto2:\IfEnd
\If R=2:\Then \ClrText:\Goto3:\IfEnd
\If R=3:\Then \ClrText:\Goto4:\IfEnd
\If R=4:\Then \ClrText:\Goto5:\IfEnd
\If R=9:\Then \ClrText:\Stop:\IfEnd
\GotoA
\Lbl 2
"\sqrtX ":"X = "?\->X
\Lbl 1
\If Y=0:\Then "JE DEELT DOOR NUL":\For 1\->X \To 500
\Next :\GotoA
\IfEnd
\While W\x^2\<=X
X/W\x^2\->V
\If \Intg V=V:\Then V\->X:U*W\->U:W-1\->W:\IfEnd
W+1\->W
\WhileEnd
\ClrText
\If X=0:\Then \Locate 1,1,0:\Locate 1,6,"         EXE opnieuw":\Stop:\IfEnd
\If X=1:\Then \Locate 1,1,U\ab/cY:\Locate 1,6,"         EXE opnieuw":\Stop:\IfEnd
\If U\ab/cY\<>1:\Then \Locate 1,1,U\ab/cY:\IfEnd
\Locate 1,2,"\sqrt"
\Locate 2,2,X
\Locate 1,6,"         EXE opnieuw":\Stop
\Lbl 3
"1 / \sqrtX"
"X = ":?\->X:X\->Y
\Goto1
\Lbl 4
"\sqrtX * \sqrtY"
"X = ":?\->X
"Y = ":?\->Y
X*Y\->X:1\->Y
\Goto1
\Lbl 5
"\sqrtX / \sqrtY"
"X = ":?\->X
"Y = ":?\->Y
X*Y\->X
\Goto1
15-08-04 S.Biesheuvel
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1418
File Name:GRAFIEK
Group Name:
Password:G
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\For 1\->Z \To 20:\G SelOff Z:\T SelOff Z:\Next 
\Lbl 1:\ClrText
\Locate 1,1,"lijn do\or 2 punten"
\Locate 2,3,"F2 met nieuwe punten"
\Locate 2,2,"F1 met oude punten"
\Locate 1,4,"F6 raaklijn aan de"
\Locate 4,5,"grafiek van Y1"
\Locate 1,7,"EXIT stop"
0\->W
\Lbl A
\If \Getkey=69:\Then \ClrText:\Goto2:\IfEnd
\If \Getkey=79:\Then \ClrText:\Goto3:\IfEnd
\If \Getkey=29:\Then \ClrText:\Goto6:\IfEnd
\If \Getkey=47:\Then \ClrText:\Stop:\IfEnd
W+1\->W:\If W=6000:\Then \ClrText:\Stop:\IfEnd
\GotoA
\Lbl 2
" x1= "?\->V
" y1= "?\->S
" x2= "?\->T
" y2= "?\->U
\Lbl 3:\ClrText:"F1 x1=":\Locate 8,1,V
"F2 y1=":\Locate 8,2,S
"F3 x2=":\Locate 8,3,T
"F4 y2=":\Locate 8,4,U
"EXE verder EXIT \Stop"
0\->W
\Lbl B
\If \Getkey=79:\Then "x1= ":?\->V:\Goto3:\IfEnd
\If \Getkey=69:\Then "y1= ":?\->S:\Goto3:\IfEnd
\If \Getkey=59:\Then "x2= ":?\->T:\Goto3:\IfEnd
\If \Getkey=49:\Then "y2= ":?\->U:\Goto3:\IfEnd
\If \Getkey=31:\Then \Goto5:\IfEnd
\If \Getkey=47:\Then \ClrText:\Stop:\IfEnd
W+1\->W:\If W=4000:\Then \ClrText:\Stop:\IfEnd
\GotoB
\Lbl 5
\If U=S:\Then \ClrText:"vergelijking van de  lijn is y=":\Locate 11,2,S:\Locate 1,7,"EXE opnieuw":\Stop:\IfEnd
\If V=T:\Then \ClrText:"vergelijking van de  lijn is x=":\Locate 11,2,T:\Locate 1,7,"EXE opnieuw":\Stop:\IfEnd
\Lbl 4:\ClrText:\Locate 1,1,"F1 rechte lijn"
\Locate 1,3,"F6 exponentiele lijn"
\Locate 1,6,"EXIT \Stop"
0\->W
\Lbl C
\If \Getkey=79:\Then \ClrText:\Goto7:\IfEnd
\If \Getkey=29:\Then \ClrText:\Goto8:\IfEnd
\If \Getkey=47:\Then \ClrText:\Stop:\IfEnd
W+1\->W:\If W=8000:\Then \ClrText:\Stop:\IfEnd
\GotoC
\Lbl 6
"Raakpunt x":?\->X
\d/dx((\Y 1,X)\->P:\Y 1\->Y
Y-PX\->Q
\Lbl V
\ClrText
"Vergelijking lijn is Y6=PX\@2BQ met":"  P = ":\Locate 7,3,P
"  Q = ":\Locate 7,4,Q
\Locate 1,5,"Plotten met menu 5"
\Locate 1,6,"Een tabel met menu 7"
\GotoZ
\Lbl 7
(U-S)\ab/c(T-V)\->P:S-PV\->Q
\GotoV
\Lbl 8
(U/S)^(1/(T-V))\->P
S/(P^V)\->Q
"Vergelijking lijn is Y6=Q.P^X met":"  Q = ":\Locate 7,3,Q
"  P = ":\Locate 7,4,P
"Q*P^X"\->\Y 6:"Q*\e^x(RX)"\->\Y 7:\G SelOff 7:\T SelOff 7:\In P\->R
"of Y7=Q.e^(RX) met":"  R = ":\Locate 7,6,R
\Locate 1,7,"EXE opnieuw(menu5,7)":\Stop
\Lbl Z
"PX+Q"\->\Y 6
\Locate 1,7,"EXE opnieuw":\Stop
13-10-04 S.Biesheuvel

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1539
File Name:NORMV MS
Group Name:
Password:N
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText:\Y=Type
\Locate 1,1,"de n\ormale verdeling"
\Locate 5,2,"met grafiek"
\Locate 2,3,"vo\or een onbekende"
\Locate 2,4,"waarde neem je x"
\Lbl 1
\Locate 1,5,"F1 oude gegevens":\Locate 1,6,"F6 nieuwe gegevens"
\Locate 1,7,"EXIT stop"
0\->R
\Lbl 2
\If \Getkey=79:\Then \ClrText:\Goto4:\IfEnd
\If \Getkey=47:\Then \ClrText:\Stop:\IfEnd
\If \Getkey=29:\Then \ClrText:\Goto3:\IfEnd
R+1\->R:\If R=8000:\Then \ClrText:\Stop:\IfEnd
\Goto2
\Lbl 3
\(-)0.1243*10^65\->X:"Links   "?\->J
"Rechts  "?\->K
"Mu GEM  "?\->M
"Sigma SA"?\->S
"Kans    "?\->P
\Lbl 4
0\->V:\(-)0.1243*10^65\->X
\ClrText:" ":" ":" ":" ":" ":" ":\Locate 1,1,"F1 Links":\If J=X:\Then 1\->V:\Locate 13,1,"X":\Else \Locate 13,1,J:\IfEnd
\Locate 1,2,"F2 Rechts":\If K=X:\Then 2\->V:\Locate 13,2,"X":\Else \Locate 13,2,K:\IfEnd
\Locate 1,3,"F3 Mu GEM":\If M=X:\Then 3\->V:\Locate 13,3,"X":\Else \Locate 13,3,M:\IfEnd
\Locate 1,4,"F4 Sigma SA":\If S=X:\Then 4\->V:\Locate 13,4,"X":\Else \Locate 13,4,S:\IfEnd
\Locate 1,5,"F5 Kans":\If P=X:\Then 0\->V:\Locate 13,5,"X":\Else \Locate 13,5,P:\IfEnd
\Locate 1,6,"EXE verder EXIT stop"
0\->R
\Lbl F
\If \Getkey=79:\Then \Locate 1,6,"Links               ":?\->J:\Goto4:\IfEnd
\If \Getkey=69:\Then \Locate 1,6,"Rechts              ":?\->K:\Goto4:\IfEnd
\If \Getkey=59:\Then \Locate 1,6,"Mu GEM              ":?\->M:\Goto4:\IfEnd
\If \Getkey=49:\Then \Locate 1,6,"Sigma SA            ":?\->S:\Goto4:\IfEnd
\If \Getkey=39:\Then \Locate 1,6,"Kans                ":?\->P:\Goto4:\IfEnd
\If \Getkey=31:\Then \Goto6:\IfEnd
\If \Getkey=47:\Then \ClrText:\Stop:\IfEnd
R+1\->R:\If R=4000:\Then \ClrText:\Stop:\IfEnd
\GotoF
\Lbl 6
\ClrText:J\->L:K\->U:L<\(-)10^30\=>\(-)10^30\->L:U>10^30\=>10^30\->U
\If V=0:\Then \Goto7:\IfEnd
"View Window          \Xmin "?\->H
"\Xmax "?\->I
(I-H)*2\->N
\ViewWindow H,I,N,\(-)0.2,1,0.1
\For 1\->X \To 20
\G SelOff X
\Next 
\If V=1:\Then "\ProbP((U-M)/S)-\ProbP((X-M)/S)"\->\Y 6:\IfEnd
\If V=2:\Then "\ProbP((X-M)/S)-\ProbP((L-M)/S)"\->\Y 6:\IfEnd
\If V=3:\Then "\ProbP((U-X)/S)-\ProbP((L-X)/S)"\->\Y 6:\IfEnd
\If V=4:\Then "\ProbP((U-M)/X)-\ProbP((L-M)/X)"\->\Y 6:\IfEnd
"P"\->\Y 7
\OrangeG 7
\ClrText
\Locate 5,1,"het programma":\Locate 6,2,"is gestopt"
\Locate 3,5,"Type  MENU  5  EXE"
\Locate 4,7,"en gebruik  ISCT"
\Stop
\Lbl 7
0\->W:(L-M)/S\->Y:(U-M)/S\->Z
\ProbP(Z)-\ProbP(Y)\->X
"kans is ":\Locate 9,1,X
\Locate 1,7,"EXE opnieuw "
\Stop
19-09-04 S.Biesheuvel

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:291
File Name:RIEMANN.
Group Name:
Password:R
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"RIEMANN SUM"
"STORE \f6(X) FIRST"
"INTERVAL FROM X="?\->A
"TO X="?\->B
"NUMBER OF"
"SUBINTERVALS="?\->N
(B-A)/N\->D
"(1) LEFT ENDPOINT"
"(2) RIGHT ENDPOINT"
"(3) MIDPOINT"
"(4) TRAPEZOID"
"CHOICE="?\->C
0\->S
A\->X
C=2\=>X+D\->X
C=3\=>X+.5D\->X
\For 1\->K \To N
S+\f6D\->S
X+D\->X
\Next 
\If C=4
\Then A\->X
\f6\->E
B\->X
\f6\->F
S+(F-E)D/2\->S
\IfEnd
S
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1528
File Name:HYPERGEO
Group Name:
Password:H
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Locate 1,1,"De Hypergeometrische"
\Locate 2,2,"Verdeling"
\Locate 1,3,"Grootte populatie"
\Locate 1,5,"Grootte populatie "
\Locate 2,6,"gunstig is G"
\Locate 2,4,"is N"
\Locate 11,7,"verder EXE"
\While \Getkey\<>31:\WhileEnd
\ClrText:\Locate 1,1,"Grootte steekproef"
\Locate 2,2,"is n"
\Locate 1,3,"Grootte steekproef"
\Locate 2,4,"gunstig is X"
\Locate 2,5,"X loopt vanaf Xmin"
\Locate 2,6,"tot en met Xmax"
\For 1\->R \To 100:\Next 
\Locate 11,7,"verder EXE"
\While \Getkey\<>31:\WhileEnd
\Lbl 1
\ClrText:\Locate 1,1,"F1 oude gegevens":\Locate 1,3,"F6 nieuwe gegevens"
\Locate 1,7,"EXIT stop"
\Lbl 2
0\->R
\Do:\Getkey\->Z:R+1\->R:\LpWhile Z=0\ And R<20000
\If Z=79:\Then \ClrText:\Goto4:\IfEnd
\If Z=47\ Or R=20000:\Then \ClrText:\Stop:\IfEnd
\If Z=29:\Then \ClrText:\Goto3:\IfEnd
\Goto2
\Lbl 3
"pop. N"?\->V
"pop. G"?\->S
"st.p. n"?\->W
"Xmin"?\->P
"Xmax"?\->Q
\Lbl 4
\ClrText:" ":" ":" ":" ":" ":" ":\Locate 1,1,"F1 pop.  N":\Locate 13,1,V
\Locate 1,2,"F2 pop.  G":\Locate 13,2,S
\Locate 1,3,"F3 st.p. n":\Locate 13,3,W
\Locate 1,4,"F4 Xmin":\Locate 12,4,P
\Locate 1,5,"F5 Xmax":\Locate 12,5,Q
\For 1\->R \To 100:\Next 
\Locate 1,7,"EXE verder EXIT stop"
\Lbl F
0\->R
\Do:\Getkey\->Z:R+1\->R:\LpWhile Z=0\ And R<20000
\If Z=79:\Then \Locate 1,6,"pop. N              ":?\->V:\Goto4:\IfEnd
\If Z=69:\Then \Locate 1,6,"pop. G              ":?\->S:\Goto4:\IfEnd
\If Z=59:\Then \Locate 1,6,"st.p. n             ":?\->W:\Goto4:\IfEnd
\If Z=49:\Then \Locate 1,6,"Xmin                ":?\->P:\Goto4:\IfEnd
\If Z=39:\Then \Locate 1,6,"Xmax                ":?\->Q:\Goto4:\IfEnd
\If Z=31:\Then \Goto6:\IfEnd
\If Z=47\ Or R=20000:\Then \ClrText:\Stop:\IfEnd
\Lbl 6
W>V\=>\GotoA:S>V\=>\GotoA:P>Q\=>\GotoA:Q>W\=>\GotoA:Q>S\=>\GotoA
0\->X
\For P\->T \To Q
(S\nCrT*(V-S)\nCr(W-T))\ab/c(V\nCrW)+X\->X
\Next 
\ClrText
"kans is ":\Locate 9,1,X:\Locate 9,3,\e^x(\In X)
\For 1\->R \To 100:\Next 
\Locate 1,7,"EXE start EXIT stop"
0\->R
\Do:\Getkey\->Z:R+1\->R:\LpWhile Z=0\ And R<20000
\If Z=31:\Then \Goto1:\IfEnd
\If Z=47\ Or R=20000:\Then \ClrText:\Stop:\IfEnd
\Stop
\Lbl A
\ClrText:\Locate 1,1,"Dit kan niet":\Locate 1,2,"Contoleer je":\Locate 1,3,"gegevens"
\For 1\->R \To 100:\Next 
\Locate 1,7," EXE opnieuw "
0\->R
\Do:\Getkey\->Z:R+1\->R:\LpWhile Z=0\ And R<20000
\If Z=31:\Then \Goto1:\IfEnd
20-06-06 S.Biesheuvel

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1993
File Name:NORMSOLV
Group Name:
Password:N
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Locate 1,1,"de n\ormale verdeling"
\Locate 1,2,"met de solver-methode":\Locate 2,3,"vo\or een onbekende"
\Locate 2,4,"waarde neem je x"
\Lbl 1
\Locate 1,5,"F1 oude gegevens":\Locate 1,6,"F6 nieuwe gegevens"
\Locate 1,7,"EXIT stop"
\Lbl 2
0\->R
\Do:\Getkey\->Z:R+1\->R:\LpWhile Z=0\ And R<2000
\If Z=79:\Then \ClrText:\Goto4:\IfEnd
\If Z=47\ Or R=2000:\Then \ClrText:\Stop:\IfEnd
\If Z=29:\Then \ClrText:\Goto3:\IfEnd
\Goto2
\Lbl 3
\(-)0.1243*10^65\->X:"links   "?\->J
"rechts  "?\->K
"mu GEM  "?\->M
"sigma SA"?\->S
\Lbl K
"kans    "?\->Q:Q\->P
\Lbl 4
\If Q\>=1:\Then " ":"kans moet tussen":"0 en 1 liggen":" ":\GotoK:\IfEnd
0\->V:\(-)0.1243*10^65\->X
\ClrText:" ":" ":" ":" ":" ":" ":\Locate 1,1,"F1 links":\If J=X:\Then 1\->V:\Locate 13,1,"X":\Else \Locate 13,1,J:\IfEnd
\Locate 1,2,"F2 rechts":\If K=X:\Then 2\->V:\Locate 13,2,"X":\Else \Locate 13,2,K:\IfEnd
\Locate 1,3,"F3 mu GEM":\If M=X:\Then 3\->V:\Locate 13,3,"X":\Else \Locate 13,3,M:\IfEnd
\Locate 1,4,"F4 sigma SA":\If S=X:\Then 4\->V:\Locate 13,4,"X":\Else \Locate 13,4,S:\IfEnd
\Locate 1,5,"F5 kans":\If Q=X:\Then 0\->V:\Locate 13,5,"X":\Else \Locate 13,5,Q:\IfEnd
\Locate 1,6,"EXE verder EXIT stop"
\Lbl F
0\->R
\Do:\Getkey\->Z:R+1\->R:\LpWhile Z=0\ And R<2000
\If Z=79:\Then \Locate 1,6,"links                ":?\->J:\Goto4:\IfEnd
\If Z=69:\Then \Locate 1,6,"rechts               ":?\->K:\Goto4:\IfEnd
\If Z=59:\Then \Locate 1,6,"mu GEM               ":?\->M:\Goto4:\IfEnd
\If Z=49:\Then \Locate 1,6,"sigma SA             ":?\->S:\Goto4:\IfEnd
\If Z=39:\Then \Locate 1,6,"kans                 ":?\->Q:Q\->P:\Goto4:\IfEnd
\If Z=31\ And V>2\ And J\<>-10^99\ And K\<>10^99:\Then \Locate 1,6,"F1=-10^99 of F2=10^99":\GotoF:\IfEnd
\If Z=31:\Then \Goto6:\IfEnd
\If Z=47\ Or R=2000:\Then \ClrText:\Stop:\IfEnd
\GotoF
\Lbl 6
J\->L:K\->U:L<\(-)10^30\=>\(-)10^30\->L:U>10^30\=>10^30\->U
\If V=0:\Then \Goto7:\IfEnd
\ClrText:"even wachten"
\If V=1:\Then 1-P-\ProbR((U-M)/S)\->P:8\->X:\(-)8\->Y
1\->T
\While T<50
\If \ProbP(0.5X+0.5Y)>P:\Then 0.5X+0.5Y\->X:\Else 0.5X+0.5Y\->Y:\IfEnd
1+T\->T
\WhileEnd
M+X*S\->X
\IfEnd
\If V=2:\Then P+\ProbP((L-M)/S)\->P:8\->X:\(-)8\->Y
1\->T
\While T<50
\If \ProbP(0.5X+0.5Y)>P:\Then 0.5X+0.5Y\->X:\Else 0.5X+0.5Y\->Y:\IfEnd
1+T\->T
\WhileEnd
M+X*S\->X
\IfEnd
\If V=3:\Then 8\->X:\(-)8\->Y:K=10^99\=>1-Q\->P:K=10^99\=>L\->U
1\->T
\While T<50
\If \ProbP(0.5X+0.5Y)>P:\Then 0.5X+0.5Y\->X:\Else 0.5X+0.5Y\->Y:\IfEnd
1+T\->T
\WhileEnd
U-X*S\->X
\IfEnd
\If V=4:\Then 8\->X:\(-)8\->Y:K=10^99\=>1-Q\->P:K=10^99\=>L\->U
1\->T
\While T<50
\If \ProbP(0.5X+0.5Y)>P:\Then 0.5X+0.5Y\->X:\Else 0.5X+0.5Y\->Y:\IfEnd
1+T\->T
\WhileEnd
(U-M)/X\->X:X\<=0\=>\Locate 1,1,"Dit kan niet":X\<=0\=>\Locate 1,2,"Contoleer je":X\<=0\=>\Locate 1,3,"gegevens":X\<=0\=>\Locate 1,7,"EXE opnieuw ":X\<=0\=>\Stop
\IfEnd
\ClrText
\Locate 6,1,"X is "
\Locate 6,3,X
\Locate 1,7,"EXE opnieuw "
\Stop
\Lbl 7
(L-M)/S\->Y:(U-M)/S\->Z
\ProbP(Z)-\ProbP(Y)\->X
\ClrText
"     de kans is ":\Locate 6,3,X
\Locate 1,7,"EXE opnieuw "
\Stop
21-04-06 S.Biesheuvel

%End