%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:953
File Name:WINDFIX
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Xmin\->F
\Xmax\->G
\Xscl\->H
\Ymin\->I
\Ymax\->J
\Yscl\->K
\Cls
\AxesOff:\GridOff:\FuncOff:\LabelOff
\Text 1,1,"WINDOW FIXER"
\Text 8,1,"================="
\Text 22,1,"THIS PROGRAM ADJUSTS THE"
\Text 29,1,"THE CURRENT VIEWING WINDOW"
\Text 36,1,"SLIGHTLY, SO THAT THE TRACE"
\Text 43,1,"CURSOR INCREMENTS BY NEATER"
\Text 50,1,"AMOUNTS (EG BY TENTHS)"\Disp\FuncOn:\AxesOn
\Lbl 1
\ClrText
\Locate 1,2,"    WINDOW FIXER"
\Locate 1,3,"--------------------"
\Locate 1,4,"(1) FIX WINDOW"
\Locate 1,5,"(2) ORIGINAL WINDOW"
\Locate 1,6,"(3) QUIT"
\Locate 6,7,"(CHOOSE 1,2,3)":?\->V
\If V=1:\Then \GotoA:\IfEnd
\If V=2:\Then \GotoB:\IfEnd
\If V=3:\Then \GotoC:\IfEnd
\If (V\<>1)\ And (V\<>2)\ And (V\<>3):\Then \Goto1:\IfEnd
\Lbl A
126\->N
(\Xmax-\Xmin)/N\->D
\Intg \log D\->E
\Intg (D/(10^E))\->M
M=3\=>2\->M
M=6\=>5\->M
M>6\=>10\->M
M*10^E\->D
(\Xmin+\Xmax)/2\->C
(\Int (C/D))*D\->C
C-D*0.5N\->\Xmin
C+D*0.5N\->\Xmax
\ClrText
"WINDOWS HAVE"
"BEEN ADJUSTED.."
"    "
"(PRESS EXE TO"
"CONTINUE)"\Disp\DrawGraph
\Text 2,5,"PRESS F1 TO VIEW"
\Text 9,5,"NEW TRACE INCREMENT"\Disp\Goto1

\Lbl B
F\->\Xmin
G\->\Xmax
H\->\Xscl
I\->\Ymin
J\->\Ymax
K\->\Yscl
\ClrText
"ORIGINAL WINDOW HAS"
"BEEN RESTORED.."
"    "
"(PRESS EXE TO"
"CONTINUE)"\Disp\DrawGraph
\Text 2,5,"PRESS F1 TO VIEW"
\Text 9,5,"ORIGINAL TRACE INCREMENT"\Disp\Goto1

\Lbl C
\ClrText
\Cls
\AxesOn
\FuncOn
\Stop
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:2547
File Name:SIMULATE
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Cls
\Norm
\AxesOff:\GridOff:\FuncOff:\LabelOff
\Text 1,1,"DICE SIMULATOR"
\Text 8,1,"==============="
\Text 22,1,"THIS PROGRAM SIMULATES"
\Text 29,1,"TRIALS OF ROLLING DICE.THE"
\Text 36,1,"USER MAY THEN CREATE PLOTS"
\Text 43,1,"AND SUMMARY STATISTICS"
\Text 50,1,"TO ANALYSE THE RESULTS"\Disp\FuncOn:\AxesOn
\Cls
\GridOff
\ClrList
\Lbl 0
\ClrText
\Cls
\Norm
\AxesOff:\GridOff:\FuncOff:\LabelOff
\Text 1,1,"SETTING UP THE EXPERIMENT"
\Text 8,1,"-------------------------"
\Text 22,1,"TO CONDUCT THE EXPERIMENT"
\Text 29,1,"YOU WILL NEED TO ENTER THE"
\Text 43,1,"\aster NUMBER OF DICE BEING USED"
\Text 50,1,"\aster NUMBER OF FACES ON EACH DIE"
\Text 57,1,"\aster NUMBER OF TRIALS"\Disp\FuncOn:\AxesOn
\Cls
\Lbl A
\ClrText
\Locate 1,2,"NO. OF DICE"
\Locate 1,3,"-----------"
\Locate 1,4,"(1) ONE"
\Locate 1,5,"(2) TWO"
\Locate 1,6,"(3) QUIT"
\Locate 1,7,"(CHOOSE 1,2,3)":?\->D
\If (D=3):\Then \GotoZ:\IfEnd
\If (D\<>1)\ And (D\<>2)\ And (D\<>3):\Then \GotoA:\IfEnd
\ClrText
\Lbl B
\Locate 1,2,"NO. OF FACES(2-20)"
?\->F
\If (F>20):\Then \GotoB:\IfEnd
\If (F<2):\Then \GotoB:\IfEnd
\If (\Frac F)\<>0:\Then \GotoB:\IfEnd
\ClrText
\Lbl C
\Locate 1,2,"NO.TRIALS(1-250)"
?\->T
\If (T>250):\Then \GotoC:\IfEnd
\If (T<1):\Then \GotoC:\IfEnd
\If (\Frac T)\<>0:\Then \GotoC:\IfEnd
\ClrText
\If D=1:\Then \Goto1:\IfEnd
\If D=2:\Then \Goto2:\IfEnd


