10 REM ********** ΠΡΟΓΡΑΜΜΑ Π203 **********

20 REM * *

30 REM * Μέθοδος Newton-Raphson *

40 REM * *

50 REM ****************************************

60 CLS

70 EPS=.0000005

80 DEF FNF(X)=X*X-3*X+2 :DEF FNP(X)=2*X-3

90 INPUT "Δώσε μια αρχική τιμή του";X0

100 FOR N=1 TO 100

110 P=FNP(X0)

120 IF ABS(P)<EPS THEN GOTO 270

130 X=X0-FNF(X0)/P

140 IF ABS(X-X0)<EPS THEN GOTO 200

150 X0=X

160 NEXT N

170 PRINT"Με 100 επαναλήψεις δεν έχουμε σύγκλιση"

180 PRINT "Βρες το λάθος"

190 END

200 PRINT

210 PRINT "Η ρίζα είναι";X;"Αριθμός επαναλήψεων";N

220 PRINT :INPUT "Θέλεις άλλη ρίζα (N/O)" ;A$

230 IF A$="N" OR A$="n" THEN GOTO 250 ELSE END

240 PRINT

250 INPUT "Δώσε μια άλλη αρχική τιμή του x0";X0

260 GOTO 100

270 PRINT "Η παράγωγος f(";X0;")<EPS"

280 INPUT "Δώσε μια άλλη αρχική τιμή";X0

290 GOTO 100