%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:727
File Name:AP
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Do
\ClrText
"AP SOLVER"
"You know:"
"1. a,d"
"2. 2 terms"
"Select"?\->C
\LpWhile (C\<>1)*(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="
U>0\=>U\DispV>0\=>V\Disp\IfEnd
\If C=5
\Then "Table values"
"from 1 to"?\->R
"X =n"
"Y1=Tn"
"Y2=Sn"
\For 1\->I \To 10:\T SelOff I:\Next 
\Y=Type
"A+(X-1)D"\->\Y 1
"X(2A+(X-1)D)/2"\->\Y 2
1\->\F Start
R\->\F End
1\->\F pitch
\DispF-Tbl\Disp\IfEnd
\LpWhile C\<>6
\ClrText
"\Done"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1173
File Name:GP
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Do
\ClrText
"GP SOLVER"
"You know:"
"1. a,r"
"2. 2 terms"
"Select"?\->C
\ClrText
\LpWhile (C\<>1)*(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
"Tn=a.r^(n-1)"
"a="
A\Disp"r="
R\Disp\If R+S=0
\Then "Or"
"a="
B\Disp"r="
S\Disp\IfEnd
\IfEnd
\Do
\ClrText
"Choose:"
"1:Tn   2:Sn"
"3:Sinf 4:Tbl"
R>0\=>"5:Tn>< 6:Sn>"
"7:End "?\->C
\ClrText
\If C=1
\Then "Term Tn. n="?\->N:AR^(N-1)\->T\DispBS^(N-1)\->U
T\<>U\=>U\Disp\IfEnd
\If C=2
\Then "\Sum to n. n="?\->N
A(1-R^N)/(1-R)\->T\DispB(1-S^N)/(1-S)\->U
T\<>U\=>U\Disp\IfEnd
\If C=3
\Then \If \Abs R\>=1
\Then "\Sum to inf"
"doesn't exist"\Disp\Else "\Sum to inf"
A/(1-R)\->T\DispB/(1-S)\->U
T\<>U\=>U\Disp\IfEnd
\IfEnd
\If C=4
\Then "Table"
"N from 1 to "?\->\F End
\ClrText
"X =n"
"Y1=Tn"
"Y2=Sn"
1\->\F Start
1\->\F pitch
\For 1\->I \To 10:\T SelOff I:\Next 
\Y=Type
"AR^(X-1)"\->\Y 1
"A(R^X-1)/(R-1)"\->\Y 2
\If R\<>S
\Then "BS^(X-1)"\->\Y 3
"B(S^X-1)/(S-1)"\->\Y 4
"Y3=Tn"
"Y4=Sn"
\IfEnd
\DispF-Tbl\Disp\IfEnd
\If (C=5)(A>0)
\Then \If R>1:\Then "1st Tn that"
"exceeds "?\->P
"Req'd term n="
\Int (\In (P/A)/\In (R)+1)+1\Disp\Else "1st term"
"less than "?\->P
"Req'd term n="
\Int (\In (P/A)/\In (R)+1)+1\Disp\IfEnd
\IfEnd
\If (C=6)(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\slash"
"exceeded"\Disp\Else \Int (\In (1-L(1-R)/A)/\In (R))+1\Disp\IfEnd
\IfEnd
\IfEnd
\LpWhile C\<>7
\ClrText
"\Done"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:377
File Name:GTHDECAY
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"How many"
"points"?\->N
"Enter each"
"point (x,y):"
\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 \List5,\List6,1
\Ra\->A:\e^x\Rb\->R:100(R-1)\->P
\ClrText
"y=ar^x"
"a="
A\Disp"r="
R\Disp\Fix 4
\If P>0
\Then "Pcent grwth:"
P\Disp\Else "Pcent decay:"
\(-)P\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)+(C=2)
\ClrText
"\Done"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:456
File Name:LINEAR
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"Eqn of line"
"1:m, point"
"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)(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
"y=mx+c"
"m="
M\Disp"c="
C\Disp\If BM<0:\Then \(-)B\->B:\IfEnd
BM\->A:BC\->D:\(-)B\->B
\IfEnd
\ClrText
"ax+by+d=0"
"a="
A\Disp"b="
B\Disp"d="
D\Disp\ClrText
"\Done"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1069
File Name:MAV
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"Lists:"
"Time: 1"
"Data: 2"
"EXE to start"\Disp\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 "ERROR!"
"Time values"
"must go up"
"unif\ormly"
\Stop
\IfEnd
\Next 
"Points"?\->P
"Calc avgs..."
.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
\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
"Calc rsds..."
\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
"Predict vals"
"Yes: 1 [EXE]"
" No: 2 [EXE]"?\->E
\If E=1
\Then \ClrText
"x value"?\->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
"Using x="
V\Disp\IfEnd
\RaV+\Rb\->Y
"y="
Y\Disp\While X\<=0:X+P\->X:\WhileEnd
\While X>P:X-P\->X:\WhileEnd
"Seas Comp ="
\List 5[X]\Disp"Future Val="
Y+\List 5[X]\Disp\IfEnd
\LpWhile E=1
\S-WindAuto
\ClrText
"Lists now contain:"\Disp"3:Mov Avs"
"4:Residuals"
"5:Av rsdls"
"6:Seas adj"\Disp\ClrText
"\Done"
"Warning:"
"Use y=ax+b"
"from this"
"program ONLY"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:652
File Name:NUMSEQS
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
"1:Fib  2:Pri"
"3:Sqr  4:Tri"
"Choice:"?\->S
\If S=1
\Then \Do
\ClrText
"Fibonacci"
"1st N terms"
"N (5 - 50)"
?\->N
\LpWhile (N<5)+(N>50)
"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
"Primes"
"2 \-> N"
"N (5 - 1613)"
?\->N
\LpWhile (N<5)+(N>1613)
"wait..."
\Seq(0,X,1,255,1)\->\List 2
3\->Q
2\->\List 2[1]
3\->\List 2[2]
5\->\List 2[3]
\For 7\->I \To N \Step 2
0\->J:1\->P
\Do
\Isz J
\List 2[J]\->A
\Frac (I/A)=0\=>0\->P
\LpWhile P*(A<\sqrtI)
\If P
\Then \Isz Q
I\->\List 2[Q]
\IfEnd
\Next 
\Seq(\List 2[X],X,1,Q,1)\->\List 1
{0}\->\List 2
\IfEnd
\If S=3
\Then \Do
\ClrText
"\Squares"
"1st \-> Nth"
"N (5 - 250)"
?\->N
\LpWhile (N<5)+(N>250)
"wait..."
\Seq(X\x^2,X,1,N,1)\->\List 1
\IfEnd
\If S=4
\Then \Do
\ClrText
"Triangle nos"
"1st \-> Nth"
"N (5 - 250)"
?\->N
\LpWhile (N<5)+(N>250)
"wait..."
\Seq(.5X(X+1),X,1,N,1)\->\List 1
\IfEnd
\List 1\Disp\ClrText
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:102
File Name:SLVY1=Y2
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
"LHS in Y1"
"RHS in Y2"
"Guess x="?\->X
\Do
X\->W
X-(\Y 1-\Y 2)/\d/dx((\Y 1-\Y 2),X)\->X
\LpWhile \Abs (X-W)>\EE\(-)9
"\Ans x="
X

%End