\Lbl 1
\ClrList
\ClrGraph
\Seq(X,X,1,T,1)\->\List 1
\ClrText
"1 DIE EXPERIMENT"
"----------------"
"PERFORMING"
\Locate 1,4,T
\Locate 5,4,"TRIALS (1-DIE)"
\Locate 1,5,"B\slashW 1 AND"
\Locate 11,5,F
\For 1\->I \To T
\Int (F*\Ran#+1)\->\List 1[I]
\Next 
\Lbl D
\Cls
\ClrText
\Locate 1,2,"ANALYSE RESULTS (1-D)"
\Locate 1,3,"(1) BOX PLOT"
\Locate 1,4,"(2) SUMMARY STATS"
\Locate 1,5,"(3) MAIN MENU"
\Locate 1,6,"(CHOOSE 1,2,3)":?\->R
\If (R\<>1)\ And (R\<>2)\ And (R\<>3):\Then \GotoD:\IfEnd
\If (R=1):\Then \GotoE:\IfEnd
\If (R=2):\Then \GotoG:\IfEnd
\If (R=3):\Then \GotoA:\IfEnd

\Lbl E
\AxesOff
\ClrText
\Cls
\S-WindAuto
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-Gph1 \DrawOn,\MedBox,\List1,1,\Blue 
\DrawStat\Disp\AxesOn
\GotoD

\Lbl G
\ClrText
\1-Variable \List 1\Disp\GotoD

\Lbl 2
\ClrGraph
\ClrList
\Seq(X,X,1,T,1)\->\List 1
\Seq(X,X,1,T,1)\->\List 2
\Seq(X,X,1,T,1)\->\List 3
\ClrText
"2 DICE EXPERIMENT"
"-----------------"
"PERFORMING"
\Locate 1,4,T
\Locate 5,4,"TRIALS (2-DIE)"
\Locate 1,5,"B\slashW 1 AND"
\Locate 11,5,F
\For 1\->I \To T
\Int (F*\Ran#+1)\->\List 1[I]
\Int (F*\Ran#+1)\->\List 2[I]
\List 1[I]+\List 2[I]\->\List 3[I]
\Next 
\Lbl H
\Cls
\ClrText
\Locate 1,2,"ANALYSE RESULTS (2D)"
\Locate 1,3,"(1) BOX PLOTS"
\Locate 1,4,"(2) SUMMARY STATS"
\Locate 1,5,"(3) MAIN MENU"
\Locate 1,6,"(CHOOSE 1,2,3)":?\->R
\If (R\<>1)\ And (R\<>2)\ And (R\<>3):\Then \GotoH:\IfEnd
\If (R=1):\Then \GotoI:\IfEnd
\If (R=2):\Then \GotoK:\IfEnd
\If (R=3):\Then \GotoA:\IfEnd

\Lbl I
\AxesOff
\ClrText
\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-WindAuto
\Locate 1,2,"BOX PLOTS"
\Locate 1,3,"(1) BOX (L1\ Or L2)"
\Locate 1,4,"(2) BOX (L1\ And L2)"
\Locate 1,5,"(3) BOX (SUM)"
\Locate 1,6,"(4) BOX (L1,L2,SUM)"
\Locate 1,7,"(NO.1-4[5 TO EXIT])":?\->R
\If (R\<>1)\ And (R\<>2)\ And (R\<>3)\ And (R\<>4)\ And (R\<>5):\Then 
\GotoI:\IfEnd
\If (R=1):\Then \S-Gph1 \DrawOn,\MedBox,\List1,1,\Blue :\DrawStat\Disp\S-Gph1 
\DrawOff
\S-Gph2 \DrawOn,\MedBox,\List2,1,\Blue :\DrawStat\Disp\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\GotoI:\IfEnd
\If (R=2):\Then \S-Gph1 \DrawOn,\MedBox,\List1,1,\Blue :\S-Gph2 
\DrawOn,\MedBox,\List2,1,\Blue :\DrawStat\Disp\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\GotoI:\IfEnd
\If (R=3):\Then \S-Gph1 \DrawOn,\MedBox,\List3,1,\Blue 
:\DrawStat\Disp\GotoI:\IfEnd
\If (R=4):\Then \S-Gph1 \DrawOn,\MedBox,\List1,1,\Blue :\S-Gph2 
\DrawOn,\MedBox,\List2
\S-Gph3 \DrawOn,\MedBox,\List3
\DrawStat\Disp\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\GotoI:\IfEnd
\If (R=5):\Then \AxesOn:\GotoH:\IfEnd

\Lbl K
\ClrText
\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-WindAuto
\Locate 1,2,"SUMMARY STATS"
\Locate 1,3,"(1) FOR L1"
\Locate 1,4,"(2) FOR L2"
\Locate 1,5,"(3) FOR SUM"
\Locate 1,6,"(4) EXIT"
\Locate 1,7,"(NO.1,2,3,4)":?\->R
\If (R\<>1)\ And (R\<>2)\ And (R\<>3)\ And (R\<>4):\Then \GotoK:\IfEnd
\If (R=1):\Then \1-Variable \List 1\Disp\GotoK:\IfEnd
\If (R=2):\Then \1-Variable \List 2\Disp\GotoK:\IfEnd
\If (R=3):\Then \1-Variable \List 3\Disp\GotoK:\IfEnd
\If (R=4):\Then \GotoH:\IfEnd

\Lbl Z

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:360
File Name:SECANT
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\Cls
\Fix 5
\DrawGraph
\StoPict 1
\Text 1,6,"PRESS EXE TO ENTER X,H"\Disp\ClrText
"X VALUE"
?\->A
A\->X
\Y 1\->B
"H VALUE"
?\->H
A+H\->C
C\->X
\Y 1\->D
\Fix 3
\While \Abs H>.005
\Cls
\CoordOn
\RclPict 1
A+H\->C
C\->X
\Y 1\->D
(D-B)/H\->M
\Text 1,6,"X="
\Text 1,14,A
\Text 8,6,"H= "
\Text 8,14,H
\Text 15,4,"M="
\Text 15,14,M
\Plot \Xmin,M*(\Xmin-A)+B:\Line:\Plot \Xmax,M*(\Xmax-A)+B:\Line
\Plot A,B:\Line:\Plot C,B:\Line
\Plot C,B:\Line:\Plot C,D:\Line\Disp0.75H\->H
\WhileEnd
\Text 1,50,"GRADIENT OF"
\Text 8,50,"TANGENT FOUND"
B-MA\->K
\Text 22,6,"C="
\Text 22,14,K\Disp
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:100
File Name:QUAD2
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"A"?\->A
"B"?\->B
"C"?\->C
B\x^2-4AC\->D
D<0\=>"COMPLEX SOLUTION"
"SOLN1=":(-B+\sqrtD)/(2A)\Disp"SOLN2=":(-B-\sqrtD)/(2A)

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:111
File Name:QUAD1
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"A"?\->A
"B"?\->B
"C"?\->C
B\x^2-4AC\->D
\If D\>=0:\Then "SOLN1=":(-B+\sqrtD)/(2A)\Disp"SOLN2=":(-B-\sqrtD)/(2A)
\IfEnd
\If D<0:\Then "NO REAL SOLNS"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1152
File Name:NORMPROB
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\Cls
\CoordOn
\AxesOn
\LabelOff
\FuncOff
\(-)3.2\->\Xmin
3.2\->\Xmax
\(-).1\->\Ymin
.45\->\Ymax
1\->\Xscl
"(\e^x(\(-)X\x^2/2))/(\sqrt(2\Pi))"\->\Y 1
\AxesOff:\GridOff:\FuncOff:\LabelOff
\Text 1,1,"NORMAL PROBABILITY"
\Text 8,1,"CALCULATIONS"
\Text 15,1,"====================="
\Text 36,1,"PRESS EXE TO ENTER VALUES"
\Text 43,1,"FOR MU AND SIGMA"\Disp\FuncOn
\AxesOn
\ClrText
"VALUE FOR MU"
?\->M
"VALUE FOR SIGMA"
?\->S
\Goto0

\Lbl A
\Cls
\ClrText
"ENTER VALUE FOR A"
?\->A
(A-M)/S\->Z
\Graph Y=\ProbR(Z)
\Text 1,1,"Pr(X\>=A)="
\Fix 4
\Text 1,32,\ProbR(Z)
\Norm
\Text 8,1,"A="
\Text 8,10,A
\Text 15,1,"MU="
\Text 15,17,M
\Text 22,1,"SIGMA="
\Text 22,28,S\Disp\Goto0


\Lbl B
\Cls
\ClrText
"ENTER VALUE FOR A"
?\->A
(A-M)/S\->Z
\Graph Y=\ProbP(Z)
\Text 1,1,"Pr(X\<=A)="
\Fix 4
\Text 1,32,\ProbP(Z)
\Norm
\Text 8,1,"A="
\Text 8,10,A
\Text 15,1,"MU="
\Text 15,17,M
\Text 22,1,"SIGMA="
\Text 22,28,S\Disp\Goto0

\Lbl C
\Cls
\ClrText
"ENTER VALUE FOR A"
?\->A
"ENTER VALUE FOR B"
?\->B
(A-M)/S\->J
(B-M)/S\->K
\If ((J>0)\ And (K>0))\ Or ((J<0)\ And (K<0))
\Then \GotoF
\IfEnd
\Graph Y=\ProbQ(J)
\Text 1,1," "
\StoPict 1
\BG-Pict 1
\Graph Y=\ProbQ(K)
\GotoG
\Lbl F
\FuncOff
\Graph Integral \Y 1,J,K,2
\Lbl G
\Text 1,1,"Pr(A\<=X\<=B)="
\Fix 4
\Text 1,40,\ProbP(K)-\ProbP(J)
\Norm
\Text 8,1,"A="
\Text 8,10,A
\Text 15,1,"B="
\Text 15,10,B
\Text 22,1,"MU="
\Text 22,17,M
\Text 29,1,"SIGMA="
\Text 29,28,S\Disp\BG-None
\Goto0

\Lbl D
\ClrText
"VALUE FOR MU"
?\->M
"VALUE FOR SIGMA"
?\->S
\Goto0

\Lbl E
""\->\Y 1
\ClrText
\Stop
\Lbl 0
\ClrText
\Locate 1,2,"NORMAL PROBABILITY"
\Locate 1,3,"(1) Pr(X\>=A)"
\Locate 1,4,"(2) Pr(X\<=A)"
\Locate 1,5,"(3) Pr(A\<=X\<=B)"
\Locate 1,6,"(4) NEW MU,SIGMA"
\Locate 1,7,"(CHOOSE NO.[QUIT=5])":?\->V
V=1\=>\GotoA:V=2\=>\GotoB:V=3\=>\GotoC:V=4\=>\GotoD:V=5\=>\GotoE:\Stop

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1162
File Name:LSREGR
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\AxesOff
\FuncOff
\BG-None
\Goto0

\Lbl A
\ClrText
\Locate 1,2,"ASSUMES DATA"
\Locate 1,3,"IS IN LIST 1,2"
\Locate 1,5,"(OR WILL GIVE"
\Locate 1,6,"DIM ERROR)"\Disp\S-Gph1 \DrawOn,\Scatter,\List 1,\List 2,1,\Square
\S-Gph2 \DrawOff
\DrawStat\Disp\Goto0

\Lbl B
\ClrText
\LinearReg \List 1,\List 2
\Ra*\List 1+\Rb\->\List 6
\Sum ((\List 6-\List 2)\x^2)\->Q
"TRY TO FIT"
"Y=MX+C"
"M="
?\->M
"C="
?\->C
M*\List 1+C\->\List 3
\S-Gph2 \DrawOn,\xyLine,\List 1,\List 3,1,\Dot
\Int ((\Max(\List 1)-\Min(\List 1))/10)\->\Xscl
\Int ((\Max(\List 2)-\Min(\List 2))/10)\->\Yscl
\DrawStat
1\->N
\While N\<=\Dim \List 1
\Plot \List 1[N],\List 2[N]:\Plot \List 1[N],\List 3[N]:\Line
N+1\->N
\WhileEnd
\List 3-\List 2\->\List 4
\List 4\x^2\->\List 5
\Sum \List 5\->S
\G SelOn 1
\Fix 3
\Text 1,5,"YOUR SUM DIFF="
\Text 1,66,S
\Text 8,5,"MIN SUM DIFF="
\Text 8,66,Q\Disp\Goto0


\Lbl C
\ClrList
\ClrText
"PRESS MENU-STAT"
"TO ENTER NEW DATA"
" "
"X IN \List 1"
"Y IN \List 2"
" "
"THEN RE-RUN PROGRAM"
\Stop


\Lbl D
\ClrText
"[\List 1]  [\List 2]"
1\->N
\For 1\->I \To \Dim \List 1
\If \Frac (I/6)\<>0
\Then N+1\->N
\Locate 1,N,\List 1[I]
\Locate 11,N,\List 2[I]
\IfEnd
\If \Frac (I/6)=0
\Then \Seq(\Int (6*\Ran#),X,1,250,1)\->\List 6
\ClrText
"[\List 1]  [\List 2]"
\Locate 1,2,\List 1[I]
\Locate 11,2,\List 2[I]
2\->N
\IfEnd
\Next 
\Seq(\Int (6*\Ran#),X,1,250,1)\->\List 6
\ClrText
\Goto0

\Lbl E
\ClrText
\LinearReg \List 1,\List 2
\Ra*\List 1+\Rb\->\List 6
\Sum ((\List 6-\List 2)\x^2)\->Q
\Fix 2
"SMALLEST SUM OF"
"DIFFERENCES"
"POSS.FOR L1,L2="
\Locate 16,3,Q
\Locate 1,4,"  "
\Locate 1,5,"WHEN M="
\Locate 8,5,\Ra
\Locate 1,6,"AND  C="
\Locate 8,6,\Rb\Disp\ClrText
\AxesOn
\ClrGraph
\Norm
\Stop

\Lbl 0
\AxesOn
\GridOff
\ClrText
\Locate 1,2,"LS-REGRESSION MENU"
\Locate 1,3,"(1) GRAPH DATA
\Locate 1,4,"(2) TRY A FIT"
\Locate 1,5,"(3) ENTER NEW DATA"
\Locate 1,6,"(4) VIEW DATA"
\Locate 1,7,"(NO.[5 TO QUIT]?)":?\->V
V=1\=>\GotoA
V=2\=>\GotoB
V=3\=>\GotoC
V=4\=>\GotoD
V=5\=>\GotoE

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:968
File Name:INTAREA
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls
\ClrText
"LOWER BOUND"?\->A
"UPPER BOUND"?\->B
"INTERVALS"?\->N
(B-A)/N\->H
H/2\->D
0\->L
0\->M
0\->R
\DrawGraph
0\->J
A\->Z
Z\->X
\Lbl 1
\Y 1+L\->L
\P/L-Orange:\Plot Z,0:\Line:\Plot Z,\Y 1:\Line:\Plot Z+H,\Y 1:\Line:\Plot 
Z+H,0:\Line
Z+H\->Z
Z\->X
J+1\->J
\If J\>=N:\Then \Text 5,5,"LEFT"\Disp\Else \Goto1
\IfEnd
HL\->L
\ClrText
\Locate 1,2,"LEFT SUM="
\Locate 10,2,L\Disp\Cls
\DrawGraph
0\->J
A+H\->Z
Z\->X
\Lbl 2
\Y 1+R\->R
\Y 1\->Q
\Plot Z-H,0:\Line:\Plot Z-H,Q:\Line:\Plot Z,Q:\Line:\Plot Z,0:\Line
Z+H\->Z
Z\->X
J+1\->J
\If J\>=N:\Then \Text 5,5,"RIGHT"\Disp\Else \Goto2
\IfEnd
HR\->R
\ClrText
\Locate 1,2,"LEFT SUM="
\Locate 10,2,L
\Locate 1,3,"RIGHT SUM="
\Locate 11,3,R\Disp\Cls
\DrawGraph
0\->J
A+D\->Z
Z\->X
\Lbl 3
\Y 1+M\->M
\Y 1\->Q
\Plot Z-D,0:\Line:\Plot Z-D,Q:\Line:\Plot Z+D,Q:\Line:\Plot Z+D,0:\Line
Z+H\->Z
Z\->X
J+1\->J
\If J\>=N:\Then \Text 5,5,"MIDPOINT"\Disp\Else \Goto3
\IfEnd
HM\->M
\ClrText
\Locate 1,2,"LEFT SUM="
\Locate 10,2,L
\Locate 1,3,"RIGHT SUM="
\Locate 11,3,R
\Locate 1,4,"MIDPT SUM="
\Locate 11,4,M\Disp\Cls
\DrawGraph
0\->T
A+H\->Z
Z\->P
\Lbl 4
P\->X
2*\Y 1+T\->T
P+H\->P
\If B-P>.001:\Then \Goto4
\IfEnd
A\->X
\Y 1\->F
\Lbl 5
Z\->X
\Y 1\->Q
\Plot Z-H,F:\Line:\Plot Z,Q:\Line:\Plot Z,0:\Line
Z+H\->Z
Q\->F
Z\->X
\If B-X<0:\Then \Text 5,5,"TRAPEZOID"\Disp\Else \Goto5
\IfEnd
A\->X
\Y 1\->V
B\->X
\Y 1\->W
(H/2)(T+V+W)\->T
\Integral(\Y 1,A,B)\->I
\ClrText
\Locate 1,2,"LEFT  SUM=":\Locate 14,2,L
\Locate 1,3,"RIGHT SUM=":\Locate 14,3,R
\Locate 1,4,"MIDPT SUM=":\Locate 14,4,M
\Locate 1,5,"TRAP  SUM=":\Locate 14,5,T
\Locate 1,6,"BEST  EST=":\Locate 14,6,I\Disp\@F7FF
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1851
File Name:GUESSRUL
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Cls
\Norm
\AxesOff:\GridOff:\FuncOff:\LabelOff
\Text 1,1,"GUESS MY RULE"
\Text 8,1,"=============="
\Text 22,1,"(LINEAR FUNCTION SKILLS!)"
\Text 36,1,"FOR EACH QUESTION, USE"
\Text 43,1,"THE FUNCTION TABLE AND (OR)"
\Text 50,1,"THE FUNCTION GRAPH TO FIND"
\Text 57,1,"THE FUNCTION RULE"\Disp\FuncOn:\AxesOn
0\->N
0\->Q
\Lbl 2
N+1\->N
\Cls
\AxesOff:\GridOff:\FuncOff:\LabelOff
\Text 1,1,"THE FUNCTION TABLE"
\Text 1,105,"Q="
\Text 1,115,N
\Text 8,1,"------------------"
\Text 15,1,"PRESS EXE TO VIEW TABLE"
\Text 22,1,"AND THEN SCROLL THROUGH"
\Text 29,1,"TO FIND ANY PATTERNS"\Disp\FuncOn:\AxesOn
""\->\Y 1
""\->\Y 2
\(-)12.6\->\Xmin
12.6\->\Xmax
\(-)6.2\->\Ymin
6.2\->\Ymax
1\->\Xscl
1\->\Yscl
\AxesOn
\LabelOff
\Cls
\GridOn
0\->M
\While M=0
\Intg (5*\Ran#+1)\->A
\Intg (5*\Ran#+1)\->B
\Intg (5*\Ran#+1)\->D
\Intg (5*\Ran#+1)\->E
(A-B)/B\->M
D-E\->C
\WhileEnd
"MX+C"\->\Y 1
\(-)10\->\F Start
10\->\F End
1\->\F pitch
\DispF-Tbl\Disp\Cls
\AxesOff:\GridOff:\FuncOff:\LabelOff
\Text 1,1,"THE FUNCTION GRAPH"
\Text 1,105,"Q="
\Text 1,115,N
\Text 8,1,"------------------"
\Text 15,1,"PRESS EXE TO VIEW GRAPH"
\Text 22,1,"AND THEN USE TRACE(F1)"
\Text 29,1,"OR OTHER INFORMATION TO"
\Text 36,1,"HELP FIND FUNCTION RULE"\Disp\FuncOn:\AxesOn
\Cls
\GridOn
\DrawGraph\Disp\Text 1,70,"PRESS EXE TO"
\Text 8,70,"GUESS MY RULE"\Disp\ClrText
"GUESS FOR M"
?\->J
"GUESS FOR C"
?\->K
"JX+K"\->\Y 2
\Cls
\FuncOff
\Fix 2
\Cls
\GridOff
\DrawGraph
\Text 1,1,"Y="
\Text 1,10,J
\Text 1,30,"X+"
\Norm
\Text 1,40,K
\Text 1,50,"(GUESS)"
\Text 8,1,"Y="
\Fix 2
\Text 8,10,M
\Text 8,30,"X+"
\Norm
\Text 8,40,C
\Text 8,50,"(RULE)"\Disp\If (J=M)\ And (K=C):\Then 1\->P:\IfEnd
\If (J=M)\ And (K\<>C):\Then .5\->P:\IfEnd
\If (J\<>M)\ And (K=C):\Then .5\->P:\IfEnd
\If (J\<>M)\ And (K\<>C):\Then 0\->P:\IfEnd
Q+P\->Q
100*Q/N\->Z
\Text 1,90,"PTS="
\Fix 1
\Text 1,107,P
\Text 58,68,"RATING="
\Norm
\Text 58,98,\Int Z
\Text 58,110,"\ab/c100"
\FuncOn\Disp\If (N>10)\ And (Q/N>.9):\Then \ClrText
"YOU ARE NOW"
"OFFICIALLY"
"    A"
""
"LINEMEISTER!"\Disp\IfEnd
\ClrText
""\->\Y 1
""\->\Y 2
\Goto3

\Lbl 1
\ClrText
\Norm
"RESULTS"
\Locate 1,2,"-------"
\Locate 1,3,"QUESTIONS:"
\Locate 12,3,N
\Locate 1,4,"NO.POINTS:"
\Locate 12,4,Q
\Locate 1,6,"RATING[/100]="
\Locate 14,6,Z
\If Z\>=80:\Then \Locate 1,7,"GREAT SKILL!":\IfEnd
\If (Z\>=60)\ And (Z<80):\Then \Locate 1,7,"NOT BAD!":\IfEnd
\If (Z\>=40)\ And (Z<60):\Then \Locate 1,7,"KEEP AT IT!":\IfEnd
\If (Z<40)\ And (N\>=5):\Then \Locate 1,7,"ASK FOR HELP!":\IfEnd
\GridOff
\Stop
\Lbl 3
\ClrText
\Locate 1,2,"TRY ANOTHER?"
\Locate 1,3,"----------------"
\Locate 1,4,"(1) NO"
\Locate 1,5,"(2) YES"
\Locate 1,6,"----------------"
\Locate 6,7,"(CHOOSE 1,2)":?\->V
\If V=1:\Then \Goto1:\IfEnd
\If V=2:\Then \Goto2:\IfEnd
\If (V\<>1)\ And (V\<>2):\Then \Goto3:\IfEnd

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:175
File Name:DRAWDERV
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
""\->\Y 2
\Cls
0\->C
\DrawGraph
\Text 1,1,"PRESS EXE TO PLOT (X,Y) FOR Y1'"\Disp\While C=0
\ClrText
"ENTER (X,Y) FOR Y1'"
"X"?\->X
"Y"?\->Y
(\Ymax-\Ymin)/63\->B
\Circle X,Y,B\Disp"MORE(0-YES,1-NO)"?\->C
\WhileEnd
"\d/dx(\Y 1,X)"\->\Y 2
\OrangeG 2
\DrawGraph\Disp\ClrText

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:698
File Name:DIRFIELD
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Cls
\AxesOff:\GridOff:\FuncOff:\LabelOff
\Text 1,1,"DIRECTION FIELDS"
\Text 8,1,"================="
\Text 22,1,"CONSTRUCTS A DIRECTION FIELD"
\Text 29,1,"IN THE CURRENT VIEWING WINDOW"
\Text 36,1,"(ASSUMES THAT A SUITABLE"
\Text 43,1,"GRADIENT FUNCTION HAS"
\Text 50,1,"BEEN ENTERED IN Y1)"\Disp\FuncOn:\AxesOn
\ClrText
\Locate 1,2,"CONTINUE?"
\Locate 1,3,"----------------"
\Locate 1,4,"(1) NO"
\Locate 1,5,"(2) YES"
\Locate 1,6,"----------------"
\Locate 6,7,"(CHOOSE 1,2)":?\->V
\If V=1:\Then \Goto5:\IfEnd
\If V=2:\Then \Goto6:\IfEnd
\If (V\<>1)\ Or (V\<>2):\Then \Goto3:\IfEnd
\Lbl 6
14\->L
18\->W
(\Ymax-\Ymin)/L\->V
(\Xmax-\Xmin)/W\->H
\Cls
\FuncOff
0\->R
\Ymin+V/2\->Y
\Lbl 1
R+1\->R
0\->C
\Xmin+H/2\->X
\Lbl 2
C+1\->C
\Y 1\->M
\(-)M*H/2+Y\->S
M*H/2+Y\->T
X-H/2\->P
X+H/2\->Q
\If \Abs (T-S)>V
\Then \Goto3
\IfEnd
\Lbl 4
Y\->F
\Plot P,S:\Plot Q,T:\Line
F\->Y
X+H\->X
\If C<W
\Then \Goto2
\IfEnd
Y+V\->Y
\If R<L
\Then \Goto1
\IfEnd
\ClrText
\Stop
\Lbl 3
Y+V/2\->T
Y-V/2\->S
(T-Y)/M+X\->Q
(S-Y)/M+X\->P
\Goto4

\Lbl 5
\ClrText
\Stop
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1022
File Name:CORREL
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
0\->N
0\->O
0\->Z
\BG-None
\AxesOff
\Lbl 1
\ClrText
\Locate 1,2,"CORRELATION TEST"
\Locate 1,3,"----------------"
\Locate 1,4,"(1) RUN A TEST"
\Locate 1,5,"(2) CHECK RESULTS"
\Locate 1,6,"(3) QUIT"
\Locate 6,7,"(CHOOSE 1,2,3)":?\->V
\If V=1:\Then \GotoA:\IfEnd
\If V=2:\Then \GotoB:\IfEnd
\If V=3:\Then \GotoC:\IfEnd


\Lbl A
\ClrText
"HOW MANY"
"POINTS (2\<=P\<=20)"
?\->P
\If (P>20):\Then \GotoE:\IfEnd
\If (P<2):\Then \GotoE:\IfEnd
\If (\Frac P)\<>0:\Then \GotoE:\IfEnd
\ClrText
"GENERATING"
"SCATTER PLOT"
"DATA"
\Cls
\ClrList
\S-Gph1 \DrawOff
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
1\->I
\Seq(X,X,1,P,1)\->\List 1
\Seq(X,X,1,P,1)\->\List 2
\Seq(X,X,1,P,1)\->\List 3
\For 1\->I \To P
\Ran#\->\List 3[I]
\Ran#\->\List 2[I]
\sqrt(\(-)2*\In \List 3[I])*\cos (2\Pi*\List 2[I])\->\List 1[I]
\sqrt(\(-)2*\In \List 3[I])*\sin (2\Pi*\List 2[I])\->\List 2[I]
\Next 
2*\Ran#-1\->S
S/\sqrt(1-S\x^2)\->T
\List 1+T*\List 2\->\List 1
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square
\DrawStat
\Ymax*1.2\->\Ymax
\S-WindMan
\DrawStat
\S-WindAuto
\Text 1,1,"PRESS EXE TO ESTIMATE R"\Disp\Lbl 2
\ClrText
"ESTIMATE  FOR R"
?\->R
\If (R>1)\ Or (R<\(-)1)
\Then \ClrText
" "
"OOPS,R MUST BE"
"B\slashW 0 AND 1"\Disp\IfEnd
\LinearReg \List 1,\List 2
\Ra*\List 1+\Rb\->\List 6
\If (R>1)\ Or (R<\(-)1)
\Then \Goto2:\IfEnd
\ClrText
\Locate 1,2,"EST. CORR="
\Locate 11,2,R
\Locate 1,3,"TRUE CORR="
\Locate 11,3,\Cor
\Locate 1,5,"ERROR="
\Fix 2
\Abs (R-\Cor)\->G
\Locate 7,5,G\DispG\->E
O+E\->O
N+1\->N
O/N\->Z
\Cls
\DrawStat\Disp\Goto1
\Lbl B
\ClrText
\Norm
\Locate 1,2,"NO.OF TESTS="
\Locate 13,2,N
\Locate 1,3,"AVERAGE ERROR="
\Fix 2
\Locate 15,3,Z\Disp\Norm
\Goto1
\Lbl E
\ClrText
" "
"OOPS,P MUST BE"
"AN INTEGER"
"B\slashW 2 AND 20"\Disp\GotoA
\Lbl C
\ClrText
\Stop
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:135
File Name:BIRTH
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"NO.PEOPLE"?\->N
\Seq(\Int (366*\Ran#+1),X,1,N,1)\->\List 1
\SortA(\List 1)
\For 1\->I \To N-1
\If \List 1[I]=\List 1[I+1]
\Then "I FOUND A DOUBLE!"
\Goto1
\IfEnd
\Next 
"NO DOUBLES FOUND"
\Lbl 1
\Stop
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:261
File Name:BALLPATH
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"INITIAL VEL.="?\->U
"INITIAL ANGLE"?\->A
A/180*\Pi\->A
\ParamType
"UT\cos A"\->\Xt 1
"UT\sin A-4.9T\x^2"\->\Yt 1
0\->\Tmin
2\Pi\->\Tmax
(U\sin A)/49\->\Tptch
0\->\Xmin
200\->\Xmax
20\->\Xscl
0\->\Ymin
50\->\Ymax
10\->\Yscl
\FuncOff
\DrawGraph
10*\Tptch\->T:\Xt 1\->D
\Text 1,5,"MAX DISTANCE="
\Fix 1
\Text 1,60,D
\Norm
\Text 8,5,"VEL="
\Text 8,22,U
\Text 15,5,"ANGLE="
\Text 15,31,A/\Pi*180\Disp\Y=Type
\FuncOn
\ClrText
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:8376
File Name:AMODEL
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Cls
\Norm
\AxesOff:\GridOff:\FuncOff:\LabelOff
\Text 1,1,"INVESTIGATES MODELS"
\Text 8,1,"===================="
\Text 22,1,"THIS PROGRAM HELPS"
\Text 29,1,"EXAMINE THE SUITABILITY"
\Text 36,1,"OF VARIOUS FUNCTIONAL"
\Text 43,1,"MODELS FOR THE DATA IN"
\Text 50,1,"LIST 1(X) AND LIST 2(Y)"\Disp\FuncOn:\AxesOn
\ClrText
\AxesOn
\Lbl 0
\ClrText
\Locate 1,2,"MODELLING MENU"
\Locate 1,3,"(1) VIEW DATA"
\Locate 1,4,"(2) FIT POLYNOMIAL"
\Locate 1,5,"(3) TRANSFORM DATA"
\Locate 1,6,"(4) SUCCESSOR RATIOS"
\Locate 1,7,"(NO.1-4 [5 TO QUIT])":?\->D
\If (D=5):\Then \GotoZ:\IfEnd
\If (D\<>1)\ And (D\<>2)\ And (D\<>3)\ And (D\<>4)\ And (D\<>5):\Then 
\Goto0:\IfEnd
\If (D=1):\Then \Goto1:\IfEnd
\If (D=2):\Then \Goto2:\IfEnd
\If (D=3):\Then \Goto3:\IfEnd
\If (D=4):\Then \Goto4:\IfEnd

\Lbl 1
\ClrText
(\Max(\List 1)-\Min(\List 1))/10\->\Xscl
(\Max(\List 2)-\Min(\List 2))/10\->\Yscl
\Cls
\S-WindAuto
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square,\Orange 
\DrawStat
\P/L-Blue
\Text 2,5,"L2"
\Text 55,110,"L1"\Disp\Lbl A
\ClrText
\Locate 1,2,"VIEW DATA VALUES"
\Locate 1,3,"----------------"
\Locate 1,4,"(1) NO"
\Locate 1,5,"(2) YES"
\Locate 1,6,"----------------"
\Locate 6,7,"(CHOOSE 1,2)":?\->V
\If V=1:\Then \Goto0:\IfEnd
\If V=2:\Then \GotoB:\IfEnd
\If (V\<>1)\ Or (V\<>2):\Then \GotoA:\IfEnd
\Lbl B
\AxesOff
\GridOff
\Cls
\Text 1,5,"N"
\Text 1,36,"LIST 1"
\Text 1,80,"LIST 2"
\Text 7,1,"----------------------"
1\->N
\For 1\->I \To \Dim \List 1
\If \Frac (I/6)\<>0
\Then N+1\->N
\Norm
\Text 7N,5,I
\Fix 2
\Text 7N,36,\List 1[I]
\Text 7N,80,\List 2[I]
\Text 1,111," "
\IfEnd
\If \Frac (I/6)=0
\Then \Text 1,111," "\Disp\Cls
\Text 1,5,"N"
\Text 1,36,"LIST 1"
\Text 1,80,"LIST 2"
\Text 7,1,"--------------------"
\Norm
\Text 14,5,I
\Fix 2
\Text 14,36,\List 1[I]
\Text 14,80,\List 2[I]
2\->N
\IfEnd
\Next 
\Text 1,111," "\Disp\ClrText
\Cls
\AxesOn
\Norm
\Goto0

\Lbl 2
\ClrText
\Lbl H
\Locate 1,2,"POLYFIT MENU"
\Locate 1,3,"(1) NTH ORDER DIFFS"
\Locate 1,4,"(2) LINEAR FIT"
\Locate 1,5,"(3) QUAD FIT"
\Locate 1,6,"(4) CUBIC FIT"
\Locate 1,7,"(NO.1-4 [5 TO EXIT])":?\->D
\If (D=5):\Then \Goto0:\IfEnd
\If (D\<>1)\ And (D\<>2)\ And (D\<>3)\ And (D\<>4)\ And (D\<>5):\Then 
\GotoH:\IfEnd
\If (D=1):\Then \GotoI:\IfEnd
\If (D=2):\Then \GotoJ:\IfEnd
\If (D=3):\Then \GotoK:\IfEnd
\If (D=4):\Then \GotoL:\IfEnd

\Lbl I
\ClrText
\List 1\->\List 3
\List 2\->\List 4
\SortA(\List 3,\List 4)
\List 3[2]-\List 3[1]\->E
\For 1\->I \To (\Dim \List 3-1)
(\List 3[I+1]-\List 3[I])\->D
\If D\<>E
\Then \ClrText
"VALUES IN L1"
"NOT EQUALLY"
"SPACED-SO NTH"
"ORDER DIFFS"
"MAY NOT BE"
"USEFUL HERE"\DispD\->E
\Lbl M
\ClrText
\Locate 1,2,"CHECK ANYWAY?"
\Locate 1,3,"----------------"
\Locate 1,4,"(1) NO"
\Locate 1,5,"(2) YES"
\Locate 1,6,"----------------"
\Locate 6,7,"(CHOOSE 1,2)":?\->V
\If V=1:\Then \GotoH:\IfEnd
\If V=2:\Then \GotoN:\IfEnd
\If (V\<>1)\ Or (V\<>2):\Then \GotoM:\IfEnd
\IfEnd
\Next 
\Lbl N
\ClrText
\Seq(X,X,1,\Dim \List 2-1,1)\->\List 3
\Seq(X,X,1,\Dim \List 3-1,1)\->\List 4
\Seq(X,X,1,\Dim \List 4-1,1)\->\List 5
\For 1\->I \To (\Dim \List 2)-1
\List 2[I+1]-\List 2[I]\->\List 3[I]
\Next 
\For 1\->I \To (\Dim \List 3)-1
\List 3[I+1]-\List 3[I]\->\List 4[I]
\Next 
\For 1\->I \To (\Dim \List 4)-1
\List 4[I+1]-\List 4[I]\->\List 5[I]
\Next 
\AxesOff
\GridOff
\Cls
\Text 1,1,"1ST"
\Text 1,36,"2ND"
\Text 1,71,"3RD"
\Text 7,1,"----------------------"
1\->N
\For 1\->I \To \Dim \List 5
\If \Frac (I/6)\<>0
\Then N+1\->N
\Fix 3
\Text 7N,1,\List 3[I]
\Text 7N,36,\List 4[I]
\Text 7N,71,\List 5[I]
\Text 1,101," "
\IfEnd
\If \Frac (I/6)=0
\Then \Text 1,101," "\Disp\Cls
\Text 1,1,"1ST"
\Text 1,36,"2ND"
\Text 1,71,"3RD"
\Text 7,1,"----------------------"
\Text 14,1,\List 3[I]
\Text 14,36,\List 4[I]
\Text 14,71,\List 5[I]
2\->N
\IfEnd
\Next 
\Text 1,101," "\Disp\ClrText
\Cls
\AxesOn
\GotoH

\Lbl J
\ClrText
(\Max(\List 1)-\Min(\List 1))/10\->\Xscl
(\Max(\List 2)-\Min(\List 2))/10\->\Yscl
\Cls
\S-WindAuto
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square,\Orange 
\DrawStat
\Text 2,5,"L2"
\Text 2,20,"(PRESS EXE FOR REGR.)"
\Text 55,110,"L1"\Disp\Cls
\ClrText
\LinearReg \List1,\List2,1\Disp\S-Gph1 
\DrawOn,\Scatter,\List1,\List2,1,\Square,\Orange 
\S-Gph2 \DrawOn,\Linear,\List1,\List2,1,\Orange 
\DrawStat
\P/L-Blue
\Text 2,5,"LINEAR FIT (Y=ax+b)"
\Fix 2
\Text 9,5,"\Ra="
\Text 9,15,\Ra
\Text 16,5,"b="
\Text 16,15,\Rb
\Text 23,5,"r="
\Text 23,15,\Cor\Disp\ClrText
\Norm
\GotoH

\Lbl K
\ClrText
(\Max(\List 1)-\Min(\List 1))/10\->\Xscl
(\Max(\List 2)-\Min(\List 2))/10\->\Yscl
\Cls
\S-WindAuto
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square,\Orange 
\DrawStat
\Text 2,5,"L2"
\Text 2,20,"(PRESS EXE FOR REGR.)"
\Text 55,110,"L1"\Disp\ClrText
\QuadReg \List1,\List2,1\Disp\Cls
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square,\Orange 
\S-Gph2 \DrawOn,\Quad,\List1,\List2,1,\Orange 
\DrawStat
\P/L-Blue
\Text 2,5,"QUAD FIT (Y=ax\x^2+bx+c)"
\Fix 2
\Text 9,5,"\Ra="
\Text 9,15,\Ra
\Text 16,5,"b="
\Text 16,15,\Rb
\Text 23,5,"c="
\Text 23,15,\Rc\Disp\ClrText
\Norm
\GotoH

\Lbl L
\ClrText
(\Max(\List 1)-\Min(\List 1))/10\->\Xscl
(\Max(\List 2)-\Min(\List 2))/10\->\Yscl
\Cls
\S-WindAuto
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square,\Orange 
\DrawStat
\Text 2,5,"L2"
\Text 2,20,"(PRESS EXE FOR REGR.)"
\Text 55,110,"L1"\Disp\ClrText
\CubicReg \List1,\List2,1\Disp\Cls
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square,\Orange 
\S-Gph2 \DrawOn,\Cubic,\List1,\List2,1,\Orange 
\DrawStat
\P/L-Blue
\Text 2,5,"CUBIC FIT (Y=ax^3+bx\x^2+cx+d)"
\Fix 2
\Text 9,5,"\Ra="
\Text 9,15,\Ra
\Text 16,5,"b="
\Text 16,15,\Rb
\Text 23,5,"c="
\Text 23,15,\Rc
\Text 30,5,"d="
\Text 30,15,\Rd\Disp\ClrText
\Norm
\GotoH



\Lbl 3
\ClrText
\Lbl C
\Locate 1,2,"TRANSFORMS MENU"
\Locate 1,3,"(1) LOG L2"
\Locate 1,4,"(2) LOG L1"
\Locate 1,5,"(3) LOG L1,L2"
\Locate 1,6,"(4) MORE TRANSFORMS"
\Locate 1,7,"(NO.1-4 [5 TO EXIT])":?\->E
\If (E=1):\Then \GotoD:\IfEnd
\If (E=2):\Then \GotoE:\IfEnd
\If (E=3):\Then \GotoF:\IfEnd
\If (E=4):\Then \GotoG:\IfEnd
\If (E=5):\Then \Goto0:\IfEnd
\If (E\<>1)\ And (E\<>2)\ And (E\<>3)\ And (E\<>4)\ And (E\<>5):\Then 
\Goto3:\IfEnd

\Lbl G
\ClrText
\Locate 1,2,"MORE TRANSFORMS MENU"
\Locate 1,3,"(1) L1\x^2 (SQUARE)"
\Locate 1,4,"(2) L1^3 (CUBIC)"
\Locate 1,5,"(3) 1\slashL1 (INVERSE)"
\Locate 1,6,"(4) 1\slashL1\x^2 (INV. SQ.)"
\Locate 1,7,"(NO.1-4 [5 TO EXIT])":?\->D
\If (D=1):\Then \GotoQ:\IfEnd
\If (D=2):\Then \GotoR:\IfEnd
\If (D=3):\Then \GotoS:\IfEnd
\If (D=4):\Then \GotoT:\IfEnd
\If (D=5):\Then \Goto3:\IfEnd
\If (D\<>1)\ And (D\<>2)\ And (D\<>3)\ And (D\<>4)\ And (D\<>5):\Then 
\GotoG:\IfEnd


\Lbl D
\For 1\->I \To \Dim \List 2
\If \List 2[I]\<=0
\Then \ClrText
"THERE IS A"
"ZERO"
"(OR NEG NO.)"
"IN \List 2"
"(MODEL NOT OK)"\Disp\ClrText
\Goto3
\IfEnd
\Next 
\Seq(X,X,1,\Dim \List 1,1)\->\List 3
\Seq(X,X,1,\Dim \List 2,1)\->\List 4
\For 1\->I \To \Dim \List 2
\List 1[I]\->\List 3[I]
\log \List 2[I]\->\List 4[I]
\Next 
\ClrText
(\Max(\List 3)-\Min(\List 3))/10\->\Xscl
(\Max(\List 4)-\Min(\List 4))/10\->\Yscl
\Cls
\S-WindAuto
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-Gph1 \DrawOn,\Scatter,\List3,\List4,1,\Square,\Orange 
\DrawStat
\P/L-Blue
\Text 2,10,"\log L2"
\Text 2,45,"(PRESS EXE FOR REGR.)"
\Text 55,110,"L1"\Disp\ClrText
\LinearReg \List3,\List4,1\Disp\S-Gph1 
\DrawOn,\Scatter,\List3,\List4,1,\Square,\Orange 
\S-Gph2 \DrawOn,\Linear,\List3,\List4,1,\Orange 
\DrawStat
\P/L-Blue
\Text 2,10,"\log L2 VS L1"
\Fix 2
\Text 9,10,"a="
\Text 9,20,\Ra
\Text 16,10,"b="
\Text 16,20,\Rb
\Text 23,10,"r="
\Text 23,20,\Cor\Disp\ClrText
\Norm
\Goto3


\Lbl E
\For 1\->I \To \Dim \List 1
\If \List 1[I]\<=0
\Then \ClrText
"THERE IS A"
"ZERO"
"(OR NEG NO.)"
"IN \List 1"
"(MODEL NOT OK)"\Disp\ClrText
\Goto3
\IfEnd
\Next 
\Seq(X,X,1,\Dim \List 1,1)\->\List 3
\Seq(X,X,1,\Dim \List 2,1)\->\List 4
\For 1\->I \To \Dim \List 2
\log \List 1[I]\->\List 3[I]
\List 2[I]\->\List 4[I]
\Next 
\ClrText
(\Max(\List 3)-\Min(\List 3))/10\->\Xscl
(\Max(\List 4)-\Min(\List 4))/10\->\Yscl
\Cls
\S-WindAuto
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-Gph1 \DrawOn,\Scatter,\List3,\List4,1,\Square,\Orange 
\DrawStat
\P/L-Blue
\Text 2,10,"L2"
\Text 2,30,"(PRESS EXE FOR REGR.)"
\Text 55,100,"\log L1"\Disp\ClrText
\LinearReg \List3,\List4,1\Disp\S-Gph1 
\DrawOn,\Scatter,\List3,\List4,1,\Square,\Orange 
\S-Gph2 \DrawOn,\Linear,\List3,\List4,1,\Orange 
\DrawStat
\P/L-Blue
\Text 2,10,"L2 VS \log L1"
\Fix 2
\Text 9,10,"a="
\Text 9,20,\Ra
\Text 16,10,"b="
\Text 16,20,\Rb
\Text 23,10,"r="
\Text 23,20,\Cor\Disp\ClrText
\Norm
\Goto3

\Lbl F
0\->W
\For 1\->I \To \Dim \List 1
\If (\List 1[I]<0)\ Or (\List 1[I]<0):\Then \GotoU:\IfEnd
\If (\List 1[I]=0)\ And (\List 2[I]\<>0):\Then \GotoU:\IfEnd
\If (\List 1[I]\<>0)\ And (\List 2[I]=0):\Then \GotoU:\IfEnd
\If (\List 1[I]=0)\ And (\List 2[I]=0):\Then 1\->W:\IfEnd
\GotoV
\Lbl U
\ClrText
"THERE IS AN"
"INVALID DATA"
"VALUE IN LISTS"
"FOR THIS TRANSFORM"
"(MODEL NOT OK)"\Disp\ClrText
\Goto3
\Next 
\Lbl V
\Seq(X,X,1,\Dim \List 1-W,1)\->\List 3
\Seq(X,X,1,\Dim \List 2-W,1)\->\List 4
0\->N
\For 1\->I \To \Dim \List 2
\If (\List 1[I]\<>0)\ And (\List 2[I]\<>0):\Then N+1\->N
\log \List 1[I]\->\List 3[N]
\log \List 2[I]\->\List 4[N]
\IfEnd
\Next 
\ClrText
(\Max(\List 3)-\Min(\List 3))/10\->\Xscl
(\Max(\List 4)-\Min(\List 4))/10\->\Yscl
\Cls
\S-WindAuto
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-Gph1 \DrawOn,\Scatter,\List3,\List4,1,\Square,\Orange 
\DrawStat
\P/L-Blue
\Text 2,10,"\log L2"
\Text 2,40,"(PRESS EXE FOR REGR.)"
\Text 55,100,"\log L1"\Disp\ClrText
\LinearReg \List3,\List4,1\Disp\S-Gph1 
\DrawOn,\Scatter,\List3,\List4,1,\Square,\Orange 
\S-Gph2 \DrawOn,\Linear,\List3,\List4,1,\Orange 
\DrawStat
\P/L-Blue
\Text 2,10,"\log L2 VS \log L1"
\Fix 2
\Text 9,10,"a="
\Text 9,20,\Ra
\Text 16,10,"b="
\Text 16,20,\Rb
\Text 23,10,"r="
\Text 23,20,\Cor\Disp\ClrText
\Norm
\Goto3


\Lbl Q
\Seq(X,X,1,\Dim \List 1,1)\->\List 3
\Seq(X,X,1,\Dim \List 2,1)\->\List 4
\For 1\->I \To \Dim \List 2
(\List 1[I])\x^2\->\List 3[I]
\List 2[I]\->\List 4[I]
\Next 
\ClrText
(\Max(\List 3)-\Min(\List 3))/10\->\Xscl
(\Max(\List 4)-\Min(\List 4))/10\->\Yscl
\Cls
\S-WindAuto
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-Gph1 \DrawOn,\Scatter,\List3,\List4,1,\Square,\Orange 
\DrawStat
\P/L-Blue
\Text 2,10,"L2"
\Text 2,45,"(PRESS EXE FOR REGR.)"
\Text 55,110,"L1\x^2"\Disp\ClrText
\LinearReg \List3,\List4,1\Disp\S-Gph1 
\DrawOn,\Scatter,\List3,\List4,1,\Square,\Orange 
\S-Gph2 \DrawOn,\Linear,\List3,\List4,1,\Orange 
\DrawStat
\P/L-Blue
\Text 2,10,"L2 VS L1\x^2"
\Fix 2
\Text 9,10,"a="
\Text 9,20,\Ra
\Text 16,10,"b="
\Text 16,20,\Rb
\Text 23,10,"r="
\Text 23,20,\Cor\Disp\ClrText
\Norm
\GotoG


\Lbl R
\Seq(X,X,1,\Dim \List 1,1)\->\List 3
\Seq(X,X,1,\Dim \List 2,1)\->\List 4
\For 1\->I \To \Dim \List 2
(\List 1[I])^3\->\List 3[I]
\List 2[I]\->\List 4[I]
\Next 
\ClrText
(\Max(\List 3)-\Min(\List 3))/10\->\Xscl
(\Max(\List 4)-\Min(\List 4))/10\->\Yscl
\Cls
\S-WindAuto
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-Gph1 \DrawOn,\Scatter,\List3,\List4,1,\Square,\Orange 
\DrawStat
\P/L-Blue
\Text 2,10,"L2"
\Text 2,45,"(PRESS EXE FOR REGR.)"
\Text 55,110,"L1^3"\Disp\ClrText
\LinearReg \List3,\List4,1\Disp\S-Gph1 
\DrawOn,\Scatter,\List3,\List4,1,\Square,\Orange 
\S-Gph2 \DrawOn,\Linear,\List3,\List4,1,\Orange 
\DrawStat
\P/L-Blue
\Text 2,10,"L2 VS L1^3"
\Fix 2
\Text 9,10,"a="
\Text 9,20,\Ra
\Text 16,10,"b="
\Text 16,20,\Rb
\Text 23,10,"r="
\Text 23,20,\Cor\Disp\ClrText
\Norm
\GotoG


\Lbl S
0\->W
\For 1\->I \To \Dim \List 1
\If \List 1[I]=0:\Then W+1\->W:\IfEnd
\Next 
\Seq(X,X,1,\Dim \List 1-W,1)\->\List 3
\Seq(X,X,1,\Dim \List 2-W,1)\->\List 4
0\->N
\For 1\->I \To \Dim \List 1
\If \List 1[I]\<>0:\Then N+1\->N
1/(\List 1[I])\->\List 3[N]
\List 2[I]\->\List 4[N]
\IfEnd
\Next 
\ClrText
(\Max(\List 3)-\Min(\List 3))/10\->\Xscl
(\Max(\List 4)-\Min(\List 4))/10\->\Yscl
\Cls
\S-WindAuto
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-Gph1 \DrawOn,\Scatter,\List3,\List4,1,\Square,\Orange 
\DrawStat
\P/L-Blue
\Text 2,10,"L2"
\Text 2,45,"(PRESS EXE FOR REGR.)"
\Text 55,110,"1\slashL1"\Disp\ClrText
\LinearReg \List3,\List4,1\Disp\S-Gph1 
\DrawOn,\Scatter,\List3,\List4,1,\Square,\Orange 
\S-Gph2 \DrawOn,\Linear,\List3,\List4,1,\Orange 
\DrawStat
\P/L-Blue
\Text 2,10,"L2 VS 1\slashL1"
\Fix 2
\Text 9,10,"a="
\Text 9,20,\Ra
\Text 16,10,"b="
\Text 16,20,\Rb
\Text 23,10,"r="
\Text 23,20,\Cor\Disp\ClrText
\Norm
\GotoG


\Lbl T
0\->W
\For 1\->I \To \Dim \List 1
\If \List 1[I]=0:\Then W+1\->W:\IfEnd
\Next 
\Seq(X,X,1,\Dim \List 1-W,1)\->\List 3
\Seq(X,X,1,\Dim \List 2-W,1)\->\List 4
0\->N
\For 1\->I \To \Dim \List 1
\If \List 1[I]\<>0:\Then N+1\->N
((\List 1[I])\x^-1)\x^2\->\List 3[N]
\List 2[I]\->\List 4[N]
\IfEnd
\Next 
\ClrText
(\Max(\List 3)-\Min(\List 3))/10\->\Xscl
(\Max(\List 4)-\Min(\List 4))/10\->\Yscl
\Cls
\S-WindAuto
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-Gph1 \DrawOn,\Scatter,\List3,\List4,1,\Square,\Orange 
\DrawStat
\P/L-Blue
\Text 2,10,"L2"
\Text 2,45,"(PRESS EXE FOR REGR.)"
\Text 55,110,"1\slashL1\x^2"\Disp\ClrText
\LinearReg \List3,\List4,1\Disp\S-Gph1 
\DrawOn,\Scatter,\List3,\List4,1,\Square,\Orange 
\S-Gph2 \DrawOn,\Linear,\List3,\List4,1,\Orange 
\DrawStat
\P/L-Blue
\Text 2,10,"L2 VS 1\slashL1\x^2"
\Fix 2
\Text 9,10,"a="
\Text 9,20,\Ra
\Text 16,10,"b="
\Text 16,20,\Rb
\Text 23,10,"r="
\Text 23,20,\Cor\Disp\ClrText
\Norm
\GotoG


\Lbl 4
\ClrText
\List 1\->\List 3
\List 2\->\List 4
\SortA(\List 3,\List 4)
\List 3[2]-\List 3[1]\->E
\For 1\->I \To (\Dim \List 3-1)
(\List 3[I+1]-\List 3[I])\->D
\If D\<>E
\Then \ClrText
"AFTER SORTING,IT"
"APPEARS VALUES IN L1"
"ARE NOT EQUALLY"
"SPACED-SO SUCCESSOR"
"RATIOS MAY NOT"
"BE USEFUL HERE"\DispD\->E
\Lbl O
\ClrText
\Locate 1,2,"CHECK ANYWAY?"
\Locate 1,3,"----------------"
\Locate 1,4,"(1) NO"
\Locate 1,5,"(2) YES"
\Locate 1,6,"----------------"
\Locate 6,7,"(CHOOSE 1,2)":?\->V
\If V=1:\Then \Goto0:\IfEnd
\If V=2:\Then \GotoP:\IfEnd
\If (V\<>1)\ Or (V\<>2):\Then \GotoO:\IfEnd
\IfEnd
\Next 
\Lbl P
\ClrText
\Seq(X,X,1,\Dim \List 2-1,1)\->\List 5
0\->N
\For 1\->I \To (\Dim \List 3-1)
\If \List 4[I]\<>0
\Then N+1\->N
\List 4[I+1]/\List 4[I]\->\List 5[N]
\IfEnd
\If \List 4[I]=0
\Then N+1\->N
0\->\List 5[N]
\IfEnd
\Next 
\AxesOff
\GridOff
\Cls
\Text 1,5,"N"
\Text 1,50,"SUCCESSOR RATIO"
\Text 7,1,"------------------------"
1\->N
\For 1\->I \To \Dim \List 5
\If \Frac (I/6)\<>0
\Then N+1\->N
\Norm
\Text 7N,5,I
\Fix 3
\If \List 5[I]=0
\Then \Text 7N,50,"UNDEF"
\IfEnd
\If \List 5[I]\<>0
\Then \Text 7N,50,\List 5[I]
\IfEnd
\Text 1,111," "
\IfEnd
\If \Frac (I/6)=0
\Then \Text 1,111," "\Disp\Cls
\Text 1,5,"N"
\Text 1,50,"SUCCESSOR RATIO"
\Text 7,1,"------------------------"
\Norm
\Text 14,5,I
\Fix 3
\If \List 5[I]=0
\Then \Text 14,50,"UNDEF"
\IfEnd
\If \List 5[I]\<>0
\Then \Text 14,50,\List 5[I]
\IfEnd
2\->N
\IfEnd
\Next 
\Text 1,111," "\Disp\ClrText
\Cls
\AxesOn
\Norm
\Goto0
%End