%Header Record
Format:MCS1
Type Number:1
File Name:AMORTIZE
Option Name:
Communication SW:0
Capacity:573
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"AMORTIZATION"
"CALCULATE"
"(1) LOAN PAYMENT"
"(2) PRESENT VALUE"
"(3) FUTURE VALUE"
"(4) SINKING FUND"
"CHOICE="?\->C
"TERM (YEARS)="?\->T
"ANNUAL INTEREST"
"(PERCENT)="?\->R
"COMPOUNDED"
"(1) MONTHLY"
"(2) QUARTERLY"
"(3) SEMIANNUALLY"
"(4) ANNUALLY"
"CHOICE="?\->Q
\If Q=1:\Then 12\->K:\IfEnd
\If Q=2:\Then 4\->K:\IfEnd
\If Q=3:\Then 2\->K:\IfEnd
\If Q=4:\Then 1\->K:\IfEnd
KT\->N
R/(100K)\->I
(1+I)^N\->J
\If C=1
\Then "PRINCIPAL="?\->P
PI/(1-J\x^-1)\->M
\IfEnd
\If C=4
\Then "AMOUNT NEEDED="?\->A
AI/(J-1)\->M
\IfEnd
\If C=2\ Or C=3:\Then "PAYMENT="?\->M:\IfEnd
\If C=2
\Then M(1-J\x^-1)/I\->P
"PRESENT VALUE="
P\Disp\Stop
\IfEnd
\If C=3
\Then M(J-1)/I\->F
"FUTURE VALUE="
F\Disp\Stop
\IfEnd
"PAYMENT="
M\Disp\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:CMPLXPWR
Option Name:
Communication SW:0
Capacity:101
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"POWER OF"
"COMPLEX NUMBER"
"NUMBER="?\->C
"POWER="?\->N
\Abs C\->\r
\Arg C/\Pi\->\theta
\r^N(\cos (N\theta\Pi)+\{i}\sin (N\theta\Pi))\Disp\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:CMPLXRT
Option Name:
Communication SW:0
Capacity:147
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"SOLUTIONS OF Z^N=C"
"C="?\->C
"N="?\->N
\Abs C\->\r
\Arg C\->\theta
\For 0\->K \To N-1
(\theta+2\PiK)/N\->T
\r^(N\x^-1)(\cos T+\{i}\sin T)\Disp\Next 
"ALL DISTINCT VALUES"
"HAVE BEEN DISPLAYED"\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:DBLINT
Option Name:
Communication SW:0
Capacity:349
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"DOUBLE INTEGRAL"
"STORE \fn6(X,Y) FIRST"
"1ST INTEGRAL IS FROM \fn4 TO \fn5"
"IS IT (1)DX OR (2)DY"?\->O
"2ND INTEGRAL IS FROM"?\->A
"TO"?\->B
"NUMBER OF INTERVALS  EACH WAY="?\->N
(B-A)/N\->D
0\->S
\For 0\->J \To N-1
\If O=1:\Then A+(J+.5)D\->Y:\IfEnd
\If O=2:\Then A+(J+.5)D\->X:\IfEnd
(\fn5-\fn4)/N\->C
\For 0\->K \To N-1
\If O=1:\Then \fn4+(K+.5)C\->X:\IfEnd
\If O=2:\Then \fn4+(K+.5)C\->Y:\IfEnd
S+\fn6CD\->S
\Next 
\Next 
S\Disp\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:EULER
Option Name:
Communication SW:0
Capacity:286
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"EULER'S METHOD"
"SOLUTION OF DE"
"FIRST STORE"
"\d/dx(Y)=\fn6(X,Y)"\Disp"KNOWN POINT IS AT"
"(A,F(A))"
"A="?\->A
"F(A)="?\->F
(\Xmax-\Xmin)/126\->D
(A-\Xmin)/D\->N
\If \Frac N\>=.5:\Then \Isz N:\IfEnd
\Int N\->N
A\->P
F\->Q
\For 1\->J \To N-1
\Plot P,Q
P\->X
Q\->Y
\fn6\->M
X-D\->P
Y-MD\->Q
\Next 
A\->P
F\->Q
\For 1\->J \To 125-N
\Plot P,Q
P\->X
Q\->Y
\fn6\->M
X+D\->P
Y+MD\->Q
\Next 
\Graph Y=0\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:FUNDTHM
Option Name:
Communication SW:0
Capacity:185
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"FUNDAMENTAL THEOREM"
"SOLUTION OF DE"
"FIRST STORE"
"\d/dx(Y)=\fn6(X)"\Disp"KNOWN POINT IS AT"
"(A,F(A))"
"A="?\->A
"F(A)="?\->F
(\Xmax-\Xmin)/126\->D
\For 1\->B \To 125
\Integral(\fn6,A,\Xmin+BD)\->C
\Plot \Xmin+BD,C+F
\Next \@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:IMPGRAPH
Option Name:
Communication SW:0
Capacity:255
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"IMPLICIT GRAPH OF"
"\fn6(X,Y)=0"
"STORE \fn6(X,Y) FIRST"\Disp(\Ymax-\Ymin)/62\->C
(\Xmax-\Xmin)/126\->D
\For 0\->J \To 31
\Ymin+2JC\->Y
\For 0\->K \To 15
\Xmin+(8K+3)D\->X
0\->I
\Do
X\->P
M\->Q
\d/dx(\fn6,X)\->R
\If R=0:\Then \Break:\IfEnd
X-\fn6/R\->X
\Isz I
\Abs (X-P)\->M
\If M<.1D
\Then \Plot X,Y
\Break
\IfEnd
\If I\>=3\ And M\>=Q:\Then \Break:\IfEnd
\LpWhile I>0
\Next 
\Next 
\Graph Y=0\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:LINPROG
Option Name:
Communication SW:0
Capacity:667
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"LINEAR PROGRAMMING"
"INITIAL TABLEAU IN"
"MATRIX A"\Disp\Dim \Mat A
\List \Ans[1]\->R
\List \Ans[2]\->C
\Mat A\->\Mat F
\Do
0\->P
\Trn \Mat F\->\Mat T
\For 1\->K \To C-1
\If \Mat F[R,K]<0:\Then 2\->P:\IfEnd
\Next 
\For 1\->K \To R-1
\If \Mat F[K,C]<0:\Then 1\->P:\IfEnd
\Next 
\If P=1
\Then \Mat->List\Mat F,C)\->\List 6
0\->\List 6[R]
\Min(\List 6)\->M
\For 1\->K \To R-1
\If M=\List 6[K]:\Then K\->I:\IfEnd
\Next 
\Mat->List\Mat T,I)\->\List 6
0\->\List 6[C]
\Min(\List 6)\->M
\If M<0
\Then \For 1\->K \To C-1
\If M=\List 6[K]:\Then K\->J:\IfEnd
\Next 
\Else 0\->P
\IfEnd
\IfEnd
\If P=2
\Then \Mat->List\Mat T,R)\->\List 6
0\->\List 6[C]
\Min(\List 6)\->M
\For 1\->K \To C-1
\If M=\List 6[K]:\Then K\->J:\IfEnd
\Next 
\Mat->List\Mat F,J)\->\List 6
0\->\List 6[R]
\For 1\->K \To R-1
\If \List 6[K]>0:\Then \List 6[K]/\Mat F[K,C]\->\List 6[K]:\IfEnd
\If \List 6[K]\<=0:\Then 0\->\List 6[K]:\IfEnd
\Next 
\Max(\List 6)\->M
\If M>0
\Then \For 1\->K \To R-1
\If M=\List 6[K]:\Then K\->I:\IfEnd
\Next 
\Else 0\->P
\IfEnd
\IfEnd
\If P\<>0
\Then \*Row (1\ab/c(\Mat F[I,J])),F,I
\For 1\->K \To R
\If K\<>I:\Then \*Row+ (\(-)\Mat F[K,J]),F,I,K:\IfEnd
\Next 
\IfEnd
\LpWhile P\<>0
\Mat F\Disp\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:PRIME
Option Name:
Communication SW:0
Capacity:218
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"IS NUMBER PRIME?"
"NUMBER="?\->N
2\->K
\If \Frac (N/2)=0:\Then \Goto0:\IfEnd
\Int (\sqrtN)\->M
\If M<3:\Then \Goto1:\IfEnd
\If \Frac (M/2)=0:\Then \Isz M:\IfEnd
\For 3\->K \To M \Step 2
\If \Frac (N/K)=0:\Then \Goto0:\IfEnd
\Next 
\Goto1
\Lbl 0
"NUMBER IS COMPOSITE"
"IT IS DIVISIBLE BY"
K\Disp\Stop
\Lbl 1
"NUMBER IS PRIME"\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:PRIMFACT
Option Name:
Communication SW:0
Capacity:367
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"PRIME FACTOR NUMBER"
"NUMBER="?\->N
N\->Q
[[1][1]]\->\Mat E
\Mat E\->\Mat F
0\->J
\If \Frac (Q/2)=0
\Then \Isz J
2\->\Mat F[1,J]
Q/2\->Q
\IfEnd
\While \Frac (Q/2)=0
\Mat F[2,J]+1\->\Mat F[2,J]
Q/2\->Q
\WhileEnd
3\->D
\While Q>1
\Int (\sqrtQ+1)\->M
\If \Frac (M/2)=0:\Then \Isz M:\IfEnd
\For D\->K \To M \Step 2
\If \Frac (Q/K)=0:\Then \Break:\IfEnd
\Next 
\If K\>=M\ And \Frac (Q/K)\<>0:\Then Q\->K:\IfEnd
\Isz J
\If J>1:\Then \Augment(\Mat F,\Mat E)\->\Mat F:\IfEnd
K\->D
D\->\Mat F[1,J]
Q/D\->Q
\Do
\If \Frac (Q/D)=0
\Then \Mat F[2,J]+1\->\Mat F[2,J]
Q/D\->Q
\IfEnd
\LpWhile \Frac (Q/D)=0
\WhileEnd
\Trn \Mat F\Disp\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:RIEMANN
Option Name:
Communication SW:0
Capacity:325
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"RIEMANN SUM"
"STORE \fn6(X) FIRST"
"INTERVAL FROM X="?\->A
"TO X="?\->B
"NUMBER OF"
"SUBINTERVALS="?\->N
(B-A)/N\->D
"(1) LEFT ENDPOINT"
"(2) RIGHT ENDPOINT"
"(3) MIDPOINT"
"(4) TRAPEZOID"
"CHOICE="?\->C
0\->S
A\->X
\If C=2:\Then X+D\->X:\IfEnd
\If C=3:\Then X+.5D\->X:\IfEnd
\For 1\->K \To N
S+\fn6D\->S
X+D\->X
\Next 
\If C=4
\Then A\->X
\fn6\->E
B\->X
\fn6\->F
S+(F-E)D/2\->S
\IfEnd
S\Disp\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:ROWREDA
Option Name:
Communication SW:0
Capacity:245
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"ROW REDUCE MATRIX A"
\Dim \Mat A
\List \Ans[1]\->R
\List \Ans[2]\->C
\Mat A\->\Mat R
1\->I
\For 1\->J \To C
\For 1\->N \To R-I
\If \Mat R[I,J]=0:\Then \Swap R,I,I+N:\IfEnd
\Next 
\If \Mat R[I,J]\<>0
\Then \*Row 1\ab/c\Mat R[I,J],R,I
\For 1\->K \To R
\If K\<>I:\Then \*Row+ \(-)\Mat R[K,J],R,I,K:\IfEnd
\Next 
\Isz I
\IfEnd
\If I=R+1
\Then \If \Mat R[R,J]=1:\Then \Break:\IfEnd
\Dsz I
\IfEnd
\Next 
\Mat R\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:SLOPEFLD
Option Name:
Communication SW:0
Capacity:228
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"SLOPE FIELD"
"STORE \d/dx(Y)=\fn6(X,Y)FIRST"
\Cls
(\Ymax-\Ymin)/62\->C
(\Xmax-\Xmin)/126\->D
\For 0\->J \To 15
\Xmin+(8J+3)D\->E
\For 0\->K \To 7
\Ymin+(8K+3)C\->F
E\->X
F\->Y
\fn6\->G
2D\->H
\If \Abs G>C/D:\Then 2C/\Abs G\->H:\IfEnd
\If 2H\>=D
\Then \Graph Y=G(X-E)+F,[E-H,E+H]
\Else \F-Line E,F+2C,E,F-2C
\IfEnd
\Next 
\Next 
\Graph Y=0\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:TRIPLINT
Option Name:
Communication SW:0
Capacity:549
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"TRIPLE INTEGRAL"
"FIRST STORE"
"\fn6(X,Y,Z) "\Disp"1ST INTEGRAL IS FROM"
"\fn4 TO \fn5"
"IS IT"
"(1)DX, (2)DY OR(3)DZ"?\->F
"2ND INTEGRAL IS FROM"
"\fn2 TO \fn3"
"IS IT"
"(1)DX, (2)DY OR(3)DZ"?\->S
F+S\->T
"3RD INTEGRAL IS FROM"?\->A
"TO"?\->B
"NUMBER OF INTERVALS"
"EACH WAY="?\->N
(B-A)/N\->D
0\->I
\For 0\->J \To N-1
A+(J+.5)D\->C
\If T=3:\Then C\->Z:\IfEnd
\If T=4:\Then C\->Y:\IfEnd
\If T=5:\Then C\->X:\IfEnd
(\fn3-\fn2)/N\->E
\For 0\->K \To N-1
\fn2+(K+.5)E\->G
\If S=1:\Then G\->X:\IfEnd
\If S=2:\Then G\->Y:\IfEnd
\If S=3:\Then G\->Z:\IfEnd
(\fn5-\fn4)/N\->H
\For 0\->L \To N-1
\fn4+(L+.5)H\->M
\If F=1:\Then M\->X:\IfEnd
\If F=2:\Then M\->Y:\IfEnd
\If F=3:\Then M\->Z:\IfEnd
I+\fn6DEH\->I
\Next 
\Next 
\Next 
I\Disp\@00
%End