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