|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC3600/RC7000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC3600/RC7000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 681 (0x2a9)
Types: TextFile
Names: »INTGR «
└─⟦3d9d2c4f1⟧ Bits:30001780 SG0000 Floppy
└─ ⟦this⟧ »/INTGR «
«ff» 0070 PRINT "OVERSUM","UNDERSUM","MIDDELSUM","DELING" 0080 PRINT 0090 READ A,B 0100 DATA -10,10 0110 DEF FNF(X)=1/(X^2+1) 0130 LET N=10 0140 LET D=(B-A)/N 0150 LET F2=FNF(A) 0160 LET O=0; U=0 0170 FOR X=A+D TO B STEP D 0180 LET F1=F2 0190 LET F2=FNF(X) 0200 IF F2>10^6 THEN GOTO 0350 0210 IF F1>F2 THEN GOTO 0250 0220 LET O=O+F2 0230 LET U=U+F1 0240 GOTO 0270 0250 LET O=O+F1 0260 LET U=U+F2 0270 NEXT X 0280 LET S2=O*D 0290 LET S1=U*D 0300 PRINT S2,S1,(S2+S1)/2,N 0320 IF S2-S1<.001 THEN GOTO 0360 0330 LET N=N*2 0340 GOTO 0140 0350 PRINT "DISKONTINUITET I INTERVALLET";A;"TIL";B