%Header Record
Format:MCS1
Type Number:1
File Name:CMPLXNUM
Option Name:
Communication SW:0
Capacity:1241
Data Type:PG
%Data Record
Password:
BaseN:0
\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":\Locate 2,2,"e(z)=":?\->X
" ":\Locate 1,5,"I":\Locate 2,5,"m(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:\If \Abs X<\EE\(-)10:\Then 0\->X:\IfEnd
\ImP Z\->Y:\If \Abs Y<\EE\(-)10:\Then 0\->Y:\IfEnd
\Abs Z\->\r:\If \Abs \r<\EE\(-)10:\Then 0\->\r:\IfEnd
\Arg Z\->\theta:\If \Abs \theta<\EE\(-)10:\Then 0\->\theta:\IfEnd
\ClrText
\If K=79
\Then \Locate 1,1,"z=x+y\{i}"
\Locate 7,1," "
\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"
\Locate 6,7," "
\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}"
\Locate 7,6," :  \r   \theta"\Disp\For 1\->I \To N
\Rec(N\xrt\r,(\theta+2\PiI)/N)
\List \Ans[1]\->\List 1[I]:\If \Abs \List 1[I]<\EE\(-)10:\Then 0\->\List 1[I]:\IfEnd
\List \Ans[2]\->\List 2[I]:\If \Abs \List 2[I]<\EE\(-)10:\Then 0\->\List 2[I]:\IfEnd
\Arg (\List 1[I]+\{i}\List 2[I])\->\List 4[I]:\If \Abs \List 4[I]<\EE\(-)10:\Then 0\->\List 4[I]:\IfEnd
\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
\If J=49:\Then \Conjg Z\->Z:\IfEnd
\If J=39:\Then \e^xX(\cos Y+\{i}\sin Y)\->Z:\IfEnd
\LpWhile J\<>29\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:DOTPROD
Option Name:
Communication SW:0
Capacity:129
Data Type:PG
%Data Record
Password:
BaseN:0
\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
\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:DTF
Option Name:
Communication SW:0
Capacity:273
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"\Decimal:"?\->D
1\->V:1\->Q:0\->P:0\->W:0\->N
\ClrText
\Locate 1,2,"D:"
\Locate 3,2,D
\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\->F
\If \Abs (T/B-D)>0:\Then \Locate 3,3,T/B:\IfEnd
\Locate 1,4,"F:"
\Locate 3,4,F
\Locate 1,6,"T:"
\Locate 3,6,T
\Locate 1,7,"B:"
\Locate 3,7,B\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:EXACTVAL
Option Name:
Communication SW:0
Capacity:880
Data Type:PG
%Data Record
Password:
BaseN:0
\AxesOff
\Cls
1\->A:127\->B:9\->P:63\->Q
\ViewWindow A,B,1,1,Q,1
\F-Line A,24,B,24
\F-Line A,40,B,40
\F-Line A,56,B,56
\Text 2,8,"\theta"
\Text 14,1,"Sin"
\Text 30,1,"Cos"
\Text 46,1,"Tan"
\F-Line 16,P,16,Q
\Text 2,18,"0"
\Text 14,18,"0"
\Text 30,18,"1"
\Text 46,18,"0"
\F-Line 22,P,22,Q
\Text 2,26,"30"
\Text 11,28,"1"
\Text 18,28,"2"
\Text 27,23,"\sqrt3"
\Text 34,28,"2"
\Text 43,23,"\sqrt3"
\Text 50,28,"3"
\F-Line 35,P,35,Q
\Text 2,39,"45"
\Text 11,36,"\sqrt2"
\Text 18,41,"2"
\Text 27,36,"\sqrt2"
\Text 34,41,"2"
\Text 46,41,"1"
\Text 2,51,"60"
\Text 11,48,"\sqrt3"
\Text 18,52,"2"
\Text 27,52,"1"
\Text 34,52,"2"
\Text 46,48,"\sqrt3"
\F-Line 48,P,48,Q
\F-Line 60,P,60,Q
\Text 2,62,"90"
\Text 14,64,"1"
\Text 30,64,"0"
\Text 46,62,"~"
\Text 2,72,"120"
\Text 11,72,"\sqrt3"
\Text 18,76,"2"
\Text 27,72,"\(-)1"
\Text 34,76,"2"
\Text 46,70,"\(-)\sqrt3"
\F-Line 70,P,70,Q
\Text 2,87,"135"
\Text 11,87,"\sqrt2"
\Text 18,92,"2"
\Text 27,85,"\(-)\sqrt2"
\Text 34,92,"2"
\Text 46,90,"\(-)1"
\F-Line 85,P,85,Q
\Text 2,102,"150"
\Text 11,106,"1"
\Text 18,106,"2"
\Text 27,100,"\(-)\sqrt3"
\Text 34,106,"2"
\Text 43,100,"\(-)\sqrt3"
\Text 50,106,"3"
\F-Line 100,P,100,Q
\F-Line 115,P,115,Q
\Text 2,116,"180"
\Text 14,120,"0"
\Text 30,117,"\(-)1"
\Text 46,120,"0"\Disp\AxesOn\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:LOGBASE
Option Name:
Communication SW:0
Capacity:61
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"\Log of x to base a"
"x"?\->X
"a"?\->A
"\Log is"
\log X/\log A\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:NWTNRAPH
Option Name:
Communication SW:0
Capacity:78
Data Type:PG
%Data Record
Password:
BaseN:0
\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"\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:NWTRPHTT
Option Name:
Communication SW:0
Capacity:982
Data Type:PG
%Data Record
Password:
BaseN:0
\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
\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
\If E\<>0:\Then \Goto5:\IfEnd
"Div by 0!"\Disp0\->F
\If \Abs X>(\Xmax-\Xmin)*1\EE6
\Then 1\->F
"Diverging"
\List 1[N-2]\->X
\Goto3
\IfEnd
"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]
\If P=A:\Then \Goto1:\IfEnd
(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
\If B<\Ymin:\Then \Ymin\->\List 4[K]:\IfEnd
\If B>\Ymax:\Then \Ymax\->\List 4[K]:\IfEnd
\If Q<\Ymin:\Then \Ymin\->\List 4[K+1]:\IfEnd
\If Q>\Ymax:\Then \Ymax\->\List 4[K+1]:\IfEnd
\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,"\Done"\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:PBISECT
Option Name:
Communication SW:0
Capacity:497
Data Type:PG
%Data Record
Password:
BaseN:0
\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"\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:TRIGSOLV
Option Name:
Communication SW:0
Capacity:737
Data Type:PG
%Data Record
Password:
BaseN:0
\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
\If C=79:\Then \PiN/180\->N:\IfEnd
"Max \theta"?\->M
\If C=79:\Then \PiM/180\->M:\IfEnd
\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
\If W>1:\Then \Augment(\Mat W,[[0][0][0]])\->\Mat W:\IfEnd
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
\@00
%End