170 "G" CLEAR : CLS : INPUT "n=";G:F=G: DIM A#(G),B#(G),C#(G),D#(G): WAIT 0: CLS 
  171 FOR I=G TO 0 STEP -1: PRINT "x^"; STR$ I;"=";: INPUT A#(I): CLS : NEXT I: WAIT 
  172 P=1E-6,N=1E-11: FOR I=G TO 0 STEP -1:D#(I)=A#(I): NEXT I: IF G<=2 THEN 187
  173 A=0,H#=1,K#=-1,B#(G)=A#(G),C#(G)=A#(G)
  174 B#(G-1)=B#(G)*H#+A#(G-1),C#(G-1)=B#(G-1)+B#(G)*H#
  175 FOR I=G-2 TO 0 STEP -1:B#(I)=B#(I+2)*K#+B#(I+1)*H#+A#(I)
  176 C#(I)=C#(I+2)*K#+C#(I+1)*H#+B#(I): NEXT I
  177 C#= SQU C#(2)-C#(1)*C#(3): IF C#=0 PRINT "andere Startwerte!": END 
  178 O#=H#-(B#(1)*C#(2)-B#(0)*C#(3))/C#:D#=K#-(B#(0)*C#(2)-B#(1)*C#(1))/C#
  179 IF  ABS B#(0)<P AND  ABS B#(1)<P THEN 183
  180 IF  ABS (O#-H#)<N AND  ABS (D#-K#)<N PRINT "Iteration steht": END 
  181 A=A+1: IF A>40 PRINT "konvergiert nicht": END 
  182 H#=O#,K#=D#: GOTO 174
  183 L#=O#/2:M#= SQU O#+4*D#: IF M#<0 THEN 185
  184 Q#=L#+ û M#/2: PRINT "x=";Q#: GOSUB 191:Q#=L#- û M#/2: PRINT "x=";Q#: GOSUB 191: GOTO 186
  185 PRINT L#;"+/-j*": PRINT  û -M#/2
  186 FOR I=2 TO G:A#(I-2)=B#(I): NEXT I:G=G-2: IF G>2 THEN 173
  187 IF G=1 LET Q#=A#(0)/-A#(1): PRINT "x=";Q#: GOSUB 191: END 
  188 L#=-A#(1)/(2*A#(2)):M#= SQU A#(1)-4*A#(2)*A#(0): IF M#<0 THEN 190
  189 Q#=L#+ û M#/(2*A#(2)): PRINT "x=";Q#: GOSUB 191:Q#=L#- û M#/(2*A#(2)): PRINT "x=";Q#: GOSUB 191: END 
  190 PRINT L#;"+/-j*": PRINT  û -M#/(2*A#(2)): END 
  191 B#=0: FOR I=1 TO F:B#=B#+D#(I)*Q#^I: NEXT I:B#=B#+D#(0): PRINT "f(x)=";B#: RETURN