%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:895
File Name:POLYMULT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"COMPUTE \ProbP(X)*\ProbQ(X)"
"DEGREE OF \ProbP(X)="?\->P
"DEGREE OF \ProbQ(X)="?\->Q
{P+Q+1,3}\->\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 
\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 P+1
\For 1\->M \To Q+1
\Mat Q[N,1]*\Mat Q[M,2]+\Mat Q[N+M-1,3]\->\Mat Q[N+M-1,3]
\Next 
\Next 
\Locate 1,1,"PRODUCT 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 
\Locate 17,7,"DONE"
%End