SIMPSON'S RULE
FILE INFORMATION
FILENAME(S): SIMPSON'S RULE
FILE TYPE(S): PRG
FILE SIZE: 962b
FIRST SEEN: 2025-11-30 21:12:51
APPEARS ON: 1 disk(s)
FILE HASH
b00ccabd2d0ec0f36d7f1db43ce867d278a00ec66f532579b437591a03bc871d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR DISK | SIMPSON'S RULE | PRG | DuncanTwain | 25 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 27 04 64 00 8F 20 50 52 4F 47 52 41 4D 20 |..'.d.. PROGRAM | 00000010: 45 58 41 4D 50 4C 45 20 55 53 49 4E 47 20 53 49 |EXAMPLE USING SI| 00000020: 4D 50 53 4F 4E 27 53 00 49 04 6E 00 8F 20 52 55 |MPSON'S.I.n.. RU| 00000030: 4C 45 20 54 4F 20 46 49 4E 44 20 54 48 45 20 41 |LE TO FIND THE A| 00000040: 52 45 41 20 55 4E 44 45 52 00 59 04 78 00 8F 20 |REA UNDER.Y.x.. | 00000050: 54 48 45 20 43 55 52 56 45 00 5F 04 82 00 8F 00 |THE CURVE._.....| 00000060: 79 04 8C 00 8F 20 20 20 20 20 59 20 3D 20 31 20 |y.... Y = 1 | 00000070: 2B 20 58 20 2B 20 58 5E 32 00 7F 04 96 00 8F 00 |+ X + X^2.......| 00000080: A1 04 A0 00 8F 20 46 52 4F 4D 20 58 3D 30 20 54 |..... FROM X=0 T| 00000090: 4F 20 58 3D 32 2E 20 20 42 59 20 44 49 52 45 43 |O X=2. BY DIREC| 000000A0: 54 00 C1 04 AA 00 8F 20 49 4E 54 45 47 52 41 54 |T...... INTEGRAT| 000000B0: 49 4F 4E 20 54 48 45 20 41 4E 53 57 45 52 20 57 |ION THE ANSWER W| 000000C0: 45 00 E3 04 B4 00 8F 20 53 48 4F 55 4C 44 20 47 |E...... SHOULD G| 000000D0: 45 54 20 57 49 4C 4C 20 42 45 20 32 30 2F 33 2C |ET WILL BE 20/3,| 000000E0: 20 4F 52 00 F9 04 BE 00 8F 20 41 50 50 52 4F 58 | OR...... APPROX| 000000F0: 2E 20 36 2E 36 36 36 36 37 00 FF 04 C8 00 8F 00 |. 6.66667.......| 00000100: 1F 05 D2 00 8F 20 46 49 52 53 54 20 44 45 46 49 |..... FIRST DEFI| 00000110: 4E 45 20 54 48 45 20 46 55 4E 43 54 49 4F 4E 00 |NE THE FUNCTION.| 00000120: 25 05 DC 00 3A 00 3D 05 E6 00 96 A5 46 28 58 29 |%...:.=.....F(X)| 00000130: B2 20 31 20 AA 20 58 20 AA 20 58 AC 58 00 43 05 |. 1 . X . X.X.C.| 00000140: F0 00 3A 00 64 05 FA 00 8F 20 4E 4F 57 20 43 41 |..:.d.... NOW CA| 00000150: 4C 4C 20 54 48 45 20 53 55 42 52 4F 55 54 49 4E |LL THE SUBROUTIN| 00000160: 45 20 54 4F 00 78 05 04 01 8F 20 46 49 4E 44 20 |E TO.x.... FIND | 00000170: 54 48 45 20 41 52 45 41 00 7E 05 0E 01 3A 00 9F |THE AREA.~...:..| 00000180: 05 18 01 41 20 B2 20 30 3A 20 42 20 B2 20 32 3A |...A . 0: B . 2:| 00000190: 20 4E 50 20 B2 20 31 36 3A 20 8D 20 34 35 30 00 | NP . 16: . 450.| 000001A0: C7 05 22 01 99 20 22 54 48 45 20 41 52 45 41 20 |..".. "THE AREA | 000001B0: 46 52 4F 4D 22 3B 41 3B 22 54 4F 22 3B 42 3B 22 |FROM";A;"TO";B;"| 000001C0: 49 53 3A 22 3B 41 52 00 CD 05 2C 01 80 00 D3 05 |IS:";AR...,.....| 000001D0: 36 01 3A 00 D9 05 40 01 8F 00 FD 05 4A 01 8F 20 |6.:...@.....J.. | 000001E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000001F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 03 06 |*************...| 00000200: 54 01 8F 00 23 06 5E 01 8F 20 53 49 4D 50 53 4F |T...#.^.. SIMPSO| 00000210: 4E 27 53 20 52 55 4C 45 20 53 55 42 52 4F 55 54 |N'S RULE SUBROUT| 00000220: 49 4E 45 00 29 06 68 01 8F 00 50 06 72 01 8F 20 |INE.).h...P.r.. | 00000230: 52 45 54 55 52 4E 53 20 54 48 45 20 41 52 45 41 |RETURNS THE AREA| 00000240: 20 55 4E 44 45 52 20 54 48 45 20 43 55 52 56 45 | UNDER THE CURVE| 00000250: 00 75 06 7C 01 8F 20 44 45 46 49 4E 45 44 20 42 |.u.|.. DEFINED B| 00000260: 59 20 46 4E 46 2C 20 46 52 4F 4D 20 45 4E 44 50 |Y FNF, FROM ENDP| 00000270: 4F 49 4E 54 53 00 9A 06 86 01 8F 20 41 20 54 4F |OINTS...... A TO| 00000280: 20 42 2E 20 20 53 45 54 20 4E 50 20 54 4F 20 54 | B. SET NP TO T| 00000290: 48 45 20 44 45 53 49 52 45 44 00 BD 06 90 01 8F |HE DESIRED......| 000002A0: 20 4E 55 4D 42 45 52 20 4F 46 20 49 4E 54 45 47 | NUMBER OF INTEG| 000002B0: 52 41 54 49 4F 4E 20 50 41 4E 45 4C 53 00 C3 06 |RATION PANELS...| 000002C0: 9A 01 8F 00 E9 06 A4 01 8F 20 54 48 45 20 41 52 |......... THE AR| 000002D0: 45 41 20 49 53 20 52 45 54 55 52 4E 45 44 20 41 |EA IS RETURNED A| 000002E0: 53 20 41 20 56 41 4C 55 45 00 04 07 AE 01 8F 20 |S A VALUE...... | 000002F0: 49 4E 20 54 48 45 20 56 41 52 49 41 42 4C 45 20 |IN THE VARIABLE | 00000300: 27 41 52 27 00 0A 07 B8 01 8F 00 2F 07 C2 01 48 |'AR'......./...H| 00000310: B2 28 42 AB 41 29 AD 28 32 AC 4E 50 29 3A 20 53 |.(B.A).(2.NP): S| 00000320: 45 B2 30 3A 20 53 4F B2 A5 46 28 41 AA 48 29 00 |E.0: SO..F(A.H).| 00000330: 42 07 CC 01 81 20 49 20 B2 20 31 20 A4 20 4E 50 |B.... I . 1 . NP| 00000340: AB 31 00 56 07 D6 01 3A 20 58 20 B2 20 41 20 AA |.1.V...: X . A .| 00000350: 20 32 AC 49 AC 48 00 6C 07 E0 01 3A 20 53 45 20 | 2.I.H.l...: SE | 00000360: B2 20 53 45 20 AA 20 A5 46 28 58 29 00 84 07 EA |. SE . .F(X)....| 00000370: 01 3A 20 53 4F 20 B2 20 53 4F 20 AA 20 A5 46 28 |.: SO . SO . .F(| 00000380: 58 AA 48 29 00 8C 07 F4 01 82 20 49 00 B9 07 FE |X.H)...... I....| 00000390: 01 41 52 20 B2 20 28 48 AD 33 29 AC 28 A5 46 28 |.AR . (H.3).(.F(| 000003A0: 41 29 20 AA 20 34 AC 53 4F 20 AA 20 32 AC 53 45 |A) . 4.SO . 2.SE| 000003B0: 20 AA 20 A5 46 28 42 29 29 00 BF 07 08 02 8E 00 | . .F(B)).......| 000003C0: 00 00 |.. |
..'.D.. PROGRAM EXAMPLE USING SIMPSON'S. I.N.. RULE TO FIND THE AREA UNDER.Y.X.. THE CURVE._.....Y.... Y = 1 + X + X^ 2........ .. FROM X=0 TO X=2. BY DIREC T.A.... INTEGRATION THE ANSWER WE...... SHOULD GET WILL BE 20/3, OR...... APPROX . 6.66667...H.....R.. FIRST DEFINE THE F UNCTION.%...:.=.....F(X). 1 . X . X.X.C. ..:.D.... NOW CALL THE SUBROUTINE TO.X.. .. FIND THE AREA.~...:.....A . 0: B . 2: NP . 16: . 450.G.".. "THE AREA FROM";A; "TO";B;"IS:";AR.M.,...S.6.:.Y.@.....J.. *****************************...T...#.^. . SIMPSON'S RULE SUBROUTINE.).H...P.R.. RETURNS THE AREA UNDER THE CURVE.U.|.. D EFINED BY FNF, FROM ENDPOINTS...... A TO B. SET NP TO THE DESIRED...... NUMBER OF INTEGRATION PANELS.C.......... THE AR EA IS RETURNED AS A VALUE...... IN THE V ARIABLE 'AR'......./.B.H.(B.A).(2.NP): S E.0: SO..F(A.H).B.L.. I . 1 . NP.1.V.V.: X . A . 2.I.H.L...: SE . SE . .F(X).... .: SO . SO . .F(X.H)...... I.....AR . (H .3).(.F(A) . 4.SO . 2.SE . .F(B))....... ..
> CLICK IMAGE PREVIEW FOR FULL MODAL