INTEGRATION .SB
FILE INFORMATION
FILENAME(S): INTEGRATION .SB
FILE TYPE(S): PRG
FILE SIZE: 1.7K
FIRST SEEN: 2025-10-20 14:30:27
APPEARS ON: 1 disk(s)
FILE HASH
60f2fd18b5b59f1c82ff2a7decdf85ca5d1075601c75fed3ae170de96f10a099
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SCIENTIFIC BASIC | INTEGRATION .SB | PRG | Treasure Chest - Klaus Der Suhler | 19 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..%.... ********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 00 49 08 14 00 8F 20 2A 20 20 20 |*****.I.... * | 00000030: 20 52 4F 4D 42 45 52 47 2D 49 4E 54 45 47 52 41 | ROMBERG-INTEGRA| 00000040: 54 49 4F 4E 20 20 20 20 2A 00 6D 08 1E 00 8F 20 |TION *.m.... | 00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 91 08 |*************...| 00000070: 28 00 8F 20 31 37 2E 30 37 2E 31 39 38 37 20 20 |(.. 17.07.1987 | 00000080: 20 20 20 4D 41 52 54 49 4E 20 41 48 4C 42 4F 52 | MARTIN AHLBOR| 00000090: 4E 00 97 08 32 00 3A 00 A8 08 50 00 99 22 93 22 |N...2.:...P.."."| 000000A0: 3A 9B 20 31 30 AB 33 30 00 DE 08 5A 00 86 20 54 |:. 10.30...Z.. T| 000000B0: 28 31 35 2C 31 29 20 3A 8F 20 4C 45 54 5A 54 45 |(15,1) :. LETZTE| 000000C0: 20 32 20 5A 45 49 4C 45 4E 20 44 45 53 20 52 4F | 2 ZEILEN DES RO| 000000D0: 4D 42 45 52 47 2D 54 41 42 4C 45 41 55 53 00 F6 |MBERG-TABLEAUS..| 000000E0: 08 64 00 85 22 C6 55 4E 4B 54 49 4F 4E 20 46 28 |.d..".UNKTION F(| 000000F0: 58 29 22 3B 46 24 00 06 09 6E 00 96 20 A5 20 46 |X)";F$...n.. . F| 00000100: 28 58 29 B7 46 24 00 27 09 78 00 85 22 11 55 4E |(X).F$.'.x..".UN| 00000110: 54 45 52 45 20 C9 4E 54 45 52 56 41 4C 4C 47 52 |TERE .NTERVALLGR| 00000120: 45 4E 5A 45 22 3B 41 00 48 09 7D 00 85 20 22 4F |ENZE";A.H.}.. "O| 00000130: 42 45 52 45 20 20 C9 4E 54 45 52 56 41 4C 4C 47 |BERE .NTERVALLG| 00000140: 52 45 4E 5A 45 22 3B 42 00 76 09 82 00 99 22 11 |RENZE";B.v....".| 00000150: C7 45 42 45 4E 20 D3 49 45 20 44 49 45 20 C1 4E |.EBEN .IE DIE .N| 00000160: 5A 41 48 4C 20 4B 20 5A 55 20 42 45 52 45 43 48 |ZAHL K ZU BERECH| 00000170: 4E 45 4E 44 45 52 00 9D 09 8C 00 99 22 D3 50 41 |NENDER......".PA| 00000180: 4C 54 45 4E 20 44 45 53 20 D2 4F 4D 42 45 52 47 |LTEN DES .OMBERG| 00000190: 2D D4 41 42 4C 45 41 55 53 20 41 4E 2E 00 C9 09 |-.ABLEAUS AN....| 000001A0: 96 00 99 22 4B 20 44 41 52 46 20 4D 41 58 49 4D |..."K DARF MAXIM| 000001B0: 41 4C 20 31 35 20 53 45 49 4E 20 28 D2 45 43 48 |AL 15 SEIN (.ECH| 000001C0: 45 4E 5A 45 49 54 21 29 2E 00 F5 09 A0 00 99 22 |ENZEIT!)......."| 000001D0: C2 45 49 20 D0 4F 4C 59 4E 4F 4D 45 4E 20 56 4F |.EI .OLYNOMEN VO| 000001E0: 4D 20 C7 52 41 44 20 4E 20 57 49 52 44 20 12 45 |M .RAD N WIRD .E| 000001F0: 58 41 4B 54 92 00 1C 0A AA 00 99 22 49 4E 54 45 |XAKT......."INTE| 00000200: 47 52 49 45 52 54 2C 20 57 45 4E 4E 20 4B 3D 28 |GRIERT, WENN K=(| 00000210: 4E 2D 31 29 44 49 56 32 20 2B 31 2E 00 27 0A B4 |N-1)DIV2 +1..'..| 00000220: 00 85 22 4B 22 3B 4B 00 46 0A C8 00 99 22 11 D4 |.."K";K.F...."..| 00000230: 41 42 4C 45 41 55 20 41 55 53 47 45 42 45 4E 3F |ABLEAU AUSGEBEN?| 00000240: 20 28 4A 2F 4E 29 00 58 0A D2 00 EB 3A A1 20 41 | (J/N).X....:. A| 00000250: 24 3A F2 20 EF DB 41 24 00 73 0A DC 00 8B 20 41 |$:. ..A$.s.... A| 00000260: 24 B7 22 4A 22 A7 20 41 25 B7 AB 31 3A F1 20 41 |$."J". A%..1:. A| 00000270: 25 B7 30 00 79 0A 22 01 3A 00 87 0A 2C 01 8D 2E |%.0.y.".:...,...| 00000280: 52 4F 4D 42 45 52 47 00 9C 0A 36 01 99 22 11 C9 |ROMBERG...6.."..| 00000290: 4E 54 45 47 52 41 4C 3D 20 22 3B 59 00 A2 0A 58 |NTEGRAL= ";Y...X| 000002A0: 02 80 00 A8 0A E7 03 3A 00 B5 0A E8 03 2E 52 4F |.......:......RO| 000002B0: 4D 42 45 52 47 00 DA 0A F2 03 8F 20 2D 2D 2D 2D |MBERG...... ----| 000002C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000002D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 FA 0A FC 03 8F |----------......| 000002E0: 20 20 20 55 50 20 20 52 4F 4D 42 45 52 47 2D 49 | UP ROMBERG-I| 000002F0: 4E 54 45 47 52 41 54 49 4F 4E 00 0B 0B 06 04 8F |NTEGRATION......| 00000300: 20 50 41 52 41 4D 45 54 45 52 3A 00 2D 0B 10 04 | PARAMETER:.-...| 00000310: 8F 20 41 2C 42 20 20 20 20 20 49 4E 54 45 47 52 |. A,B INTEGR| 00000320: 41 54 49 4F 4E 53 47 52 45 4E 5A 45 4E 00 50 0B |ATIONSGRENZEN.P.| 00000330: 1A 04 8F 20 46 4E 20 46 28 58 29 20 5A 55 20 49 |... FN F(X) ZU I| 00000340: 4E 54 45 52 49 45 52 45 4E 44 45 20 46 4B 54 2E |NTERIERENDE FKT.| 00000350: 00 75 0B 24 04 8F 20 4B 20 20 20 20 20 20 20 41 |.u.$.. K A| 00000360: 4E 5A 41 48 4C 20 5A 55 20 42 45 52 45 43 48 4E |NZAHL ZU BERECHN| 00000370: 45 4E 44 45 52 00 98 0B 2E 04 8F 20 20 20 20 20 |ENDER...... | 00000380: 20 20 20 20 53 50 41 4C 54 45 4E 20 44 45 53 20 | SPALTEN DES | 00000390: 54 41 42 4C 45 41 55 53 00 BD 0B 38 04 8F 20 54 |TABLEAUS...8.. T| 000003A0: 28 4B 2C 31 29 20 20 32 20 5A 45 49 4C 45 4E 20 |(K,1) 2 ZEILEN | 000003B0: 44 45 53 20 54 41 42 4C 45 41 55 53 2E 00 E2 0B |DES TABLEAUS....| 000003C0: 42 04 8F 20 41 25 20 20 20 20 20 20 46 4C 41 47 |B.. A% FLAG| 000003D0: 20 46 2E 20 41 55 53 47 41 42 45 20 28 30 2F 2D | F. AUSGABE (0/-| 000003E0: 31 29 00 FA 0B 4C 04 8F 20 41 42 42 52 55 43 48 |1)...L.. ABBRUCH| 000003F0: 4B 52 49 54 45 52 49 55 4D 3A 00 14 0C 56 04 8F |KRITERIUM:...V..| 00000400: 20 20 20 20 41 45 4E 44 45 52 55 4E 47 20 3C 3D | AENDERUNG <=| 00000410: 20 45 50 53 00 33 0C 60 04 8F 20 45 52 47 45 42 | EPS.3.`.. ERGEB| 00000420: 4E 49 53 3A 20 59 3D 49 4E 54 45 47 52 41 4C 57 |NIS: Y=INTEGRALW| 00000430: 45 52 54 00 58 0C 6A 04 8F 20 2D 2D 2D 2D 2D 2D |ERT.X.j.. ------| 00000440: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000450: 2D 2D 2D 2D 2D 2D 2D 2D 00 74 0C B0 04 45 50 53 |--------.t...EPS| 00000460: B7 31 45 AB 35 20 3A 8F 20 47 45 4E 41 55 49 47 |.1E.5 :. GENAUIG| 00000470: 4B 45 49 54 00 91 0C BA 04 48 B7 42 AB 41 20 20 |KEIT.....H.B.A | 00000480: 20 20 3A 8F 20 31 2E 20 49 4E 54 45 52 56 41 4C | :. 1. INTERVAL| 00000490: 4C 00 AC 0C C4 04 41 4C 54 B7 30 3A 4E 45 55 B7 |L.....ALT.0:NEU.| 000004A0: 31 20 3A 8F 20 49 4E 44 49 5A 45 53 00 DC 0C CE |1 :. INDIZES....| 000004B0: 04 54 28 30 2C 41 4C 54 29 B7 48 AD 32 AC 28 A5 |.T(0,ALT).H.2.(.| 000004C0: 46 28 41 29 AA A5 46 28 42 29 29 20 3A 8F 20 31 |F(A)..F(B)) :. 1| 000004D0: 2E 54 52 41 50 45 5A 53 55 4D 4D 45 00 F7 0C D8 |.TRAPEZSUMME....| 000004E0: 04 8B 20 41 25 20 A7 20 F9 20 D5 35 3A 99 20 54 |.. A% . . .5:. T| 000004F0: 28 30 2C 41 4C 54 29 00 07 0D DD 04 81 20 49 B7 |(0,ALT)...... I.| 00000500: 31 20 A4 20 31 45 39 00 28 0D E2 04 8F 20 4E 45 |1 . 1E9.(.... NE| 00000510: 55 45 20 54 52 41 50 45 5A 53 55 4D 4D 45 20 42 |UE TRAPEZSUMME B| 00000520: 45 52 45 43 48 4E 45 4E 00 32 0D EC 04 53 55 4D |ERECHNEN.2...SUM| 00000530: B7 30 00 47 0D F6 04 81 20 49 49 B7 31 20 A4 20 |.0.G.... II.1 . | 00000540: 32 AE 28 49 AB 31 29 00 64 0D 00 05 53 55 4D B7 |2.(I.1).d...SUM.| 00000550: 53 55 4D AA A5 20 46 28 41 AA 48 AC 28 49 49 AB |SUM.. F(A.H.(II.| 00000560: 2E 35 29 29 00 6A 0D 0A 05 82 00 8A 0D 14 05 54 |.5)).j.........T| 00000570: 28 30 2C 4E 45 55 29 B7 28 54 28 30 2C 41 4C 54 |(0,NEU).(T(0,ALT| 00000580: 29 AA 48 AC 53 55 4D 29 AD 32 00 A1 0D 1E 05 8B |).H.SUM).2......| 00000590: 20 41 25 20 A7 20 99 20 54 28 30 2C 4E 45 55 29 | A% . . T(0,NEU)| 000005A0: 3B 00 C4 0D 28 05 48 B7 48 AD 32 20 20 3A 8F 20 |;...(.H.H.2 :. | 000005B0: 48 41 4C 42 49 45 52 54 45 20 49 4E 54 45 52 56 |HALBIERTE INTERV| 000005C0: 41 4C 4C 45 00 DE 0D 3C 05 8B 20 49 B8 4B 20 A7 |ALLE...<.. I.K .| 000005D0: 20 4D 49 4E B7 49 3A F1 20 4D 49 4E B7 4B 00 EE | MIN.I:. MIN.K..| 000005E0: 0D 46 05 81 20 4A B7 31 20 A4 20 4D 49 4E 00 1F |.F.. J.1 . MIN..| 000005F0: 0E 50 05 54 28 4A 2C 4E 45 55 29 B7 28 34 AE 4A |.P.T(J,NEU).(4.J| 00000600: AC 54 28 4A AB 31 2C 4E 45 55 29 AB 54 28 4A AB |.T(J.1,NEU).T(J.| 00000610: 31 2C 41 4C 54 29 29 AD 28 34 AE 4A AB 31 29 00 |1,ALT)).(4.J.1).| 00000620: 36 0E 5A 05 8B 20 41 25 20 A7 20 99 20 54 28 4A |6.Z.. A% . . T(J| 00000630: 2C 4E 45 55 29 3B 00 3E 0E 64 05 82 20 4A 00 4B |,NEU);.>.d.. J.K| 00000640: 0E 6E 05 8B 20 41 25 20 A7 20 99 00 6A 0E 78 05 |.n.. A% . ..j.x.| 00000650: 8F 20 41 42 42 52 55 43 48 4B 52 49 54 45 52 49 |. ABBRUCHKRITERI| 00000660: 55 4D 20 50 52 55 45 46 45 4E 00 9B 0E 96 05 8B |UM PRUEFEN......| 00000670: 20 49 B6 B7 4B 20 A7 20 EF 20 BC 28 54 28 4B 2C | I..K . . .(T(K,| 00000680: 4E 45 55 29 AB 54 28 4B AA 28 49 B7 4B 29 2C 41 |NEU).T(K.(I.K),A| 00000690: 4C 54 29 29 20 B8 B7 20 45 50 53 00 A9 0E B4 05 |LT)) .. EPS.....| 000006A0: F4 20 41 4C 54 2C 4E 45 55 00 B1 0E BE 05 82 20 |. ALT,NEU...... | 000006B0: 49 00 C0 0E DC 05 59 B7 54 28 4B 2C 4E 45 55 29 |I.....Y.T(K,NEU)| 000006C0: 00 C8 0E E6 05 F9 20 4E 00 CE 0E F0 05 8E 00 00 |...... N........| 000006D0: 00 |. |
..%.... *****************************.I. ... * ROMBERG-INTEGRATION *.M.... *****************************...(.. 17.0 7.1987 MARTIN AHLBORN...2.:...P.."." :. 10.30...Z.. T(15,1) :. LETZTE 2 ZEILE N DES ROMBERG-TABLEAUS...D.."FUNKTION F( X)";F$...N.. . F(X).F$.'.X..".UNTERE INT ERVALLGRENZE";A.H.}.. "OBERE INTERVALLG RENZE";B.V....".GEBEN SIE DIE ANZAHL K Z U BERECHNENDER......"SPALTEN DES ROMBERG -TABLEAUS AN..I...."K DARF MAXIMAL 15 SE IN (RECHENZEIT!).... .."BEI POLYNOMEN VO M GRAD N WIRD .EXAKT......."INTEGRIERT, WENN K=(N-1)DIV2 +1..'...."K";K.F.H..".T ABLEAU AUSGEBEN? (J/N).X.R..:. A$:. ..A$ .S.... A$."J". A%..1:. A%.0.Y.".:...,... ROMBERG...6..".INTEGRAL= ";Y...X.......: ......ROMBERG.Z.... -------------------- ----------...... UP ROMBERG-INTEGRATI ON...... PARAMETER:.-.... A,B INTEGR ATIONSGRENZEN.P.... FN F(X) ZU INTERIERE NDE FKT..U.$.. K ANZAHL ZU BERECHN ENDER...... SPALTEN DES TABLEAUS ...8.. T(K,1) 2 ZEILEN DES TABLEAUS.... B.. A% FLAG F. AUSGABE (0/-1)...L.. ABBRUCHKRITERIUM:...V.. AENDERUNG <= EPS.3.`.. ERGEBNIS: Y=INTEGRALWERT.X.J. . ------------------------------.T...EPS .1E.5 :. GENAUIGKEIT.....H.B.A :. 1. INTERVALL...D.ALT.0:NEU.1 :. INDIZES...N .T(0,ALT).H.2.(.F(A)..F(B)) :. 1.TRAPEZS UMME...X.. A% . . U5:. T(0,ALT)...... I. 1 . 1E9.(.... NEUE TRAPEZSUMME BERECHNEN .2...SUM.0.G.... II.1 . 2.(I.1).D...SUM. SUM.. F(A.H.(II..5)).J.........T(0,NEU). (T(0,ALT).H.SUM).2...... A% . . T(0,NEU) ;.D.(.H.H.2 :. HALBIERTE INTERVALLE...< .. I.K . MIN.I:. MIN.K...F.. J.1 . MIN.. .P.T(J,NEU).(4.J.T(J.1,NEU).T(J.1,ALT)). (4.J.1).6.Z.. A% . . T(J,NEU);.>.D.. J.K .N.. A% . ..J.X.. ABBRUCHKRITERIUM PRUEF EN...... I..K . . .(T(K,NEU).T(K.(I.K),A LT)) .. EPS...... ALT,NEU...... I.....Y. T(K,NEU).H.... N.N.......
> CLICK IMAGE PREVIEW FOR FULL MODAL