%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1590
File Name:POLYDIV
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"COMPUTE \ProbP(X)/\ProbQ(X)"
"DEGREE OF \ProbP(X)="?\->P
{P+1,4}\->\Dim \Mat Q
\For 1\->N \To P+1
\ClrText
\Locate 1,3,"ENTER \ProbP(X)"
\Locate 1,4,"COEFFICIENT OF X^"
\Locate 18,4,P-N+1
\Locate 20,4,"="
?\->\Mat Q[N,1]
\Next 
\ClrText
\Lbl 0
"DEGREE OF \ProbQ(X)="?\->Q
\If Q\>=P
\Then "DEGREE OF Q MUST BE"
"LESS THAN DEGREE OF P"
\Goto0
\IfEnd
\For 1\->N \To Q+1
\ClrText
\Locate 1,3,"ENTER \ProbQ(X)"
\Locate 1,4,"COEFFICIENT OF X^"
\Locate 18,4,Q-N+1
\Locate 20,4,"="
?\->\Mat Q[N,2]
\Next 
\ClrText
\For 1\->N \To Q+1
\Mat Q[N,1]\->\Mat Q[N,4]
\Next 
\For 1\->N \To P-Q+1
\Mat Q[1,4]/\Mat Q[1,2]\->\Mat Q[N,3]
\For 2\->J \To Q+1
\Mat Q[J,4]-\Mat Q[N,3]*\Mat Q[J,2]\->\Mat Q[J-1,4]
\Next 
N<P-Q+1\=>\Mat Q[N+Q+1,1]\->\Mat Q[Q+1,4]
\Next 
0\->\Mat Q[Q+1,4]
\Locate 1,1,"QUOTIENT IS"
1\->L
2\->Z
\For 1\->N \To P-Q+1
\Mat Q[N,3]\->O
\If O\<>0
\Then \If O<0\ And N=1
\Then \Locate L,Z,"-"
\Isz L
\IfEnd
O<0\=>-O\->O
1\->D
\While \Abs (\Int (DO)-DO)>1\EE-6
\Isz D
\WhileEnd
DO\->O
\If D>1
\Then \Int (\log O)+\Int (\log D)+5\->M
\If L+M>21
\Then \Isz Z
1\->L
\IfEnd
P-Q+1-N>0\=>\Locate L,Z,"("
P-Q+1-N>0\=>\Isz L
\Locate L,Z,O
L+\Int (\log O)+1\->L
\Locate L,Z,"\slash"
\Locate L+1,Z,D
L+\Int (\log D)+2\->L
P-Q+1-N>0\=>\Locate L,Z,")"
P-Q+1-N>0\=>\Isz L
\Else \Locate L,Z,O
L+\Int (\log O)+(O\<>1)\->L
\IfEnd
\If P-Q+1-N\<>0
\Then \If L\>=19
\Then \Isz Z
1\->L
\IfEnd
\If P-Q+1-N>1
\Then \Locate L,Z,"X^"
\Locate L+2,Z,P-Q+1-N
P-Q+1-N=2\=>\Locate L+1,Z,"\x^2 "
L+\Int (\log (P-Q+1-N))+3\->L
P-Q+1-N=2\=>\Dsz L
\Else \Locate L,Z,"X"
\Isz L
\IfEnd
\If L\>=22
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,"+"
\Mat Q[N+1,3]<0\=>\Locate L,Z,"-"
\Isz L
\IfEnd
\IfEnd
\Next 
\Isz Z
1\->L
\Locate L,Z,"REMAINDER IS"
\Isz Z
0\->R
\For 1\->N \To Q
\Mat Q[N,4]\->O
R+\Abs O\->R
\If O\<>0
\Then \If O<0\ And N=1
\Then \Locate L,Z,"-"
\Isz L
\IfEnd
O<0\=>-O\->O
1\->D
\While \Abs (\Int (DO)-DO)>1\EE-6
\Isz D
\WhileEnd
DO\->O
\If D>1
\Then \Int (\log O)+\Int (\log D)+5\->M
\If L+M>21
\Then \Isz Z
1\->L
\IfEnd
Q-N>0\=>\Locate L,Z,"("
Q-N>0\=>\Isz L
\Locate L,Z,O
L+\Int (\log O)+1\->L
\Locate L,Z,"\slash"
\Locate L+1,Z,D
L+\Int (\log D)+2\->L
Q-N>0\=>\Locate L,Z,")"
Q-N>0\=>\Isz L
\Else \Locate L,Z,O
L+\Int (\log O)+(O\<>1)\->L
\IfEnd
\If Q-N\<>0
\Then \If L\>=19
\Then \Isz Z
1\->L
\IfEnd
\If Q-N>1
\Then \Locate L,Z,"X^"
\Locate L+2,Z,Q-N
Q-N=2\=>\Locate L+1,Z,"\x^2 "
L+\Int (\log (P-Q+1-N))+3\->L
Q-N=2\=>\Dsz L
\Else \Locate L,Z,"X"
\Isz L
\IfEnd
\If L\>=22
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,"+"
\Mat Q[N+1,4]<0\=>\Locate L,Z,"-"
\Isz L
\IfEnd
\IfEnd
\Next 
R=0\=>\Locate 14,Z-1,"ZERO"
\Locate 17,7,"DONE"
%End