%Header Record
Format:MCS1
Type Number:1
File Name:GAUSELIM
Option Name:
Communication SW:0
Capacity:600
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
\Dim \Mat A:\List \Ans[1]\->A
\Locate 1,2,"Gausian elimination"
\Locate 1,3,"Initial matrix A"\Disp\Mat A\->\Mat R\Disp\For 1\->K \To A-1
K-1\->J:\Do:J+1\->J:\LpWhile \Mat R[J,K]=0\ And J<A
\If \Mat R[J,K]=0
\Then A\->K\Else \If J\<>K
\Then \ClrText
\Locate 1,3,"\Swap R"
\Locate 7,3,K
\Locate 8,3," \and R"
\Locate 14,3,J\Disp\Swap R,J,K
\Mat R\Disp\IfEnd
\For K+1\->J \To A
\(-)\Mat R[J,K]\ab/c\Mat R[K,K]\->H
\If H\<>0
\Then \ClrText
\Locate 1,3,"R"
\Locate 2,3,J
\Locate 3,3,"=R"
\Locate 5,3,J
\Locate 6,3,"+"
\Locate 7,3,H
\Locate 14,3,"*R"
\Locate 16,3,K\Disp\*Row+ H,R,K,J
\Mat R\Disp\IfEnd
\Next 
\IfEnd
\Next 
\ClrText
\Mat R[A,A]\->M
\If M=0
\Then "No unique soln"\Disp\Mat R\Disp\Else "Elimination complete"\Disp\Mat R\Disp\Seq(0,X,1,A,1)\->\List 6
\Mat R[A,A+1]\ab/cM\->\List 6[A]
\For A-1\->B \To 1 \Step -1
0\->D
\For B+1\->C \To A
\List 6[C]\Mat R[B,C]+D\->D
\Next 
(\Mat R[B,A+1]-D)\ab/c\Mat R[B,B]\->\List 6[B]
\Next 
"So\In is:"\Disp\List 6\Disp\IfEnd
"Final matrix: \Mat R"\Disp\ClrText\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:LINPRG
Option Name:
Communication SW:0
Capacity:1266
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"\Linear \Prog Solver"
"Program overwrites"
"\Mat A,F,T \and \List 6"
"Press MENU to ab\ort"
"No. of inequalities"?\->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,"Constraint"
\Locate 12,7,K
"ax+by (\>= \<=) c"
\Do
"Choose \>=:3 \<=:4"?\->T
\LpWhile T<3\ Or T>4
1\->F
\If T=3:\Then \(-)F\->F:\IfEnd
"a"?\->A
AF\->\Mat A[K,2]
"b"?\->B
BF\->\Mat A[K,3]
"c"?\->D
DF\->\Mat A[K,C]
\Next 
\ClrText
"Obj Func = ax+by"
\Do
"Min:1 Max:2 Choice"?\->T
\LpWhile T<1\ Or T>2
1\->F
\If T=2:\Then \(-)1\->F:\IfEnd
"a"?\->A
FA\->\Mat A[R,2]
"b"?\->B
FB\->\Mat A[R,3]
\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
\If \Mat F[R,K]<0:\Then 2\->P:\IfEnd
\Next 
\For 1\->K \To R-1
\If \Mat F[K,C]<0:\Then 1\->P:\IfEnd
\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
\If M=\List 6[K]:\Then K\->I:\IfEnd
\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
\If M=\List 6[K]:\Then K\->J:\IfEnd
\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
\If M=\List 6[K]:\Then K\->J:\IfEnd
\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
\If M=\List 6[K]:\Then K\->I:\IfEnd
\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
\If K\<>I:\Then \*Row+ (\(-)\Mat F[K,J]),F,I,K:\IfEnd
\Next 
\If R>2\ And J=2:\Then I\->X:\IfEnd
\If R>3\ And J=3:\Then I\->Y:\IfEnd
\IfEnd
\LpWhile P\<>0
\ClrText
\Locate 1,2,"Optimum="
\Locate 9,2,\(-)F\Mat F[R,C]
\Locate 1,3,"x="
\If X\<>0:\Then \Locate 3,3,\Mat F[X,C]:\IfEnd
\Locate 1,4,"y="
\If Y\<>0:\Then \Locate 3,4,\Mat F[Y,C]:\IfEnd
\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:MAV
Option Name:
Communication SW:0
Capacity:1552
Data Type:PG
%Data Record
Password:
BaseN:0
\Locate 1,2,"Moving average prog"
\Locate 1,3,"Uses data lists:1-2"
\Locate 1,4,"Finds\slashplots y=ax+b"
\Locate 1,5,"f\or moving average"
\Locate 1,6,"\and rsdls\slashseas adj"
\Locate 1,7,"Press EXE to resume"\Disp\Resid-None
\ClrText
\Dim \List 2\->N
\List 1[2]-\List 1[1]\->W
\For 3\->I \To N
\If \List 1[I]-\List 1[I-1]\<>W
\Then \Locate 1,1,"ERROR!"
\Locate 1,2,"Check \List 1: values"
\Locate 1,3,"must go up unif\ormly"
\Stop
\IfEnd
\Next 
"Points"?\->P
\Locate 1,4,"Finding averages...."
.5\->E
\If \Int (\Frac (P/2)+.5)\<>0:\Then 1\->E:\IfEnd
\Int (P/2)\->L
1+L\->F
N-L\->Q
2L\->L
\Seq(0,X,1,N,1)\->\List 3
\List 3\->\List 4
\List 3\->\List 5
\List 3\->\List 6
\For 1\->I \To (N-L)
E(\List 2[I]+\List 2[I+L])\->S
\For (I+1)\->J \To (I+L-1)
\List 2[J]+S\->S
\Next 
I+(L/2)\->K
S/P\->\List 3[K]
\List 2[K]-\List 3[K]\->\List 4[K]
\Next 
\For F\->I \To Q
1\->\List 5[I]
\Next 
\S-WindMan
\ViewWindow \Min(\List 1),\Max(\List 1),(\Xmax-\Xmin)/4,\Min(\List 2),\Max(\List 2),(\Ymax-\Ymin)/4
\S-Gph1 \DrawOn,\xyLine,\List 1,\List 2,1,\Cross
\S-Gph2 \DrawOn,\Scatter,\List 1,\List 3,\List 5,\Square
\S-Gph3 \DrawOn,\Linear,\List 1,\List 3,\List 5
\DrawStat\Disp\LinearReg \List 1,\List 3,\List 5\Disp\Ra\->A:\Rb\->B:\Cor\->R
\ClrText
\Locate 1,3,"Finding residuals..."
\For 1\->J \To N
0\->T:0\->S
F+\Int (P\Frac ((J+P-F)/P)+.5)\->M
\For M\->I \To Q \Step P
\List 4[I]+S\->S
1+T\->T
\Next 
S/T\->\List 5[J]
\List 2[J]-\List 5[J]\->\List 6[J]
\Next 
\Do
\ClrText
\Locate 1,4,"Yes: 1,[EXE]"
\Locate 2,5,"No: 2,[EXE]"
"Predict values"?\->E
\If E=1
\Then \ClrText
"x value"?\->X
\ClrText
\Locate 10,2,"x="
\Locate 12,2,X
X\->V
(X-\List 1[1])/W+1\->X
\If \Int X\<>X
\Then \Int (X+.5)\->X
W(X-1)+\List 1[1]\->V
\Locate 4,3,"Using x="
\Locate 12,3,V
\IfEnd
\RaV+\Rb\->Y
\Locate 10,4,"y="
\Locate 12,4,Y
\While X\<=0:X+P\->X:\WhileEnd
\While X>P:X-P\->X:\WhileEnd
\Locate 1,5,"Seas Comp ="
\Locate 12,5,\List 5[X]
\Locate 1,6,"Future Val="
\Locate 12,6,Y+\List 5[X]\Disp\IfEnd
\LpWhile E=1
\S-WindAuto
\ClrText
\Locate 1,2,"Lists now contain:"
\Locate 1,3,"3: Moving avs"
\Locate 1,4,"4: residuals"
\Locate 1,5,"5: Av residuals"
\Locate 1,6,"6: Seas adjusted"\Disp\ClrText
\Locate 1,1,"Finished"
\Locate 1,2,"Again...... EXE"
\Locate 1,3,"See Lists.. MENU,4"
\Locate 1,4,"End........ AC\slashON"
\For 1\->I \To 10
\Locate 1,6,"                   "
\Locate 1,7,"                   "
\Locate 1,6,"Warning:use y=ax+b"
\Locate 1,7,"from this prog ONLY"
\Next 
\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:MEDIAN
Option Name:
Communication SW:0
Capacity:353
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
" ":\Locate 1,1,"median using linear"
" ":\Locate 8,2,"interpolation"
" ":\Locate 1,3,"total freq (n)"
?\->N
\ClrText
\Locate 1,6,"position"
\Locate 1,7,"of median is"
\Locate 14,7,(N+1)/2\Disp\ClrText
" ":\Locate 1,1,"median class info:"
" ":\Locate 1,2,"lower bound"
?\->L
" ":\Locate 1,5,"upper bound"
?\->U
" ":\Locate 1,7,"frequency"
?\->F
" ":\Locate 1,7,"cum freq"
?\->C
\ClrText
\Locate 1,7,"median="
L+(U-L)*((N+1)/2-C+F)/F\->M
\Locate 8,7,M
\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:PDF
Option Name:
Communication SW:0
Capacity:5988
Data Type:PG
%Data Record
Password:
BaseN:0
\Norm :1\->A~Z:\Do:3\->Z:\ClrText
\Locate 1,2,"Choose PDF":\Locate 1,4,"F1.UserY1":\Locate 13,4,"F2.\Binoml":\Locate 1,5,"F3.Poisson":\Locate 13,5,"F4.N\ormal":\Locate 1,6,"F5.\Exp":\Locate 7,6,"ontl":\Locate 13,6,"F6.End"
\Do:\Int (\Getkey/10)\->T:\LpWhile T=0
\ClrText
\If T\<>2:\Then \Do:" "
\If T=7:\Then \Locate 1,1,"Y1,[A,B]":\If Z=3:\Then "A"?\->F:\IfEnd:\Locate 1,2,"A=":\Locate 3,2,F:\If Z=3:\Then "B"?\->G:\IfEnd:(F+G)/2\->M:1\->S:\Locate 11,2,"B=":\Locate 13,2,G:\Locate 8,6,"A,B":\IfEnd
\If T=6:\Then \Locate 1,1,"B(n,p)":\If Z=3:\Then "n"?\->N:\IfEnd:\Locate 1,2,"n=":\Locate 3,2,N:\If Z=3:\Then "p"?\->P:\IfEnd:1-P\->Q:Q^N\->V:NP\->M:\sqrt(NPQ)\->S:\Locate 13,2,"p=":\Locate 15,2,P:\Locate 8,6,"n,p":\IfEnd
\If T=5:\Then \Locate 1,1,"Po(\micro)":\If Z=3:\Then "\micro"?\->M:\IfEnd:\sqrtM\->S:\If M\<=227:\Then \e^x\(-)M\->V:\IfEnd:\Locate 1,2,"\micro=":\Locate 3,2,M:\Locate 8,6,"\micro":\IfEnd
\If T=4:\Then \Locate 1,1,"N(\micro,s\x^2)":\If Z=3:\Then "\micro"?\->M:\IfEnd:\Locate 1,2,"\micro=":\Locate 3,2,M:\If Z=3:\Then "s"?\->S:\IfEnd:\Locate 13,2,"s=":\Locate 15,2,S:\Locate 8,6,"\micro,s\x^2":\IfEnd
\If T=3:\Then \Locate 1,1,"\Exp":\Locate 4,1,"(k)":\If Z=3:\Then "k"?\->K:\IfEnd:K\x^-1\->M:M\->S:\Locate 1,2,"k=":\Locate 3,2,K:\Locate 8,6,"k":\IfEnd
\Locate 1,3,"Choose":\Locate 1,4,"F1.\ProbP(X=x)":\Locate 13,4,"F2.Table"
\If T=6\ Or T=5:\Then \Locate 1,5,"F3.\Moe":\Else \Locate 1,5,"F3.Inverse":\IfEnd
\Locate 13,5,"F4.Plot":\Locate 1,6,"F5.New":\Locate 13,6,"F6.Exit"
\Do:\Int (\Getkey/10)\->Z:\LpWhile Z=0
\ClrText
\If Z=7\ And (T=5\ Or T=6)
\Then 0\->B:0\->W:" ":\Locate 1,1,"Choose:"
" ":\Locate 1,2,"F1.\ProbP(X=a)"
" ":\Locate 1,3,"F2.\ProbP(a\<=X\<=b)"
\Do:\Int (\Getkey/10)\->C:\LpWhile C=0
"a"?\->A:\If C=6:\Then "b"?\->B:\IfEnd
\ClrText
\If (T=5\ And M\<=227\ And M\>=20)\ Or (T=6\ And NP>5\ And NQ>5):\Then \Locate 1,2,"Use N\ormalApprox?":\Locate 1,3,"(automatic continuity":\Locate 1,4,"c\orrection)":\Locate 1,6,"F1:No  F2:Yes"
\Do:\Int (\Getkey/10)\->W:\LpWhile W=0:\IfEnd
\If W\<>6\ And ((T=5\ And M>227)\ Or (T=6\ And (N>254\ Or V=0)):\Then 6\->W:\ClrText:\Locate 1,2,"Extreme parameters!":\Locate 1,3,"Using N\ormalApprox":\Locate 1,4,"(automatic continuity":\Locate 1,5,"c\orrection)"\Disp\IfEnd:\ClrText
\If W=6
\Then \ProbP((A-M-.5)/S)\->L:\ProbP((A-M+.5)/S)\->U
\Else V\->U:\Locate 1,2,"Wait.."
\If A\<>0\ And T=5:\Then \For 1\->R \To A:VM/R\->V:U+V\->U:\Next :\IfEnd
\If A\<>0\ And T=6:\Then \For 0\->R \To A-1:VP*(N-R)/Q/(1+R)\->V:U+V\->U:\Next :\IfEnd
U-V\->L
\IfEnd
\If T=5:\Then \Locate 1,2,"Po(\micro) ":\If W=6:\Then \Locate 6,2,"~N(\micro,\micro)":\IfEnd:\Locate 15,2,"\micro=":\Locate 17,2,M
\Else \Locate 1,2,"B(n,p)":\If W=6:\Then \Locate 2,2,"~N(np,npq)":\IfEnd:\Locate 15,2,"n=":\Locate 17,2,N:\Locate 15,3,"p=":\Locate 17,3,P:\IfEnd
\Locate 15,4,"a=":\Locate 17,4,A
\If C\<>6:\Then \Fix 4
\Locate 1,3,"\ProbP(X<a)=":\Locate 8,3,L:\Locate 1,4,"\ProbP(X\<=a)=":\Locate 8,4,U:\Locate 1,5,"\ProbP(X=a)=":\Locate 8,5,U-L:\Locate 1,6,"\ProbP(X\>=a)=":\Locate 8,6,1-L:\Locate 1,7,"\ProbP(X>a)=":\Locate 8,7,1-U\Disp\Norm :\IfEnd
\If C=6:\Then L\->F:\If W=6:\Then \ProbP((B-M+.5)/S)\->U
\Else \If A\<>B\ And T=5:\Then \For A+1\->R \To B:VM/R\->V:U+V\->U:\Next :\IfEnd
\If A\<>B\ And T=6:\Then \For A\->R \To B-1:VP*(N-R)/Q/(1+R)\->V:U+V\->U:\Next :\IfEnd:\IfEnd
\Fix 4:\Locate 1,3,"a\<=X\<=b=":\Locate 7,3,U-F:\Locate 3,4,"Not=":\Locate 7,4,1-U+F:\Locate 1,6,"X\>=a=":\Locate 5,6,1-F:\Locate 1,7,"X<a=":\Locate 5,7,F:\Locate 12,6,"X\<=b=":\Locate 16,6,U:\Locate 12,7,"X>b=":\Locate 16,7,1-U
\Norm :\Locate 15,5,"b=":\Locate 17,5,B\Disp\IfEnd
\IfEnd
\If Z=7\ And (T=3\ Or T=4\ Or T=7)
\Then 0\->B:" ":\Locate 1,1,"Choose:"
" ":\Locate 1,2,"F1.\ProbP(X<a) \or \ProbP(X>a)"
" ":\Locate 1,3,"F2.\ProbP(a<X<b)"
\Do:\Int (\Getkey/10)\->C:\LpWhile C=0
"a"?\->A:\If C=6:\Then "b"?\->B:\IfEnd
\ClrText
\If T=7:\Then \Integral(\Y 1,F,A)\->L:\If C=6:\Then \Integral(\Y 1,F,B)\->U:\IfEnd:\IfEnd
\If T=4:\Then (A-M)/S\->F:(B-M)/S\->G:\ProbP(F)\->L:\ProbP(G)\->U:\IfEnd
\If T=3:\Then 1-\e^x(-KA)\->L:1-\e^x(-KB)\->U:\IfEnd
U-L\->V
\Locate 14,2,"a="
\If T=4:\Then \Locate 14,3,"z=":\Fix 3:\Locate 16,3,F:\IfEnd
\Fix 4:\Locate 3,2,"X<a=":\Locate 7,2,L:\Locate 3,3,"X>a=":\Locate 7,3,1-L
\If C=6:\Then \Locate 1,4,"a<X<b=":\Locate 7,4,V:\Locate 3,5,"Not=":\Locate 7,5,1-V:\Locate 3,6,"X<b=":\Locate 7,6,U
\Locate 3,7,"X>b=":\Locate 7,7,1-U:\Locate 14,4,"b=":\Norm :\Locate 16,4,B
\If T=4:\Then \Locate 14,5,"z=":\Fix 3:\Locate 16,5,G:\IfEnd
\IfEnd
\Norm :\Locate 16,2,A\Disp\IfEnd
\If (Z=6\ Or Z=4)\ And (T=3\ Or T=4\ Or T=5\ Or T=6\ Or T=7)
\Then 7\->C:\If (T=5\ And M\<=227\ And M\>=20)\ Or (T=6\ And M>5\ And NQ>5\ And N\<=254):\Then \Locate 1,1,"Use N\ormalApprox?":\Locate 1,2,"(automatic continuity":\Locate 1,3,"c\orrection)":\Locate 1,5,"F1.No":\Locate 1,6,"F2.Use both":\Locate 1,7,"F3.Switch to N\ormal"
\Do:\Int (\Getkey/10)\->C:\LpWhile C=0:\IfEnd:\ClrText
\If C\<>5\ And ((T=5\ And M>227)\ Or (T=6\ And (N>254\ Or Q^N=0))):\Then 5\->C:\Locate 1,2,"Extreme parameters!":\Locate 1,3,"Using N\ormalApprox":\Locate 1,4,"(automatic continuity":\Locate 1,5,"c\orrection)"\Disp\IfEnd
\If C=5:\Then \ClrText:4\->T:\Locate 3,2,"\aster\aster\aster !WARNING! \aster\aster\aster":\Locate 1,4,"PDF now N(\micro,s\x^2)":\Locate 1,6,"\micro=":\Locate 3,6,M:\Locate 1,7,"s=":\Locate 3,7,S\Disp\ClrText:\IfEnd
1\->I:M-3S\->A:M+3S\->B
\If T=3:\Then 0\->A:\Int (50/K)/10\->B:(B-A)/20\->I:\IfEnd
\If T=4:\Then S/5\->I:\IfEnd
\If T=5:\Then \Int A\->A:(A>0)A\->A:\Int (B+1)\->B:\IfEnd
\If T=6:\Then 0\->A:N\->B:\IfEnd
\If T=7:\Then F\->A:G\->B:(B-A)/10\->I:\IfEnd
\If Z=6:\Then \Locate 1,1,"Table shows":\Locate 1,2,"1.x 2.\ProbP(X=x) 3.\ProbP(X\<=x)":\Else \Locate 1,1,"\Plot shows \ProbP(X=x)":\IfEnd
\If T=4:\Then \Fix 4:\IfEnd:\Locate 1,3,"Choose x range:":\Locate 1,4,"F1.Default":\Locate 12,4,A:\Locate 9,5,"to":\Locate 12,5,B
\If T=7\ Or T=4\ Or T=3:\Then \Locate 7,6,"step":\Locate 12,6,I:\IfEnd
\If T=4:\Then \Norm :\IfEnd:\Locate 1,7,"F2.Other"
\Do:\Int (\Getkey/10)\->Y:\LpWhile Y=0
\ClrText
\If Y=6:\Then "Start"?\->A:"End"?\->B:\If T=7\ Or T=4\ Or T=3:\Then "Step"?\->I:\IfEnd:\IfEnd
\Locate 16,7,"Wait..":\ClrList:I/2\->J
\If T=5\ Or T=6:\Then \Seq(X,X,A,B,1)\->\List 1:\List 1\->\List 2:\If Z=6:\Then \List 1\->\List 3:\IfEnd:\If C=6:\Then \List 1\->\List 4:\List 1\->\List 5:\IfEnd:\Else \Seq(X+J,X,A,B-I,I)\->\List 1:\List 1\->\List 4:\List 1\->\List 5:\IfEnd
\Dim \List 1\->O
\If T=3:\Then 1-\e^x(\(-)K(A+I))\->\List 5[1]:\List 5[1]-1+\e^x(\(-)KA)\->\List 4[1]:\For 2\->R \To O:1-\e^x(\(-)K(\List 1[R]+J))\->\List 5[R]:\List 5[R]-\List 5[R-1]\->\List 4[R]:\Next :\IfEnd
\If T=4\ Or C=6:\Then \If T=4:\Then 0\->J:\IfEnd:\ProbP((A+I-J-M)/S)\->\List 5[1]:\List 5[1]-\ProbP((A-J-M)/S)\->\List 4[1]:I/2\->J:\For 2\->R \To O:\ProbP((\List 1[R]+J-M)/S)\->\List 5[R]:\List 5[R]-\List 5[R-1]\->\List 4[R]:\Next :\IfEnd
\If T=7:\Then \Integral(\Y 1,F,A+I)\->\List 5[1]:\List 5[1]-\Integral(\Y 1,F,A)\->\List 4[1]:\For 2\->R \To O:\Integral(\Y 1,F,\List 1[R]+J)\->\List 5[R]:\List 5[R]-\List 5[R-1]\->\List 4[R]:\Next :\IfEnd
\If T=6:\Then Q^N\->V:\IfEnd:\If T=5:\Then \e^x\(-)M\->V:\IfEnd:V\->U
\If A\<>0\ And T=5:\Then \For 1\->R \To A:VM/R\->V:U+V\->U:\Next :\IfEnd
\If A\<>0\ And T=6:\Then \For 1\->R \To A:PV(N-R+1)/Q/R\->V:U+V\->U:\Next :\IfEnd
\If T=5\ Or T=6:\Then 0\->J:V\->\List 2[1]:\If Z=6:\Then U\->\List 3[1]:\IfEnd:\IfEnd
\If T=5:\Then \For 2\->R \To B-A+1:M\List 2[R-1]/(R+A-1)\->\List 2[R]:\If Z=6:\Then \List 3[R-1]+\List 2[R]\->\List 3[R]:\IfEnd:\Next :\IfEnd
\If T=6:\Then \For 2\->R \To B-A+1:P\List 2[R-1]*(N-R-A+2)/Q/(R+A-1)\->\List 2[R]:\If Z=6:\Then \List 3[R-1]+\List 2[R]\->\List 3[R]:\IfEnd:\Next :\IfEnd
\If Z=6\ And (T=5\ Or T=6)
\Then \List->Mat(1,2,3)\Disp\IfEnd
\If Z=6\ And (T=3\ Or T=4\ Or T=7)
\Then \List->Mat(1,4,5)\Disp\IfEnd
\If Z=6\ And C=6:\Then \ClrText:\Locate 1,2,"\Next ":\Locate 5,2," table shows":\Locate 1,4,"1.x":\If T=5:\Then \Locate 1,5,"2.Poisson \ProbP(X=x)":\IfEnd:\If T=6:\Then \Locate 1,5,"2.\Binomial \ProbP(X=x)":\IfEnd:\Locate 1,6,"3.N\ormal.\ProbP(X=x)"\Disp\List->Mat(1,2,4)\Disp\IfEnd
\If Z=4:\Then \S-Gph1 \DrawOn,\Hist,\List 1,\List 2:\S-Gph2 \DrawOn,\Hist,\List 1,\List 4:\S-Gph3 \DrawOn,\Broken,\List 1,\List 4
\If T=7\ Or T=4\ Or T=3:\Then \Max(\List 4)\->Y:\S-Gph1 \DrawOff:\Else 1+B\->B:\Max(\List 2)\->Y:\S-Gph2 \DrawOff:\If C\<>6:\Then \S-Gph3 \DrawOff:\IfEnd:\IfEnd
\If O>120:\Then 2I\->I:2Y\->Y:\ClrText:\Locate 1,2,"\aster WARNING \aster":\Locate 1,3,"DATA:Grouped in twos":\Locate 1,4,"eg X=0:f=\ProbP(X=0 \or 1)"\Disp\IfEnd
\S-WindMan:\ViewWindow A+J,B+J,1,\(-).18Y,1.15Y,0.1:A+J\->\H Start:I\->\H pitch:\DrawStat
\Text 1,4,"\ProbP(X=x):F1      Continue:EXE"\Disp\IfEnd
\IfEnd
\If Z=5\ And (T=5\ Or T=6)
\Then \Locate 1,2,"Most likely:":\If T=5:\Then M\->O:\IfEnd:\If T=6:\Then NP-Q+1\->O:\IfEnd:\Locate 1,4,"x=":\If \Int O=O:\Then \Locate 3,4,O-1:\Locate 8,4,"\and":\IfEnd:\Locate 12,4,\Int O\Disp\IfEnd
\If Z=5\ And (T=3\ Or T=4\ Or T=7)
\Then " ":\Locate 1,1,"\ProbP(X<x)=c, find x":"c (<1)"?\->A:\ClrText:\Locate 1,2,"\ProbP(X<x)=":\Locate 8,2,A:\Locate 1,4,"wait..":\Locate 1,6,"x=":\Fix 4
\If T=4:\Then \Locate 1,5,"z=":0\->B:4\->R:\Do:BS+M\->W:\Locate 3,5,"      ":\Locate 3,5,B:\Locate 3,6,"          ":\Locate 3,6,W:\ProbP(B)\->V:\(-)1\->Y:\If V-A<0:\Then Y\x^2\->Y:\IfEnd:B+YR\->B:R/2\->R:\LpWhile \Abs (V-A)\>=1\EE\(-)5:\IfEnd
\If T=7:\Then (F+G)/2\->B:(G-F)/4\->R:\Do:B\->W:\Locate 3,6,"          ":\Locate 3,6,W:\Integral(\Y 1,F,B)\->V:\(-)1\->Y:\If V-A<0:\Then Y\x^2\->Y:\IfEnd:B+YR\->B:R/2\->R:\LpWhile \Abs (V-A)\>=1\EE\(-)5:\IfEnd
\If T=3:\Then \(-)\In (1-A)/K\->W:\IfEnd
\Locate 1,4,"\Do":\Locate 3,4,"ne  ":\Locate 3,6,"          ":\Locate 3,6,W\Disp\Norm 
\IfEnd
\ClrText
\LpWhile Z\<>2
\IfEnd
\ClrText
\LpWhile T\<>2
\Cls:\AxesOff
\Text 1,1,"Program by Charlie Watson"
\Text 10,1,"6th August 2000"
\Text 20,1,"\For m\ore programs visit"
\Text 30,1,"http:\slash\slashwww.cw\orks.starwon."
\Text 40,100,"com.au"
\Text 58,107,"[EXE]"\Disp\Cls:\AxesOn
\ClrText\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:RESIDUAL
Option Name:
Communication SW:0
Capacity:193
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
\Locate 1,2,"\List 1: x"
\Locate 1,3,"\List 2: y"
\Locate 1,4,"\List 3: \Eoy"
\Locate 1,5,"\List 4: y-\Eoy"
\Locate 17,7,"[EXE]"\Disp\LinearReg \List 1,\List 2,1
\Ra\List 1+\Rb\->\List 3:\List 2-\List 3\->\List 4
\AxesOn:\S-WindAuto:\S-Gph1 \DrawOff:\S-Gph3 \DrawOff
\S-Gph2 \DrawOn,\Scatter,\List 1,\List 4,1,\Square,\Blue 
\DrawStat:\Text 1,105,"\Done"\Disp\ClrText
"\Done"\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:ROWREDA
Option Name:
Communication SW:0
Capacity:406
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"Row reduce matrix A"
\Dim \Mat A
\List \Ans[1]\->R
\List \Ans[2]\->C
\Mat A\->\Mat R
1\->I
\For 1\->J \To C
\For 1\->N \To R-I
\If \Mat R[I,J]=0
\Then \Swap R,I,I+N
\IfEnd
\Next 
\If \Mat R[I,J]\<>0
\Then \*Row 1\ab/c\Mat R[I,J],R,I
\For 1\->K \To R
\If K\<>I
\Then \*Row+ \(-)\Mat R[K,J],R,I,K
\IfEnd
\Next 
\Isz I
\IfEnd
\If I=R+1
\Then \If \Mat R[R,J]=1:\Then C+1\->J:\IfEnd
\Dsz I
\IfEnd
\Next 
2\->S
\For 2\->I \To R
\If \Mat R[I,C-1]=0\ And \Mat R[I,C]\<>0:\Then 0\->S:\IfEnd
\Next 
\If \Mat R[R,C-1]\<>0:\Then 1\->S:\IfEnd
\If S=0
\Then "No solution"\Disp\IfEnd
\If S=1
\Then "Unique solution"\Disp\IfEnd
\If S=2
\Then "Many solutions"\Disp\IfEnd
\Mat R\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:ROWREDTT
Option Name:
Communication SW:0
Capacity:627
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
\Locate 1,2,"Row reduce matrix A"
\Locate 1,3,"Tut\orial version"\Disp\Dim \Mat A
\List \Ans[1]\->R
\List \Ans[2]\->C
\Mat A\->\Mat R
1\->I
\For 1\->J \To C
\For 1\->N \To R-I
\If \Mat R[I,J]=0
\Then \ClrText:\Locate 1,3,"\Swap rows":\Locate 11,3,I:\Locate 14,3,"\and":\Locate 18,3,I+N\Disp\Swap R,I,I+N
\Mat R\Disp\IfEnd
\Next 
\If \Mat R[I,J]\<>0
\Then \ClrText:\Locate 1,3,"* row":\Locate 7,3,I:\Locate 10,3,"by":\Locate 13,3,1\ab/c\Mat R[I,J]\Disp\*Row 1\ab/c\Mat R[I,J],R,I
\Mat R\Disp\For 1\->K \To R
\If K\<>I
\Then \ClrText:\Locate 1,3,"row":\Locate 4,3,I:\Locate 5,3,"*":\Locate 6,3,\(-)\Mat R[K,J]:\Locate 14,3,"+to row":\Locate 21,3,K\Disp\*Row+ \(-)\Mat R[K,J],R,I,K
\Mat R\Disp\IfEnd
\Next 
\Isz I
\IfEnd
\If I=R+1
\Then \If \Mat R[R,J]=1:\Then C+1\->J:\IfEnd
\Dsz I
\IfEnd
\Next 
2\->S
\For 2\->I \To R
\If \Mat R[I,C-1]=0\ And \Mat R[I,C]\<>0:\Then 0\->S:\IfEnd
\Next 
\If \Mat R[R,C-1]\<>0:\Then 1\->S:\IfEnd
\If S=0
\Then "No solution"\Disp\IfEnd
\If S=1
\Then "Unique solution"\Disp\IfEnd
\If S=2
\Then "Many solutions"\Disp\IfEnd
\Mat R\@00
%End