home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8507b.d64 / kepler.fassregel (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  325b  |  17 lines
  1. 100 REM INTEGRATION NACH KEPLER
  2. 110 PRINT"KEPLERSCHE FASSREGEL"
  3. 120 INPUT"INTERERVALLGRENZEN";A,B
  4. 130 IFB<=ATHENPRINT"FALSCHE EINGABE!":GOTO120
  5. 140 REM BERECHNUNG DES GENAEHERTEN INTEGRALWERTES
  6. 150 X=A:GOSUB240
  7. 160 I=I+F/6
  8. 170 X=B:GOSUB240
  9. 180 I=I+F/6
  10. 190 X=(A+B)/2:GOSUB240
  11. 200 I=I+F*2/3:I=I*(B-A)
  12. 210 REM AUSGABE
  13. 220 PRINT"ERGEBNIS=";I
  14. 230 END
  15. 240 F=X*X*2
  16. 250 RETURN
  17.