%Header Record
Format:MCS1
Type Number:1
File Name:AP
Option Name:
Communication SW:0
Capacity:702
Data Type:PG
%Data Record
Password:
BaseN:0
\Do
\ClrText
"AP SOLVER"
"You know:"
"1. a,d"
"2. 2 terms"
"Select"?\->C
\LpWhile C\<>1\ And C\<>2
\ClrText
\If C=1
\Then "Tn=a+(n-1)d"
"a="?\->A:"d="?\->D
\IfEnd
\If C=2
\Then "Known term 1"
"n="?\->E:"Tn="?\->F
"Known term 2"
"n="?\->G:"Tn="?\->H
G-E\->P:H-F\->Q:Q/P\->D
F-D(E-1)\->A
\ClrText
"Tn=a+(n-1)d"
"a="
A\Disp"d="
D\Disp\IfEnd
\Do
\ClrText
"Choose:"
"1:Tn   2:Sn"
"3:Tn=  4:Sn="
"5:Tbl  6:End"
?\->C
\ClrText
\If C=1
\Then "Term Tn. n="?\->N
A+D(N-1)\Disp\IfEnd
\If C=2
\Then "\Sum to n. n="?\->N
N(2A+(N-1)D)/2\Disp\IfEnd
\If C=3
\Then "Term EQUAL to"?\->T
"n=":(T-A)/D+1\Disp\IfEnd
\If C=4
\Then "\Sum of first"
"n terms = to"?\->S
(\(-)(2A-D)-\sqrt((2A-D)\x^2+8DS))/(2D)\->U
(\(-)(2A-D)+\sqrt((2A-D)\x^2+8DS))/(2D)\->V
"n="
\If U>0:\Then U\Disp\IfEnd
\If V>0:\Then V\Disp\IfEnd
\IfEnd
\If C=5
\Then "Table values"
"from 1 to "?\->\R End
\SumDispOn:\RanType
"A+D(\R n-1)"\->\R an
1\->\R Start
A\->\R a1
A-D\->\R a0
\R SelOff \R bn
\R SelOn \R an
\DispR-Tbl\Disp\IfEnd
\LpWhile C\<>6
\ClrText
"\Done"\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:GP
Option Name:
Communication SW:0
Capacity:1195
Data Type:PG
%Data Record
Password:
BaseN:0
\Do
\ClrText
"GP SOLVER"
"You know:"
"1. a,r"
"2. 2 terms"
"Select"?\->C
\ClrText
\LpWhile C\<>1\ And C\<>2
\If C=1
\Then "Tn=a.r^(n-1)"
" ":"a="?\->A:A\->B
"r="?\->R:R\->S
\IfEnd
\If C=2
\Then "Known term 1"
"n="?\->D:"Tn="?\->F
"Known term 2"
"n="?\->G:"Tn="?\->H
G-D\->P:H/F\->Q:P\xrtQ\->R
F/(R^(D-1))\->A
R*(\(-)1)^(1+2\Frac (P/2))\->S
F/(S^(D-1))\->B
\ClrText
\Locate 1,2,"Tn=a.r^(n-1)"
\Locate 1,4,"a="
\Locate 3,4,A
\Locate 1,5,"r="
\Locate 3,5,R
\If R+S=0
\Then \Locate 1,6,"\or"
\Locate 5,6,"a="
\Locate 7,6,B
\Locate 5,7,"r="
\Locate 7,7,S
\IfEnd
\Locate 1,7,""\Disp\IfEnd
\Do
\ClrText
"Choose:"
"1:Tn   2:Sn"
"3:Sinf 4:Tbl"
\If R>0:\Then "5:Tn>< 6:Sn>":\IfEnd
"7:End"
?\->C
\ClrText
\If C=1
\Then "Term Tn. n="?\->N:AR^(N-1)\->T\DispBS^(N-1)\->U
\If T\<>U:\Then U\Disp\IfEnd
\IfEnd
\If C=2
\Then "\Sum to n. n="?\->N
A(1-R^N)/(1-R)\->T\DispB(1-S^N)/(1-S)\->U
\If T\<>U:\Then U\Disp\IfEnd
\IfEnd
\If C=3
\Then \If \Abs R\>=1
\Then "\Sum to inf"
"does \Not exist"\Disp\Else "\Sum to inf"
A/(1-R)\->T\DispB/(1-S)\->U
\If T\<>U:\Then U\Disp\IfEnd
\IfEnd
\IfEnd
\If C=4
\Then "Table"
"N from 1 to "?\->\R End
\SumDispOn:\RanType
"AR^(\R n-1)"\->\R an
"BS^(\R n-1)"\->\R bn
1\->\R Start
A\->\R a1:B\->\R b1
A/R\->\R a0:B/S\->\R b0
\R SelOn \R an
\If R\<>S
\Then \R SelOn \R bn
\Else \R SelOff \R bn
\IfEnd
\DispR-Tbl\Disp\IfEnd
\If C=5\ And A>0
\Then \If R>1:\Then "1st term that exceeds"?\->P
\Int (\In (P/A)/\In (R)+1)+1\->P
\Else "1st term less than"?\->P
\Int (\In (P/A)/\In (R)+1)+1\->P
\IfEnd
"Needed term n="
P\Disp\IfEnd
\If C=6\ And A>0
\Then "\Sum of 1st n terms"
"that exceeds"?\->L
\If R>1:\Then "n = ":\Int (\In (L(R-1)/A+1)/\In R)+1\Disp\Else \If A/(1-R)\<=L:\Then "\Sum to inf equalled":"\or exceeded"\Disp\Else \Int (\In (1-L(1-R)/A)/\In (R))+1\Disp\IfEnd
\IfEnd
\IfEnd
\LpWhile C\<>7
\ClrText
"\Done"\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:GTHDECAY
Option Name:
Communication SW:0
Capacity:437
Data Type:PG
%Data Record
Password:
BaseN:0
"How many points"?\->N
"Enter each pair:"
\Seq(0,X,1,N,1)\->\List 5
\List 5\->\List 6
\For 1\->I \To N
"x"?\->\List 5[I]
"y"?\->\List 6[I]
\Next 
\ExpReg \List 5,\List 6,1
\Ra\->A:\e^x\Rb\->R:100(R-1)\->P
\ClrText
\Locate 1,2,"y=ar^x"
\Locate 1,3,"a="
\Locate 3,3,A
\Locate 1,4,"r="
\Locate 3,4,R
\Fix 4
\If P>0
\Then \Locate 1,6,P
\Locate 8,6," Pcent growth"\Disp\Else \Locate 1,6,\(-)P
\Locate 8,6," Pcent \Dec>ay"\Disp\IfEnd
\Norm 
\Do
\ClrText
"Predict?"
"1. y from x"
"2. x from y"
"3. End"
"Choice"?\->C
\If C=1
\Then "x="?\->X
"y="
A*R^X\Disp\IfEnd
\If C=2
\Then "y="?\->Y
"x="
\In (Y/A)/\In R\Disp\IfEnd
\LpWhile C=1\ Or C=2
\ClrText
"a\->A, r\->R"
"\Done"\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:LINEAR
Option Name:
Communication SW:0
Capacity:570
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
" ":" ":" "
\Locate 1,1,"Eqn of straight line"
\Locate 1,2,"Type 1:m \and point"
\Locate 6,3,"2:2 points"
?\->A
\If A\<>1:\Then 2\->A:\IfEnd
\If A=1
\Then "m="?\->D
\Else "Point (p,q)":"p="?\->P
"q="?\->Q
\IfEnd
"Point (x,y)":"x="?\->X
"y="?\->Y
\If A=2\ And X=P
\Then \(-)X\->D:0\->B:1\->A
\Else \If A=2:\Then (Y-Q)\ab/c(X-P)\->D:\IfEnd
1\->V:1\->Q:0\->P:0\->W:0\->N
\If D<0:\Then 1\->N:\IfEnd
\Abs D\->D:D\->S
\Do
\Intg S\->I
S-I\->R
IV+P\->T
IW+Q\->B
\If R\<>0:\Then 1/R\->S:\IfEnd
V\->P:W\->Q:T\->V:B\->W
\LpWhile \Abs (T/B-D)>\EE\(-)10
\If N:\Then \(-)T\->T:\IfEnd
T\ab/cB\->M
Y-M*X\->C
\ClrText
\Locate 1,2,"y=mx+c"
\Locate 1,3,"m="
\Locate 3,3,M
\Locate 1,4,"c="
\Locate 3,4,C\Disp\If BM<0:\Then \(-)B\->B:\IfEnd
BM\->A:BC\->D:\(-)B\->B
\IfEnd
\ClrText
\Locate 1,2,"ax+by+d=0"
\Locate 1,3,"a="
\Locate 3,3,A
\Locate 1,4,"b="
\Locate 3,4,B
\Locate 1,5,"d="
\Locate 3,5,D
\@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:NUMSEQS
Option Name:
Communication SW:0
Capacity:932
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText:" ":" ":" ":" ":" "
\Locate 1,1,"1.FIBONACCI"
\Locate 1,2,"2.PRIME"
\Locate 1,3,"3.SQUARE"
\Locate 1,4,"4.TRIANGLE"
\Locate 1,5,"Choice:":?\->S
\If S=1
\Then \Do
\ClrText
" ":\Locate 1,1,"FIBONACCI sequence"
" ":\Locate 1,2,"First N terms"
" ":\Locate 1,3,"N (5 - 50)"
?\->N
\LpWhile N<5\ Or N>50
\Locate 15,7,"wait..."
1\->A:1\->B
\Seq(1,X,1,N,1)\->\List 1
\For 3\->I \To N
A+B\->C
C\->\List 1[I]
B\->A:C\->B
\Next 
\IfEnd
\If S=2
\Then \Do
\ClrText
" ":\Locate 1,1,"PRIME numbers"
" ":\Locate 1,2,"between 2 \and N"
" ":\Locate 1,3,"N (5 - 1613)"
?\->N
\LpWhile N<5\ Or N>1613
\Locate 1,6,"Calc time (s):"
\Locate 16,6,\Int (.046N^1.14)
\Locate 15,7,"wait..."
[[2,3,5]]\->\Mat A
\For 7\->I \To N \Step 2
0\->J:1\->P
\Do
\Isz J
\Mat A[1,J]\->A
\If \Frac (I/A)=0:\Then 0\->P:\IfEnd
\LpWhile P\ And A<\sqrtI
\If P:\Then \Augment(\Mat A,[[I]])\->\Mat A:\IfEnd
\Next 
\Trn \Mat A\->\Mat A
\Mat->List\Mat A,1)\->\List 1
\IfEnd
\If S=3
\Then \Do
\ClrText
" ":\Locate 1,1,"SQUARE numbers"
" ":\Locate 1,2,"From 1st to Nth"
" ":\Locate 1,3,"N (5 - 250)"
?\->N
\LpWhile N<5\ Or N>250
\Locate 15,7,"wait..."
\Seq(X\x^2,X,1,N,1)\->\List 1
\IfEnd
\If S=4
\Then \Do
\ClrText
" ":\Locate 1,1,"TRIANGLE numbers"
" ":\Locate 1,2,"from 1st to Nth"
" ":\Locate 1,3,"N (5 - 250)"
?\->N
\LpWhile N<5\ Or N>250
\Locate 15,7,"wait..."
\Seq(.5X(X+1),X,1,N,1)\->\List 1
\IfEnd
\List 1\Disp\ClrText\@00
%End