BISECT
FILE INFORMATION
FILENAME(S): BISECT
FILE TYPE(S): PRG
FILE SIZE: 800b
FIRST SEEN: 2025-11-30 21:12:51
APPEARS ON: 1 disk(s)
FILE HASH
984da3794bf5e03f50eadc06051e57afff805cef3f12769edc249a9152587ca7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR DISK | BISECT | PRG | DuncanTwain | 25 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 64 00 8F 20 53 41 4D 50 4C 45 20 50 |..".d.. SAMPLE P| 00000010: 52 4F 47 52 41 4D 20 54 4F 20 46 49 4E 44 20 54 |ROGRAM TO FIND T| 00000020: 48 45 00 3E 08 6E 00 8F 20 52 4F 4F 54 53 20 4F |HE.>.n.. ROOTS O| 00000030: 46 20 54 48 45 20 46 55 4E 43 54 49 4F 4E 00 44 |F THE FUNCTION.D| 00000040: 08 78 00 8F 00 5C 08 82 00 8F 20 59 3D 28 58 2D |.x...\.... Y=(X-| 00000050: 33 29 28 58 2D 31 29 28 58 2B 34 29 00 62 08 8C |3)(X-1)(X+4).b..| 00000060: 00 8F 00 89 08 96 00 8F 20 57 48 49 43 48 20 57 |........ WHICH W| 00000070: 45 20 4B 4E 4F 57 20 41 52 45 20 58 3D 31 2C 33 |E KNOW ARE X=1,3| 00000080: 2C 20 41 4E 44 20 2D 34 2E 00 8F 08 A0 00 8F 00 |, AND -4........| 00000090: B4 08 AA 00 8F 20 54 52 59 20 54 48 45 20 49 4E |..... TRY THE IN| 000000A0: 54 45 52 56 41 4C 53 20 28 30 2C 32 29 2C 20 28 |TERVALS (0,2), (| 000000B0: 32 2C 30 29 00 C6 08 B4 00 8F 20 41 4E 44 20 28 |2,0)...... AND (| 000000C0: 2D 35 2C 2D 33 29 00 CC 08 BE 00 3A 00 EB 08 C8 |-5,-3).....:....| 000000D0: 00 96 A5 46 28 58 29 20 B2 20 28 58 AB 33 29 AC |...F(X) . (X.3).| 000000E0: 28 58 AB 31 29 AC 28 58 AA 34 29 00 F1 08 D2 00 |(X.1).(X.4).....| 000000F0: 99 00 08 09 DC 00 85 22 4C 45 46 54 20 45 4E 44 |......."LEFT END| 00000100: 50 4F 49 4E 54 22 3B 41 00 20 09 E6 00 85 22 52 |POINT";A. ...."R| 00000110: 49 47 48 54 20 45 4E 44 50 4F 49 4E 54 22 3B 42 |IGHT ENDPOINT";B| 00000120: 00 34 09 F0 00 85 22 54 4F 4C 45 52 41 4E 43 45 |.4...."TOLERANCE| 00000130: 22 3B 54 4C 00 3A 09 FA 00 99 00 44 09 04 01 8D |";TL.:.....D....| 00000140: 20 33 38 30 00 80 09 0E 01 8B 20 45 52 B2 31 20 | 380...... ER.1 | 00000150: A7 20 99 20 22 4E 4F 20 5A 45 52 4F 20 57 41 53 |. . "NO ZERO WAS| 00000160: 20 46 4F 55 4E 44 20 42 45 54 57 45 45 4E 22 3B | FOUND BETWEEN";| 00000170: 41 3B 22 41 4E 44 22 3B 42 3A 20 89 20 32 31 30 |A;"AND";B: . 210| 00000180: 00 9F 09 18 01 99 20 22 52 4F 4F 54 20 49 53 20 |...... "ROOT IS | 00000190: 41 54 3A 22 3B 4D 49 44 3A 20 89 20 32 31 30 00 |AT:";MID: . 210.| 000001A0: A5 09 22 01 3A 00 C6 09 2C 01 8F 20 2A 2A 2A 2A |..".:...,.. ****| 000001B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000001C0: 2A 2A 2A 2A 2A 2A 00 CC 09 36 01 3A 00 ED 09 40 |******...6.:...@| 000001D0: 01 8F 20 42 49 53 45 43 54 20 53 55 42 52 4F 55 |.. BISECT SUBROU| 000001E0: 54 49 4E 45 2C 20 55 53 45 44 20 54 4F 00 0F 0A |TINE, USED TO...| 000001F0: 4A 01 8F 20 46 49 4E 44 20 54 48 45 20 5A 45 52 |J.. FIND THE ZER| 00000200: 4F 20 4F 46 20 41 20 46 55 4E 43 54 49 4F 4E 00 |O OF A FUNCTION.| 00000210: 32 0A 54 01 8F 20 42 45 54 57 45 45 4E 20 50 4F |2.T.. BETWEEN PO| 00000220: 49 4E 54 53 20 41 20 41 4E 44 20 42 2C 20 57 49 |INTS A AND B, WI| 00000230: 54 48 00 52 0A 5E 01 8F 20 54 4F 4C 45 52 41 4E |TH.R.^.. TOLERAN| 00000240: 43 45 20 54 4C 2E 20 20 49 46 20 4E 4F 20 5A 45 |CE TL. IF NO ZE| 00000250: 52 4F 00 66 0A 68 01 8F 20 45 58 49 53 54 53 2C |RO.f.h.. EXISTS,| 00000260: 20 45 52 3D 31 2E 00 6C 0A 72 01 8F 00 89 0A 7C | ER=1..l.r.....|| 00000270: 01 46 4C B2 A5 46 28 41 29 3A 20 46 52 B2 A5 46 |.FL..F(A): FR..F| 00000280: 28 42 29 3A 20 45 52 B2 30 00 A3 0A 86 01 8B 20 |(B): ER.0...... | 00000290: 46 4C AC 46 52 20 B1 20 30 20 A7 20 45 52 B2 31 |FL.FR . 0 . ER.1| 000002A0: 3A 20 8E 00 B5 0A 90 01 4D 49 44 20 B2 20 28 41 |: ......MID . (A| 000002B0: AA 42 29 AD 32 00 CE 0A 9A 01 8B 20 B6 28 41 AB |.B).2...... .(A.| 000002C0: 4D 49 44 29 20 B3 B2 20 54 4C 20 A7 20 8E 00 DF |MID) .. TL . ...| 000002D0: 0A A4 01 46 4D 20 B2 20 A5 46 28 4D 49 44 29 00 |...FM . .F(MID).| 000002E0: 01 0B AE 01 8B 20 46 4C AC 46 4D 20 B3 B2 20 30 |..... FL.FM .. 0| 000002F0: 20 A7 20 42 20 B2 20 4D 49 44 3A 20 89 20 34 30 | . B . MID: . 40| 00000300: 30 00 1D 0B B8 01 41 20 B2 20 4D 49 44 3A 20 46 |0.....A . MID: F| 00000310: 4C 20 B2 20 46 4D 3A 20 89 20 34 30 30 00 00 00 |L . FM: . 400...|
..".D.. SAMPLE PROGRAM TO FIND THE.>.N.. ROOTS OF THE FUNCTION.D.X...\.... Y=(X- 3)(X-1)(X+4).B.......... WHICH WE KNOW A RE X=1,3, AND -4.... ........ TRY THE IN TERVALS (0,2), (2,0).F.... AND (-5,-3).L ...:...H...F(X) . (X.3).(X.1).(X.4)...R. ......."LEFT ENDPOINT";A. ...."RIGHT END POINT";B.4...."TOLERANCE";TL.:.....D.... 380...... ER.1 . . "NO ZERO WAS FOUND B ETWEEN";A;"AND";B: . 210...... "ROOT IS AT:";MID: . 210...".:.F.,.. ************ **************.L.6.:...@.. BISECT SUBROU TINE, USED TO...J.. FIND THE ZERO OF A F UNCTION.2.T.. BETWEEN POINTS A AND B, WI TH.R.^.. TOLERANCE TL. IF NO ZERO.F.H.. EXISTS, ER=1..L.R.....|.FL..F(A): FR..F (B): ER.0...... FL.FR . 0 . ER.1: ...... MID . (A.B).2.N.... .(A.MID) .. TL . ... ...FM . .F(MID)...... FL.FM .. 0 . B . M ID: . 400.....A . MID: FL . FM: . 400...
> CLICK IMAGE PREVIEW FOR FULL MODAL