%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:2387
File Name:POLYFCTR
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"FACTOR \ProbP(X)"
"DEGREE OF \ProbP(X)="?\->P
{P+1,2P-1}\->\Dim \Mat Q
\For 1\->N \To P+1
\Lbl 0
\ClrText
\Locate 1,3,"ENTER \ProbP(X)"
\Locate 1,4,"INTEGER COEFFICIENT"
\Locate 1,5,"OF X^"
\Locate 6,5,P-N+1
\Locate 8,5,"="
?\->\Mat Q[N,1]
\Int \Mat Q[N,1]\<>\Mat Q[N,1]\=>\Goto0
\Next 
0\->V
\For 1\->N \To P+1
\If \Mat Q[P-N+2,1]=0
\Then \Isz V
\Else \Break
\IfEnd
\Next 
P-V\->P
1\->F
\Abs \Mat Q[1,1]\->M
\For 2\->N \To P+1
\Abs \Mat Q[N,1]\<>0\ And \Abs \Mat Q[N,1]<M\=>\Abs \Mat Q[N,1]\->M
\Next 
\If M\>=2
\Then \For 2\->I \To M
0\->S
\For 1\->N \To P+1
S+\Frac (\Abs \Mat Q[N,1]/I)\->S
\Next 
S=0\=>I\->F
\Next 
\IfEnd
\Mat Q[1,1]<0\=>-F\->F
\For 1\->N \To P+1
\Mat Q[N,1]/F\->\Mat Q[N,1]
\Next 
0\->I
\Lbl 2
I+2\->I
P+2-I/2\->R
\Mat Q[1,I-1]\->L
\Abs \Mat Q[R,I-1]\->M
1\->J
\While J\<=L
\If \Frac (\Mat Q[1,I-1]/J)=0
\Then J\->\Mat Q[1,I]
\Mat Q[1,I-1]/\Mat Q[1,I]\->\Mat Q[1,I+1]
\For 1\->K \To M
\If \Frac (\Mat Q[R,I-1]/K)=0
\Then K\->\Mat Q[2,I]
\For 2\->N \To R-1
(\Mat Q[N,I-1]-\Mat Q[2,I]*\Mat Q[N-1,I+1])/\Mat Q[1,I]\->\Mat Q[N,I+1]
\Next 
\Mat Q[R,I-1]-\Mat Q[2,I]*\Mat Q[R-1,I+1]\->\Mat Q[R,I+1]
\Mat Q[R,I+1]=0\=>\Break
-K\->\Mat Q[2,I]
\For 2\->N \To R-1
(\Mat Q[N,I-1]-\Mat Q[2,I]*\Mat Q[N-1,I+1])/\Mat Q[1,I]\->\Mat Q[N,I+1]
\Next 
\Mat Q[R,I-1]-\Mat Q[2,I]*\Mat Q[R-1,I+1]\->\Mat Q[R,I+1]
\Mat Q[R,I+1]=0\=>\Break
\IfEnd
\Next 
\IfEnd
\Mat Q[R,I+1]=0\=>\Break
\Isz J
\WhileEnd
\Mat Q[R,I+1]=0\ And I<2P-2\=>\Goto2
\ClrText
1\->L
1\->Z
F\Mat Q[1,1]<0\=>\Locate L,Z,"-"
F\Mat Q[1,1]<0\=>\Isz L
\For 1\->N \To P+V
\Abs (F\Mat Q[N,1])\->K
\If K\<>0
\Then \Locate L,Z,K
L+\Int (\log K)+(K\<>1)\->L
\If L\>=19
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,"X^"
\If P+V-N\<=1
\Then \Isz L
P+V-N=0\=>\Locate L,Z," "
P+V-N=1\=>\Locate L,Z,"\x^2"
P+V-N=1\=>\Isz L
\Else L+2\->L
\Locate L,Z,P+V-N+1
L+\Int (\log (P+V-N+1))+1\->L
\IfEnd
\If L\>=20
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,"+"
\Isz L
\IfEnd
F\Mat Q[N+1,1]<0\=>\Locate L-1,Z,"-"
\If L\>=18
\Then \Isz Z
1\->L
\IfEnd
\Next 
\Abs F\Mat Q[P+V+1,1]\->K
\If K\<>0
\Then \Locate L,Z,K
L+\Int (\log K)+1\->L
\Else \Dsz L
\IfEnd
\Locate L,Z,"="
\If I=2\ And \Mat Q[R,I+1]\<>0\ And F=1\ And V=0
\Then \Locate L,Z," "
\Isz Z
\Locate 1,Z,"HAS NO LINEAR FACTORS"
\Locate 1,Z+1,"OVER THE INTEGERS"
\Goto1
\IfEnd
I-1\->S
I=2P-2\ And \Mat Q[R,I+1]=0\=>I+1\->S
\Isz Z
\Locate 1,Z,F
\Int (\log (\Abs F))+(F<0)+(\Abs F\<>1)+1\->L
\If V>0
\Then \Locate L,Z,"X^"
V=2\=>\Locate L+1,Z,"\x^2"
V>2\=>\Locate L+2,Z,V
L+\Int (\log V)+(V>1)+(V>2)+1\->L
\IfEnd
\If S=1
\Then \Locate L,Z,"("
\Isz L
\For 1\->N \To P
\Abs \Mat Q[N,1]\->K
\If K\<>0
\Then \Locate L,Z,K
L+\Int (\log K)+(K\<>1)\->L
\If L\>=18
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,"X^"
\If P-N\<=1
\Then \Isz L
P-N=1\=>\Locate L,Z,"\x^2"
P-N=1\=>\Isz L
\Else L+2\->L
\Locate L,Z,P-N+1
L+\Int (\log (P-N+1))+1\->L
\IfEnd
\Locate L,Z,"+"
\Isz L
\IfEnd
\Mat Q[N+1,1]<0\=>\Locate L-1,Z,"-"
\If L\>=18
\Then \Isz Z
1\->L
\IfEnd
\Next 
\Abs \Mat Q[P+1,1]\->K
\Locate L,Z,K
L+\Int (\log K)+1\->L
\Locate L,Z,")"
\Else \For 2\->J \To S-1 \Step 2
\Locate L,Z,"("
\Isz L
\Mat Q[1,J]\->K
\Locate L,Z,K
L+\Int (\log K)+(K\<>1)\->L
\Locate L,Z,"X+"
\Isz L
\Mat Q[2,J]<0\=>\Locate L,Z,"-"
\Isz L
\If L\>=18
\Then \Isz Z
1\->L
\IfEnd
\Abs \Mat Q[2,J]\->K
\Locate L,Z,K
L+\Int (\log K)+1\->L
\Locate L,Z,")"
\Isz L
\If L\>=18
\Then \Isz Z
1\->L
\IfEnd
\Next 
(S-1)/2\->T
\Locate L,Z,"("
\Isz L
\For 1\->N \To P-T
\Abs \Mat Q[N,S]\->K
\If K\<>0
\Then \Locate L,Z,K
L+\Int (\log K)+(K\<>1)\->L
\If L\>=19
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,"X^"
\If P-T-N\<=1
\Then \Isz L
P-T-N=1\=>\Locate L,Z,"\x^2"
P-T-N=1\=>\Isz L
\Else L+2\->L
\Locate L,Z,P-T-N+1
L+\Int (\log (P-T-N+1))+1\->L
\IfEnd
\If L\>=21
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,"+"
\Isz L
\IfEnd
\Mat Q[N+1,S]<0\=>\Locate L-1,Z,"-"
\If L\>=19
\Then \Isz Z
1\->L
\IfEnd
\Next 
\Abs \Mat Q[P-T+1,S]\->K
\Locate L,Z,K
L+\Int (\log K)+1\->L
\Locate L,Z,")"
\IfEnd
\Lbl 1
\Locate 17,7,"DONE"
%End