home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
s85xx
/
s8507b.d64
/
nullst.-newton
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
332b
|
20 lines
100 REM NULLSTELLENSUCHE NACH NEWTON
110 PRINT"ITERATION NACH NEWTON"
120 PRINT" X"," F"
130 READX0:REM STARTWERT
140 X=X0:GOSUB220:F0=F:REM FUNKTIONSWERT
150 X=X0:GOSUB250:F1=FS:REM 1. ABLEITUNG
160 X1=X0-F0/F1
170 PRINTX1,F0
180 IFABS(X1-X0)<1E-6THENEND
190 X0=X1
200 GOTO140
210 REM FUNKTION
220 F=X^2-4
230 RETURN
240 REM 1. ABLEITUNG
250 FS=2*X
260 RETURN
270 REM STARTWERT
280 DATA3