%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1129
File Name:CMPLXNUM
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText:\Rad
\Locate 1,1,"Angle Setup: \Rad"
\Locate 1,3,"Enter z as:"
\Locate 1,4,"Cartesian ..F1"
\Locate 1,5,"Polar ......F2"
\Do:\Getkey\->K:\LpWhile K\<>79\ And K\<>69
\ClrText
\If K=79
\Then " ":\Locate 1,1,"Cartesian:"
" ":\Locate 1,2,"R\Re(z)=":?\->X
" ":\Locate 1,5,"Im(z)=":?\->Y
X+Y\{i}\->Z
\Else " ":\Locate 1,1,"Polar:"
" ":\Locate 1,2,"r":?\->\r
" ":\Locate 1,5,"\theta":?\->\theta
\r(\cos \theta+\{i}\sin \theta)\->Z
\IfEnd
\Do
\ReP Z\->X:\Abs X<\EE\(-)10\=>0\->X
\ImP Z\->Y:\Abs Y<\EE\(-)10\=>0\->Y
\Abs Z\->\r:\Abs \r<\EE\(-)10\=>0\->\r
\Arg Z\->\theta:\Abs \theta<\EE\(-)10\=>0\->\theta
\ClrText
\If K=79
\Then \Locate 1,1,"z=x+y\{i}"
\Locate 1,2,"x="
\Locate 3,2,X
\Locate 1,3,"y="
\Locate 3,3,Y
\Locate 1,5,"\->Pol ...F1"
\Else \Locate 1,1,"z=rcis\theta"
\Locate 1,2,"r="
\Locate 3,2,\r
\Locate 1,3,"\theta="
\Locate 3,3,\theta
\Locate 1,5,"\->Cart ..F1"
\IfEnd
\Locate 13,5,"Conj ..F4"
\Locate 1,6,"Roots ..F2   e^z ..F5"
\Locate 1,7,"\Power ..F3   End ..F6"
\Do:\Getkey\->J:\LpWhile J=0
\ClrText
\If J=79:\Then K+2(74-K)\->K:\IfEnd
\If J=69
\Then " ":\Locate 1,1,"Nth roots"
"N"?\->N
" ":\Locate 1,4,"Rows show roots:"
\Seq(N\xrt\r,I,1,N,1)\->\List 3
0\List 3\->\List 1
\List 1\->\List 2
\List 1\->\List 4
" ":\Locate 1,5,"1   2  :  3   4"
" ":\Locate 1,6,"x   y\{i} :  \r   \theta"\Disp\For 1\->I \To N
\Rec(N\xrt\r,(\theta+2\PiI)/N)
\List \Ans[1]\->\List 1[I]:\Abs \List 1[I]<\EE\(-)10\=>0\->\List 1[I]
\List \Ans[2]\->\List 2[I]:\Abs \List 2[I]<\EE\(-)10\=>0\->\List 2[I]
\Arg (\List 1[I]+\{i}\List 2[I])\->\List 4[I]:\Abs \List 4[I]<\EE\(-)10\=>0\->\List 4[I]
\Next 
\List->Mat(\List 1,\List 2,\List 3,\List 4)\Disp\ClrText
\Locate 1,3,"Roots st\ored in Lists"
\Locate 4,5,"(z \Not changed)"\Disp\IfEnd
\If J=59
\Then " ":\Locate 1,1,"Nth power"
"N"?\->N
\r^N(\cos (N\theta)+\{i}\sin (N\theta))\->Z
\IfEnd
J=49\=>\Conjg Z\->Z
J=39\=>\e^xX(\cos Y+\{i}\sin Y)\->Z
\LpWhile J\<>29
\ClrText
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:120
File Name:DOTPROD
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Deg
"\Dot Product"
"ai+bj"
"a"?\->A
"b"?\->B
"ci+dj"
"c"?\->C
"d"?\->D
"Product:"
AC+BD\->\r\Disp"Angle \theta\Deg>"
\acos (\r/(\sqrt(A\x^2+B\x^2)\sqrt(C\x^2+D\x^2)))\->\theta
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:247
File Name:DTF
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"\Decimal:"?\->D
1\->V:1\->Q:0\->P:0\->W:0\->N
\ClrText
\Locate 1,2,"D:"
\Locate 3,2,D
D<0\=>1\->N
\Abs D\->D:D\->S
\Do
\Intg S\->I
S-I\->R
IV+P\->T
IW+Q\->B
R\<>0\=>1/R\->S
V\->P:W\->Q:T\->V:B\->W
\LpWhile \Abs (T/B-D)>\EE\(-)10
N\=>\(-)T\->T
T\ab/cB\->F
\Abs (T/B-D)>0\=>\Locate 3,3,T/B
\Locate 1,4,"F:"
\Locate 3,4,F
\Locate 1,6,"T:"
\Locate 3,6,T
\Locate 1,7,"B:"
\Locate 3,7,B\Disp\ClrText
"\Done"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:836
File Name:EXACTVAL
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\AxesOff
\Cls
1\->A:127\->B:1\->P:63\->Q
\ViewWindow A,B,1,P,Q,1
\F-Line 18,P,18,Q
\For 24\->I \To 72 \Step 12
\F-Line I,P,I,Q
\Next 
\F-Line 86,P,86,Q
\F-Line 100,P,100,Q
\F-Line 114,P,114,Q
\For 18\->I \To 54 \Step 18
\F-Line A,I,B,I
\Next 
\Text 2,8,"\theta"
\Text 16,1,"Sin\theta"
\Text 34,1,"Cos\theta"
\Text 52,1,"Tan\theta"
\Text 2,20,"0"
\Text 16,20,"0"
\Text 34,20,"1"
\Text 52,20,"0"
\Text 2,27,"30"
\Text 13,29,"1"
\Text 20,29,"2"
\Text 31,26,"\sqrt3"
\Text 38,29,"2"
\Text 49,26,"\sqrt3"
\Text 56,29,"3"
\Text 2,39,"45"
\Text 13,38,"\sqrt2"
\Text 20,41,"2"
\Text 31,38,"\sqrt2"
\Text 38,41,"2"
\Text 52,41,"1"
\Text 2,51,"60"
\Text 13,50,"\sqrt3"
\Text 20,53,"2"
\Text 31,53,"1"
\Text 38,53,"2"
\Text 52,50,"\sqrt3"
\Text 2,63,"90"
\Text 16,65,"1"
\Text 34,65,"0"
\Text 52,65,"~"
\Text 2,74,"120"
\Text 13,75,"\sqrt3"
\Text 20,77,"2"
\Text 31,75,"\(-)1"
\Text 38,77,"2"
\Text 52,73,"\(-)\sqrt3"
\Text 2,88,"135"
\Text 13,90,"\sqrt2"
\Text 20,93,"2"
\Text 31,87,"\(-)\sqrt2"
\Text 38,93,"2"
\Text 52,90,"\(-)1"
\Text 2,102,"150"
\Text 13,106,"1"
\Text 20,106,"2"
\Text 31,101,"\(-)\sqrt3"
\Text 38,106,"2"
\Text 49,101,"\(-)\sqrt3"
\Text 56,106,"3"
\Text 2,116,"180"
\Text 16,120,"0"
\Text 34,117,"\(-)1"
\Text 52,120,"0"
\AxesOn

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:53
File Name:LOGBASE
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
"\Log of x to base a"
"x"?\->X
"a"?\->A
"\Log is"
\log X/\log A
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:70
File Name:NWTNRAPH
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"f(x) in Y1"
"x="?\->X
\Do
X\->W
X-\Y 1/\d/dx(\Y 1,X)\->X\Disp\LpWhile \Abs (X-W)>\EE\(-)9
"\Done"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:959
File Name:NWTRPHTT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Xmin\->A:\Xmax\->B
\Ymin\->C:\Ymax\->D
\Xscl\->E:\Yscl\->F
\ClrGraph
A\->\Xmin:B\->\Xmax
C\->\Ymin:D\->\Ymax
E\->\Xscl:F\->\Yscl
"f(x) in Y1"
"Ma ERROR\=> last x"
"is an asymptote"
"Max Iterations"?\->U
2U+1\->U
\G SelOn 1:\OrangeG 1
\DrawGraph
\Text 1,1,"EXE to cont"\Disp\ClrText
"First x="?\->X
\Seq(0,N,1,U,1)\->\List 1
\List 1\->\List 2
\List 1\->\List 3
\List 1\->\List 4
1\->N
X\->\List 1[1]
\Do:X\->W
N+1\->N
\Lbl 3:X\->\List 1[N]
\Y 1\->\List 2[N]
\d/dx(\Y 1,X)\->E
E\<>0\=>\Goto5
"Div by 0!"\Disp0\->F
\Abs X>(\Xmax-\Xmin)*1\EE6\=>1\->F
F\=>"Diverging"
F\=>\List 1[N-2]\->X
F\=>\Goto3
"Stat point?"
\Y 1\->\List 2[N+1]
\Xmin\->X
X\->W
\Goto6
\Lbl 5
X-\Y 1/E\->X\Disp\Lbl 6
N+1\->N
X\->\List 1[N]
\LpWhile \Abs (X-W)>\EE\(-)9\ And \Y 1<\EE50\ And N<U
"Plot"\Disp\Text 1,1,"           "
\For 1\->K \To N-1
\List 1[K]\->A
A\->\List 3[K]
\List 2[K]\->B
B\->\List 4[K]
\List 1[K+1]\->P
P\->\List 3[K+1]
\List 2[K+1]\->Q
Q\->\List 4[K+1]
P=A\=>\Goto1
(Q-B)/(P-A)\->M
\For K\->L \To K+1
\List 1[L]\->C
\List 2[L]\->D
\If C<\Xmin
\Then \Xmin\->\List 3[L]
M(\Xmin-A)+B\->\List 4[L]
\IfEnd
\If C>\Xmax
\Then \Xmax\->\List 3[L]
M(\Xmax-A)+B\->\List 4[L]
\IfEnd
\If D<\Ymin
\Then \Ymin\->\List 4[L]
(\Ymin-B)/M+A\->\List 3[L]
\IfEnd
\If D>\Ymax
\Then \Ymax\->\List 4[L]
(\Ymax-B)/M+A\->\List 3[L]
\IfEnd
\Next 
\Goto2
\Lbl 1
B<\Ymin\=>\Ymin\->\List 4[K]
B>\Ymax\=>\Ymax\->\List 4[K]
Q<\Ymin\=>\Ymin\->\List 4[K+1]
Q>\Ymax\=>\Ymax\->\List 4[K+1]
\Lbl 2
\F-Line \List 3[K],\List 4[K],\List 3[K+1],\List 4[K+1]
\For 1\->I \To 200/K
\Next 
\Next 
\Text 1,1,"EXE to rept"
\Text 9,1,"AC to end"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:489
File Name:PBISECT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
" ":" "
\Locate 1,1,"Eqn of perp bisect\or"
\Locate 1,2,"of (p,q) \and (x,y)"
"p="?\->P
"q="?\->Q
"x="?\->X
"y="?\->Y
\If Q=Y
\Then \(-)(P+X)\ab/c2\->D:0\->B:1\->A
\Else (P-X)\ab/c(Y-Q)\->D
(P+X)\ab/c2\->A:(Q+Y)\ab/c2\->C
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
C-M*A\->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\Disp\ClrText
"\Done"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:205
File Name:POLYDIV
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"Dividing...."
\Dim \Mat A
\List \Ans[2]-1\->A
\*Row(0,A,3
\*Row(0,A,4
0\->B
\Do
B+1\->B
\LpWhile \Mat A[2,B]=0
A-B+1\->B
\Row+(A,1,4
\For 0\->F \To A-B
\Mat A[4,F+1]\ab/c\Mat A[2,A-B+1]\->C
C\->\Mat A[3,B+1+F]
\For 1\->E \To B+1
\Mat A[4,F+E]-C*\Mat A[2,A-B+E]\->\Mat A[4,F+E]
\Next 
\Next 
\Mat A
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:698
File Name:POLYDIV+
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
" ":\Locate 1,1,"Numerat\or \order":?\->A
" ":\Locate 1,4,"Enter all Num' coeffs"
" ":\Locate 1,5,"in \order from highest"
" ":\Locate 1,6,"to lowest power..."
{4,A+1}\->\Dim \Mat A
\For 0\->I \To A
" ":\Locate 1,7,"Coeff, \order":\Locate 14,7,A-I:?\->\Mat A[1,I+1]
\Next 
\ClrText
" ":\Locate 1,1,"Denominat\or \order":?\->B
" ":\Locate 1,4,"Enter all Den' coeffs"
" ":\Locate 1,5,"in \order from highest"
" ":\Locate 1,6,"to lowest power..."
\For A-B\->I \To A
" ":\Locate 1,7,"Coeff, \order":\Locate 14,7,A-I:?\->\Mat A[2,I+1]
\Next 
"Dividing...."
\*Row(0,A,3
\*Row(0,A,4
0\->B
\Do
B+1\->B
\LpWhile \Mat A[2,B]=0
A-B+1\->B
\Row+(A,1,4
\For 0\->F \To A-B
\Mat A[4,F+1]\ab/c\Mat A[2,A-B+1]\->C
C\->\Mat A[3,B+1+F]
\For 1\->E \To B+1
\Mat A[4,F+E]-C*\Mat A[2,A-B+E]\->\Mat A[4,F+E]
\Next 
\Next 
\ClrText
\Locate 1,2,"Coeff matrix rows:"
\Locate 1,3,"1: Numerat\or"
\Locate 1,4,"2: Denominat\or"
\Locate 1,5,"3: Quotient"
\Locate 1,6,"4: Remainder"\Disp\Mat A
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:708
File Name:POLYMLT+
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
" ":\Locate 1,1,"Highest poly' \order":?\->A
" ":\Locate 1,4,"Enter all coeffs"
" ":\Locate 1,5,"in \order from highest"
" ":\Locate 1,6,"to lowest power..."
{3,A+1}\->\Dim \Mat A
\For 0\->I \To A
" ":\Locate 1,7,"Coeff, \order":\Locate 14,7,A-I:?\->\Mat A[1,I+1]
\Next 
\ClrText
" ":\Locate 1,1,"Second poly' \order":?\->B
" ":\Locate 1,4,"Enter all coeffs"
" ":\Locate 1,5,"in \order from highest"
" ":\Locate 1,6,"to lowest power..."
\For A-B\->I \To A
" ":\Locate 1,7,"Coeff, \order":\Locate 14,7,A-I:?\->\Mat A[2,I+1]
\Next 
"Multiplying...."
\Dim \Mat A:\List \Ans[2]\->A:\*Row(0,A,3
0\->J:\Do:1+J\->J:\LpWhile \Mat A[2,J]=0
A-J\->B:A-1\->A:A+B+1\->N
{0,0,0}\->\List 6:\For 1\->J \To B:\List->Mat(\List 6):\Augment(\Mat \Ans,\Mat A)\->\Mat A:\Next 
\For N-A\->I \To N
\For N-B\->J \To N
I+J-N\->K
\Mat A[1,I]\Mat A[2,J]+\Mat A[3,K]\->\Mat A[3,K]
\Next :\Next 
\ClrText
\Locate 1,2,"Coeff matrix rows:"
\Locate 1,3,"1: 1st polynomial"
\Locate 1,4,"2: 2nd polynomial"
\Locate 1,5,"3: Product"\Disp\Mat A
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:213
File Name:POLYMULT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"Multiplying...."
\Dim \Mat A:\List \Ans[2]\->A:\*Row(0,A,3
0\->J:\Do:1+J\->J:\LpWhile \Mat A[2,J]=0
A-J\->B:A-1\->A:A+B+1\->N
{0,0,0}\->\List 6:\For 1\->J \To B:\List->Mat(\List 6):\Augment(\Mat \Ans,\Mat A)\->\Mat A:\Next 
\For N-A\->I \To N
\For N-B\->J \To N
I+J-N\->K
\Mat A[1,I]\Mat A[2,J]+\Mat A[3,K]\->\Mat A[3,K]
\Next :\Next 
\Mat A
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:707
File Name:TRIGSOLV
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText:\Rad:\Pi\->R
10^(\(-)6)\->U
\Locate 1,1,"Trig solver"
\Locate 1,2,"Choose trig  type:"
\Locate 1,4,"Sin ..F1"
\Locate 1,5,"Cos ..F2"
\Locate 1,6,"Tan ..F3"
\Do:\Getkey\->T:\LpWhile T\<>79\ And T\<>69\ And T\<>59
\Locate 8,2,"angle"
\Locate 1,4,"\Deg"
\Locate 1,5,"\Rad"
\Locate 1,6,"        "
\Do:\Getkey\->C:\LpWhile C\<>79\ And C\<>69
\ClrText
" ":\Locate 1,1,"Angle:"
\If C=79
\Then \Locate 7,1,"\Deg"
\Else \Locate 7,1,"\Rad"
\IfEnd
\If T=79:\Then "Sin \theta="?\->F:\asin F\->A:\IfEnd
\If T=69:\Then "Cos \theta="?\->F:\acos F\->A:\IfEnd
\If T=59:\Then "Tan \theta="?\->F:\atan F\->A:\IfEnd
"Min \theta"?\->N
C=79\=>\PiN/180\->N
"Max \theta"?\->M
C=79\=>\PiM/180\->M
\Locate 14,7,"...wait"
\Int ((A+N)/R)-2\->S
0\->W:[[0][0][0]]\->\Mat W
\Do
S+1\->S
\If T=79:\Then RS+A(\(-)1)^S\->D:\IfEnd
\If T=69:\Then 2R\Intg ((S+1)/2)+A(\(-)1)^S\->D:\IfEnd
\If T=59:\Then RS+A\->D:\IfEnd
\If D\<=M\ And D\>=N
\Then \Isz W
W>1\=>\Augment(\Mat W,[[0][0][0]])\->\Mat W
D\->\Mat W[2,W]
180D/\Pi\->\Mat W[1,W]
0\->J
\Do
\Isz J:JD/\Pi\->V
\If \Abs (\Intg (V+U)-V)<U
\Then (\Intg (V+U))\ab/cJ\->\Mat W[3,W]
7\->J
\IfEnd
\LpWhile J<7
\IfEnd
\LpWhile D<M
\Trn \Mat W\Disp\ClrText
%End