%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:121
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 (\Deg>)"
\acos (R/(\sqrt(A\x^2+B\x^2)\sqrt(C\x^2+D\x^2)))\->T
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:198
File Name:DTF
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"Number:"?\->D
1\->V:1\->Q:0\->P:0\->W:0\->N
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\=>T/B\Disp"Fraction:"
F\Disp"Top:"
T\Disp"Bottom:"
B\Disp\ClrText
"\Done"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:55
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:890
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"\Disp"Max no. of"
"iterations"?\->U
2U+1\->U
\G SelOn 1
\DrawGraph\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)(\Y 1<\EE50)(N<U)
"Plot"\Disp\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 

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:384
File Name:PBISECT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"Perp bisect"
"(p,q)~(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
"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: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