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