Directory of image this file is from
This file as a plain text file
10 DEF FNF(X)=X^5+10*X^2-12 20 INPUT A,B,S,M 30 LET Z=0 40 LET X=B-FNF(B)*(B-A)/(FNF(B)-FNF(A)) 50 LET Z=Z+1 60 IF ABS(FNF(X))<S THEN 140 65 IF Z=M THEN 120 70 IF FNF(X)*FNF(A)<0 THEN 100 80 LET A=X 90 GOTO 40 100 LET B=X 110 GOTO 40 120 PRINT"ABBRUCH NACH";Z;"ITERATIONSSCHRITTEN" 125 PRINT Z,X,FNF(X) 130 STOP 140 PRINT"Z","X","F(X)" 150 PRINT Z,X,FNF(X) 160 GOTO 20 170 END