%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:592
File Name:GAUSELIM
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\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
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1168
File Name:LINPRG
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\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:T=3\=>\(-)F\->F
"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:T=2\=>\(-)1\->F
"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
\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
\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]

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1767
File Name:MAV
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
" ":\Locate 1,1,"Moving averages"
\@F776
\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 \ClrText
\Locate 1,1,"ERROR!"
\Locate 1,2,"Check \List 1: values"
\Locate 1,3,"must go up unif\ormly"
\Stop
\IfEnd
\Next 
" ":\Locate 1,2,"How many points":?\->P
\If P\>=N
\Then \ClrText
\Locate 1,2,"Insufficient data!"
\Locate 1,3,"Program finished."
\Stop
\IfEnd
\Locate 3,7,"Finding averages..."
.5\->E
\Int (\Frac (P/2)+.5)\<>0\=>1\->E
\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,\Blue 
\S-Gph2 \DrawOn,\Scatter,\List 1,\List 3,\List 5,\Square,\Orange 
\S-Gph3 \DrawOn,\Linear,\List 1,\List 3,\List 5,\Green 
\DrawStat\Disp\S-WindAuto
\LinearReg \List 1,\List 3,\List 5\Disp\Ra\->A:\Rb\->B:\Cor\->R
\ClrText
\If N<P+2(F-1)
\Then \Locate 1,2,"\Not enough data to"
\Locate 1,3,"find average resids"
\Locate 1,4,"f\or complete cycle!"
\Locate 14,7,"[EXE]..."
0\->N
\List 6\->\List 5
\Do:\LpWhile \Getkey\<>31
\Else \Locate 2,7,"Averaging 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,1,"Predict values?"
\Locate 7,3,"F1: Yes"
\Locate 7,4,"F5: No"
\Locate 7,5,"F6: Quit"
\Do:\Getkey\->E:\LpWhile E=0
\If E=29
\Then \ClrText
\Stop
\IfEnd
\If E=79
\Then \ClrText
" ":\Locate 1,1,"x value":?\->X
\ClrText
\Locate 10,1,"x="
\Locate 12,1,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,2,"Using x="
\Locate 12,2,V
\IfEnd
\RaV+\Rb\->Y
\Locate 10,3,"y="
\Locate 12,3,Y
\While X\<=0:X+P\->X:\WhileEnd
\While X>P:X-P\->X:\WhileEnd
\Locate 1,4,"Seas Comp ="
\Locate 12,4,\List 5[X]
\Locate 1,5,"Future Val="
\Locate 12,5,Y+\List 5[X]
\Locate 14,7,"[EXE]..."
\Do:\LpWhile \Getkey\<>31
\IfEnd
\LpWhile E=79
\IfEnd
\ClrText
\Locate 1,1,"Lists now contain"
\Locate 2,2,"3: Mov Avs"
\Locate 2,3,"4: R\Residuals"
\If N\<>0
\Then \Locate 2,4,"5: Av residuals"
\Locate 2,5,"6: Seas adjusted"
\IfEnd
\Locate 14,7,"[EXE]..."
\Do:\LpWhile \Getkey\<>31
\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 5
\Locate 1,6,"                   "
\Locate 1,7,"                   "
\Locate 1,6,"Warning:use y=ax+b"
\Locate 1,7,"from this prog ONLY"
\Next 

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:351
File Name:MEDIAN
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\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
"\Done"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:5498
File Name:PDF+
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\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.\Normal":\Locate 1,6,"F5.\Expontl":\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]":Z=3\=>"A"?\->F:\Locate 1,2,"A=":\Locate 3,2,F:Z=3\=>"B"?\->G:(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)":Z=3\=>"n"?\->N:\Locate 1,2,"n=":\Locate 3,2,N:Z=3\=>"p"?\->P: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)":Z=3\=>"\micro"?\->M:\sqrtM\->S:M\<=227\=>\e^x\(-)M\->V:\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)":Z=3\=>"\micro"?\->M:\Locate 1,2,"\micro=":\Locate 3,2,M:Z=3\=>"s"?\->S:\Locate 13,2,"s=":\Locate 15,2,S:\Locate 8,6,"\micro,s\x^2":\IfEnd
\If T=3:\Then \Locate 1,1,"\Exp(k)":Z=3\=>"k"?\->K: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:C=6\=>"b"?\->B
\ClrText
\If (T=5\ And M\<=227\ And M\>=20)\ Or (T=6\ And NP>5\ And NQ>5):\Then \Locate 1,2,"Use \Normal approx?":\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 \Normal approx":\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) ":W=6\=>\Locate 6,2,"~N(\micro,\micro)":\Locate 15,2,"\micro=":\Locate 17,2,M
\Else \Locate 1,2,"B(n,p)":W=6\=>\Locate 2,2,"~N(np,npq)":\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 5
\Locate 1,3,"X<a=":\Locate 5,3,L:\Locate 1,4,"X\<=a=":\Locate 5,4,U:\Locate 1,5,"X=a=":\Locate 5,5,U-L:\Locate 1,6,"X\>=a=":\Locate 5,6,1-L:\Locate 1,7,"X>a=":\Locate 5,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 5:\Locate 1,3,"a\<=X\<=b=":\Locate 7,3,U-F:\Locate 2,4,"\Not =":\Locate 7,4,1-U+F:\Locate 1,6,"\>=a=":\Locate 4,6,1-F:\Locate 1,7,"<a=":\Locate 4,7,F:\Locate 12,6,"\<=b=":\Locate 15,6,U:\Locate 12,7,">b=":\Locate 15,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:C=6\=>"b"?\->B
\ClrText
\If T=7:\Then \Integral(\Y 1,F,A)\->L:C=6\=>\Integral(\Y 1,F,B)\->U:\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 13,2,"a="
\If T=4:\Then \Locate 13,3,"z=":\Fix 4:\Locate 15,3,F:\IfEnd
\Fix 5:\Locate 1,2,"X<a=":\Locate 5,2,L:\Locate 1,3,"X>a=":\Locate 5,3,1-L
\If C=6:\Then \Locate 1,4,"a~b=":\Locate 5,4,V:\Locate 2,5,"\<> =":\Locate 5,5,1-V:\Locate 1,6,"X<b=":\Locate 5,6,U
\Locate 1,7,"X>b=":\Locate 5,7,1-U:\Locate 13,4,"b=":\Norm:\Locate 15,4,B
\If T=4:\Then \Locate 13,5,"z=":\Fix 4:\Locate 15,5,G:\IfEnd
\IfEnd
\Norm:\Locate 15,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 \Normal approx?":\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 \Normal"
\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 \Normal approx":\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
T=4\=>\Fix 4:\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
T=4\=>\Norm:\Locate 1,7,"F2.Other"
\Do:\Int (\Getkey/10)\->Y:\LpWhile Y=0
\ClrText
\If Y=6:\Then "Start"?\->A:"End"?\->B:T=7\ Or T=4\ Or T=3\=>"Step"?\->I:\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:Z=6\=>\List 1\->\List 3:C=6\=>\List 1\->\List 4:C=6\=>\List 1\->\List 5:\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 T=4\=>0\->J:\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
T=6\=>Q^N\->V:T=5\=>\e^x\(-)M\->V: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]:Z=6\=>U\->\List 3[1]:\IfEnd
\If T=5:\Then \For 2\->R \To B-A+1:M\List 2[R-1]/(R+A-1)\->\List 2[R]:Z=6\=>\List 3[R-1]+\List 2[R]\->\List 3[R]:\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]:Z=6\=>\List 3[R-1]+\List 2[R]\->\List 3[R]:\Next :\IfEnd
Z=6\ And (T=5\ Or T=6)\=>\List->Mat(1,2,3)\DispZ=6\ And (T=3\ Or T=4\ Or T=7)\=>\List->Mat(1,4,5)\Disp\If Z=6\ And C=6:\Then \ClrText:\Locate 1,2,"\Next  table shows":\Locate 1,4,"1.x":T=5\=>\Locate 1,5,"2.Poisson \ProbP(X=x)":T=6\=>\Locate 1,5,"2.\Binomial \ProbP(X=x)":\Locate 1,6,"3.\Normal \ProbP(X=x)"\Disp\List->Mat(1,2,4)\Disp\IfEnd
\If Z=4:\Then \S-Gph1 \DrawOn,\Hist,\List1,\List2,\Blue :\S-Gph2 \DrawOn,\Hist,\List1,\List4,\Blue :\S-Gph3 \DrawOn,\Broken,\List1,\List4,\Orange 
\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:C\<>6\=>\S-Gph3 \DrawOff:\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\->\@7F97:I\->\@7F98:\DrawStat
\Text 1,4,"\ProbP(X=x):SHIFT F1  Continue:EXE"\Disp\IfEnd
\IfEnd
\If Z=5\ And (T=5\ Or T=6)
\Then \Locate 1,2,"Most likely:":T=5\=>M\->O:T=6\=>NP-Q+1\->O:\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 5
\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:V-A<0\=>Y\x^2\->Y:B+YR\->B:R/2\->R:\LpWhile \Abs (V-A)\>=1\EE\(-)6:\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:V-A<0\=>Y\x^2\->Y:B+YR\->B:R/2\->R:\LpWhile \Abs (V-A)\>=1\EE\(-)6:\IfEnd
T=3\=>\(-)\In (1-A)/K\->W
\Locate 1,4,"\Done  ":\Locate 3,6,"          ":\Locate 3,6,W\Disp\Norm
\IfEnd
\ClrText
\LpWhile Z\<>2
\IfEnd
\ClrText
\LpWhile T\<>2

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:172
File Name:RESIDUAL
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Locate 1,2,"\List1: x"
\Locate 1,3,"\List2: y"
\Locate 1,4,"\List3: \Eoy"
\Locate 1,5,"\List4: 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 57,108,"\Done"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:353
File Name:ROWREDA
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\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
\Mat R[I,J]=0\=>\Swap(R,I,I+N
\Next 
\If \Mat R[I,J]\<>0
\Then \*Row(1\ab/c\Mat R[I,J],R,I
\For 1\->K \To R
K\<>I\=>\*Row+(\(-)\Mat R[K,J],R,I,K
\Next 
\Isz I
\IfEnd
\If I=R+1
\Then \Mat R[R,J]=1\=>\Break
\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
S=0\=>"No solution"\DispS=1\=>"Unique solution"\DispS=2\=>"Many solutions"\Disp\Mat R
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:576
File Name:ROWREDTT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"Row reduce matrix A"
"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 \Mat R[R,J]=1\=>\Break
\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
S=0\=>"No solution"\DispS=1\=>"Unique solution"\DispS=2\=>"Many solutions"\Disp\Mat R
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:75
File Name:CRIT PTS
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\Cls
"y=a.f(bx+c)+d"
"a"?\->A
"b"?\->B
"c"?\->C
"d"?\->D
(\List 1-C)/B\->\List 3
A*\List 2+D\->\List 4

%End