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