Sharp PC-E500/E500S Technikersoftware

NEWTON.122

Numerische Analyse (nach der Newtonsche Methode)

NEWTON.122 (1.310 Bytes)

10 ' NEWTON.122 (Newton's method)
15 CLEAR
20 MERGE "G:COMN.00$"
30 ON ERROR GOTO *ERR
40 GOSUB *CG
50 RADIAN :Q2=0.000001:Q3=0.00001:P5=30
60 GOSUB 900
70 PRINT "f(x)= ";R2$;:IF R2$<>"" THEN PRINT " ";
80 INPUT R2$:IF R2$="" THEN 60
90 IF LEN R2$<30 THEN P3$=R2$:GOTO 110
100 P3$=LEFT$ (R2$,30)+"..."
110 GOSUB 700:P7=0:PRINT " x0= ";:INPUT P7
120 GOSUB 900:PRINT "h=";Q3;:INPUT Q3:IF Q3<=0 THEN 120
130 GOSUB 900:PRINT "h=";Q3:PRINT " ";CHR$ &A5;"=";Q2;:INPUT Q2:IF Q2<1E-90 THEN 130
140 GOSUB 900:PRINT "h=";Q3:PRINT " ";CHR$ &A5;"=";Q2:PRINT " loop limit=";P5;:INPUT P5
150 IF P5-INT P5<>0 OR P5<=0 THEN 140
160 GOSUB 700:Q7=P7
170 GOSUB *DPC
180 FOR QI=1 TO P5
190 X=Q7:P3=EVAL R2$:X=Q3+Q7:R2=EVAL R2$:X=Q7-P3*Q3/(R2-P3)
200 IF Q2>=ABS (Q7-X) THEN 250
210 Q7=X:NEXT
220 GOSUB 800
230 GOSUB 700:LOCATE 1,3:PRINT "loop limit=";P5;:LOCATE 20,3:PRINT "Xn=";X
240 GOTO 270
250 QXQ=X:QYQ=INT LOG ABS Q2-1:GOSUB *RND:X=QXQ
260 LOCATE 0,3:PRINT QCL$;:LOCATE 1,3:PRINT "X=";X
270 GOSUB *REK:GOTO 60
700 GOSUB 900:PRINT "f(x)= ";P3$:RETURN
800 GOSUB 900:GOSUB *DPA:GOSUB *REK:RETURN
900 CLS :PRINT "* NUMERICAL SOLUTION (NEWTON'S METHOD) *":LOCATE 1,1:RETURN
1000 *ERR IF ERL =80 RESUME 60
1010 IF ERL =110 OR ERL =120 OR ERL =130 OR ERL =140 RESUME ERL
1020 GOSUB 800:RESUME 60

Generated by (c) Casio FX-850P/FX-880P Notepad 2.02

(c) by mani.becker@web.de - http://blog.manib.bplaced.net