Sharp PC1360 Taschencomputer
 

 Sharp PC1360

Numerische Integration - Listing


Dokumentation ansehen
Programmspeicher-Image laden
Javascript-Programm


10 "J" WAIT 120:CLS :PRINT "NUMERISCHE INTEGRATION ** Simpsonnaeherung **":WAIT
20 CLS :INPUT "von ";A,"bis ";B,"n = ";N
30 IF N/2<>INT (N/2) LET N=N+1
40 H=(B-A)/N:I=0
50 X=A:GOSUB 150 :I=I+Y:X=B:GOSUB 150 :I=I+Y
60 FOR X=A+H TO B-H STEP 2*H
70 GOSUB 150 :I=I+4*Y
80 NEXT X
90 FOR X=A+2*H TO B-2*H STEP 2*H
100 GOSUB 150 :I=I+2*Y
110 NEXT X
120 BEEP 1
130 PRINT "I = ";I*H/3
140 CLS :END
150 Y=X
160 RETURN


Dokumentation ansehen
Programmspeicher-Image laden
Javascript-Programm



Zur Übersichtstabelle



Home
Falls diese Seite ohne Navigationsleiste angezeigt wird, aktivieren Sie Javascript oder klicken Sie hier!