|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »SIMPSON.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SIMPSON.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SIMPSON.K«
0010 // -------------------------- simpson ----------------------------- 0020 // Simpsontilnærmelse til et interval ved fortsat intervalhalvering, 0030 // Integranden skal angives i linie 50 0040 PROC FNF(X) 0050 FNF:=EXP(X) 0060 ENDPROC FNF 0070 // 0080 CLEAR 0090 INPUT "Indtast venstre og højre intervalpunkt: ":A,B 0100 INPUT "Indtast antal intervalhalveringer: ":ANTALHALVERING 0110 PRINT 0120 PRINT "Højre intervalendepunkt: ";A 0130 PRINT 0140 PRINT "Venstre intervalendepunkt: ";B 0150 PRINT 0160 PRINT "Der benyttes ";ANTALHALVERING;" intervalhalveringer." 0170 PRINT 0180 PRINT 0190 PRINT "Intervalantal Simpsontilnærmelse" 0200 PRINT 0210 FOR J:=0 TO ANTALHALVERING DO 0220 SUM1:=0;SUM2:=0 0230 H:=(B-A)/2**J 0240 FOR I:=1 TO 2**J-1 DO 0250 SUM1:=SUM1+FNF(A+H*I) 0260 NEXT I 0270 FOR I:=1 TO 2**J DO 0280 SUM2:=SUM2+FNF(A+(2*I-1)*H/2) 0290 NEXT I 0295 SUM:=FNF(A) 0300 SUM:=(SUM+FNF(B)+4*SUM2+2*SUM1)*H/6 0310 PRINT USING " ##### ###########.#######":2**J,SUM 0320 NEXT J
0x000…04a Line {l1=0x48, l2=»0010 // -------------------------- simpson -----------------------------«, l3=0x48}
0x04a…095 Line {l1=0x49, l2=»0020 // Simpsontilnærmelse til et interval ved fortsat intervalhalvering,«, l3=0x49}
0x095…0c2 Line {l1=0x2b, l2=»0030 // Integranden skal angives i linie 50«, l3=0x2b}
0x0c2…0d4 Line {l1=0x10, l2=»0040 PROC FNF(X)«, l3=0x10}
0x0d4…0e6 Line {l1=0x10, l2=»0050 FNF:=EXP(X)«, l3=0x10}
0x0e6…0f8 Line {l1=0x10, l2=»0060 ENDPROC FNF«, l3=0x10}
0x0f8…102 Line {l1=0x08, l2=»0070 // «, l3=0x08}
0x102…10f Line {l1=0x0b, l2=»0080 CLEAR «, l3=0x0b}
0x10f…14b Line {l1=0x3a, l2=»0090 INPUT "Indtast venstre og højre intervalpunkt: ":A,B«, l3=0x3a}
0x14b…192 Line {l1=0x45, l2=»0100 INPUT "Indtast antal intervalhalveringer: ":ANTALHALVERING«, l3=0x45}
0x192…19f Line {l1=0x0b, l2=»0110 PRINT «, l3=0x0b}
0x19f…1cc Line {l1=0x2b, l2=»0120 PRINT "Højre intervalendepunkt: ";A«, l3=0x2b}
0x1cc…1d9 Line {l1=0x0b, l2=»0130 PRINT «, l3=0x0b}
0x1d9…206 Line {l1=0x2b, l2=»0140 PRINT "Venstre intervalendepunkt: ";B«, l3=0x2b}
0x206…213 Line {l1=0x0b, l2=»0150 PRINT «, l3=0x0b}
0x213…256 Line {l1=0x41, l2=»0160 PRINT "Der benyttes ";ANTALHALVERING;" intervalhalveringer."«, l3=0x41}
0x256…263 Line {l1=0x0b, l2=»0170 PRINT «, l3=0x0b}
0x263…270 Line {l1=0x0b, l2=»0180 PRINT «, l3=0x0b}
0x270…2aa Line {l1=0x38, l2=»0190 PRINT "Intervalantal Simpsontilnærmelse"«, l3=0x38}
0x2aa…2b7 Line {l1=0x0b, l2=»0200 PRINT «, l3=0x0b}
0x2b7…2dc Line {l1=0x23, l2=»0210 FOR J:=0 TO ANTALHALVERING DO «, l3=0x23}
0x2dc…2f2 Line {l1=0x14, l2=»0220 SUM1:=0;SUM2:=0«, l3=0x14}
0x2f2…306 Line {l1=0x12, l2=»0230 H:=(B-A)/2**J«, l3=0x12}
0x306…323 Line {l1=0x1b, l2=»0240 FOR I:=1 TO 2**J-1 DO «, l3=0x1b}
0x323…33f Line {l1=0x1a, l2=»0250 SUM1:=SUM1+FNF(A+H*I)«, l3=0x1a}
0x33f…34c Line {l1=0x0b, l2=»0260 NEXT I«, l3=0x0b}
0x34c…367 Line {l1=0x19, l2=»0270 FOR I:=1 TO 2**J DO «, l3=0x19}
0x367…38b Line {l1=0x22, l2=»0280 SUM2:=SUM2+FNF(A+(2*I-1)*H/2)«, l3=0x22}
0x38b…398 Line {l1=0x0b, l2=»0290 NEXT I«, l3=0x0b}
0x398…3aa Line {l1=0x10, l2=»0295 SUM:=FNF(A)«, l3=0x10}
0x3aa…3d4 Line {l1=0x28, l2=»0300 SUM:=(SUM+FNF(B)+4*SUM2+2*SUM1)*H/6«, l3=0x28}
0x3d4…41b Line {l1=0x45, l2=»0310 PRINT USING " ##### ###########.#######":2**J,SUM«, l3=0x45}
0x41b…428 Line {l1=0x0b, l2=»0320 NEXT J«, l3=0x0b}
0x428…440 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccccccc┆
0x440…460 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x2c…]