Listing of file='4' on disk='vmedia/glbr_22.wvd.zip'
# Sector 477, program filename = '4' 0002 PRINT HEX(03) 0005 DIM A(99) 0010 PRINT "INPUT DEGREE OF POLYNOMIAL, N" 0020 INPUT N 0022 PRINT "INPUT COEFFICIENTS A(1),...,A(N+1) 4/LINE" 0025 FOR I=0 TO INT((N+4)/4)-1 0030 INPUT A(4*I+1),A(4*I+2),A(4*I+3),A(4*I+4) 0035 NEXT I 0040 PRINT "INPUT YOUR ESTIMATE OF ROOT" 0045 INPUT X 0050 FOR J=1 TO 100 0055 F=A(N+1) 0060 FOR I=1 TO N 0070 T=T+X^2 0080 F=F+A(I)*X^(N-I+1) 0090 NEXT I 0100 G=A(N) 0110 FOR I=1 TO N-1 0120 G=G+(N-I+1)*A(I)*X^(N-I) 0130 NEXT I 0140 I=X 0150 X=X-F/G 0160 IF ABS(X)+ABS(I)=0 THEN 900 0165 IF X=0 THEN 200 0170 IF ABS(1-I/X)<10E-8 THEN 900 0200 NEXT J 0210 PRINT "AFTER 100 ITERATIONS, NO CONVERGENCE" 0220 GOTO 999 0900 PRINT "ROOT IS: ",X 0999 PRINT "ANOTHER ROOT (1=YES,0=NO)" : INPUT L : IF L=1THEN 40 : END