: !b!=># #####᯾(~#>:> A(X)XXXX::::::::::::::::::::::::::::::::::::::::::::::::::::::::0,3,0,39:0,6:::10)"### SIMINT ###":L11("KC85/2"32)"9.8.1985";2" Integration nach der SIMPSON-Regel";<5,7,0,39:0,4:L1NF"Die zu integrierende Funktion lautet:";qPA$"":"F(X)=";A$:A$""1000Z9,13,8,31:0,3:L1d:"Eingabe der Grenzen"n"untere Grenze=";Ax"obere Grenze =";B15,16,4,35:0,5:L1"Anzahl der Teilintervalle=";N3N1(11);(11);:140aH(BA)N:H2H2:Q(A(A)A(B))2:XAH2rI1N:XXHQ2A(X):QQQ2Q2A(XH2):QQ3H18,20,8,31:0,2::"Ergebnis="Q:L10մ""220:ԙ:60TE55 :(517)1271040!IFPEEK(862)=0THENCALL-4096H(1916)TE407::ELSECALL-4096jIFPEEK(10846)=0THENCALL-4096IFPEEK(11900)<>TETHENCALL-4096$11021,42:11024,1757:11027,11069:2000,66:517,142.11984,TE:862,211:11900,TE:2B07:(11900)<>T