1 REM ***************************
2 REM * INTEGRAL.BAC            *
3 REM * VER 1.0 / 1982-09-08    *
4 REM * Gjort o. ins{nt av 2415 *
5 REM * Stig Rosenlund          *
6 REM * V{stmannagatan 93       *
7 REM * 113 43 Stockholm        *
8 REM * Tel. 08/331736          *
9 REM ***************************
600 REM MERGE med V[RD. [ndra 580 p} rad280 till 650.
605 REM Ber{kna R24=f(R23) p} rad 700   fram}t utan att {ndra R8,...,R23, 
610 REM \%,[%. Avsluta med RETURN. Pro- grammet integrerar f fr}n a till b.
615 REM f(x)kan vara odefinierad i a och b.
620 REM V{lj noggrannhet med antalet    delintervall H%. Integralen f}s p}
625 REM sk{rmen och i R21.
630 REM Referens :  Abramowitz & Stegun,
635 REM Handbook of Mathematical Func-  tions, s. 887, (25.4.26). 
640 DATA 460,-954,2196,-2459,2196,-954,460,945,0
650 ; "Hur m}nga intervall"; : INPUT H%
655 ; "a"; : INPUT B$ : I%=8% : GOSUB 330 : ; "b"; : INPUT B$ : I%=9% : GOSUB 330
660 S%=FN[%(10%,H%)+FND%(11%,9%,8%)+FNQ%(11%,11%,10%)+FNU%(45%,12%,11%,3%)
665 FOR I%=13% TO 21% : READ B$ : GOSUB 330
670 NEXT I% : FOR \%=0% TO H%-1% : S%=FN[%(23%,\%)+FNP%(23%,23%,11%)+FNS%(23%,23%,8%)+FN[%(22%,0%)
675 FOR [%=1% TO 7%
680 S%=FNS%(23%,23%,12%) : GOSUB 700 : S%=FNP%(10%,[%+12%,24%)+FNS%(22%,10%,22%) : NEXT [%
685 S%=FNS%(21%,21%,22%)
690 NEXT \% : S%=FNP%(21%,21%,11%)+FNQ%(21%,21%,20%) : I%=21% : GOSUB 450 : ; CHR$(7%);B$ : END