710:CLEAR:REM ホウテイシキ ノ コン(NEWTONホウ)
711:PRINT "f(x)=0 ヲ Line900 ニ イレテクダサイ。"
712:INPUT "シテン=";V
720:INPUT "ビショウ クカンEPS=";A
730:INPUT "クカンハバ=";W
740:G=V:F=V:Z=0
750:IF Z=0 GOTO 770
760:G=G-W:C=G:GOTO 780
770:C=G:Z=1
780:GOSUB 830
790:F=F+W:C=F
800:GOSUB 830
810:GOTO 750
820:END
830:X=C:GOSUB 900
840:Y=B:X=A+C
850:GOSUB 900
860:D=C:C=D-A*Y/(B-Y)
870:IF ABS (D-C)>0.00000001 GOTO 830
880:PRINT C
890:RETURN
900:REM B=((X-2)*X-1)*X+2
901:B=X+LN(X):REM カンスウシキ　f(x)=0
902:REM B=X^4+2*X^3-2*X^2+3*X-4:REM a0*x^0+a1*x^1+...+an*x^n=0
910:RETURN