-FOCA,9   !!OOT F PNOMIAL ( ART I - CMPLROOS
01 3   ORDOF POYNO
IAL  ,
 0 T !  "TYPE POLYNOMI@L COEF",!1.4  I=N+1; AMI)
00.55T !  POLNOM COFS",
01.60 F I=1,N+10 %,A	),!

02 10  ( )=13SB(2)=0;S B(3)=0;S M 2
02  0 F =0,N+1;S G()=AM()
02.30 D 02
02.35  	=1,-1; M I!=()2.30 F I=,2; M(I)=R(	)
02.40 I (RM(1)) 2.45,2.95,2.45
02.40 S M N)=M 1); QM(N+1)=M(202. F I1,N+1;S G(I)=QM(I)
02.55 D 10
00.57 F I=1(N-1;S C(I)=(I)
02,58 F I=1,;P T(
)=R I 
02.60 S D=C(N-1 *(C(N1)-B(0)*C(N-2 )
02 60  D=-(N-0)((T(1)-RM(0(2)(N-1)
02.00 I (D) 2.75,2.72,2.5
0272  (2)=B(2)+1;S B 3(=(3)+.1;G 2.85
02. S D0(RM(1)*(C(N-1)+B(0)*C(N-2))-R
(2)*C N-2 ) D
02(77 S D3=((N-1)RM(2)(1)(1) RM(1)+B(2)*C(N-1)))/D
02.8 B()=B(2 +2;S B(3)=(3)+D
0.81 S X=FAB2)+ABS(D );S Y=FABS(B(2))+FABS(B(3))
02.82 I (X/Y .00012.90,2.95,2.2
02.95 S 0B(2) S U=B 3)

03.00 S RP=-P/2;S IM=QT(UP^2/4)
03.05 T !! ROTS AE - REAL    P
03 26 T ! "IHAGINARY PAR  ",IM
03.08 I ( -)".3;
03.30 F I=1,N+1;  G()=AM()
0340 D 12
03.50 S N=N-2;I (N 2)3.8,3.8,3.55
00.05 F I51 N+1S AM(I)=Q(I03.G 2
03.80  P=Q(2);S U=Q(3);G 3.1

12.30 S L=N-
+1
12.40 F I=1 LL;D
1250 F =1,M;S R(I)=G(N-M+I+1 
12.0 S L M-1
12.70 IF (R(1)) 12.9,12.75,12.9
 75 (L) 02.9,12.9,2.77
12.77 F I=1,L;S R(I)=R(	+1)
12.80 S L=-1;G 02.7
02.9 R

13.10S Q(I)=G(I)/B(1)
13.20 F J 1,M;D 14
13.30 R

14.10 S W=(I) B(J+1)
1.20 S G(I+J)=G(I+J)!W
14.30 F (FAS(GI+J))(.0001 FABS(W)) 14.4,14.4,14.5
14.4 G()=04.50 R
*