home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: ArcFS Archive
(archive/arcFS).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| ArcFS Archive (archive/arcFS)
| magic
| Supported |
| 100%
| file
| RISC OS archive (ArcFS format)
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Acorn ArcFS Archive
| default
| |
| 100%
| gt2
| Kopftext: 'Archive'
| default (weak)
| |
| 100%
| detectItEasy
| Archive: ArcFS
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | d8 00 00 00 54 03 00 00 |Archive.|....T...|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 47 72 61 53 6f 72 74 | 00 00 00 00 25 19 00 00 |.GraSort|....%...|
|00000070| 42 fb ff ff 6f 2f 4f db | 03 00 24 33 25 19 00 00 |B...o/O.|..$3%...|
|00000080| 24 00 00 00 82 50 61 74 | 4d 61 74 63 68 00 00 00 |$....Pat|Match...|
|00000090| 68 12 00 00 42 fb ff ff | 89 cf 6f da 03 00 dc e6 |h...B...|..o.....|
|000000a0| 68 12 00 00 6d 19 00 00 | 82 52 65 61 64 4d 65 00 |h...m...|.ReadMe.|
|000000b0| 68 00 00 00 24 08 00 00 | 43 ff ff ff 31 db 8e 08 |h...$...|C...1...|
|000000c0| 03 00 cb 11 24 08 00 00 | 26 6d 00 00 82 54 72 61 |....$...|&m...Tra|
|000000d0| 76 65 6c 73 00 00 00 00 | 8f 19 00 00 42 fb ff ff |vels....|....B...|
|000000e0| a8 16 a0 d0 03 00 9d c7 | 8f 19 00 00 f9 2b 00 00 |........|.....+..|
|000000f0| 82 5a 65 72 46 75 6e 63 | 00 00 00 00 56 27 00 00 |.ZerFunc|....V'..|
|00000100| 42 fb ff ff fd b4 91 de | 03 00 2e ed 56 27 00 00 |B.......|....V'..|
|00000110| ac 45 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.E......|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 46 69 6c 65 | 44 61 74 61 82 47 72 61 |....File|Data.Gra|
|00000360| 53 6f 72 74 00 00 00 00 | 25 19 00 00 42 fb ff ff |Sort....|%...B...|
|00000370| 6f 2f 4f db 03 00 24 33 | 0d 00 0a 20 f4 20 50 72 |o/O...$3|... . Pr|
|00000380| 6f 67 72 61 6d 20 47 72 | 61 73 6f 72 74 20 20 76 |ogram Gr|asort v|
|00000390| 65 72 73 69 6f 6e 20 36 | 0d 00 14 21 f4 20 28 43 |ersion 6|...!. (C|
|000003a0| 29 20 44 2e 45 2e 20 42 | 6f 77 65 72 20 20 32 39 |) D.E. B|ower 29|
|000003b0| 20 44 65 63 20 31 39 39 | 30 0d 00 15 1a f4 20 41 | Dec 199|0..... A|
|000003c0| 72 63 68 69 6d 65 64 65 | 73 20 2b 20 42 41 53 49 |rchimede|s + BASI|
|000003d0| 43 20 56 0d 00 1e 05 20 | 0d 00 28 2f f4 20 47 72 |C V.... |..(/. Gr|
|000003e0| 61 70 68 69 63 61 6c 20 | 64 69 73 70 6c 61 79 20 |aphical |display |
|000003f0| 6f 66 20 66 6f 75 72 20 | 73 6f 72 74 20 74 65 63 |of four |sort tec|
|00000400| 68 6e 69 71 75 65 73 0d | 00 32 05 20 0d 00 3c 27 |hniques.|.2. ..<'|
|00000410| f4 20 28 31 29 20 48 45 | 41 50 53 4f 52 54 20 61 |. (1) HE|APSORT a|
|00000420| 6c 67 6f 72 69 74 68 6d | 20 28 57 69 6c 6c 69 61 |lgorithm| (Willia|
|00000430| 6d 73 29 0d 00 46 1e f4 | 20 28 32 29 20 53 48 45 |ms)..F..| (2) SHE|
|00000440| 4c 4c 20 73 6f 72 74 20 | 61 6c 67 6f 72 69 74 68 |LL sort |algorith|
|00000450| 6d 0d 00 50 1b f4 20 28 | 33 29 20 51 55 49 43 4b |m..P.. (|3) QUICK|
|00000460| 53 4f 52 54 20 28 48 6f | 61 72 65 29 0d 00 5a 18 |SORT (Ho|are)..Z.|
|00000470| f4 20 28 34 29 20 53 65 | 6c 65 63 74 69 6f 6e 20 |. (4) Se|lection |
|00000480| 73 6f 72 74 0d 00 64 04 | 0d 00 6e 35 f4 20 52 65 |sort..d.|..n5. Re|
|00000490| 66 65 72 65 6e 63 65 73 | 20 28 62 6f 74 68 20 70 |ferences| (both p|
|000004a0| 75 62 6c 69 73 68 65 64 | 20 62 79 20 41 64 64 69 |ublished| by Addi|
|000004b0| 73 6f 6e 2d 57 65 73 6c | 65 79 29 20 3a 0d 00 78 |son-Wesl|ey) :..x|
|000004c0| 04 0d 00 82 27 f4 20 27 | 54 68 65 20 41 72 74 20 |....'. '|The Art |
|000004d0| 6f 66 20 43 6f 6d 70 75 | 74 65 72 20 50 72 6f 67 |of Compu|ter Prog|
|000004e0| 72 61 6d 6d 69 6e 67 27 | 0d 00 8c 31 f4 20 56 6f |ramming'|...1. Vo|
|000004f0| 6c 75 6d 65 20 33 20 28 | 53 6f 72 74 69 6e 67 20 |lume 3 (|Sorting |
|00000500| 61 6e 64 20 53 65 61 72 | 63 68 69 6e 67 29 20 44 |and Sear|ching) D|
|00000510| 2e 45 2e 20 4b 6e 75 74 | 68 0d 00 96 05 20 0d 00 |.E. Knut|h.... ..|
|00000520| a0 24 f4 20 27 48 61 6e | 64 62 6f 6f 6b 20 6f 66 |.$. 'Han|dbook of|
|00000530| 20 41 6c 67 6f 72 69 74 | 68 6d 73 20 26 20 44 61 | Algorit|hms & Da|
|00000540| 74 61 0d 00 aa 1e f4 20 | 53 74 72 75 63 74 75 72 |ta..... |Structur|
|00000550| 65 73 27 20 20 47 2e 48 | 2e 20 47 6f 6e 6e 65 74 |es' G.H|. Gonnet|
|00000560| 0d 00 b4 05 20 0d 00 be | 21 f4 20 54 68 65 20 66 |.... ...|!. The f|
|00000570| 69 72 73 74 20 70 68 61 | 73 65 20 6f 66 20 48 65 |irst pha|se of He|
|00000580| 61 70 73 6f 72 74 0d 00 | c8 26 f4 20 72 65 2d 61 |apsort..|.&. re-a|
|00000590| 72 72 61 6e 67 65 73 20 | 74 68 65 20 4e 20 61 72 |rranges |the N ar|
|000005a0| 72 61 79 20 65 6c 65 6d | 65 6e 74 73 0d 00 d2 21 |ray elem|ents...!|
|000005b0| f4 20 69 6e 74 6f 20 61 | 20 68 65 61 70 2e 20 54 |. into a| heap. T|
|000005c0| 68 69 73 20 69 73 20 61 | 20 64 61 74 61 0d 00 dc |his is a| data...|
|000005d0| 25 f4 20 73 74 72 75 63 | 74 75 72 65 20 77 69 74 |%. struc|ture wit|
|000005e0| 68 20 70 61 72 74 69 61 | 6c 20 6f 72 64 65 72 69 |h partia|l orderi|
|000005f0| 6e 67 0d 00 e6 2c f4 20 | 4b 65 79 28 4a 20 44 49 |ng...,. |Key(J DI|
|00000600| 56 20 32 29 20 3e 3d 20 | 4b 65 79 28 4a 29 20 66 |V 2) >= |Key(J) f|
|00000610| 6f 72 20 31 20 3c 3d 20 | 4a 20 3c 3d 20 4e 0d 00 |or 1 <= |J <= N..|
|00000620| f0 2c f4 20 54 68 65 20 | 65 6c 65 6d 65 6e 74 20 |.,. The |element |
|00000630| 4b 65 79 28 31 29 20 69 | 73 20 6c 61 72 67 65 73 |Key(1) i|s larges|
|00000640| 74 20 6f 66 20 68 65 61 | 70 2e 0d 00 fa 05 20 0d |t of hea|p..... .|
|00000650| 01 04 22 f4 20 54 68 65 | 20 73 65 63 6f 6e 64 20 |..". The| second |
|00000660| 70 68 61 73 65 20 28 73 | 65 6c 65 63 74 69 6f 6e |phase (s|election|
|00000670| 29 0d 01 0e 21 f4 20 72 | 65 70 65 61 74 65 64 6c |)...!. r|epeatedl|
|00000680| 79 20 72 65 6d 6f 76 65 | 73 20 74 68 69 73 20 74 |y remove|s this t|
|00000690| 6f 70 0d 01 18 22 f4 20 | 65 6c 65 6d 65 6e 74 2c |op...". |element,|
|000006a0| 20 74 72 61 6e 73 66 65 | 72 73 20 69 74 20 74 6f | transfe|rs it to|
|000006b0| 20 69 74 73 0d 01 22 21 | f4 20 63 6f 72 72 65 63 | its.."!|. correc|
|000006c0| 74 20 66 69 6e 61 6c 20 | 70 6f 73 69 74 69 6f 6e |t final |position|
|000006d0| 2c 20 61 6e 64 0d 01 2c | 24 f4 20 72 65 2d 61 72 |, and..,|$. re-ar|
|000006e0| 72 61 6e 67 65 73 20 72 | 65 6d 61 69 6e 69 6e 67 |ranges r|emaining|
|000006f0| 20 65 6c 65 6d 65 6e 74 | 73 0d 01 36 25 f4 20 74 | element|s..6%. t|
|00000700| 6f 20 6d 61 69 6e 74 61 | 69 6e 20 74 68 65 20 68 |o mainta|in the h|
|00000710| 65 61 70 20 73 74 72 75 | 63 74 75 72 65 2e 0d 01 |eap stru|cture...|
|00000720| 40 05 20 0d 01 4a 22 f4 | 20 54 68 69 73 20 61 6c |@. ..J".| This al|
|00000730| 67 6f 72 69 74 68 6d 20 | 69 73 20 72 65 6c 61 74 |gorithm |is relat|
|00000740| 69 76 65 6c 79 0d 01 54 | 23 f4 20 65 66 66 69 63 |ively..T|#. effic|
|00000750| 69 65 6e 74 20 77 69 74 | 68 20 65 78 65 63 75 74 |ient wit|h execut|
|00000760| 69 6f 6e 20 74 69 6d 65 | 0d 01 5e 22 f4 20 70 72 |ion time|..^". pr|
|00000770| 6f 70 6f 72 74 69 6f 6e | 61 6c 20 74 6f 20 4e 2a |oportion|al to N*|
|00000780| 4c 4f 47 28 4e 29 20 66 | 6f 72 0d 01 68 24 f4 20 |LOG(N) f|or..h$. |
|00000790| 61 6e 79 20 69 6e 70 75 | 74 20 73 65 71 75 65 6e |any inpu|t sequen|
|000007a0| 63 65 20 77 68 61 74 73 | 6f 65 76 65 72 2e 0d 01 |ce whats|oever...|
|000007b0| 72 05 20 0d 01 7c 23 f4 | 20 53 68 65 6c 6c 20 73 |r. ..|#.| Shell s|
|000007c0| 6f 72 74 20 77 6f 72 6b | 73 20 69 6e 20 61 20 74 |ort work|s in a t|
|000007d0| 6f 74 61 6c 6c 79 0d 01 | 86 20 f4 20 64 69 66 66 |otally..|. . diff|
|000007e0| 65 72 65 6e 74 20 66 61 | 73 68 69 6f 6e 2e 20 45 |erent fa|shion. E|
|000007f0| 6c 65 6d 65 6e 74 0d 01 | 90 22 f4 20 70 61 69 72 |lement..|.". pair|
|00000800| 73 20 61 20 64 69 73 74 | 61 6e 63 65 20 44 20 61 |s a dist|ance D a|
|00000810| 70 61 72 74 20 61 72 65 | 0d 01 9a 23 f4 20 63 6f |part are|...#. co|
|00000820| 6d 70 61 72 65 64 20 61 | 6e 64 20 65 78 63 68 61 |mpared a|nd excha|
|00000830| 6e 67 65 64 20 69 66 20 | 6f 75 74 0d 01 a4 24 f4 |nged if |out...$.|
|00000840| 20 6f 66 20 6f 72 64 65 | 72 2e 20 54 68 65 20 73 | of orde|r. The s|
|00000850| 6f 72 74 20 69 6e 63 72 | 65 6d 65 6e 74 20 44 0d |ort incr|ement D.|
|00000860| 01 ae 25 f4 20 72 65 64 | 75 63 65 73 20 74 6f 20 |..%. red|uces to |
|00000870| 31 20 69 6e 20 73 65 76 | 65 72 61 6c 20 73 74 61 |1 in sev|eral sta|
|00000880| 67 65 73 2e 0d 01 b8 24 | f4 20 54 68 69 73 20 6d |ges....$|. This m|
|00000890| 65 74 68 6f 64 20 69 73 | 20 61 6c 73 6f 20 65 66 |ethod is| also ef|
|000008a0| 66 69 63 69 65 6e 74 2c | 0d 01 c2 26 f4 20 77 69 |ficient,|...&. wi|
|000008b0| 74 68 20 65 78 65 63 75 | 74 69 6f 6e 20 74 69 6d |th execu|tion tim|
|000008c0| 65 20 70 72 6f 70 6f 72 | 74 69 6f 6e 61 6c 0d 01 |e propor|tional..|
|000008d0| cc 27 f4 20 74 6f 20 4e | 5e 31 2e 32 20 66 6f 72 |.'. to N|^1.2 for|
|000008e0| 20 74 68 65 20 44 20 73 | 65 71 75 65 6e 63 65 20 | the D s|equence |
|000008f0| 75 73 65 64 2e 0d 01 d6 | 05 20 0d 01 e0 23 f4 20 |used....|. ...#. |
|00000900| 51 75 69 63 6b 73 6f 72 | 74 20 77 6f 72 6b 73 20 |Quicksor|t works |
|00000910| 62 79 20 72 65 70 65 61 | 74 65 64 6c 79 0d 01 ea |by repea|tedly...|
|00000920| 23 f4 20 70 61 72 74 69 | 74 69 6f 6e 69 6e 67 20 |#. parti|tioning |
|00000930| 74 68 65 20 61 72 72 61 | 79 20 61 72 6f 75 6e 64 |the arra|y around|
|00000940| 0d 01 f4 24 f4 20 61 20 | 73 65 6c 65 63 74 65 64 |...$. a |selected|
|00000950| 20 65 6c 65 6d 65 6e 74 | 20 73 6f 20 74 68 61 74 | element| so that|
|00000960| 20 61 6c 6c 0d 01 fe 21 | f4 20 65 6c 65 6d 65 6e | all...!|. elemen|
|00000970| 74 73 20 6f 6e 20 6f 6e | 65 20 73 69 64 65 20 6f |ts on on|e side o|
|00000980| 66 20 74 68 65 0d 02 08 | 21 f4 20 70 61 72 74 69 |f the...|!. parti|
|00000990| 74 69 6f 6e 20 61 72 65 | 20 6c 65 73 73 20 74 68 |tion are| less th|
|000009a0| 61 6e 20 61 6c 6c 0d 02 | 12 25 f4 20 74 68 65 20 |an all..|.%. the |
|000009b0| 65 6c 65 6d 65 6e 74 73 | 20 6f 6e 20 74 68 65 20 |elements| on the |
|000009c0| 6f 74 68 65 72 20 73 69 | 64 65 2e 0d 02 1c 25 f4 |other si|de....%.|
|000009d0| 20 49 74 20 69 73 20 74 | 68 65 20 66 61 73 74 65 | It is t|he faste|
|000009e0| 73 74 20 6b 6e 6f 77 6e | 20 67 65 6e 65 72 61 6c |st known| general|
|000009f0| 0d 02 26 24 f4 20 70 75 | 72 70 6f 73 65 20 73 6f |..&$. pu|rpose so|
|00000a00| 72 74 20 2d 20 74 79 70 | 69 63 61 6c 6c 79 20 74 |rt - typ|ically t|
|00000a10| 77 69 63 65 0d 02 30 23 | f4 20 61 73 20 66 61 73 |wice..0#|. as fas|
|00000a20| 74 20 61 73 20 48 65 61 | 70 73 6f 72 74 20 2d 20 |t as Hea|psort - |
|00000a30| 62 75 74 20 68 61 73 0d | 02 3a 21 f4 20 61 20 76 |but has.|.:!. a v|
|00000a40| 65 72 79 20 70 6f 6f 72 | 20 28 61 6e 64 20 76 65 |ery poor| (and ve|
|00000a50| 72 79 20 72 61 72 65 29 | 0d 02 44 1e f4 20 6f 72 |ry rare)|..D.. or|
|00000a60| 64 65 72 20 4f 28 4e 2a | 4e 29 20 77 6f 72 73 74 |der O(N*|N) worst|
|00000a70| 20 63 61 73 65 2e 0d 02 | 4e 24 f4 20 54 68 69 73 | case...|N$. This|
|00000a80| 20 76 65 72 73 69 6f 6e | 20 69 73 20 6e 6f 74 20 | version| is not |
|00000a90| 6f 70 74 69 6d 69 73 65 | 64 2e 0d 02 58 24 f4 20 |optimise|d...X$. |
|00000aa0| 41 20 6c 69 62 72 61 72 | 79 20 72 6f 75 74 69 6e |A librar|y routin|
|00000ab0| 65 20 77 6f 75 6c 64 20 | 73 65 6c 65 63 74 0d 02 |e would |select..|
|00000ac0| 62 23 f4 20 74 68 65 20 | 70 61 72 74 69 74 69 6f |b#. the |partitio|
|00000ad0| 6e 69 6e 67 20 65 6c 65 | 6d 65 6e 74 20 6d 6f 72 |ning ele|ment mor|
|00000ae0| 65 0d 02 6c 24 f4 20 63 | 61 72 65 66 75 6c 6c 79 |e..l$. c|arefully|
|00000af0| 20 61 6e 64 20 77 6f 75 | 6c 64 20 73 6f 72 74 20 | and wou|ld sort |
|00000b00| 73 68 6f 72 74 0d 02 76 | 24 f4 20 73 75 62 66 69 |short..v|$. subfi|
|00000b10| 6c 65 73 20 62 79 20 61 | 20 73 65 70 61 72 61 74 |les by a| separat|
|00000b20| 65 20 6d 65 74 68 6f 64 | 2e 0d 02 80 05 20 0d 02 |e method|..... ..|
|00000b30| 8a 24 f4 20 53 65 6c 65 | 63 74 69 6f 6e 20 73 6f |.$. Sele|ction so|
|00000b40| 72 74 20 69 6e 69 74 69 | 61 6c 6c 79 20 73 63 61 |rt initi|ally sca|
|00000b50| 6e 73 0d 02 94 1f f4 20 | 74 68 72 6f 75 67 68 20 |ns..... |through |
|00000b60| 74 68 65 20 61 72 72 61 | 79 20 66 6f 72 20 74 68 |the arra|y for th|
|00000b70| 65 0d 02 9e 24 f4 20 73 | 6d 61 6c 6c 65 73 74 20 |e...$. s|mallest |
|00000b80| 65 6c 65 6d 65 6e 74 20 | 61 6e 64 20 65 78 63 68 |element |and exch|
|00000b90| 61 6e 67 65 73 0d 02 a8 | 23 f4 20 69 74 20 77 69 |anges...|#. it wi|
|00000ba0| 74 68 20 74 68 65 20 66 | 69 72 73 74 20 65 6c 65 |th the f|irst ele|
|00000bb0| 6d 65 6e 74 2e 20 49 74 | 0d 02 b2 24 f4 20 74 68 |ment. It|...$. th|
|00000bc0| 65 6e 20 73 63 61 6e 73 | 20 74 68 65 20 72 65 6d |en scans| the rem|
|00000bd0| 61 69 6e 69 6e 67 20 61 | 72 72 61 79 0d 02 bc 24 |aining a|rray...$|
|00000be0| f4 20 65 6c 65 6d 65 6e | 74 73 20 66 6f 72 20 74 |. elemen|ts for t|
|00000bf0| 68 65 20 6e 65 78 74 20 | 73 6d 61 6c 6c 65 73 74 |he next |smallest|
|00000c00| 0d 02 c6 1f f4 20 61 6e | 64 20 65 78 63 68 61 6e |..... an|d exchan|
|00000c10| 67 65 73 20 69 74 20 77 | 69 74 68 20 74 68 65 0d |ges it w|ith the.|
|00000c20| 02 d0 25 f4 20 73 65 63 | 6f 6e 64 20 65 6c 65 6d |..%. sec|ond elem|
|00000c30| 65 6e 74 2e 20 54 68 69 | 73 20 70 72 6f 63 65 73 |ent. Thi|s proces|
|00000c40| 73 20 6f 66 0d 02 da 23 | f4 20 6f 66 20 73 63 61 |s of...#|. of sca|
|00000c50| 6e 6e 69 6e 67 20 61 6e | 64 20 65 78 63 68 61 6e |nning an|d exchan|
|00000c60| 67 69 6e 67 20 69 73 0d | 02 e4 22 f4 20 72 65 70 |ging is.|..". rep|
|00000c70| 65 61 74 65 64 20 66 6f | 72 20 61 6c 6c 20 4e 20 |eated fo|r all N |
|00000c80| 65 6c 65 6d 65 6e 74 73 | 2e 0d 02 ee 23 f4 20 54 |elements|....#. T|
|00000c90| 68 69 73 20 69 73 20 61 | 6e 20 69 6e 65 66 66 69 |his is a|n ineffi|
|00000ca0| 63 69 65 6e 74 20 4f 28 | 4e 2a 4e 29 0d 02 f8 22 |cient O(|N*N)..."|
|00000cb0| f4 20 73 6f 72 74 2c 20 | 62 75 74 20 73 69 6e 63 |. sort, |but sinc|
|00000cc0| 65 20 65 61 63 68 20 65 | 6c 65 6d 65 6e 74 0d 03 |e each e|lement..|
|00000cd0| 02 20 f4 20 69 73 20 6f | 6e 6c 79 20 6d 6f 76 65 |. . is o|nly move|
|00000ce0| 64 20 6f 6e 63 65 2c 20 | 69 74 20 68 61 73 0d 03 |d once, |it has..|
|00000cf0| 0c 23 f4 20 73 6f 6d 65 | 20 75 73 65 73 20 66 6f |.#. some| uses fo|
|00000d00| 72 20 66 69 6c 65 73 20 | 77 69 74 68 20 76 65 72 |r files |with ver|
|00000d10| 79 0d 03 16 23 f4 20 6c | 61 72 67 65 20 72 65 63 |y...#. l|arge rec|
|00000d20| 6f 72 64 73 20 61 6e 64 | 20 73 6d 61 6c 6c 20 6b |ords and| small k|
|00000d30| 65 79 73 2e 0d 03 20 05 | 20 0d 03 2a 45 ee 20 85 |eys... .| ..*E. .|
|00000d40| 3a ee 20 85 20 87 3a eb | 30 3a fb 30 3a fb 31 32 |:. . .:.|0:.0:.12|
|00000d50| 39 3a db 3a ef 32 33 2c | 31 2c 31 7c 3a e7 20 9f |9:.:.23,|1,1|:. .|
|00000d60| 3c 3e 31 37 20 8c 3a f6 | 3a f1 20 22 20 61 74 20 |<>17 .:.|:. " at |
|00000d70| 6c 69 6e 65 20 22 3b 9e | 3a e0 20 8b 20 e0 0d 03 |line ";.|:. . ...|
|00000d80| 34 04 0d 03 3e 38 4e 25 | 3d 34 30 30 20 3a f4 20 |4...>8N%|=400 :. |
|00000d90| 4e 75 6d 62 65 72 20 6f | 66 20 61 72 72 61 79 20 |Number o|f array |
|00000da0| 65 6c 65 6d 65 6e 74 73 | 20 66 6f 72 20 64 65 6d |elements| for dem|
|00000db0| 6f 6e 73 74 72 61 74 69 | 6f 6e 0d 03 48 2e 53 74 |onstrati|on..H.St|
|00000dc0| 3d 31 36 20 20 3a f4 20 | 53 74 61 63 6b 20 61 72 |=16 :. |Stack ar|
|00000dd0| 72 61 79 20 6c 65 6e 67 | 74 68 20 66 6f 72 20 51 |ray leng|th for Q|
|00000de0| 75 69 63 6b 73 6f 72 74 | 0d 03 52 0e de 20 4b 65 |uicksort|..R.. Ke|
|00000df0| 79 25 28 4e 25 29 0d 03 | 5c 13 de 20 4c 25 28 53 |y%(N%)..|\.. L%(S|
|00000e00| 74 29 2c 52 25 28 53 74 | 29 0d 03 66 05 20 0d 03 |t),R%(St|)..f. ..|
|00000e10| 70 07 eb 20 37 0d 03 7a | 0c f2 6d 6f 6e 69 74 6f |p.. 7..z|..monito|
|00000e20| 72 0d 03 84 05 f5 0d 03 | 8e 07 eb 20 37 0d 03 98 |r.......|... 7...|
|00000e30| 0b f2 63 68 6f 6f 73 65 | 0d 03 a2 0f e7 20 ac 28 |..choose|..... .(|
|00000e40| 65 78 69 74 29 20 8c 0d | 03 ac 12 eb 20 31 38 2a |exit) ..|.... 18*|
|00000e50| 28 6d 74 79 70 65 2d 31 | 29 0d 03 b6 0d f2 69 6e |(mtype-1|).....in|
|00000e60| 69 74 28 4e 25 29 0d 03 | c0 0b c8 8e 20 47 24 20 |it(N%)..|.... G$ |
|00000e70| ca 0d 03 ca 1d c9 20 22 | 48 65 61 70 73 6f 72 74 |...... "|Heapsort|
|00000e80| 22 20 20 3a 20 f2 68 65 | 61 70 73 6f 72 74 0d 03 |" : .he|apsort..|
|00000e90| d4 1e c9 20 22 53 68 65 | 6c 6c 73 6f 72 74 22 20 |... "She|llsort" |
|00000ea0| 3a 20 f2 73 68 65 6c 6c | 73 6f 72 74 0d 03 de 1e |: .shell|sort....|
|00000eb0| c9 20 22 51 75 69 63 6b | 73 6f 72 74 22 20 3a 20 |. "Quick|sort" : |
|00000ec0| f2 71 75 69 63 6b 73 6f | 72 74 0d 03 e8 1f c9 20 |.quickso|rt..... |
|00000ed0| 22 53 65 6c 65 63 74 73 | 6f 72 74 22 3a 20 f2 73 |"Selects|ort": .s|
|00000ee0| 65 6c 65 63 74 73 6f 72 | 74 0d 03 f2 05 cb 0d 03 |electsor|t.......|
|00000ef0| fc 1b f2 6f 75 74 70 75 | 74 28 22 53 6f 72 74 65 |...outpu|t("Sorte|
|00000f00| 64 20 41 72 72 61 79 22 | 29 0d 04 06 05 cd 0d 04 |d Array"|).......|
|00000f10| 10 0a fd 20 65 78 69 74 | 0d 04 1a 11 eb 20 30 3a |... exit|..... 0:|
|00000f20| fb 30 3a fb 31 32 39 3a | db 0d 04 24 0c ef 32 33 |.0:.129:|...$..23|
|00000f30| 2c 31 2c 31 7c 0d 04 2e | 05 e0 0d 04 38 05 20 0d |,1,1|...|....8. .|
|00000f40| 04 42 05 20 0d 04 4c 0e | dd 20 f2 6d 6f 6e 69 74 |.B. ..L.|. .monit|
|00000f50| 6f 72 0d 04 56 3e e3 20 | 72 6f 77 3d 30 20 b8 20 |or..V>. |row=0 . |
|00000f60| 31 3a f1 20 8a 35 2c 72 | 6f 77 29 3b bd 31 33 30 |1:. .5,r|ow);.130|
|00000f70| 3b bd 31 34 31 3b 22 47 | 72 61 70 68 69 63 61 6c |;.141;"G|raphical|
|00000f80| 20 53 6f 72 74 69 6e 67 | 20 44 65 6d 6f 22 3a ed | Sorting| Demo":.|
|00000f90| 0d 04 60 26 f1 20 8a 37 | 2c 36 29 3b bd 31 32 39 |..`&. .7|,6);.129|
|00000fa0| 3b 22 53 65 6c 65 63 74 | 20 4d 6f 6e 69 74 6f 72 |;"Select| Monitor|
|00000fb0| 20 54 79 70 65 22 0d 04 | 6a 2c f1 20 8a 36 2c 31 | Type"..|j,. .6,1|
|00000fc0| 31 29 3b bd 31 33 32 3b | 22 31 20 3d 20 53 74 61 |1);.132;|"1 = Sta|
|00000fd0| 6e 64 61 72 64 20 52 47 | 42 20 4d 6f 6e 69 74 6f |ndard RG|B Monito|
|00000fe0| 72 22 0d 04 74 2a f1 20 | 8a 36 2c 31 35 29 3b bd |r"..t*. |.6,15);.|
|00000ff0| 31 33 32 3b 22 32 20 3d | 20 4d 75 6c 74 69 2d 53 |132;"2 =| Multi-S|
|00001000| 79 6e 63 20 4d 6f 6e 69 | 74 6f 72 22 0d 04 7e 05 |ync Moni|tor"..~.|
|00001010| f1 0d 04 88 28 f5 3a 4d | 74 79 70 65 24 3d be 3a |....(.:M|type$=.:|
|00001020| fd 20 4d 74 79 70 65 24 | 3d 22 31 22 20 84 20 4d |. Mtype$|="1" . M|
|00001030| 74 79 70 65 24 3d 22 32 | 22 0d 04 92 13 6d 74 79 |type$="2|"....mty|
|00001040| 70 65 3d bb 28 4d 74 79 | 70 65 24 29 0d 04 9c 05 |pe=.(Mty|pe$)....|
|00001050| e1 0d 04 a6 04 0d 04 b0 | 04 0d 04 ba 0f dd 20 f2 |........|...... .|
|00001060| 69 6e 69 74 28 4e 25 29 | 0d 04 c4 3e f4 20 73 65 |init(N%)|...>. se|
|00001070| 74 20 75 70 20 72 61 6e | 64 6f 6d 20 69 6e 69 74 |t up ran|dom init|
|00001080| 69 61 6c 20 73 65 71 75 | 65 6e 63 65 20 61 73 20 |ial sequ|ence as |
|00001090| 27 73 65 74 27 20 70 69 | 78 65 6c 73 20 6f 6e 20 |'set' pi|xels on |
|000010a0| 73 63 72 65 65 6e 0d 04 | ce 0c ef 32 33 2c 31 2c |screen..|...23,1,|
|000010b0| 30 7c 0d 04 d8 2b ec 20 | 30 2c 30 3a df 20 38 30 |0|...+. |0,0:. 80|
|000010c0| 34 2c 30 3a df 20 38 30 | 34 2c 31 30 30 34 3a df |4,0:. 80|4,1004:.|
|000010d0| 20 30 2c 31 30 30 34 3a | df 20 30 2c 30 0d 04 e2 | 0,1004:|. 0,0...|
|000010e0| 1e f1 20 8a 35 32 2c 33 | 32 2a 6d 74 79 70 65 2d |.. .52,3|2*mtype-|
|000010f0| 31 29 3b 22 2d 2d 3e 20 | 4a 22 3b 0d 04 ec 1c f1 |1);"--> |J";.....|
|00001100| 20 8a 35 32 2c 6d 74 79 | 70 65 29 3b 22 5e 20 4b | .52,mty|pe);"^ K|
|00001110| 65 79 28 4a 29 22 3b 0d | 04 f6 2d e3 20 72 6f 77 |ey(J)";.|..-. row|
|00001120| 3d 6d 74 79 70 65 2b 31 | 20 b8 20 6d 74 79 70 65 |=mtype+1| . mtype|
|00001130| 2b 33 3a f1 20 8a 35 32 | 2c 72 6f 77 29 3b 22 7c |+3:. .52|,row);"||
|00001140| 22 3b 3a ed 0d 05 00 17 | f1 20 8a 35 34 2c 31 32 |";:.....|. .54,12|
|00001150| 2a 6d 74 79 70 65 29 3b | 47 24 3b 0d 05 0a 1f f1 |*mtype);|G$;.....|
|00001160| 20 8a 35 34 2c 31 33 2a | 6d 74 79 70 65 29 3b c4 | .54,13*|mtype);.|
|00001170| a9 28 47 24 29 2c 22 3d | 22 29 0d 05 14 0f e3 20 |.(G$),"=|")..... |
|00001180| 4a 25 3d 31 20 b8 20 4e | 25 0d 05 1e 15 4b 65 79 |J%=1 . N|%....Key|
|00001190| 25 28 4a 25 29 3d 34 2b | b3 28 39 39 35 29 0d 05 |%(J%)=4+|.(995)..|
|000011a0| 28 14 c8 92 20 32 2a 4a | 25 2c 4b 65 79 25 28 4a |(... 2*J|%,Key%(J|
|000011b0| 25 29 0d 05 32 05 ed 0d | 05 3c 1a f2 6f 75 74 70 |%)..2...|.<..outp|
|000011c0| 75 74 28 22 53 74 61 72 | 74 20 41 72 72 61 79 22 |ut("Star|t Array"|
|000011d0| 29 0d 05 46 36 4b 65 79 | 25 28 30 29 3d 31 45 38 |)..F6Key|%(0)=1E8|
|000011e0| 3a f4 20 73 65 6e 74 69 | 6e 65 6c 20 6d 61 72 6b |:. senti|nel mark|
|000011f0| 65 72 20 3e 20 61 6c 6c | 20 61 72 72 61 79 20 65 |er > all| array e|
|00001200| 6c 65 6d 65 6e 74 73 0d | 05 50 05 e1 0d 05 5a 05 |lements.|.P....Z.|
|00001210| 20 0d 05 64 05 20 0d 05 | 6e 0f dd 20 f2 68 65 61 | ..d. ..|n.. .hea|
|00001220| 70 73 6f 72 74 0d 05 78 | 05 20 0d 05 82 1d f4 20 |psort..x|. ..... |
|00001230| 50 68 61 73 65 20 31 20 | 2d 20 48 65 61 70 20 43 |Phase 1 |- Heap C|
|00001240| 72 65 61 74 69 6f 6e 0d | 05 8c 1f f1 20 8a 35 34 |reation.|.... .54|
|00001250| 2c 32 32 2a 6d 74 79 70 | 65 29 3b 22 50 68 61 73 |,22*mtyp|e);"Phas|
|00001260| 65 20 23 31 22 3b 0d 05 | 96 05 20 0d 05 a0 0f e3 |e #1";..|.. .....|
|00001270| 20 4a 25 3d 32 20 b8 20 | 4e 25 0d 05 aa 0f 6b 25 | J%=2 . |N%....k%|
|00001280| 3d 4b 65 79 25 28 4a 25 | 29 0d 05 b4 13 e6 30 2c |=Key%(J%|).....0,|
|00001290| 30 3a c8 92 20 32 2a 4a | 25 2c 6b 25 0d 05 be 13 |0:.. 2*J|%,k%....|
|000012a0| 52 25 3d 4a 25 3a 4c 25 | 3d 52 25 20 81 20 32 0d |R%=J%:L%|=R% . 2.|
|000012b0| 05 c8 12 c8 95 20 6b 25 | 3e 4b 65 79 25 28 4c 25 |..... k%|>Key%(L%|
|000012c0| 29 0d 05 d2 15 4b 65 79 | 25 28 52 25 29 3d 4b 65 |)....Key|%(R%)=Ke|
|000012d0| 79 25 28 4c 25 29 0d 05 | dc 2f e6 30 2c 30 3a c8 |y%(L%)..|./.0,0:.|
|000012e0| 92 20 32 2a 4c 25 2c 4b | 65 79 25 28 4c 25 29 3a |. 2*L%,K|ey%(L%):|
|000012f0| e6 30 2c 31 3a c8 92 20 | 32 2a 52 25 2c 4b 65 79 |.0,1:.. |2*R%,Key|
|00001300| 25 28 4c 25 29 0d 05 e6 | 13 52 25 3d 4c 25 3a 4c |%(L%)...|.R%=L%:L|
|00001310| 25 3d 4c 25 20 81 20 32 | 0d 05 f0 05 ce 0d 05 fa |%=L% . 2|........|
|00001320| 0f 4b 65 79 25 28 52 25 | 29 3d 6b 25 0d 06 04 13 |.Key%(R%|)=k%....|
|00001330| e6 30 2c 31 3a c8 92 20 | 32 2a 52 25 2c 6b 25 0d |.0,1:.. |2*R%,k%.|
|00001340| 06 0e 05 ed 0d 06 18 1c | f2 6f 75 74 70 75 74 28 |........|.output(|
|00001350| 22 50 68 61 73 65 20 23 | 31 20 64 6f 6e 65 22 29 |"Phase #|1 done")|
|00001360| 0d 06 22 05 20 0d 06 2c | 19 f4 20 50 68 61 73 65 |..". ..,|.. Phase|
|00001370| 20 32 20 2d 20 53 65 6c | 65 63 74 69 6f 6e 0d 06 | 2 - Sel|ection..|
|00001380| 36 1f f1 20 8a 35 34 2c | 32 32 2a 6d 74 79 70 65 |6.. .54,|22*mtype|
|00001390| 29 3b 22 50 68 61 73 65 | 20 23 32 22 3b 0d 06 40 |);"Phase| #2";..@|
|000013a0| 04 0d 06 4a 14 e3 20 4a | 25 3d 4e 25 20 b8 20 32 |...J.. J|%=N% . 2|
|000013b0| 20 88 20 2d 31 0d 06 54 | 0b 51 25 3d 4a 25 2d 31 | . -1..T|.Q%=J%-1|
|000013c0| 0d 06 5e 20 6b 25 3d 4b | 65 79 25 28 4a 25 29 3a |..^ k%=K|ey%(J%):|
|000013d0| 4b 65 79 25 28 4a 25 29 | 3d 4b 65 79 25 28 31 29 |Key%(J%)|=Key%(1)|
|000013e0| 0d 06 68 35 e6 30 2c 30 | 3a c8 92 20 32 2a 4a 25 |..h5.0,0|:.. 2*J%|
|000013f0| 2c 6b 25 3a c8 92 20 32 | 2c 4b 65 79 25 28 31 29 |,k%:.. 2|,Key%(1)|
|00001400| 3a e6 30 2c 31 3a c8 92 | 20 32 2a 4a 25 2c 4b 65 |:.0,1:..| 2*J%,Ke|
|00001410| 79 25 28 31 29 0d 06 72 | 0d 4c 25 3d 31 3a 52 25 |y%(1)..r|.L%=1:R%|
|00001420| 3d 32 0d 06 7c 0d c8 95 | 20 52 25 3c 3d 51 25 0d |=2..|...| R%<=Q%.|
|00001430| 06 86 29 e7 20 52 25 3c | 51 25 20 8c 20 e7 20 4b |..). R%<|Q% . . K|
|00001440| 65 79 25 28 52 25 29 3c | 4b 65 79 25 28 52 25 2b |ey%(R%)<|Key%(R%+|
|00001450| 31 29 20 52 25 2b 3d 31 | 0d 06 90 15 4b 65 79 25 |1) R%+=1|....Key%|
|00001460| 28 4c 25 29 3d 4b 65 79 | 25 28 52 25 29 0d 06 9a |(L%)=Key|%(R%)...|
|00001470| 2f e6 30 2c 30 3a c8 92 | 20 32 2a 52 25 2c 4b 65 |/.0,0:..| 2*R%,Ke|
|00001480| 79 25 28 52 25 29 3a e6 | 30 2c 31 3a c8 92 20 32 |y%(R%):.|0,1:.. 2|
|00001490| 2a 4c 25 2c 4b 65 79 25 | 28 52 25 29 0d 06 a4 10 |*L%,Key%|(R%)....|
|000014a0| 4c 25 3d 52 25 3a 52 25 | 2b 3d 52 25 0d 06 ae 05 |L%=R%:R%|+=R%....|
|000014b0| ce 0d 06 b8 13 52 25 3d | 4c 25 3a 4c 25 3d 4c 25 |.....R%=|L%:L%=L%|
|000014c0| 20 81 20 32 0d 06 c2 12 | c8 95 20 6b 25 3e 4b 65 | . 2....|.. k%>Ke|
|000014d0| 79 25 28 4c 25 29 0d 06 | cc 15 4b 65 79 25 28 52 |y%(L%)..|..Key%(R|
|000014e0| 25 29 3d 4b 65 79 25 28 | 4c 25 29 0d 06 d6 2f e6 |%)=Key%(|L%).../.|
|000014f0| 30 2c 30 3a c8 92 20 32 | 2a 4c 25 2c 4b 65 79 25 |0,0:.. 2|*L%,Key%|
|00001500| 28 4c 25 29 3a e6 30 2c | 31 3a c8 92 20 32 2a 52 |(L%):.0,|1:.. 2*R|
|00001510| 25 2c 4b 65 79 25 28 4c | 25 29 0d 06 e0 13 52 25 |%,Key%(L|%)....R%|
|00001520| 3d 4c 25 3a 4c 25 3d 4c | 25 20 81 20 32 0d 06 ea |=L%:L%=L|% . 2...|
|00001530| 05 ce 0d 06 f4 0f 4b 65 | 79 25 28 52 25 29 3d 6b |......Ke|y%(R%)=k|
|00001540| 25 0d 06 fe 0e c8 92 20 | 32 2a 52 25 2c 6b 25 0d |%...... |2*R%,k%.|
|00001550| 07 08 05 ed 0d 07 12 05 | 20 0d 07 1c 05 e1 0d 07 |........| .......|
|00001560| 26 05 20 0d 07 30 05 20 | 0d 07 3a 11 dd 20 f2 6f |&. ..0. |..:.. .o|
|00001570| 75 74 70 75 74 28 4d 24 | 29 0d 07 44 17 f1 20 8a |utput(M$|)..D.. .|
|00001580| 35 34 2c 32 32 2a 6d 74 | 79 70 65 29 3b 4d 24 3b |54,22*mt|ype);M$;|
|00001590| 0d 07 4e 25 f1 20 8a 35 | 34 2c 32 35 2a 6d 74 79 |..N%. .5|4,25*mty|
|000015a0| 70 65 29 3b 22 2e 2e 2e | 70 72 65 73 73 20 61 20 |pe);"...|press a |
|000015b0| 6b 65 79 22 3b 0d 07 58 | 07 ef 20 37 0d 07 62 0b |key";..X|.. 7..b.|
|000015c0| 2a 46 58 31 35 2c 31 0d | 07 6c 07 47 3d a5 0d 07 |*FX15,1.|.l.G=...|
|000015d0| 76 1c f1 8a 35 34 2c 32 | 32 2a 6d 74 79 70 65 29 |v...54,2|2*mtype)|
|000015e0| 3b c4 31 34 2c 22 20 22 | 29 3b 0d 07 80 1c f1 8a |;.14," "|);......|
|000015f0| 35 34 2c 32 35 2a 6d 74 | 79 70 65 29 3b c4 31 34 |54,25*mt|ype);.14|
|00001600| 2c 22 20 22 29 3b 0d 07 | 8a 05 e1 0d 07 94 05 20 |," ");..|....... |
|00001610| 0d 07 9e 05 20 0d 07 a8 | 10 dd 20 f2 73 68 65 6c |.... ...|.. .shel|
|00001620| 6c 73 6f 72 74 0d 07 b2 | 05 20 0d 07 bc 09 44 25 |lsort...|. ....D%|
|00001630| 3d 4e 25 0d 07 c6 04 0d | 07 d0 0b c8 95 20 44 25 |=N%.....|..... D%|
|00001640| 3e 31 0d 07 da 1c f4 20 | 44 65 66 69 6e 65 20 73 |>1..... |Define s|
|00001650| 6f 72 74 20 69 6e 63 72 | 65 6d 65 6e 74 73 0d 07 |ort incr|ements..|
|00001660| e4 0c e7 20 44 25 3c 35 | 20 8c 0d 07 ee 08 44 25 |... D%<5| .....D%|
|00001670| 3d 31 0d 07 f8 05 cc 0d | 08 02 12 44 25 3d 28 35 |=1......|...D%=(5|
|00001680| 2a 44 25 2d 31 29 2f 31 | 31 0d 08 0c 05 cd 0d 08 |*D%-1)/1|1.......|
|00001690| 16 26 f1 20 8a 35 34 2c | 32 32 2a 6d 74 79 70 65 |.&. .54,|22*mtype|
|000016a0| 29 3b 22 49 6e 63 72 20 | 3d 20 22 3b 44 25 3b 22 |);"Incr |= ";D%;"|
|000016b0| 20 20 22 3b 0d 08 20 12 | e3 20 4a 25 3d 44 25 2b | ";.. .|. J%=D%+|
|000016c0| 31 20 b8 20 4e 25 0d 08 | 2a 1e 55 25 3d 4a 25 3a |1 . N%..|*.U%=J%:|
|000016d0| 4c 25 3d 4a 25 2d 44 25 | 3a 6b 25 3d 4b 65 79 25 |L%=J%-D%|:k%=Key%|
|000016e0| 28 4a 25 29 0d 08 34 14 | e6 20 30 2c 30 3a c8 92 |(J%)..4.|. 0,0:..|
|000016f0| 20 32 2a 4a 25 2c 6b 25 | 0d 08 3e 05 f5 0d 08 48 | 2*J%,k%|..>....H|
|00001700| 13 e7 20 6b 25 3c 4b 65 | 79 25 28 4c 25 29 20 8c |.. k%<Ke|y%(L%) .|
|00001710| 0d 08 52 15 4b 65 79 25 | 28 55 25 29 3d 4b 65 79 |..R.Key%|(U%)=Key|
|00001720| 25 28 4c 25 29 0d 08 5c | 30 e6 20 30 2c 30 3a c8 |%(L%)..\|0. 0,0:.|
|00001730| 92 20 32 2a 4c 25 2c 4b | 65 79 25 28 4c 25 29 3a |. 2*L%,K|ey%(L%):|
|00001740| e6 30 2c 31 3a c8 92 20 | 32 2a 55 25 2c 4b 65 79 |.0,1:.. |2*U%,Key|
|00001750| 25 28 4c 25 29 0d 08 66 | 10 55 25 3d 4c 25 3a 4c |%(L%)..f|.U%=L%:L|
|00001760| 25 2d 3d 44 25 0d 08 70 | 05 cc 0d 08 7a 08 4c 25 |%-=D%..p|....z.L%|
|00001770| 3d 30 0d 08 84 05 cd 0d | 08 8e 0b fd 20 4c 25 3c |=0......|.... L%<|
|00001780| 3d 30 0d 08 98 0f 4b 65 | 79 25 28 55 25 29 3d 6b |=0....Ke|y%(U%)=k|
|00001790| 25 0d 08 a2 13 e6 30 2c | 31 3a c8 92 20 32 2a 55 |%.....0,|1:.. 2*U|
|000017a0| 25 2c 6b 25 0d 08 ac 05 | ed 0d 08 b6 05 ce 0d 08 |%,k%....|........|
|000017b0| c0 05 20 0d 08 ca 05 e1 | 0d 08 d4 05 20 0d 08 de |.. .....|.... ...|
|000017c0| 05 20 0d 08 e8 0d dd 20 | f2 63 68 6f 6f 73 65 0d |. ..... |.choose.|
|000017d0| 08 f2 05 db 0d 08 fc 25 | 4d 24 3d 22 50 6c 65 61 |.......%|M$="Plea|
|000017e0| 73 65 20 63 68 6f 6f 73 | 65 20 73 6f 72 74 20 61 |se choos|e sort a|
|000017f0| 6c 67 6f 72 69 74 68 6d | 22 0d 09 06 3d e3 20 72 |lgorithm|"...=. r|
|00001800| 6f 77 3d 30 20 b8 20 31 | 3a f1 20 8a 36 2c 72 6f |ow=0 . 1|:. .6,ro|
|00001810| 77 29 bd 31 33 30 3b bd | 31 34 31 3b 22 47 72 61 |w).130;.|141;"Gra|
|00001820| 70 68 69 63 61 6c 20 53 | 6f 72 74 69 6e 67 20 44 |phical S|orting D|
|00001830| 65 6d 6f 22 3a ed 0d 09 | 10 1e f1 8a 31 39 2d a9 |emo":...|....19-.|
|00001840| 28 4d 24 29 2f 32 2c 34 | 29 3b bd 28 31 33 32 29 |(M$)/2,4|);.(132)|
|00001850| 3b 4d 24 3b 0d 09 1a 28 | f1 8a 38 2c 37 29 3b bd |;M$;...(|..8,7);.|
|00001860| 31 33 30 3b 22 48 20 3d | 20 48 65 61 70 73 6f 72 |130;"H =| Heapsor|
|00001870| 74 20 61 6c 67 6f 72 69 | 74 68 6d 22 0d 09 24 2a |t algori|thm"..$*|
|00001880| f1 8a 38 2c 31 31 29 3b | bd 31 33 30 3b 22 53 20 |..8,11);|.130;"S |
|00001890| 3d 20 53 68 65 6c 6c 73 | 6f 72 74 20 61 6c 67 6f |= Shells|ort algo|
|000018a0| 72 69 74 68 6d 22 0d 09 | 2e 2a f1 8a 38 2c 31 35 |rithm"..|.*..8,15|
|000018b0| 29 3b bd 31 33 30 3b 22 | 51 20 3d 20 51 75 69 63 |);.130;"|Q = Quic|
|000018c0| 6b 73 6f 72 74 20 61 6c | 67 6f 72 69 74 68 6d 22 |ksort al|gorithm"|
|000018d0| 0d 09 38 2a f1 8a 38 2c | 31 39 29 3b bd 31 33 30 |..8*..8,|19);.130|
|000018e0| 3b 22 43 20 3d 20 53 65 | 6c 65 63 74 69 6f 6e 20 |;"C = Se|lection |
|000018f0| 61 6c 67 6f 72 69 74 68 | 6d 22 0d 09 42 24 f1 8a |algorith|m"..B$..|
|00001900| 38 2c 32 33 29 3b bd 31 | 32 39 3b 22 45 20 3d 20 |8,23);.1|29;"E = |
|00001910| 45 78 69 74 20 50 72 6f | 67 72 61 6d 22 3b 0d 09 |Exit Pro|gram";..|
|00001920| 4c 05 f5 0d 09 56 0b 2a | 46 58 31 35 2c 31 0d 09 |L....V.*|FX15,1..|
|00001930| 60 08 47 24 3d be 0d 09 | 6a 17 fd 20 a7 22 48 68 |`.G$=...|j.. ."Hh|
|00001940| 53 73 51 71 43 63 45 65 | 22 2c 47 24 29 0d 09 74 |SsQqCcEe|",G$)..t|
|00001950| 0a 65 78 69 74 3d a3 0d | 09 7e 0b c8 8e 20 47 24 |.exit=..|.~... G$|
|00001960| 20 ca 0d 09 88 1d c9 20 | 22 48 22 2c 22 68 22 20 | ...... |"H","h" |
|00001970| 3a 20 47 24 3d 22 48 65 | 61 70 73 6f 72 74 22 0d |: G$="He|apsort".|
|00001980| 09 92 1e c9 20 22 53 22 | 2c 22 73 22 20 3a 20 47 |.... "S"|,"s" : G|
|00001990| 24 3d 22 53 68 65 6c 6c | 73 6f 72 74 22 0d 09 9c |$="Shell|sort"...|
|000019a0| 1e c9 20 22 51 22 2c 22 | 71 22 20 3a 20 47 24 3d |.. "Q","|q" : G$=|
|000019b0| 22 51 75 69 63 6b 73 6f | 72 74 22 0d 09 a6 1f c9 |"Quickso|rt".....|
|000019c0| 20 22 43 22 2c 22 63 22 | 20 3a 20 47 24 3d 22 53 | "C","c"| : G$="S|
|000019d0| 65 6c 65 63 74 73 6f 72 | 74 22 0d 09 b0 16 c9 20 |electsor|t"..... |
|000019e0| 22 45 22 2c 22 65 22 20 | 3a 20 65 78 69 74 3d b9 |"E","e" |: exit=.|
|000019f0| 0d 09 ba 05 cb 0d 09 c4 | 05 e1 0d 09 ce 05 20 0d |........|...... .|
|00001a00| 09 d8 05 20 0d 09 e2 10 | dd 20 f2 71 75 69 63 6b |... ....|. .quick|
|00001a10| 73 6f 72 74 0d 09 ec 04 | 0d 09 f6 19 53 25 3d 31 |sort....|....S%=1|
|00001a20| 3a 4c 25 28 31 29 3d 31 | 3a 52 25 28 31 29 3d 4e |:L%(1)=1|:R%(1)=N|
|00001a30| 25 0d 0a 00 05 20 0d 0a | 0a 05 f5 0d 0a 14 1d 4c |%.... ..|.......L|
|00001a40| 25 3d 4c 25 28 53 25 29 | 3a 52 25 3d 52 25 28 53 |%=L%(S%)|:R%=R%(S|
|00001a50| 25 29 3a 53 25 2d 3d 31 | 0d 0a 1e 05 f5 0d 0a 28 |%):S%-=1|.......(|
|00001a60| 22 49 25 3d 4c 25 3a 4a | 25 3d 52 25 3a 58 25 3d |"I%=L%:J|%=R%:X%=|
|00001a70| 4b 65 79 25 28 28 4c 25 | 2b 52 25 29 81 32 29 0d |Key%((L%|+R%).2).|
|00001a80| 0a 32 05 f5 0d 0a 3c 1a | c8 95 20 4b 65 79 25 28 |.2....<.|.. Key%(|
|00001a90| 49 25 29 3c 58 25 3a 49 | 25 2b 3d 31 3a ce 0d 0a |I%)<X%:I|%+=1:...|
|00001aa0| 46 1a c8 95 20 4b 65 79 | 25 28 4a 25 29 3e 58 25 |F... Key|%(J%)>X%|
|00001ab0| 3a 4a 25 2d 3d 31 3a ce | 0d 0a 50 0e e7 20 49 25 |:J%-=1:.|..P.. I%|
|00001ac0| 3c 3d 4a 25 20 8c 0d 0a | 5a 0f 54 25 3d 4b 65 79 |<=J% ...|Z.T%=Key|
|00001ad0| 25 28 49 25 29 0d 0a 64 | 15 4b 65 79 25 28 49 25 |%(I%)..d|.Key%(I%|
|00001ae0| 29 3d 4b 65 79 25 28 4a | 25 29 0d 0a 6e 0f 4b 65 |)=Key%(J|%)..n.Ke|
|00001af0| 79 25 28 4a 25 29 3d 54 | 25 0d 0a 78 24 e6 30 2c |y%(J%)=T|%..x$.0,|
|00001b00| 30 3a c8 92 20 32 2a 49 | 25 2c 54 25 3a c8 92 20 |0:.. 2*I|%,T%:.. |
|00001b10| 32 2a 4a 25 2c 4b 65 79 | 25 28 49 25 29 0d 0a 82 |2*J%,Key|%(I%)...|
|00001b20| 24 e6 30 2c 31 3a c8 92 | 20 32 2a 49 25 2c 4b 65 |$.0,1:..| 2*I%,Ke|
|00001b30| 79 25 28 49 25 29 3a c8 | 92 20 32 2a 4a 25 2c 54 |y%(I%):.|. 2*J%,T|
|00001b40| 25 0d 0a 8c 09 49 25 2b | 3d 31 0d 0a 96 09 4a 25 |%....I%+|=1....J%|
|00001b50| 2d 3d 31 0d 0a a0 05 cd | 0d 0a aa 0b fd 20 49 25 |-=1.....|..... I%|
|00001b60| 3e 4a 25 0d 0a b4 27 e7 | 20 49 25 3c 52 25 20 8c |>J%...'.| I%<R% .|
|00001b70| 20 53 25 2b 3d 31 3a 4c | 25 28 53 25 29 3d 49 25 | S%+=1:L|%(S%)=I%|
|00001b80| 3a 52 25 28 53 25 29 3d | 52 25 0d 0a be 09 52 25 |:R%(S%)=|R%....R%|
|00001b90| 3d 4a 25 0d 0a c8 0c fd | 20 4c 25 3e 3d 52 25 0d |=J%.....| L%>=R%.|
|00001ba0| 0a d2 0a fd 20 53 25 3d | 30 0d 0a dc 05 e1 0d 0a |.... S%=|0.......|
|00001bb0| e6 05 20 0d 0a f0 05 20 | 0d 0a fa 11 dd 20 f2 73 |.. .... |..... .s|
|00001bc0| 65 6c 65 63 74 73 6f 72 | 74 0d 0b 04 11 e3 20 49 |electsor|t..... I|
|00001bd0| 25 3d 31 20 b8 20 4e 25 | 2d 31 0d 0b 0e 09 4d 25 |%=1 . N%|-1....M%|
|00001be0| 3d 49 25 0d 0b 18 12 e3 | 20 4a 25 3d 49 25 2b 31 |=I%.....| J%=I%+1|
|00001bf0| 20 b8 20 4e 25 0d 0b 22 | 1f e7 20 4b 65 79 25 28 | . N%.."|.. Key%(|
|00001c00| 4a 25 29 3c 4b 65 79 25 | 28 4d 25 29 20 8c 20 4d |J%)<Key%|(M%) . M|
|00001c10| 25 3d 4a 25 0d 0b 2c 05 | ed 0d 0b 36 21 54 25 3d |%=J%..,.|...6!T%=|
|00001c20| 4b 65 79 25 28 4d 25 29 | 3a 4b 65 79 25 28 4d 25 |Key%(M%)|:Key%(M%|
|00001c30| 29 3d 4b 65 79 25 28 49 | 25 29 0d 0b 40 24 e6 30 |)=Key%(I|%)..@$.0|
|00001c40| 2c 30 3a c8 92 20 32 2a | 4d 25 2c 54 25 3a c8 92 |,0:.. 2*|M%,T%:..|
|00001c50| 20 32 2a 49 25 2c 4b 65 | 79 25 28 49 25 29 0d 0b | 2*I%,Ke|y%(I%)..|
|00001c60| 4a 24 e6 30 2c 31 3a c8 | 92 20 32 2a 4d 25 2c 4b |J$.0,1:.|. 2*M%,K|
|00001c70| 65 79 25 28 49 25 29 3a | c8 92 20 32 2a 49 25 2c |ey%(I%):|.. 2*I%,|
|00001c80| 54 25 0d 0b 54 0f 4b 65 | 79 25 28 49 25 29 3d 54 |T%..T.Ke|y%(I%)=T|
|00001c90| 25 0d 0b 5e 05 ed 0d 0b | 68 05 e1 0d ff 46 69 6c |%..^....|h....Fil|
|00001ca0| 65 44 61 74 61 82 50 61 | 74 4d 61 74 63 68 00 00 |eData.Pa|tMatch..|
|00001cb0| 00 68 12 00 00 42 fb ff | ff 89 cf 6f da 03 00 dc |.h...B..|...o....|
|00001cc0| e6 0d 00 0a 33 f4 20 50 | 72 6f 67 72 61 6d 20 50 |....3. P|rogram P|
|00001cd0| 61 74 4d 61 74 63 68 20 | 20 76 31 32 20 20 28 41 |atMatch | v12 (A|
|00001ce0| 72 63 68 69 6d 65 64 65 | 73 20 2b 20 42 41 53 49 |rchimede|s + BASI|
|00001cf0| 43 20 56 29 0d 00 14 21 | f4 20 28 63 29 20 44 2e |C V)...!|. (c) D.|
|00001d00| 45 2e 20 42 6f 77 65 72 | 20 20 32 37 20 44 65 63 |E. Bower| 27 Dec|
|00001d10| 20 31 39 39 30 0d 00 1e | 05 20 0d 00 28 27 f4 20 | 1990...|. ..('. |
|00001d20| 44 65 6d 6f 20 66 6f 72 | 20 4b 6e 75 74 68 2d 4d |Demo for| Knuth-M|
|00001d30| 6f 72 72 69 73 2d 50 72 | 61 74 74 20 28 4b 4d 50 |orris-Pr|att (KMP|
|00001d40| 29 0d 00 32 26 f4 20 42 | 6f 79 65 72 2d 4d 6f 6f |)..2&. B|oyer-Moo|
|00001d50| 72 65 20 28 42 4d 29 20 | 61 6e 64 20 62 72 75 74 |re (BM) |and brut|
|00001d60| 65 20 66 6f 72 63 65 0d | 00 3c 22 f4 20 70 61 74 |e force.|.<". pat|
|00001d70| 74 65 72 6e 20 6d 61 74 | 63 68 69 6e 67 20 61 6c |tern mat|ching al|
|00001d80| 67 6f 72 69 74 68 6d 73 | 2e 0d 00 46 05 20 0d 00 |gorithms|...F. ..|
|00001d90| 50 30 f4 20 53 65 61 72 | 63 68 20 54 65 78 74 20 |P0. Sear|ch Text |
|00001da0| 73 74 72 69 6e 67 20 54 | 65 78 74 28 31 29 2e 2e |string T|ext(1)..|
|00001db0| 2e 54 65 78 74 28 54 65 | 78 74 6c 65 6e 29 0d 00 |.Text(Te|xtlen)..|
|00001dc0| 5a 2f f4 20 66 6f 72 20 | 50 61 74 74 65 72 6e 20 |Z/. for |Pattern |
|00001dd0| 73 74 72 69 6e 67 20 50 | 61 74 6e 28 31 29 2e 2e |string P|atn(1)..|
|00001de0| 2e 50 61 74 6e 28 50 61 | 74 6c 65 6e 29 0d 00 64 |.Patn(Pa|tlen)..d|
|00001df0| 05 20 0d 00 6e 2e f4 20 | 4e 6f 74 65 20 74 68 61 |. ..n.. |Note tha|
|00001e00| 74 20 74 68 65 20 70 72 | 6f 67 72 61 6d 20 68 61 |t the pr|ogram ha|
|00001e10| 73 20 62 65 65 6e 20 6f | 70 74 69 6d 69 73 65 64 |s been o|ptimised|
|00001e20| 0d 00 78 2d f4 20 66 6f | 72 20 63 6c 61 72 69 74 |..x-. fo|r clarit|
|00001e30| 79 20 72 61 74 68 65 72 | 20 74 68 61 6e 20 65 78 |y rather| than ex|
|00001e40| 65 63 75 74 69 6f 6e 20 | 73 70 65 65 64 0d 00 82 |ecution |speed...|
|00001e50| 31 f4 20 65 78 63 65 70 | 74 20 74 68 61 74 20 74 |1. excep|t that t|
|00001e60| 68 65 20 70 61 74 74 65 | 72 6e 20 61 6e 64 20 74 |he patte|rn and t|
|00001e70| 65 78 74 20 61 72 65 20 | 73 74 6f 72 65 64 0d 00 |ext are |stored..|
|00001e80| 8c 32 f4 20 61 73 20 62 | 79 74 65 20 61 72 72 61 |.2. as b|yte arra|
|00001e90| 79 73 20 66 6f 72 20 66 | 61 73 74 20 61 63 63 65 |ys for f|ast acce|
|00001ea0| 73 73 20 74 6f 20 63 68 | 61 72 61 63 74 65 72 73 |ss to ch|aracters|
|00001eb0| 0d 00 96 05 20 0d 00 a0 | 20 f4 20 27 41 6c 67 6f |.... ...| . 'Algo|
|00001ec0| 72 69 74 68 6d 73 27 20 | 20 52 2e 20 53 65 64 67 |rithms' | R. Sedg|
|00001ed0| 65 77 69 63 6b 0d 00 aa | 23 f4 20 28 32 6e 64 20 |ewick...|#. (2nd |
|00001ee0| 65 64 2e 20 41 64 64 69 | 73 6f 6e 2d 57 65 73 6c |ed. Addi|son-Wesl|
|00001ef0| 65 79 20 31 39 38 39 29 | 0d 00 b4 04 0d 00 be 2d |ey 1989)|.......-|
|00001f00| f4 20 27 48 6f 77 20 74 | 6f 20 53 6f 6c 76 65 20 |. 'How t|o Solve |
|00001f10| 69 74 20 62 79 20 43 6f | 6d 70 75 74 65 72 27 20 |it by Co|mputer' |
|00001f20| 52 2e 20 44 72 6f 6d 65 | 79 0d 00 c8 1a f4 20 28 |R. Drome|y..... (|
|00001f30| 50 72 65 6e 74 69 63 65 | 2d 48 61 6c 6c 20 31 39 |Prentice|-Hall 19|
|00001f40| 38 32 29 0d 00 d2 05 20 | 0d 00 dc 21 f4 20 20 4d |82).... |...!. M|
|00001f50| 65 74 68 6f 64 20 20 20 | 41 76 65 72 61 67 65 20 |ethod |Average |
|00001f60| 20 20 20 20 57 6f 72 73 | 74 0d 00 e6 21 f4 20 20 | Wors|t...!. |
|00001f70| 20 20 20 20 20 20 20 20 | 20 20 73 70 65 65 64 20 | | speed |
|00001f80| 20 20 20 20 20 20 63 61 | 73 65 0d 00 f0 05 20 0d | ca|se.... .|
|00001f90| 00 fa 29 f4 20 20 42 72 | 75 74 65 20 20 20 20 20 |..). Br|ute |
|00001fa0| 4f 28 54 29 20 20 20 20 | 20 20 20 4f 28 54 2a 50 |O(T) | O(T*P|
|00001fb0| 29 20 20 20 20 20 20 5c | 0d 01 04 3f f4 20 20 4b |) \|...?. K|
|00001fc0| 2d 4d 2d 50 20 20 20 20 | 20 4f 28 54 29 20 20 20 |-M-P | O(T) |
|00001fd0| 20 20 20 20 4f 28 54 29 | 20 20 20 20 20 20 20 20 | O(T)| |
|00001fe0| 20 7c 20 54 3d 54 65 78 | 74 6c 65 6e 20 20 20 50 | | T=Tex|tlen P|
|00001ff0| 3d 50 61 74 6c 65 6e 0d | 01 0e 29 f4 20 20 42 2d |=Patlen.|..). B-|
|00002000| 4d 20 20 20 20 20 20 20 | 4f 28 54 2f 50 29 20 20 |M |O(T/P) |
|00002010| 20 20 20 4f 28 54 2a 50 | 29 20 20 20 20 20 20 2f | O(T*P|) /|
|00002020| 0d 01 18 05 20 0d 01 22 | 05 20 0d 01 2c 44 ee 20 |.... .."|. ..,D. |
|00002030| 85 3a ee 20 85 20 87 3a | eb 30 3a fb 30 3a fb 31 |.:. . .:|.0:.0:.1|
|00002040| 32 39 3a db 3a ef 32 33 | 2c 31 2c 31 7c 3a e7 20 |29:.:.23|,1,1|:. |
|00002050| 9f 3c 3e 31 37 20 8c 3a | f6 3a f1 22 20 61 74 20 |.<>17 .:|.:." at |
|00002060| 6c 69 6e 65 20 22 3b 9e | 3a e0 20 8b 20 e0 0d 01 |line ";.|:. . ...|
|00002070| 36 05 20 0d 01 40 27 54 | 65 78 74 6c 65 6e 3d 38 |6. ..@'T|extlen=8|
|00002080| 30 30 3a 50 61 74 6d 61 | 78 3d 31 35 3a 61 73 63 |00:Patma|x=15:asc|
|00002090| 69 69 63 68 61 72 3d 31 | 32 37 0d 01 4a 05 20 0d |iichar=1|27..J. .|
|000020a0| 01 54 39 de 20 54 65 78 | 74 20 54 65 78 74 6c 65 |.T9. Tex|t Textle|
|000020b0| 6e 2c 50 61 74 6e 20 50 | 61 74 6d 61 78 2c 4e 65 |n,Patn P|atmax,Ne|
|000020c0| 78 74 20 50 61 74 6d 61 | 78 2c 53 6b 69 70 20 61 |xt Patma|x,Skip a|
|000020d0| 73 63 69 69 63 68 61 72 | 0d 01 5e 04 0d 01 68 07 |sciichar|..^...h.|
|000020e0| eb 20 37 0d 01 72 1b 52 | 24 3d bd 31 32 39 3a 47 |. 7..r.R|$=.129:G|
|000020f0| 24 3d bd 31 33 30 3a 42 | 24 3d bd 31 33 32 0d 01 |$=.130:B|$=.132..|
|00002100| 7c 0f e3 20 72 6f 77 3d | 31 20 b8 20 32 0d 01 86 ||.. row=|1 . 2...|
|00002110| 31 f1 8a 34 2c 72 6f 77 | 29 3b bd 31 34 31 3b 47 |1..4,row|);.141;G|
|00002120| 24 22 50 61 74 74 65 72 | 6e 20 4d 61 74 63 68 69 |$"Patter|n Matchi|
|00002130| 6e 67 20 41 6c 67 6f 72 | 69 74 68 6d 73 22 0d 01 |ng Algor|ithms"..|
|00002140| 90 05 ed 0d 01 9a 2a f1 | 8a 35 2c 33 29 3b 47 24 |......*.|.5,3);G$|
|00002150| 22 5f 5f 5f 5f 5f 5f 5f | 20 5f 5f 5f 5f 5f 5f 5f |"_______| _______|
|00002160| 5f 20 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 22 0d 01 a4 |_ ______|____"...|
|00002170| 05 20 0d 01 ae 2a f1 8a | 37 2c 38 29 3b 52 24 22 |. ...*..|7,8);R$"|
|00002180| 28 31 29 20 20 22 42 24 | 22 42 72 75 74 65 20 66 |(1) "B$|"Brute f|
|00002190| 6f 72 63 65 20 6d 65 74 | 68 6f 64 22 0d 01 b8 28 |orce met|hod"...(|
|000021a0| f1 8a 37 2c 31 31 29 3b | 52 24 22 28 32 29 20 20 |..7,11);|R$"(2) |
|000021b0| 22 42 24 22 4b 2d 4d 2d | 50 20 41 6c 67 6f 72 69 |"B$"K-M-|P Algori|
|000021c0| 74 68 6d 22 0d 01 c2 2b | f1 8a 37 2c 31 34 29 3b |thm"...+|..7,14);|
|000021d0| 52 24 22 28 33 29 20 20 | 22 42 24 22 42 6f 79 65 |R$"(3) |"B$"Boye|
|000021e0| 72 2d 4d 6f 6f 72 65 20 | 6d 65 74 68 6f 64 22 0d |r-Moore |method".|
|000021f0| 01 cc 29 f1 8a 37 2c 32 | 31 29 3b 47 24 22 50 6c |..)..7,2|1);G$"Pl|
|00002200| 65 61 73 65 20 65 6e 74 | 65 72 20 31 20 6f 72 20 |ease ent|er 1 or |
|00002210| 32 20 6f 72 20 33 22 3b | 0d 01 d6 05 f5 0d 01 e0 |2 or 3";|........|
|00002220| 0b 2a 46 58 31 35 2c 31 | 0d 01 ea 0d 4d 6f 64 65 |.*FX15,1|....Mode|
|00002230| 3d a5 2d 34 38 0d 01 f4 | 1e fd 20 4d 6f 64 65 3d |=.-48...|.. Mode=|
|00002240| 31 20 84 20 4d 6f 64 65 | 3d 32 20 84 20 4d 6f 64 |1 . Mode|=2 . Mod|
|00002250| 65 3d 33 0d 01 fe 05 20 | 0d 02 08 2a f1 8a 37 2c |e=3.... |...*..7,|
|00002260| 38 29 3b 52 24 22 28 31 | 29 20 20 22 42 24 22 4c |8);R$"(1|) "B$"L|
|00002270| 61 6e 67 75 61 67 65 20 | 20 20 54 65 78 74 20 20 |anguage | Text |
|00002280| 20 22 0d 02 12 15 f1 8a | 37 2c 31 31 29 3b c4 33 | "......|7,11);.3|
|00002290| 30 2c 22 20 22 29 3b 0d | 02 1c 2b f1 8a 37 2c 31 |0," ");.|..+..7,1|
|000022a0| 34 29 3b 52 24 22 28 32 | 29 20 20 22 42 24 22 52 |4);R$"(2|) "B$"R|
|000022b0| 61 6e 64 6f 6d 69 73 65 | 64 20 54 65 78 74 20 20 |andomise|d Text |
|000022c0| 20 22 0d 02 26 15 f1 8a | 37 2c 32 31 29 3b c4 33 | "..&...|7,21);.3|
|000022d0| 30 2c 22 20 22 29 3b 0d | 02 30 24 f1 8a 37 2c 32 |0," ");.|.0$..7,2|
|000022e0| 31 29 3b 47 24 22 50 6c | 65 61 73 65 20 65 6e 74 |1);G$"Pl|ease ent|
|000022f0| 65 72 20 31 20 6f 72 20 | 32 22 3b 0d 02 3a 05 f5 |er 1 or |2";..:..|
|00002300| 0d 02 44 0b 2a 46 58 31 | 35 2c 31 0d 02 4e 0e 4c |..D.*FX1|5,1..N.L|
|00002310| 74 79 70 65 3d a5 2d 34 | 38 0d 02 58 17 fd 20 4c |type=.-4|8..X.. L|
|00002320| 74 79 70 65 3d 31 20 84 | 20 4c 74 79 70 65 3d 32 |type=1 .| Ltype=2|
|00002330| 0d 02 62 05 20 0d 02 6c | 07 eb 20 37 0d 02 76 0c |..b. ..l|.. 7..v.|
|00002340| ef 32 33 2c 31 2c 30 7c | 0d 02 80 2b ef 32 33 2c |.23,1,0||...+.23,|
|00002350| 32 35 35 2c 32 35 35 2c | 32 35 35 2c 32 35 35 2c |255,255,|255,255,|
|00002360| 32 35 35 2c 32 35 35 2c | 32 35 35 2c 32 35 35 2c |255,255,|255,255,|
|00002370| 32 35 35 0d 02 8a 0b 42 | 6c 6b 3d 32 35 35 0d 02 |255....B|lk=255..|
|00002380| 94 08 4b 25 3d 30 0d 02 | 9e 05 20 0d 02 a8 15 e3 |..K%=0..|.. .....|
|00002390| 20 50 70 74 3d 31 20 b8 | 20 54 65 78 74 6c 65 6e | Ppt=1 .| Textlen|
|000023a0| 0d 02 b2 0f e7 20 4c 74 | 79 70 65 3d 31 20 8c 0d |..... Lt|ype=1 ..|
|000023b0| 02 bc 29 f5 3a 4b 25 3d | 4b 25 2b 31 3a 5a 25 3d |..).:K%=|K%+1:Z%=|
|000023c0| 3f 28 90 2b 4b 25 29 3a | fd 20 5a 25 3e 33 31 20 |?(.+K%):|. Z%>31 |
|000023d0| 80 20 5a 25 3c 31 32 37 | 0d 02 c6 05 cc 0d 02 d0 |. Z%<127|........|
|000023e0| 0f 5a 25 3d 33 31 2b b3 | 28 39 35 29 0d 02 da 05 |.Z%=31+.|(95)....|
|000023f0| cd 0d 02 e4 14 54 65 78 | 74 3f 50 70 74 3d 5a 25 |.....Tex|t?Ppt=Z%|
|00002400| 3a ef 20 5a 25 0d 02 ee | 05 ed 0d 02 f8 05 20 0d |:. Z%...|...... .|
|00002410| 03 02 2f e7 20 4d 6f 64 | 65 3d 31 20 8c 20 f1 8a |../. Mod|e=1 . ..|
|00002420| 31 30 2c 32 31 29 3b 42 | 24 22 42 72 75 74 65 20 |10,21);B|$"Brute |
|00002430| 66 6f 72 63 65 20 6d 65 | 74 68 6f 64 22 3b 0d 03 |force me|thod";..|
|00002440| 0c 2c e7 20 4d 6f 64 65 | 3d 32 20 8c 20 f1 8a 31 |.,. Mode|=2 . ..1|
|00002450| 32 2c 32 31 29 3b 42 24 | 22 4b 2d 4d 2d 50 20 41 |2,21);B$|"K-M-P A|
|00002460| 6c 67 6f 72 69 74 68 6d | 22 3b 0d 03 16 2f e7 20 |lgorithm|";.../. |
|00002470| 4d 6f 64 65 3d 33 20 8c | 20 f1 8a 31 30 2c 32 31 |Mode=3 .| ..10,21|
|00002480| 29 3b 42 24 22 42 6f 79 | 65 72 2d 4d 6f 6f 72 65 |);B$"Boy|er-Moore|
|00002490| 20 6d 65 74 68 6f 64 22 | 3b 0d 03 20 05 20 0d 03 | method"|;.. . ..|
|000024a0| 2a 05 f5 0d 03 34 05 20 | 0d 03 3e 05 f5 0d 03 48 |*....4. |..>....H|
|000024b0| 15 f1 8a 30 2c 32 33 29 | 3b c4 34 30 2c 22 20 22 |...0,23)|;.40," "|
|000024c0| 29 3b 0d 03 52 15 f1 8a | 30 2c 32 34 29 3b c4 31 |);..R...|0,24);.1|
|000024d0| 33 2c 22 20 22 29 3b 0d | 03 5c 1b f1 20 52 24 3b |3," ");.|.\.. R$;|
|000024e0| c4 31 35 2c 22 5f 22 29 | 2b c4 31 30 2c 22 20 22 |.15,"_")|+.10," "|
|000024f0| 29 3b 0d 03 66 1b f1 8a | 31 2c 32 33 29 3b 22 54 |);..f...|1,23);"T|
|00002500| 65 73 74 20 73 74 72 69 | 6e 67 20 22 3b 0d 03 70 |est stri|ng ";..p|
|00002510| 0c ef 32 33 2c 31 2c 31 | 7c 0d 03 7a 0b 2a 46 58 |..23,1,1||..z.*FX|
|00002520| 31 35 2c 31 0d 03 84 0e | e8 86 20 22 82 22 50 61 |15,1....|.. "."Pa|
|00002530| 74 24 0d 03 8e 12 50 61 | 74 6c 65 6e 3d a9 28 50 |t$....Pa|tlen=.(P|
|00002540| 61 74 24 29 0d 03 98 1f | fd 20 50 61 74 6c 65 6e |at$)....|. Patlen|
|00002550| 3e 30 20 80 20 50 61 74 | 6c 65 6e 3c 3d 50 61 74 |>0 . Pat|len<=Pat|
|00002560| 6d 61 78 0d 03 a2 24 f1 | 8a 31 34 2b 50 61 74 6c |max...$.|.14+Patl|
|00002570| 65 6e 2c 32 34 29 3b c4 | 32 35 2d 50 61 74 6c 65 |en,24);.|25-Patle|
|00002580| 6e 2c 22 20 22 29 3b 0d | 03 ac 1d 4c 61 73 74 70 |n," ");.|...Lastp|
|00002590| 6f 73 73 3d 54 65 78 74 | 6c 65 6e 2d 50 61 74 6c |oss=Text|len-Patl|
|000025a0| 65 6e 2b 31 0d 03 b6 05 | 20 0d 03 c0 15 4e 6d 61 |en+1....| ....Nma|
|000025b0| 74 63 68 3d 30 3a d1 3d | 30 3a 54 54 3d 30 0d 03 |tch=0:.=|0:TT=0..|
|000025c0| ca 0c ef 32 33 2c 31 2c | 30 7c 0d 03 d4 14 e3 20 |...23,1,|0|..... |
|000025d0| 50 70 74 3d 31 20 b8 20 | 50 61 74 6c 65 6e 0d 03 |Ppt=1 . |Patlen..|
|000025e0| de 1c 50 61 74 6e 3f 50 | 70 74 3d 97 28 c1 50 61 |..Patn?P|pt=.(.Pa|
|000025f0| 74 24 2c 50 70 74 2c 31 | 29 29 0d 03 e8 05 ed 0d |t$,Ppt,1|))......|
|00002600| 03 f2 05 20 0d 03 fc 0d | c8 8e 20 4d 6f 64 65 20 |... ....|.. Mode |
|00002610| ca 0d 04 06 0f c9 20 31 | 3a 20 f2 62 72 75 74 65 |...... 1|: .brute|
|00002620| 0d 04 10 0d c9 20 32 3a | 20 f2 6b 6d 70 0d 04 1a |..... 2:| .kmp...|
|00002630| 0c c9 20 33 3a 20 f2 62 | 6d 0d 04 24 05 cb 0d 04 |.. 3: .b|m..$....|
|00002640| 2e 05 20 0d 04 38 07 fd | 20 a3 0d 04 42 05 20 0d |.. ..8..| ...B. .|
|00002650| 04 4c 05 20 0d 04 56 0b | dd 20 f2 64 69 73 70 0d |.L. ..V.|. .disp.|
|00002660| 04 60 08 54 54 3d 91 0d | 04 6a 1b f1 8a 32 39 2c |.`.TT=..|.j...29,|
|00002670| 32 33 29 3b 42 24 22 54 | 69 6d 65 3a 20 22 3b 54 |23);B$"T|ime: ";T|
|00002680| 54 3b 0d 04 74 15 e7 20 | 70 6f 73 3c 3d 4c 61 73 |T;..t.. |pos<=Las|
|00002690| 74 70 6f 73 73 20 8c 0d | 04 7e 13 4e 6d 61 74 63 |tposs ..|.~.Nmatc|
|000026a0| 68 3d 4e 6d 61 74 63 68 | 2b 31 0d 04 88 15 79 74 |h=Nmatch|+1....yt|
|000026b0| 61 62 3d 28 70 6f 73 2d | 31 29 20 81 20 34 30 0d |ab=(pos-|1) . 40.|
|000026c0| 04 92 15 78 74 61 62 3d | 28 70 6f 73 2d 31 29 20 |...xtab=|(pos-1) |
|000026d0| 83 20 34 30 0d 04 9c 11 | f1 8a 78 74 61 62 2c 79 |. 40....|..xtab,y|
|000026e0| 74 61 62 29 3b 0d 04 a6 | 1d e3 20 63 70 6f 73 3d |tab);...|.. cpos=|
|000026f0| 70 6f 73 20 b8 20 70 6f | 73 2b 50 61 74 6c 65 6e |pos . po|s+Patlen|
|00002700| 2d 31 0d 04 b0 09 ef 20 | 42 6c 6b 0d 04 ba 05 ed |-1..... |Blk.....|
|00002710| 0d 04 c4 3c f1 8a 30 2c | 32 34 29 3b 52 24 22 50 |...<..0,|24);R$"P|
|00002720| 6f 73 23 22 3b 4e 6d 61 | 74 63 68 3b c4 2d 28 4e |os#";Nma|tch;.-(N|
|00002730| 6d 61 74 63 68 3c 31 30 | 30 29 2c 22 20 22 29 22 |match<10|0)," ")"|
|00002740| 3a 20 22 3b 70 6f 73 3b | 22 20 22 3b 0d 04 ce 1b |: ";pos;|" ";....|
|00002750| f1 8a 32 39 2c 32 34 29 | 3b 42 24 22 48 69 74 20 |..29,24)|;B$"Hit |
|00002760| 61 20 6b 65 79 22 3b 0d | 04 d8 0b 2a 46 58 31 35 |a key";.|...*FX15|
|00002770| 2c 31 0d 04 e2 07 47 3d | a5 0d 04 ec 11 f1 8a 78 |,1....G=|.......x|
|00002780| 74 61 62 2c 79 74 61 62 | 29 3b 0d 04 f6 15 e3 20 |tab,ytab|);..... |
|00002790| 63 70 6f 73 3d 31 20 b8 | 20 50 61 74 6c 65 6e 0d |cpos=1 .| Patlen.|
|000027a0| 05 00 0f ef 20 50 61 74 | 6e 3f 63 70 6f 73 0d 05 |.... Pat|n?cpos..|
|000027b0| 0a 05 ed 0d 05 14 05 cd | 0d 05 1e 14 e7 20 54 70 |........|..... Tp|
|000027c0| 74 3e 4c 61 73 74 70 6f | 73 73 20 8c 0d 05 28 0c |t>Lastpo|ss ...(.|
|000027d0| f1 8a 30 2c 32 34 29 3b | 0d 05 32 22 e7 20 4e 6d |..0,24);|..2". Nm|
|000027e0| 61 74 63 68 3d 30 20 f1 | 20 3b 52 24 22 88 4e 6f |atch=0 .| ;R$".No|
|000027f0| 74 20 66 6f 75 6e 64 89 | 22 3b 0d 05 3c 29 e7 20 |t found.|";..<). |
|00002800| 4e 6d 61 74 63 68 3e 30 | 20 f1 20 3b 52 24 3b 4e |Nmatch>0| . ;R$;N|
|00002810| 6d 61 74 63 68 3b 22 20 | 6d 61 74 63 68 28 65 73 |match;" |match(es|
|00002820| 29 22 3b 0d 05 46 1b f1 | 8a 32 39 2c 32 34 29 3b |)";..F..|.29,24);|
|00002830| 42 24 22 48 69 74 20 61 | 20 6b 65 79 22 3b 0d 05 |B$"Hit a| key";..|
|00002840| 50 0b 2a 46 58 31 35 2c | 31 0d 05 5a 07 47 3d a5 |P.*FX15,|1..Z.G=.|
|00002850| 0d 05 64 05 cd 0d 05 6e | 16 f1 8a 32 39 2c 32 33 |..d....n|...29,23|
|00002860| 29 3b c4 31 31 2c 22 20 | 22 29 3b 0d 05 78 16 f1 |);.11," |");..x..|
|00002870| 8a 32 39 2c 32 34 29 3b | c4 31 30 2c 22 20 22 29 |.29,24);|.10," ")|
|00002880| 3b 0d 05 82 08 d1 3d 54 | 54 0d 05 8c 05 e1 0d 05 |;.....=T|T.......|
|00002890| 96 05 20 0d 05 a0 05 20 | 0d 05 aa 0a dd 20 f2 6b |.. .... |..... .k|
|000028a0| 6d 70 0d 05 b4 0e f2 73 | 65 74 75 70 62 61 63 6b |mp.....s|etupback|
|000028b0| 0d 05 be 12 ea 20 54 70 | 74 2c 50 70 74 2c 53 74 |..... Tp|t,Ppt,St|
|000028c0| 2c 54 0d 05 c8 09 54 70 | 74 3d 31 0d 05 d2 13 c8 |,T....Tp|t=1.....|
|000028d0| 95 20 54 70 74 3c 3d 54 | 65 78 74 6c 65 6e 0d 05 |. Tpt<=T|extlen..|
|000028e0| dc 09 50 70 74 3d 31 0d | 05 e6 05 f5 0d 05 f0 09 |..Ppt=1.|........|
|000028f0| 54 3d 54 70 74 0d 05 fa | 13 79 74 61 62 3d 28 54 |T=Tpt...|.ytab=(T|
|00002900| 2d 31 29 20 81 20 34 30 | 0d 06 04 13 78 74 61 62 |-1) . 40|....xtab|
|00002910| 3d 28 54 2d 31 29 20 83 | 20 34 30 0d 06 0e 11 f1 |=(T-1) .| 40.....|
|00002920| 8a 78 74 61 62 2c 79 74 | 61 62 29 3b 0d 06 18 09 |.xtab,yt|ab);....|
|00002930| ef 20 42 6c 6b 0d 06 22 | 19 e7 20 54 65 78 74 3f |. Blk.."|.. Text?|
|00002940| 54 70 74 3d 50 61 74 6e | 3f 50 70 74 20 8c 0d 06 |Tpt=Patn|?Ppt ...|
|00002950| 2c 11 54 70 74 2b 3d 31 | 3a 50 70 74 2b 3d 31 0d |,.Tpt+=1|:Ppt+=1.|
|00002960| 06 36 05 cc 0d 06 40 10 | 50 70 74 3d 4e 65 78 74 |.6....@.|Ppt=Next|
|00002970| 3f 50 70 74 0d 06 4a 1a | e7 20 50 70 74 3d 30 20 |?Ppt..J.|. Ppt=0 |
|00002980| 8c 3a 50 70 74 3d 31 3a | 54 70 74 2b 3d 31 0d 06 |.:Ppt=1:|Tpt+=1..|
|00002990| 54 05 cd 0d 06 5e 11 f1 | 8a 78 74 61 62 2c 79 74 |T....^..|.xtab,yt|
|000029a0| 61 62 29 3b 0d 06 68 0c | ef 20 54 65 78 74 3f 54 |ab);..h.|. Text?T|
|000029b0| 0d 06 72 1e fd 20 50 70 | 74 3e 50 61 74 6c 65 6e |..r.. Pp|t>Patlen|
|000029c0| 20 84 20 54 70 74 3e 54 | 65 78 74 6c 65 6e 0d 06 | . Tpt>T|extlen..|
|000029d0| 7c 29 70 6f 73 3d 54 70 | 74 3a e7 20 50 70 74 3e ||)pos=Tp|t:. Ppt>|
|000029e0| 50 61 74 6c 65 6e 20 8c | 20 70 6f 73 3d 54 70 74 |Patlen .| pos=Tpt|
|000029f0| 2d 50 61 74 6c 65 6e 0d | 06 86 09 f2 64 69 73 70 |-Patlen.|....disp|
|00002a00| 0d 06 90 05 ce 0d 06 9a | 05 e1 0d 06 a4 05 20 0d |........|...... .|
|00002a10| 06 ae 05 20 0d 06 b8 10 | dd 20 f2 73 65 74 75 70 |... ....|. .setup|
|00002a20| 62 61 63 6b 0d 06 c2 0d | ea 20 54 70 74 2c 50 70 |back....|. Tpt,Pp|
|00002a30| 74 0d 06 cc 18 54 70 74 | 3d 31 3a 50 70 74 3d 30 |t....Tpt|=1:Ppt=0|
|00002a40| 3a 4e 65 78 74 3f 31 3d | 30 0d 06 d6 05 f5 0d 06 |:Next?1=|0.......|
|00002a50| e0 21 e7 20 50 70 74 3d | 30 20 84 20 50 61 74 6e |.!. Ppt=|0 . Patn|
|00002a60| 3f 54 70 74 3d 50 61 74 | 6e 3f 50 70 74 20 8c 0d |?Tpt=Pat|n?Ppt ..|
|00002a70| 06 ea 11 54 70 74 2b 3d | 31 3a 50 70 74 2b 3d 31 |...Tpt+=|1:Ppt+=1|
|00002a80| 0d 06 f4 3a e7 20 50 61 | 74 6e 3f 54 70 74 3d 50 |...:. Pa|tn?Tpt=P|
|00002a90| 61 74 6e 3f 50 70 74 20 | 8c 20 4e 65 78 74 3f 54 |atn?Ppt |. Next?T|
|00002aa0| 70 74 3d 4e 65 78 74 3f | 50 70 74 20 8b 20 4e 65 |pt=Next?|Ppt . Ne|
|00002ab0| 78 74 3f 54 70 74 3d 50 | 70 74 0d 06 fe 05 cc 0d |xt?Tpt=P|pt......|
|00002ac0| 07 08 10 50 70 74 3d 4e | 65 78 74 3f 50 70 74 0d |...Ppt=N|ext?Ppt.|
|00002ad0| 07 12 05 cd 0d 07 1c 11 | fd 20 54 70 74 3e 3d 50 |........|. Tpt>=P|
|00002ae0| 61 74 6c 65 6e 0d 07 26 | 05 e1 0d 07 30 05 20 0d |atlen..&|....0. .|
|00002af0| 07 3a 05 20 0d 07 44 0c | dd 20 f2 62 72 75 74 65 |.:. ..D.|. .brute|
|00002b00| 0d 07 4e 12 ea 20 54 70 | 74 2c 50 70 74 2c 53 74 |..N.. Tp|t,Ppt,St|
|00002b10| 2c 54 0d 07 58 09 54 70 | 74 3d 31 0d 07 62 13 c8 |,T..X.Tp|t=1..b..|
|00002b20| 95 20 54 70 74 3c 3d 54 | 65 78 74 6c 65 6e 0d 07 |. Tpt<=T|extlen..|
|00002b30| 6c 09 50 70 74 3d 31 0d | 07 76 05 f5 0d 07 80 09 |l.Ppt=1.|.v......|
|00002b40| 54 3d 54 70 74 0d 07 8a | 13 79 74 61 62 3d 28 54 |T=Tpt...|.ytab=(T|
|00002b50| 2d 31 29 20 81 20 34 30 | 0d 07 94 13 78 74 61 62 |-1) . 40|....xtab|
|00002b60| 3d 28 54 2d 31 29 20 83 | 20 34 30 0d 07 9e 11 f1 |=(T-1) .| 40.....|
|00002b70| 8a 78 74 61 62 2c 79 74 | 61 62 29 3b 0d 07 a8 09 |.xtab,yt|ab);....|
|00002b80| ef 20 42 6c 6b 0d 07 b2 | 19 e7 20 54 65 78 74 3f |. Blk...|.. Text?|
|00002b90| 54 70 74 3d 50 61 74 6e | 3f 50 70 74 20 8c 0d 07 |Tpt=Patn|?Ppt ...|
|00002ba0| bc 11 54 70 74 2b 3d 31 | 3a 50 70 74 2b 3d 31 0d |..Tpt+=1|:Ppt+=1.|
|00002bb0| 07 c6 05 cc 0d 07 d0 0e | 54 70 74 2b 3d 32 2d 50 |........|Tpt+=2-P|
|00002bc0| 70 74 0d 07 da 09 50 70 | 74 3d 31 0d 07 e4 05 cd |pt....Pp|t=1.....|
|00002bd0| 0d 07 ee 11 f1 8a 78 74 | 61 62 2c 79 74 61 62 29 |......xt|ab,ytab)|
|00002be0| 3b 0d 07 f8 0c ef 20 54 | 65 78 74 3f 54 0d 08 02 |;..... T|ext?T...|
|00002bf0| 1e fd 20 50 70 74 3e 50 | 61 74 6c 65 6e 20 84 20 |.. Ppt>P|atlen . |
|00002c00| 54 70 74 3e 54 65 78 74 | 6c 65 6e 0d 08 0c 29 70 |Tpt>Text|len...)p|
|00002c10| 6f 73 3d 54 70 74 3a e7 | 20 50 70 74 3e 50 61 74 |os=Tpt:.| Ppt>Pat|
|00002c20| 6c 65 6e 20 8c 20 70 6f | 73 3d 54 70 74 2d 50 61 |len . po|s=Tpt-Pa|
|00002c30| 74 6c 65 6e 0d 08 16 09 | f2 64 69 73 70 0d 08 20 |tlen....|.disp.. |
|00002c40| 05 ce 0d 08 2a 05 e1 0d | 08 34 05 20 0d 08 3e 05 |....*...|.4. ..>.|
|00002c50| 20 0d 08 48 10 dd 20 f2 | 73 65 74 75 70 73 6b 69 | ..H.. .|setupski|
|00002c60| 70 0d 08 52 0f ea 20 61 | 73 63 69 69 2c 50 70 74 |p..R.. a|scii,Ppt|
|00002c70| 0d 08 5c 19 e3 20 61 73 | 63 69 69 3d 30 20 b8 20 |..\.. as|cii=0 . |
|00002c80| 61 73 63 69 69 63 68 61 | 72 0d 08 66 15 53 6b 69 |asciicha|r..f.Ski|
|00002c90| 70 3f 61 73 63 69 69 3d | 50 61 74 6c 65 6e 0d 08 |p?ascii=|Patlen..|
|00002ca0| 70 05 ed 0d 08 7a 16 e3 | 20 50 70 74 3d 31 20 b8 |p....z..| Ppt=1 .|
|00002cb0| 20 50 61 74 6c 65 6e 2d | 31 0d 08 84 1e 53 6b 69 | Patlen-|1....Ski|
|00002cc0| 70 3f 28 50 61 74 6e 3f | 50 70 74 29 3d 50 61 74 |p?(Patn?|Ppt)=Pat|
|00002cd0| 6c 65 6e 2d 50 70 74 0d | 08 8e 05 ed 0d 08 98 1c |len-Ppt.|........|
|00002ce0| 53 6c 61 73 74 3d 53 6b | 69 70 3f 28 50 61 74 6e |Slast=Sk|ip?(Patn|
|00002cf0| 3f 50 61 74 6c 65 6e 29 | 0d 08 a2 18 53 6b 69 70 |?Patlen)|....Skip|
|00002d00| 3f 28 50 61 74 6e 3f 50 | 61 74 6c 65 6e 29 3d 30 |?(Patn?P|atlen)=0|
|00002d10| 0d 08 ac 05 e1 0d 08 b6 | 05 20 0d 08 c0 05 20 0d |........|. .... .|
|00002d20| 08 ca 09 dd 20 f2 62 6d | 0d 08 d4 0e f2 73 65 74 |.... .bm|.....set|
|00002d30| 75 70 73 6b 69 70 0d 08 | de 1f ea 20 54 70 74 2c |upskip..|... Tpt,|
|00002d40| 54 63 68 61 72 2c 50 70 | 74 2c 50 6d 31 2c 53 74 |Tchar,Pp|t,Pm1,St|
|00002d50| 2c 54 2c 53 6b 0d 08 e8 | 24 54 70 74 3d 50 61 74 |,T,Sk...|$Tpt=Pat|
|00002d60| 6c 65 6e 3a 50 6d 31 3d | 50 61 74 6c 65 6e 2d 31 |len:Pm1=|Patlen-1|
|00002d70| 3a 44 65 6c 74 3d 50 6d | 31 0d 08 f2 16 e7 20 44 |:Delt=Pm|1..... D|
|00002d80| 65 6c 74 3c 3d 30 20 8c | 20 44 65 6c 74 3d 31 0d |elt<=0 .| Delt=1.|
|00002d90| 08 fc 13 c8 95 20 54 70 | 74 3c 3d 54 65 78 74 6c |..... Tp|t<=Textl|
|00002da0| 65 6e 0d 09 06 0e 50 70 | 74 3d 50 61 74 6c 65 6e |en....Pp|t=Patlen|
|00002db0| 0d 09 10 05 f5 0d 09 1a | 09 54 3d 54 70 74 0d 09 |........|.T=Tpt..|
|00002dc0| 24 13 79 74 61 62 3d 28 | 54 2d 31 29 20 81 20 34 |$.ytab=(|T-1) . 4|
|00002dd0| 30 0d 09 2e 13 78 74 61 | 62 3d 28 54 2d 31 29 20 |0....xta|b=(T-1) |
|00002de0| 83 20 34 30 0d 09 38 11 | f1 8a 78 74 61 62 2c 79 |. 40..8.|..xtab,y|
|00002df0| 74 61 62 29 3b 0d 09 42 | 09 ef 20 42 6c 6b 0d 09 |tab);..B|.. Blk..|
|00002e00| 4c 16 53 6b 3d 53 6b 69 | 70 3f 28 54 65 78 74 3f |L.Sk=Ski|p?(Text?|
|00002e10| 54 70 74 29 0d 09 56 0c | e7 20 53 6b 3e 30 20 8c |Tpt)..V.|. Sk>0 .|
|00002e20| 0d 09 60 0b 54 70 74 2b | 3d 53 6b 0d 09 6a 05 cc |..`.Tpt+|=Sk..j..|
|00002e30| 0d 09 74 0f 54 63 68 61 | 72 3d 54 70 74 2d 31 0d |..t.Tcha|r=Tpt-1.|
|00002e40| 09 7e 0b 50 70 74 3d 50 | 6d 31 0d 09 88 22 c8 95 |.~.Ppt=P|m1..."..|
|00002e50| 20 50 70 74 3e 30 20 80 | 20 54 65 78 74 3f 54 63 | Ppt>0 .| Text?Tc|
|00002e60| 68 61 72 3d 50 61 74 6e | 3f 50 70 74 0d 09 92 0c |har=Patn|?Ppt....|
|00002e70| 54 63 68 61 72 2d 3d 31 | 0d 09 9c 0a 50 70 74 2d |Tchar-=1|....Ppt-|
|00002e80| 3d 31 0d 09 a6 05 ce 0d | 09 b0 0e 54 70 74 2b 3d |=1......|...Tpt+=|
|00002e90| 53 6c 61 73 74 0d 09 ba | 05 cd 0d 09 c4 11 f1 8a |Slast...|........|
|00002ea0| 78 74 61 62 2c 79 74 61 | 62 29 3b 0d 09 ce 0c ef |xtab,yta|b);.....|
|00002eb0| 20 54 65 78 74 3f 54 0d | 09 d8 19 fd 20 50 70 74 | Text?T.|.... Ppt|
|00002ec0| 3d 30 20 84 20 54 70 74 | 3e 54 65 78 74 6c 65 6e |=0 . Tpt|>Textlen|
|00002ed0| 0d 09 e2 0d e7 20 50 70 | 74 3d 30 20 8c 0d 09 ec |..... Pp|t=0 ....|
|00002ee0| 0f 70 6f 73 3d 54 63 68 | 61 72 2b 31 0d 09 f6 0d |.pos=Tch|ar+1....|
|00002ef0| 54 70 74 2b 3d 44 65 6c | 74 0d 0a 00 05 cc 0d 0a |Tpt+=Del|t.......|
|00002f00| 0a 11 70 6f 73 3d 54 65 | 78 74 6c 65 6e 2b 31 0d |..pos=Te|xtlen+1.|
|00002f10| 0a 14 05 cd 0d 0a 1e 09 | f2 64 69 73 70 0d 0a 28 |........|.disp..(|
|00002f20| 05 ce 0d 0a 32 05 e1 0d | ff 46 69 6c 65 44 61 74 |....2...|.FileDat|
|00002f30| 61 82 54 72 61 76 65 6c | 73 00 00 00 00 8f 19 00 |a.Travel|s.......|
|00002f40| 00 42 fb ff ff a8 16 a0 | d0 03 00 9d c7 0d 03 e8 |.B......|........|
|00002f50| 2f f4 20 50 72 6f 67 72 | 61 6d 20 54 72 61 76 65 |/. Progr|am Trave|
|00002f60| 6c 73 20 76 38 20 28 41 | 72 63 68 69 6d 65 64 65 |ls v8 (A|rchimede|
|00002f70| 73 20 2b 20 42 41 53 49 | 43 20 56 29 0d 03 f2 20 |s + BASI|C V)... |
|00002f80| f4 20 28 63 29 20 44 2e | 45 2e 20 42 6f 77 65 72 |. (c) D.|E. Bower|
|00002f90| 20 20 38 20 44 65 63 20 | 31 39 39 30 0d 03 fc 04 | 8 Dec |1990....|
|00002fa0| 0d 04 06 27 f4 20 53 6f | 6c 76 65 20 54 72 61 76 |...'. So|lve Trav|
|00002fb0| 65 6c 6c 69 6e 67 20 53 | 61 6c 65 73 6d 61 6e 20 |elling S|alesman |
|00002fc0| 70 72 6f 62 6c 65 6d 0d | 04 10 29 f4 20 75 73 69 |problem.|..). usi|
|00002fd0| 6e 67 20 61 20 6d 6f 64 | 69 66 69 65 64 20 4d 65 |ng a mod|ified Me|
|00002fe0| 74 72 6f 70 6f 6c 69 73 | 20 6d 65 74 68 6f 64 2e |tropolis| method.|
|00002ff0| 0d 04 1a 05 20 0d 04 24 | 2a f4 20 27 53 69 6d 75 |.... ..$|*. 'Simu|
|00003000| 6c 61 74 65 64 20 41 6e | 6e 65 61 6c 69 6e 67 27 |lated An|nealing'|
|00003010| 20 70 72 6f 63 65 64 75 | 72 65 73 20 61 72 65 0d | procedu|res are.|
|00003020| 04 2e 2a f4 20 64 65 73 | 63 72 69 62 65 64 20 69 |..*. des|cribed i|
|00003030| 6e 20 6d 6f 72 65 20 64 | 65 74 61 69 6c 20 69 6e |n more d|etail in|
|00003040| 20 74 68 65 20 62 6f 6f | 6b 0d 04 38 2a f4 20 27 | the boo|k..8*. '|
|00003050| 4e 75 6d 65 72 69 63 61 | 6c 20 52 65 63 69 70 65 |Numerica|l Recipe|
|00003060| 73 27 20 20 5b 20 50 72 | 65 73 73 20 65 74 20 61 |s' [ Pr|ess et a|
|00003070| 6c 20 5d 0d 04 42 2d f4 | 20 70 75 62 6c 69 73 68 |l ]..B-.| publish|
|00003080| 65 64 20 62 79 20 43 61 | 6d 62 72 69 64 67 65 20 |ed by Ca|mbridge |
|00003090| 55 6e 69 76 65 72 73 69 | 74 79 20 50 72 65 73 73 |Universi|ty Press|
|000030a0| 0d 04 4c 04 0d 04 56 10 | 4d 61 78 63 69 74 79 25 |..L...V.|Maxcity%|
|000030b0| 3d 32 30 30 0d 04 60 04 | 0d 04 6a 07 eb 20 37 0d |=200..`.|..j.. 7.|
|000030c0| 04 74 0c f2 6d 6f 6e 69 | 74 6f 72 0d 04 7e 05 db |.t..moni|tor..~..|
|000030d0| 0d 04 88 0c f2 65 78 70 | 6c 61 69 6e 0d 04 92 0a |.....exp|lain....|
|000030e0| f2 73 65 74 75 70 0d 04 | 9c 12 eb 20 31 38 2a 28 |.setup..|... 18*(|
|000030f0| 6d 74 79 70 65 2d 31 29 | 0d 04 a6 10 f2 64 72 61 |mtype-1)|.....dra|
|00003100| 77 5f 73 63 72 65 65 6e | 0d 04 b0 05 f5 0d 04 ba |w_screen|........|
|00003110| 0b f2 73 65 61 72 63 68 | 0d 04 c4 09 f2 65 78 69 |..search|.....exi|
|00003120| 74 0d 04 ce 0a fd 20 45 | 78 69 74 0d 04 d8 04 0d |t..... E|xit.....|
|00003130| 04 e2 11 eb 20 30 3a fb | 30 3a fb 31 32 39 3a db |.... 0:.|0:.129:.|
|00003140| 0d 04 ec 27 e7 20 61 62 | 6f 72 74 20 80 20 9f 3c |...'. ab|ort . .<|
|00003150| 3e 31 37 20 8c 20 f6 3a | f1 20 22 20 61 74 20 6c |>17 . .:|. " at l|
|00003160| 69 6e 65 20 22 3b 9e 0d | 04 f6 05 e0 0d 05 00 05 |ine ";..|........|
|00003170| 20 0d 05 0a 05 20 0d 05 | 14 0e dd 20 f2 6d 6f 6e | .... ..|... .mon|
|00003180| 69 74 6f 72 0d 05 1e 42 | e3 20 72 6f 77 3d 30 20 |itor...B|. row=0 |
|00003190| b8 20 31 3a f1 8a 32 2c | 72 6f 77 29 3b bd 31 33 |. 1:..2,|row);.13|
|000031a0| 31 3b bd 31 34 31 3b 22 | 54 72 61 76 65 6c 6c 69 |1;.141;"|Travelli|
|000031b0| 6e 67 20 53 61 6c 65 73 | 6d 61 6e 20 50 72 6f 62 |ng Sales|man Prob|
|000031c0| 6c 65 6d 22 3a ed 0d 05 | 28 26 f1 20 8a 37 2c 36 |lem":...|(&. .7,6|
|000031d0| 29 3b bd 31 32 39 3b 22 | 53 65 6c 65 63 74 20 4d |);.129;"|Select M|
|000031e0| 6f 6e 69 74 6f 72 20 54 | 79 70 65 22 0d 05 32 2c |onitor T|ype"..2,|
|000031f0| f1 20 8a 36 2c 31 31 29 | 3b bd 31 33 33 3b 22 31 |. .6,11)|;.133;"1|
|00003200| 20 3d 20 53 74 61 6e 64 | 61 72 64 20 52 47 42 20 | = Stand|ard RGB |
|00003210| 4d 6f 6e 69 74 6f 72 22 | 0d 05 3c 2a f1 20 8a 36 |Monitor"|..<*. .6|
|00003220| 2c 31 35 29 3b bd 31 33 | 33 3b 22 32 20 3d 20 4d |,15);.13|3;"2 = M|
|00003230| 75 6c 74 69 2d 53 79 6e | 63 20 4d 6f 6e 69 74 6f |ulti-Syn|c Monito|
|00003240| 72 22 0d 05 46 28 f5 3a | 4d 74 79 70 65 24 3d be |r"..F(.:|Mtype$=.|
|00003250| 3a fd 20 4d 74 79 70 65 | 24 3d 22 31 22 20 84 20 |:. Mtype|$="1" . |
|00003260| 4d 74 79 70 65 24 3d 22 | 32 22 0d 05 50 13 6d 74 |Mtype$="|2"..P.mt|
|00003270| 79 70 65 3d bb 28 4d 74 | 79 70 65 24 29 0d 05 5a |ype=.(Mt|ype$)..Z|
|00003280| 05 e1 0d 05 64 04 0d 05 | 6e 04 0d 05 78 0e dd 20 |....d...|n...x.. |
|00003290| f2 65 78 70 6c 61 69 6e | 0d 05 82 42 e3 20 72 6f |.explain|...B. ro|
|000032a0| 77 3d 30 20 b8 20 31 3a | f1 8a 32 2c 72 6f 77 29 |w=0 . 1:|..2,row)|
|000032b0| 3b bd 31 33 31 3b bd 31 | 34 31 3b 22 54 72 61 76 |;.131;.1|41;"Trav|
|000032c0| 65 6c 6c 69 6e 67 20 53 | 61 6c 65 73 6d 61 6e 20 |elling S|alesman |
|000032d0| 50 72 6f 62 6c 65 6d 22 | 3a ed 0d 05 8c 2a f1 20 |Problem"|:....*. |
|000032e0| 27 22 54 68 69 73 20 70 | 72 6f 67 72 61 6d 20 63 |'"This p|rogram c|
|000032f0| 6f 6d 70 75 74 65 73 20 | 61 70 70 72 6f 78 69 6d |omputes |approxim|
|00003300| 61 74 65 22 0d 05 96 2c | f1 20 22 73 6f 6c 75 74 |ate"...,|. "solut|
|00003310| 69 6f 6e 73 20 74 6f 20 | 74 68 65 20 54 72 61 76 |ions to |the Trav|
|00003320| 65 6c 6c 69 6e 67 20 53 | 61 6c 65 73 6d 61 6e 22 |elling S|alesman"|
|00003330| 0d 05 a0 2b f1 20 22 70 | 72 6f 62 6c 65 6d 2e 20 |...+. "p|roblem. |
|00003340| 54 68 65 20 73 61 6c 65 | 73 6d 61 6e 20 6d 75 73 |The sale|sman mus|
|00003350| 74 20 66 69 6e 64 20 74 | 68 65 22 0d 05 aa 2d f1 |t find t|he"...-.|
|00003360| 20 22 73 68 6f 72 74 65 | 73 74 20 72 6f 75 74 65 | "shorte|st route|
|00003370| 20 74 6f 20 76 69 73 69 | 74 20 61 20 73 65 72 69 | to visi|t a seri|
|00003380| 65 73 20 6f 66 20 4e 22 | 0d 05 b4 2c f1 20 22 63 |es of N"|...,. "c|
|00003390| 69 74 69 65 73 20 61 6e | 64 20 74 68 65 6e 20 72 |ities an|d then r|
|000033a0| 65 74 75 72 6e 20 74 6f | 20 74 68 65 20 73 74 61 |eturn to| the sta|
|000033b0| 72 74 2e 22 0d 05 be 2b | f1 20 22 54 68 69 73 20 |rt."...+|. "This |
|000033c0| 69 73 20 61 20 76 65 72 | 79 20 64 69 66 66 69 63 |is a ver|y diffic|
|000033d0| 75 6c 74 20 70 72 6f 62 | 6c 65 6d 20 74 6f 22 0d |ult prob|lem to".|
|000033e0| 05 c8 2c f1 20 22 73 6f | 6c 76 65 20 70 72 65 63 |..,. "so|lve prec|
|000033f0| 69 73 65 6c 79 20 65 78 | 63 65 70 74 20 62 79 20 |isely ex|cept by |
|00003400| 74 72 79 69 6e 67 20 74 | 68 65 22 0d 05 d2 2e f1 |trying t|he".....|
|00003410| 20 22 61 70 70 72 6f 78 | 20 28 4e 2d 31 29 21 2f | "approx| (N-1)!/|
|00003420| 32 20 64 69 73 74 69 6e | 63 74 20 72 6f 75 74 65 |2 distin|ct route|
|00003430| 73 2e 20 49 74 20 69 73 | 22 0d 05 dc 2f f1 20 22 |s. It is|".../. "|
|00003440| 69 6e 20 74 68 65 20 6d | 61 74 68 65 6d 61 74 69 |in the m|athemati|
|00003450| 63 61 6c 20 63 6c 61 73 | 73 20 4e 50 2d 43 6f 6d |cal clas|s NP-Com|
|00003460| 70 6c 65 74 65 2e 22 27 | 0d 05 e6 2f f1 20 22 54 |plete."'|.../. "T|
|00003470| 68 65 20 70 72 6f 67 72 | 61 6d 20 73 65 61 72 63 |he progr|am searc|
|00003480| 68 65 73 20 66 6f 72 20 | 61 20 6e 65 61 72 20 6f |hes for |a near o|
|00003490| 70 74 69 6d 75 6d 22 0d | 05 f0 2f f1 20 22 73 6f |ptimum".|../. "so|
|000034a0| 6c 75 74 69 6f 6e 20 75 | 73 69 6e 67 20 61 20 6d |lution u|sing a m|
|000034b0| 6f 64 65 72 6e 20 73 74 | 72 61 74 65 67 79 20 63 |odern st|rategy c|
|000034c0| 61 6c 6c 65 64 22 0d 05 | fa 2d f1 20 22 27 73 69 |alled"..|.-. "'si|
|000034d0| 6d 75 6c 61 74 65 64 20 | 61 6e 6e 65 61 6c 69 6e |mulated |annealin|
|000034e0| 67 27 2e 20 52 61 6e 64 | 6f 6d 20 63 68 61 6e 67 |g'. Rand|om chang|
|000034f0| 65 73 22 0d 06 04 2f f1 | 20 22 61 72 65 20 6d 61 |es".../.| "are ma|
|00003500| 64 65 20 74 6f 20 74 68 | 65 20 72 6f 75 74 65 2e |de to th|e route.|
|00003510| 20 52 6f 75 74 65 20 72 | 65 64 75 63 74 69 6f 6e | Route r|eduction|
|00003520| 73 22 0d 06 0e 2b f1 20 | 22 61 72 65 20 61 63 63 |s"...+. |"are acc|
|00003530| 65 70 74 65 64 20 61 6e | 64 20 73 6f 6d 65 20 69 |epted an|d some i|
|00003540| 6e 63 72 65 61 73 65 73 | 20 61 72 65 22 0d 06 18 |ncreases| are"...|
|00003550| 2e f1 20 22 70 65 72 6d | 69 74 74 65 64 20 64 65 |.. "perm|itted de|
|00003560| 70 65 6e 64 69 6e 67 20 | 6f 6e 20 61 20 27 74 65 |pending |on a 'te|
|00003570| 6d 70 65 72 61 74 75 72 | 65 27 22 0d 06 22 2a f1 |mperatur|e'".."*.|
|00003580| 20 22 77 68 69 63 68 20 | 69 73 20 67 72 61 64 75 | "which |is gradu|
|00003590| 61 6c 6c 79 20 64 65 63 | 72 65 61 73 65 64 2e 20 |ally dec|reased. |
|000035a0| 54 68 69 73 22 0d 06 2c | 2e f1 20 22 6d 65 74 68 |This"..,|.. "meth|
|000035b0| 6f 64 20 70 65 72 6d 69 | 74 73 20 62 65 74 74 65 |od permi|ts bette|
|000035c0| 72 20 65 78 70 6c 6f 72 | 61 74 69 6f 6e 20 6f 66 |r explor|ation of|
|000035d0| 20 61 22 0d 06 36 2e f1 | 20 22 76 65 72 79 20 63 | a"..6..| "very c|
|000035e0| 6f 6d 70 6c 65 78 20 4e | 2d 64 69 6d 65 6e 73 69 |omplex N|-dimensi|
|000035f0| 6f 6e 20 73 65 61 72 63 | 68 20 73 70 61 63 65 2e |on searc|h space.|
|00003600| 22 0d 06 40 22 f1 20 27 | 22 50 72 65 73 73 20 61 |"..@". '|"Press a|
|00003610| 20 6b 65 79 2e 2e 2e 2e | 2e 22 3b 3a 2a 46 58 31 | key....|.";:*FX1|
|00003620| 35 2c 31 0d 06 4a 07 52 | 3d a5 0d 06 54 05 20 0d |5,1..J.R|=...T. .|
|00003630| 06 5e 44 db 3a e3 20 72 | 6f 77 3d 31 20 b8 20 32 |.^D.:. r|ow=1 . 2|
|00003640| 3a f1 8a 32 2c 72 6f 77 | 29 3b bd 31 33 31 3b bd |:..2,row|);.131;.|
|00003650| 31 34 31 3b 22 54 72 61 | 76 65 6c 6c 69 6e 67 20 |141;"Tra|velling |
|00003660| 53 61 6c 65 73 6d 61 6e | 20 50 72 6f 62 6c 65 6d |Salesman| Problem|
|00003670| 22 3a ed 0d 06 68 0b 40 | 25 3d 26 41 30 41 0d 06 |":...h.@|%=&A0A..|
|00003680| 72 31 f1 8a 35 2c 31 30 | 29 bd 31 32 39 3b 22 28 |r1..5,10|).129;"(|
|00003690| 20 34 20 3c 3d 20 4e 63 | 69 74 79 20 3c 3d 20 22 | 4 <= Nc|ity <= "|
|000036a0| 3b 4d 61 78 63 69 74 79 | 25 3b 22 20 29 22 3b 0d |;Maxcity|%;" )";.|
|000036b0| 06 7c 05 f5 0d 06 86 15 | f1 8a 32 30 2c 36 29 3b |.|......|..20,6);|
|000036c0| c4 31 39 2c 22 20 22 29 | 3b 0d 06 90 24 f1 20 8a |.19," ")|;...$. .|
|000036d0| 36 2c 36 29 3b 3a e8 20 | 22 4e 75 6d 62 65 72 20 |6,6);:. |"Number |
|000036e0| 6f 66 20 63 69 74 69 65 | 73 20 22 4e 63 0d 06 9a |of citie|s "Nc...|
|000036f0| 24 fd 20 4e 63 3e 33 20 | 80 20 4e 63 3c 3d 4d 61 |$. Nc>3 |. Nc<=Ma|
|00003700| 78 63 69 74 79 25 20 80 | 20 4e 63 3d a8 28 4e 63 |xcity% .| Nc=.(Nc|
|00003710| 29 0d 06 a4 09 4e 25 3d | 4e 63 0d 06 ae 15 f1 8a |)....N%=|Nc......|
|00003720| 30 2c 31 30 29 3b c4 33 | 39 2c 22 20 22 29 3b 0d |0,10);.3|9," ");.|
|00003730| 06 b8 27 f1 8a 35 2c 31 | 30 29 bd 31 33 32 3b 22 |..'..5,1|0).132;"|
|00003740| 50 72 6f 67 72 61 6d 20 | 45 78 69 74 20 4f 70 74 |Program |Exit Opt|
|00003750| 69 6f 6e 73 22 27 0d 06 | c2 23 f1 8a 35 29 3b bd |ions"'..|.#..5);.|
|00003760| 31 33 32 3b 22 43 20 3d | 20 43 6f 6e 74 69 6e 75 |132;"C =| Continu|
|00003770| 65 20 73 65 61 72 63 68 | 22 0d 06 cc 21 f1 8a 35 |e search|"...!..5|
|00003780| 29 3b bd 31 33 32 3b 22 | 44 20 3d 20 47 72 61 70 |);.132;"|D = Grap|
|00003790| 68 69 63 73 20 44 75 6d | 70 22 0d 06 d6 18 f1 8a |hics Dum|p"......|
|000037a0| 35 29 3b bd 31 33 32 3b | 22 45 20 3d 20 45 78 69 |5);.132;|"E = Exi|
|000037b0| 74 22 0d 06 e0 25 f1 8a | 35 2c 31 37 29 3b bd 31 |t"...%..|5,17);.1|
|000037c0| 33 31 3b 22 41 6c 74 65 | 72 20 6c 69 6e 65 20 34 |31;"Alte|r line 4|
|000037d0| 30 35 30 20 74 6f 22 0d | 06 ea 25 f1 8a 35 2c 31 |050 to".|..%..5,1|
|000037e0| 38 29 3b bd 31 33 31 3b | 22 6d 61 74 63 68 20 79 |8);.131;|"match y|
|000037f0| 6f 75 72 20 70 72 69 6e | 74 65 72 22 0d 06 f4 2f |our prin|ter".../|
|00003800| f1 8a 35 2c 32 31 29 3b | bd 31 33 32 3b 22 50 72 |..5,21);|.132;"Pr|
|00003810| 65 73 73 20 61 20 6b 65 | 79 20 2e 2e 2e 2e 2e 2e |ess a ke|y ......|
|00003820| 2e 22 3b 3a 2a 46 58 31 | 35 2c 31 0d 06 fe 07 52 |.";:*FX1|5,1....R|
|00003830| 3d a5 0d 07 08 27 f1 8a | 35 2c 32 31 29 3b bd 31 |=....'..|5,21);.1|
|00003840| 33 32 3b 22 53 65 74 74 | 69 6e 67 20 75 70 20 2e |32;"Sett|ing up .|
|00003850| 2e 2e 2e 2e 2e 2e 2e 22 | 3b 0d 07 12 05 e1 0d 07 |......."|;.......|
|00003860| 1c 05 20 0d 07 26 05 20 | 0d 07 30 0c dd 20 f2 73 |.. ..&. |..0.. .s|
|00003870| 65 74 75 70 0d 07 3a 05 | 20 0d 07 44 0b 61 62 6f |etup..:.| ..D.abo|
|00003880| 72 74 3d a3 0d 07 4e 0c | 2a 46 58 32 32 39 2c 30 |rt=...N.|*FX229,0|
|00003890| 0d 07 58 1c ee 20 85 3a | ee 20 85 20 87 3a 61 62 |..X.. .:|. . .:ab|
|000038a0| 6f 72 74 3d b9 3a e5 20 | 8d 64 62 44 0d 07 62 21 |ort=.:. |.dbD..b!|
|000038b0| de 20 44 69 73 74 28 4e | 25 2c 4e 25 29 2c 20 78 |. Dist(N|%,N%), x|
|000038c0| 25 28 4e 25 29 2c 20 79 | 25 28 4e 25 29 0d 07 6c |%(N%), y|%(N%)..l|
|000038d0| 22 de 20 4f 72 64 20 4e | 25 2c 20 54 6f 72 64 20 |". Ord N|%, Tord |
|000038e0| 4e 25 2c 20 42 65 73 74 | 5f 6f 72 64 20 4e 25 0d |N%, Best|_ord N%.|
|000038f0| 07 76 05 20 0d 07 80 26 | 52 6c 69 6d 3d 2e 37 35 |.v. ...&|Rlim=.75|
|00003900| 3a f4 20 72 65 76 65 72 | 73 65 2f 74 72 61 6e 73 |:. rever|se/trans|
|00003910| 70 6f 72 74 20 73 70 6c | 69 74 0d 07 8a 24 4d 61 |port spl|it...$Ma|
|00003920| 78 74 72 79 25 3d 32 35 | 2a 4e 25 3a 20 f4 20 6d |xtry%=25|*N%: . m|
|00003930| 61 78 20 74 72 69 61 6c | 73 2f 74 65 6d 70 0d 07 |ax trial|s/temp..|
|00003940| 94 25 4d 61 78 73 75 63 | 25 3d 32 2a 4e 25 20 3a |.%Maxsuc|%=2*N% :|
|00003950| 20 f4 20 6d 61 78 20 73 | 75 63 63 65 73 73 2f 74 | . max s|uccess/t|
|00003960| 65 6d 70 0d 07 9e 0d 4e | 63 31 25 3d 4e 25 2d 31 |emp....N|c1%=N%-1|
|00003970| 0d 07 a8 0d 4e 63 32 25 | 3d 4e 25 2d 32 0d 07 b2 |....Nc2%|=N%-2...|
|00003980| 1c 54 72 69 61 6c 73 25 | 3d 30 3a 52 65 76 25 3d |.Trials%|=0:Rev%=|
|00003990| 30 3a 54 72 61 6e 25 3d | 30 0d 07 bc 2e 52 3d b3 |0:Tran%=|0....R=.|
|000039a0| 28 2d 4e 25 2a af 29 3a | 20 f4 20 73 65 65 64 20 |(-N%*.):| . seed |
|000039b0| 72 61 6e 64 6f 6d 20 6e | 75 6d 62 65 72 20 67 65 |random n|umber ge|
|000039c0| 6e 65 72 61 74 6f 72 0d | 07 c6 04 0d 07 d0 11 e3 |nerator.|........|
|000039d0| 20 4a 25 3d 30 20 b8 20 | 4e 63 31 25 0d 07 da 1d | J%=0 . |Nc1%....|
|000039e0| 4f 72 64 3f 4a 25 3d 4a | 25 3a 20 f4 20 69 6e 69 |Ord?J%=J|%: . ini|
|000039f0| 74 69 61 6c 20 70 61 74 | 68 0d 07 e4 12 42 65 73 |tial pat|h....Bes|
|00003a00| 74 5f 6f 72 64 3f 4a 25 | 3d 4a 25 0d 07 ee 19 f1 |t_ord?J%|=J%.....|
|00003a10| 8a 32 35 2c 32 31 29 3b | 4e 63 31 25 2d 4a 25 3b |.25,21);|Nc1%-J%;|
|00003a20| 22 20 22 3b 0d 07 f8 1a | 58 25 3d 32 30 2b b3 28 |" ";....|X%=20+.(|
|00003a30| 39 36 30 29 3a 78 25 28 | 4a 25 29 3d 58 25 0d 08 |960):x%(|J%)=X%..|
|00003a40| 02 1a 59 25 3d 32 30 2b | b3 28 39 36 30 29 3a 79 |..Y%=20+|.(960):y|
|00003a50| 25 28 4a 25 29 3d 59 25 | 0d 08 0c 11 e3 20 4b 25 |%(J%)=Y%|..... K%|
|00003a60| 3d 30 20 b8 20 4a 25 2d | 31 0d 08 16 41 44 6a 6b |=0 . J%-|1...ADjk|
|00003a70| 3d b6 28 28 78 25 28 4b | 25 29 2d 58 25 29 5e 32 |=.((x%(K|%)-X%)^2|
|00003a80| 2b 28 79 25 28 4b 25 29 | 2d 59 25 29 5e 32 29 3a |+(y%(K%)|-Y%)^2):|
|00003a90| f4 20 73 70 65 63 69 66 | 69 63 20 74 6f 20 74 68 |. specif|ic to th|
|00003aa0| 69 73 20 70 72 6f 62 6c | 65 6d 0d 08 20 23 44 69 |is probl|em.. #Di|
|00003ab0| 73 74 28 4a 25 2c 4b 25 | 29 3d 44 6a 6b 3a 44 69 |st(J%,K%|)=Djk:Di|
|00003ac0| 73 74 28 4b 25 2c 4a 25 | 29 3d 44 6a 6b 0d 08 2a |st(K%,J%|)=Djk..*|
|00003ad0| 05 ed 0d 08 34 05 ed 0d | 08 3e 05 e1 0d 08 48 05 |....4...|.>....H.|
|00003ae0| 20 0d 08 52 05 20 0d 08 | 5c 12 dd 20 f2 64 72 61 | ..R. ..|\.. .dra|
|00003af0| 77 5f 73 63 72 65 65 6e | 0d 08 66 05 db 0d 08 70 |w_screen|..f....p|
|00003b00| 09 ec 20 30 2c 30 0d 08 | 7a 18 df 20 31 32 37 39 |.. 0,0..|z.. 1279|
|00003b10| 2c 30 3a df 20 31 32 37 | 39 2c 31 30 30 30 0d 08 |,0:. 127|9,1000..|
|00003b20| 84 12 df 20 30 2c 31 30 | 30 30 3a df 20 30 2c 30 |... 0,10|00:. 0,0|
|00003b30| 0d 08 8e 18 ec 20 31 30 | 30 30 2c 30 3a df 20 31 |..... 10|00,0:. 1|
|00003b40| 30 30 30 2c 31 30 30 30 | 0d 08 98 19 ec 20 31 30 |000,1000|..... 10|
|00003b50| 30 30 2c 39 30 30 3a df | 20 31 32 37 39 2c 39 30 |00,900:.| 1279,90|
|00003b60| 30 0d 08 a2 19 ec 20 31 | 30 30 30 2c 38 30 30 3a |0..... 1|000,800:|
|00003b70| df 20 31 32 37 39 2c 38 | 30 30 0d 08 ac 1c f1 8a |. 1279,8|00......|
|00003b80| 36 37 2c 32 2a 6d 74 79 | 70 65 29 3b 22 54 52 41 |67,2*mty|pe);"TRA|
|00003b90| 56 45 4c 53 22 3b 0d 08 | b6 1b f1 8a 36 37 2c 35 |VELS";..|....67,5|
|00003ba0| 2a 6d 74 79 70 65 29 3b | 22 4e 63 3d 22 3b 4e 25 |*mtype);|"Nc=";N%|
|00003bb0| 3b 0d 08 c0 19 f1 8a 36 | 37 2c 38 2a 6d 74 79 70 |;......6|7,8*mtyp|
|00003bc0| 65 29 3b 22 54 65 6d 70 | 22 3b 0d 08 ca 1c f1 8a |e);"Temp|";......|
|00003bd0| 36 37 2c 31 32 2a 6d 74 | 79 70 65 29 3b 22 54 72 |67,12*mt|ype);"Tr|
|00003be0| 69 61 6c 73 22 3b 0d 08 | d4 1b f1 8a 36 37 2c 31 |ials";..|....67,1|
|00003bf0| 36 2a 6d 74 79 70 65 29 | 3b 22 52 65 76 73 2e 22 |6*mtype)|;"Revs."|
|00003c00| 3b 0d 08 de 1b f1 8a 36 | 37 2c 32 30 2a 6d 74 79 |;......6|7,20*mty|
|00003c10| 70 65 29 3b 22 54 72 61 | 6e 73 22 3b 0d 08 e8 1a |pe);"Tra|ns";....|
|00003c20| f1 8a 36 37 2c 32 34 2a | 6d 74 79 70 65 29 3b 22 |..67,24*|mtype);"|
|00003c30| 54 69 6d 65 22 3b 0d 08 | f2 1a f1 8a 36 37 2c 32 |Time";..|....67,2|
|00003c40| 38 2a 6d 74 79 70 65 29 | 3b 22 50 61 74 68 22 3b |8*mtype)|;"Path";|
|00003c50| 0d 08 fc 25 e3 20 4a 25 | 3d 39 2a 6d 74 79 70 65 |...%. J%|=9*mtype|
|00003c60| 20 b8 20 32 35 2a 6d 74 | 79 70 65 20 88 20 34 2a | . 25*mt|ype . 4*|
|00003c70| 6d 74 79 70 65 0d 09 06 | 11 f1 8a 36 37 2c 4a 25 |mtype...|...67,J%|
|00003c80| 29 3b 22 30 22 3b 0d 09 | 10 05 ed 0d 09 1a 0c ef |);"0";..|........|
|00003c90| 32 33 2c 31 2c 30 7c 0d | 09 24 16 ef 32 34 2c 32 |23,1,0|.|.$..24,2|
|00003ca0| 30 3b 32 30 3b 39 38 30 | 3b 39 38 30 3b 0d 09 2e |0;20;980|;980;...|
|00003cb0| 05 20 0d 09 38 11 ec 20 | 78 25 28 30 29 2c 79 25 |. ..8.. |x%(0),y%|
|00003cc0| 28 30 29 0d 09 42 0a 50 | 61 74 68 3d 30 0d 09 4c |(0)..B.P|ath=0..L|
|00003cd0| 11 e3 20 4a 25 3d 31 20 | b8 20 4e 63 31 25 0d 09 |.. J%=1 |. Nc1%..|
|00003ce0| 56 13 df 20 78 25 28 4a | 25 29 2c 79 25 28 4a 25 |V.. x%(J|%),y%(J%|
|00003cf0| 29 0d 09 60 1b 50 61 74 | 68 3d 50 61 74 68 2b 44 |)..`.Pat|h=Path+D|
|00003d00| 69 73 74 28 4a 25 2d 31 | 2c 4a 25 29 0d 09 6a 05 |ist(J%-1|,J%)..j.|
|00003d10| ed 0d 09 74 11 df 20 78 | 25 28 30 29 2c 79 25 28 |...t.. x|%(0),y%(|
|00003d20| 30 29 0d 09 7e 1a 50 61 | 74 68 3d 50 61 74 68 2b |0)..~.Pa|th=Path+|
|00003d30| 44 69 73 74 28 4e 63 31 | 25 2c 30 29 0d 09 88 0d |Dist(Nc1|%,0)....|
|00003d40| 42 65 73 74 3d 50 61 74 | 68 0d 09 92 35 54 65 6d |Best=Pat|h...5Tem|
|00003d50| 70 3d 50 61 74 68 2f 32 | 30 30 3a 20 f4 20 53 65 |p=Path/2|00: . Se|
|00003d60| 74 20 69 6e 69 74 69 61 | 6c 20 73 79 73 74 65 6d |t initia|l system|
|00003d70| 20 27 54 65 6d 70 65 72 | 61 74 75 72 65 27 0d 09 | 'Temper|ature'..|
|00003d80| 9c 21 54 6c 69 6d 69 74 | 3d 54 65 6d 70 2f 35 30 |.!Tlimit|=Temp/50|
|00003d90| 3a 20 f4 20 66 69 6e 61 | 6c 20 6c 69 6d 69 74 0d |: . fina|l limit.|
|00003da0| 09 a6 1f 44 6c 69 6d 3d | 2d 50 61 74 68 2a 31 45 |...Dlim=|-Path*1E|
|00003db0| 2d 36 3a 41 64 6c 3d 94 | 28 44 6c 69 6d 29 0d 09 |-6:Adl=.|(Dlim)..|
|00003dc0| b0 0d 40 25 3d 26 32 30 | 31 30 37 0d 09 ba 18 f1 |..@%=&20|107.....|
|00003dd0| 8a 36 37 2c 32 39 2a 6d | 74 79 70 65 29 3b 50 61 |.67,29*m|type);Pa|
|00003de0| 74 68 3b 0d 09 c4 0e ef | 37 3a 2a 46 58 31 35 2c |th;.....|7:*FX15,|
|00003df0| 31 0d 09 ce 05 f5 0d 09 | d8 26 f1 8a 36 34 2c 33 |1.......|.&..64,3|
|00003e00| 31 2a 6d 74 79 70 65 2d | 31 29 3b 22 50 72 65 73 |1*mtype-|1);"Pres|
|00003e10| 73 20 61 20 6b 65 79 2e | 2e 2e 22 3b 0d 09 e2 0b |s a key.|..";....|
|00003e20| 52 3d a6 28 34 30 29 0d | 09 ec 26 f1 8a 36 34 2c |R=.(40).|..&..64,|
|00003e30| 33 31 2a 6d 74 79 70 65 | 2d 31 29 3b 22 20 20 20 |31*mtype|-1);" |
|00003e40| 20 20 20 20 20 20 20 20 | 20 20 20 22 3b 0d 09 f6 | | ";...|
|00003e50| 14 e7 20 52 3d 2d 31 20 | 8c 20 52 3d a6 28 32 35 |.. R=-1 |. R=.(25|
|00003e60| 29 0d 0a 00 0b fd 20 52 | 3c 3e 2d 31 0d 0a 0a 08 |)..... R|<>-1....|
|00003e70| 54 54 3d 30 0d 0a 14 05 | e1 0d 0a 1e 05 20 0d 0a |TT=0....|..... ..|
|00003e80| 28 05 20 0d 0a 32 0d dd | 20 f2 73 65 61 72 63 68 |(. ..2..| .search|
|00003e90| 0d 0a 3c 05 20 0d 0a 46 | 08 d1 3d 54 54 0d 0a 50 |..<. ..F|..=TT..P|
|00003ea0| 05 f5 0d 0a 5a 13 43 75 | 72 74 25 3d 30 3a 43 75 |....Z.Cu|rt%=0:Cu|
|00003eb0| 72 73 25 3d 30 0d 0a 64 | 0d 40 25 3d 26 32 30 33 |rs%=0..d|.@%=&203|
|00003ec0| 30 36 0d 0a 6e 17 f1 8a | 36 37 2c 39 2a 6d 74 79 |06..n...|67,9*mty|
|00003ed0| 70 65 29 3b 54 65 6d 70 | 3b 0d 0a 78 0b 40 25 3d |pe);Temp|;..x.@%=|
|00003ee0| 26 41 30 41 0d 0a 82 05 | f5 0d 0a 8c 23 54 72 69 |&A0A....|....#Tri|
|00003ef0| 61 6c 73 25 3d 54 72 69 | 61 6c 73 25 2b 31 3a 43 |als%=Tri|als%+1:C|
|00003f00| 75 72 74 25 3d 43 75 72 | 74 25 2b 31 0d 0a 96 1b |urt%=Cur|t%+1....|
|00003f10| f1 8a 36 37 2c 31 33 2a | 6d 74 79 70 65 29 3b 54 |..67,13*|mtype);T|
|00003f20| 72 69 61 6c 73 25 3b 0d | 0a a0 05 f5 0d 0a aa 0e |rials%;.|........|
|00003f30| 53 25 3d b3 28 4e 25 29 | 2d 31 0d 0a b4 0e 45 25 |S%=.(N%)|-1....E%|
|00003f40| 3d b3 28 4e 25 29 2d 31 | 0d 0a be 1f e7 20 45 25 |=.(N%)-1|..... E%|
|00003f50| 3c 53 25 20 8c 20 54 25 | 3d 45 25 3a 45 25 3d 53 |<S% . T%|=E%:E%=S|
|00003f60| 25 3a 53 25 3d 54 25 0d | 0a c8 1e 4c 25 3d 45 25 |%:S%=T%.|...L%=E%|
|00003f70| 2d 53 25 3a 20 f4 20 53 | 65 67 6d 65 6e 74 20 6c |-S%: . S|egment l|
|00003f80| 65 6e 67 74 68 0d 0a d2 | 14 fd 20 4c 25 3e 30 20 |ength...|.. L%>0 |
|00003f90| 80 20 4c 25 3c 4e 63 32 | 25 0d 0a dc 1c 52 25 3d |. L%<Nc2|%....R%=|
|00003fa0| 53 25 2d 31 3a e7 20 52 | 25 3c 30 20 8c 20 52 25 |S%-1:. R|%<0 . R%|
|00003fb0| 3d 4e 63 31 25 0d 0a e6 | 1a 46 25 3d 45 25 2b 31 |=Nc1%...|.F%=E%+1|
|00003fc0| 3a e7 20 46 25 3d 4e 25 | 20 8c 20 46 25 3d 30 0d |:. F%=N%| . F%=0.|
|00003fd0| 0a f0 2f 4f 65 25 3d 4f | 72 64 3f 45 25 3a 4f 66 |../Oe%=O|rd?E%:Of|
|00003fe0| 25 3d 4f 72 64 3f 46 25 | 3a 4f 72 25 3d 4f 72 64 |%=Ord?F%|:Or%=Ord|
|00003ff0| 3f 52 25 3a 4f 73 25 3d | 4f 72 64 3f 53 25 0d 0a |?R%:Os%=|Ord?S%..|
|00004000| fa 2a f4 20 53 65 6c 65 | 63 74 20 72 65 76 65 72 |.*. Sele|ct rever|
|00004010| 73 61 6c 20 6f 72 20 74 | 72 61 6e 73 70 6f 72 74 |sal or t|ransport|
|00004020| 20 61 74 74 65 6d 70 74 | 0d 0b 04 30 f4 20 46 69 | attempt|...0. Fi|
|00004030| 6e 64 20 70 61 74 68 20 | 63 68 61 6e 67 65 20 44 |nd path |change D|
|00004040| 65 6c 74 61 20 64 75 65 | 20 74 6f 20 6d 6f 64 69 |elta due| to modi|
|00004050| 66 69 63 61 74 69 6f 6e | 0d 0b 0e 10 52 76 3d b3 |fication|....Rv=.|
|00004060| 28 31 29 3c 52 6c 69 6d | 0d 0b 18 0a e7 20 52 76 |(1)<Rlim|..... Rv|
|00004070| 20 8c 0d 0b 22 38 44 65 | 6c 74 61 3d 44 69 73 74 | ..."8De|lta=Dist|
|00004080| 28 4f 72 25 2c 4f 65 25 | 29 2b 44 69 73 74 28 4f |(Or%,Oe%|)+Dist(O|
|00004090| 73 25 2c 4f 66 25 29 3a | 20 f4 20 6e 65 77 20 63 |s%,Of%):| . new c|
|000040a0| 6f 6e 6e 65 63 74 69 6f | 6e 73 0d 0b 2c 3d 44 65 |onnectio|ns..,=De|
|000040b0| 6c 74 61 3d 44 65 6c 74 | 61 2d 44 69 73 74 28 4f |lta=Delt|a-Dist(O|
|000040c0| 72 25 2c 4f 73 25 29 2d | 44 69 73 74 28 4f 65 25 |r%,Os%)-|Dist(Oe%|
|000040d0| 2c 4f 66 25 29 3a 20 f4 | 20 64 69 73 63 6f 6e 6e |,Of%): .| disconn|
|000040e0| 65 63 74 69 6f 6e 73 0d | 0b 36 05 cc 0d 0b 40 0e |ections.|.6....@.|
|000040f0| 5a 25 3d 4e 63 32 25 2d | 4c 25 0d 0b 4a 0c e7 20 |Z%=Nc2%-|L%..J.. |
|00004100| 5a 25 3d 31 20 8c 0d 0b | 54 09 54 25 3d 46 25 0d |Z%=1 ...|T.T%=F%.|
|00004110| 0b 5e 05 cc 0d 0b 68 38 | 54 25 3d 28 45 25 2b b3 |.^....h8|T%=(E%+.|
|00004120| 28 5a 25 29 29 20 83 20 | 4e 25 3a 20 f4 20 72 61 |(Z%)) . |N%: . ra|
|00004130| 6e 64 6f 6d 20 6c 6f 63 | 61 74 69 6f 6e 20 6e 6f |ndom loc|ation no|
|00004140| 74 20 6f 6e 20 73 65 67 | 6d 65 6e 74 0d 0b 72 05 |t on seg|ment..r.|
|00004150| cd 0d 0b 7c 1a 55 25 3d | 54 25 2b 31 3a e7 20 55 |...|.U%=|T%+1:. U|
|00004160| 25 3d 4e 25 20 8c 20 55 | 25 3d 30 0d 0b 86 19 4f |%=N% . U|%=0....O|
|00004170| 74 25 3d 4f 72 64 3f 54 | 25 3a 4f 75 25 3d 4f 72 |t%=Ord?T|%:Ou%=Or|
|00004180| 64 3f 55 25 0d 0b 90 33 | 44 65 6c 74 61 3d 44 69 |d?U%...3|Delta=Di|
|00004190| 73 74 28 4f 72 25 2c 4f | 66 25 29 2b 44 69 73 74 |st(Or%,O|f%)+Dist|
|000041a0| 28 4f 74 25 2c 4f 73 25 | 29 2b 44 69 73 74 28 4f |(Ot%,Os%|)+Dist(O|
|000041b0| 65 25 2c 4f 75 25 29 0d | 0b 9a 39 44 65 6c 74 61 |e%,Ou%).|..9Delta|
|000041c0| 3d 44 65 6c 74 61 2d 44 | 69 73 74 28 4f 72 25 2c |=Delta-D|ist(Or%,|
|000041d0| 4f 73 25 29 2d 44 69 73 | 74 28 4f 65 25 2c 4f 66 |Os%)-Dis|t(Oe%,Of|
|000041e0| 25 29 2d 44 69 73 74 28 | 4f 74 25 2c 4f 75 25 29 |%)-Dist(|Ot%,Ou%)|
|000041f0| 0d 0b a4 05 cd 0d 0b ae | 12 e7 20 44 65 6c 74 61 |........|.. Delta|
|00004200| 3c 44 6c 69 6d 20 8c 0d | 0b b8 09 4f 6b 25 3d b9 |<Dlim ..|...Ok%=.|
|00004210| 0d 0b c2 05 cc 0d 0b cc | 11 44 74 3d 44 65 6c 74 |........|.Dt=Delt|
|00004220| 61 2f 54 65 6d 70 0d 0b | d6 18 e7 20 94 28 44 74 |a/Temp..|... .(Dt|
|00004230| 29 3c 41 64 6c 20 84 20 | 44 74 3e 34 20 8c 0d 0b |)<Adl . |Dt>4 ...|
|00004240| e0 09 4f 6b 25 3d a3 0d | 0b ea 05 cc 0d 0b f4 15 |..Ok%=..|........|
|00004250| 4f 6b 25 3d 28 b3 28 31 | 29 3c a1 28 2d 44 74 29 |Ok%=(.(1|)<.(-Dt)|
|00004260| 29 0d 0b fe 05 cd 0d 0c | 08 05 cd 0d 0c 12 0b e7 |).......|........|
|00004270| 20 4f 6b 25 20 8c 0d 0c | 1c 11 43 75 72 73 25 3d | Ok% ...|..Curs%=|
|00004280| 43 75 72 73 25 2b 31 0d | 0c 26 13 50 61 74 68 3d |Curs%+1.|.&.Path=|
|00004290| 50 61 74 68 2b 44 65 6c | 74 61 0d 0c 30 2f f4 20 |Path+Del|ta..0/. |
|000042a0| 45 78 65 63 75 74 65 20 | 74 68 65 20 73 65 67 6d |Execute |the segm|
|000042b0| 65 6e 74 20 72 65 76 65 | 72 73 61 6c 20 6f 72 20 |ent reve|rsal or |
|000042c0| 74 72 61 6e 73 70 6f 72 | 74 0d 0c 3a 0a e7 20 52 |transpor|t..:.. R|
|000042d0| 76 20 8c 0d 0c 44 0f 52 | 65 76 25 3d 52 65 76 25 |v ...D.R|ev%=Rev%|
|000042e0| 2b 31 0d 0c 4e 18 f1 8a | 36 37 2c 31 37 2a 6d 74 |+1..N...|67,17*mt|
|000042f0| 79 70 65 29 3b 52 65 76 | 25 3b 0d 0c 58 13 e3 20 |ype);Rev|%;..X.. |
|00004300| 4a 25 3d 30 20 b8 20 4c | 25 20 81 20 32 0d 0c 62 |J%=0 . L|% . 2..b|
|00004310| 12 5a 25 3d 4f 72 64 3f | 28 53 25 2b 4a 25 29 0d |.Z%=Ord?|(S%+J%).|
|00004320| 0c 6c 1b 4f 72 64 3f 28 | 53 25 2b 4a 25 29 3d 4f |.l.Ord?(|S%+J%)=O|
|00004330| 72 64 3f 28 45 25 2d 4a | 25 29 0d 0c 76 12 4f 72 |rd?(E%-J|%)..v.Or|
|00004340| 64 3f 28 45 25 2d 4a 25 | 29 3d 5a 25 0d 0c 80 05 |d?(E%-J%|)=Z%....|
|00004350| ed 0d 0c 8a 05 cc 0d 0c | 94 11 54 72 61 6e 25 3d |........|..Tran%=|
|00004360| 54 72 61 6e 25 2b 31 0d | 0c 9e 19 f1 8a 36 37 2c |Tran%+1.|.....67,|
|00004370| 32 31 2a 6d 74 79 70 65 | 29 3b 54 72 61 6e 25 3b |21*mtype|);Tran%;|
|00004380| 0d 0c a8 0d 53 68 25 3d | 54 25 2d 45 25 0d 0c b2 |....Sh%=|T%-E%...|
|00004390| 0e e7 20 53 68 25 3e 3d | 30 20 8c 0d 0c bc 22 53 |.. Sh%>=|0 ...."S|
|000043a0| 68 32 25 3d 53 25 2d 46 | 25 3a 4a 31 25 3d 46 25 |h2%=S%-F|%:J1%=F%|
|000043b0| 3a 4a 32 25 3d 54 25 3a | 4a 73 25 3d 31 0d 0c c6 |:J2%=T%:|Js%=1...|
|000043c0| 05 cc 0d 0c d0 2d 53 68 | 25 3d 55 25 2d 53 25 3a |.....-Sh|%=U%-S%:|
|000043d0| 53 68 32 25 3d 45 25 2d | 52 25 3a 4a 31 25 3d 52 |Sh2%=E%-|R%:J1%=R|
|000043e0| 25 3a 4a 32 25 3d 55 25 | 3a 4a 73 25 3d 2d 31 0d |%:J2%=U%|:Js%=-1.|
|000043f0| 0c da 05 cd 0d 0c e4 10 | e3 20 4a 25 3d 53 25 20 |........|. J%=S% |
|00004400| b8 20 45 25 0d 0c ee 18 | 54 6f 72 64 3f 28 4a 25 |. E%....|Tord?(J%|
|00004410| 2b 53 68 25 29 3d 4f 72 | 64 3f 4a 25 0d 0c f8 05 |+Sh%)=Or|d?J%....|
|00004420| ed 0d 0d 02 18 e3 20 4a | 25 3d 4a 31 25 20 b8 20 |...... J|%=J1% . |
|00004430| 4a 32 25 20 88 20 4a 73 | 25 0d 0d 0c 18 4f 72 64 |J2% . Js|%....Ord|
|00004440| 3f 28 4a 25 2b 53 68 32 | 25 29 3d 4f 72 64 3f 4a |?(J%+Sh2|%)=Ord?J|
|00004450| 25 0d 0d 16 05 ed 0d 0d | 20 18 e3 20 4a 25 3d 53 |%.......| .. J%=S|
|00004460| 25 2b 53 68 25 20 b8 20 | 45 25 2b 53 68 25 0d 0d |%+Sh% . |E%+Sh%..|
|00004470| 2a 12 4f 72 64 3f 4a 25 | 3d 54 6f 72 64 3f 4a 25 |*.Ord?J%|=Tord?J%|
|00004480| 0d 0d 34 05 ed 0d 0d 3e | 05 cd 0d 0d 48 11 e7 20 |..4....>|....H.. |
|00004490| 50 61 74 68 3c 42 65 73 | 74 20 8c 0d 0d 52 0d 42 |Path<Bes|t ...R.B|
|000044a0| 65 73 74 3d 50 61 74 68 | 0d 0d 5c 11 e3 20 4a 25 |est=Path|..\.. J%|
|000044b0| 3d 30 20 b8 20 4e 63 31 | 25 0d 0d 66 16 42 65 73 |=0 . Nc1|%..f.Bes|
|000044c0| 74 5f 6f 72 64 3f 4a 25 | 3d 4f 72 64 3f 4a 25 0d |t_ord?J%|=Ord?J%.|
|000044d0| 0d 70 05 ed 0d 0d 7a 0c | f2 64 69 73 70 6c 61 79 |.p....z.|.display|
|000044e0| 0d 0d 84 05 cd 0d 0d 8e | 05 cd 0d 0d 98 23 fd 20 |........|.....#. |
|000044f0| 43 75 72 74 25 3d 4d 61 | 78 74 72 79 25 20 84 20 |Curt%=Ma|xtry% . |
|00004500| 43 75 72 73 25 3d 4d 61 | 78 73 75 63 25 0d 0d a2 |Curs%=Ma|xsuc%...|
|00004510| 33 e7 20 54 65 6d 70 3c | 42 65 73 74 2f 31 36 30 |3. Temp<|Best/160|
|00004520| 20 8c 20 54 65 6d 70 3d | 54 65 6d 70 2a 30 2e 38 | . Temp=|Temp*0.8|
|00004530| 20 8b 20 54 65 6d 70 3d | 42 65 73 74 2f 32 30 30 | . Temp=|Best/200|
|00004540| 0d 0d ac 1b fd 20 54 65 | 6d 70 3c 54 6c 69 6d 69 |..... Te|mp<Tlimi|
|00004550| 74 20 84 20 43 75 72 73 | 25 3d 30 0d 0d b6 05 20 |t . Curs|%=0.... |
|00004560| 0d 0d c0 0d 50 61 74 68 | 3d 42 65 73 74 0d 0d ca |....Path|=Best...|
|00004570| 11 e3 20 4a 25 3d 30 20 | b8 20 4e 63 31 25 0d 0d |.. J%=0 |. Nc1%..|
|00004580| d4 16 4f 72 64 3f 4a 25 | 3d 42 65 73 74 5f 6f 72 |..Ord?J%|=Best_or|
|00004590| 64 3f 4a 25 0d 0d de 05 | ed 0d 0d e8 05 20 0d 0d |d?J%....|..... ..|
|000045a0| f2 05 e1 0d 0d fc 05 20 | 0d 0e 06 05 20 0d 0e 10 |....... |.... ...|
|000045b0| 0e dd 20 f2 64 69 73 70 | 6c 61 79 0d 0e 1a 05 da |.. .disp|lay.....|
|000045c0| 0d 0e 24 0c 4f 25 3d 4f | 72 64 3f 30 0d 0e 2e 13 |..$.O%=O|rd?0....|
|000045d0| ec 20 78 25 28 4f 25 29 | 2c 79 25 28 4f 25 29 0d |. x%(O%)|,y%(O%).|
|000045e0| 0e 38 11 e3 20 4a 25 3d | 30 20 b8 20 4e 63 31 25 |.8.. J%=|0 . Nc1%|
|000045f0| 0d 0e 42 0d 4f 25 3d 4f | 72 64 3f 4a 25 0d 0e 4c |..B.O%=O|rd?J%..L|
|00004600| 13 df 20 78 25 28 4f 25 | 29 2c 79 25 28 4f 25 29 |.. x%(O%|),y%(O%)|
|00004610| 0d 0e 56 05 ed 0d 0e 60 | 0c 4f 25 3d 4f 72 64 3f |..V....`|.O%=Ord?|
|00004620| 30 0d 0e 6a 13 df 20 78 | 25 28 4f 25 29 2c 79 25 |0..j.. x|%(O%),y%|
|00004630| 28 4f 25 29 0d 0e 74 15 | f1 8a 36 37 2c 32 35 2a |(O%)..t.|..67,25*|
|00004640| 6d 74 79 70 65 29 3b 91 | 3b 0d 0e 7e 0d 40 25 3d |mtype);.|;..~.@%=|
|00004650| 26 32 30 31 30 37 0d 0e | 88 18 f1 8a 36 37 2c 32 |&20107..|....67,2|
|00004660| 39 2a 6d 74 79 70 65 29 | 3b 42 65 73 74 3b 0d 0e |9*mtype)|;Best;..|
|00004670| 92 0b 40 25 3d 26 41 30 | 41 0d 0e 9c 05 e1 0d 0e |..@%=&A0|A.......|
|00004680| a6 05 20 0d 0e b0 05 20 | 0d 0e ba 0b dd 20 f2 65 |.. .... |..... .e|
|00004690| 78 69 74 0d 0e c4 08 54 | 54 3d 91 0d 0e ce 16 f1 |xit....T|T=......|
|000046a0| 8a 36 37 2c 32 35 2a 6d | 74 79 70 65 29 3b 54 54 |.67,25*m|type);TT|
|000046b0| 3b 0d 0e d8 05 f5 0d 0e | e2 06 ef 37 0d 0e ec 1e |;.......|...7....|
|000046c0| f1 8a 36 37 2c 33 31 2a | 6d 74 79 70 65 2d 31 29 |..67,31*|mtype-1)|
|000046d0| 3b 22 43 2f 44 2f 45 3f | 22 3b 0d 0e f6 05 f5 0d |;"C/D/E?|";......|
|000046e0| 0f 00 1c f1 8a 36 37 2c | 33 31 2a 6d 74 79 70 65 |.....67,|31*mtype|
|000046f0| 29 3b 22 2a 44 75 6d 70 | 2a 22 3b 0d 0f 0a 11 52 |);"*Dump|*";....R|
|00004700| 3d a6 28 34 30 29 20 80 | 20 26 44 46 0d 0f 14 1c |=.(40) .| &DF....|
|00004710| f1 8a 36 37 2c 33 31 2a | 6d 74 79 70 65 29 3b 22 |..67,31*|mtype);"|
|00004720| 20 20 20 20 20 20 22 3b | 0d 0f 1e 10 d1 3d 30 3a | ";|.....=0:|
|00004730| f5 20 fd 20 91 3d 32 30 | 0d 0f 28 13 fd 20 52 3e |. . .=20|..(.. R>|
|00004740| 3d 36 37 20 80 20 52 3c | 3d 36 39 0d 0f 32 1e f1 |=67 . R<|=69..2..|
|00004750| 8a 36 37 2c 33 31 2a 6d | 74 79 70 65 2d 31 29 3b |.67,31*m|type-1);|
|00004760| 22 20 20 20 20 20 20 22 | 3b 0d 0f 3c 0f e7 20 6d |" "|;..<.. m|
|00004770| 74 79 70 65 3d 31 20 8c | 0d 0f 46 16 ef 32 34 2c |type=1 .|..F..24,|
|00004780| 30 3b 30 3b 31 32 37 39 | 3b 31 30 32 33 3b 0d 0f |0;0;1279|;1023;..|
|00004790| 50 15 ec 20 31 30 30 30 | 2c 30 3a df 20 31 32 37 |P.. 1000|,0:. 127|
|000047a0| 39 2c 30 0d 0f 5a 16 ef | 32 34 2c 32 30 3b 32 30 |9,0..Z..|24,20;20|
|000047b0| 3b 39 38 30 3b 39 38 30 | 3b 0d 0f 64 05 cd 0d 0f |;980;980|;..d....|
|000047c0| 6e 0c e7 20 52 3d 36 37 | 20 8c 0d 0f 78 0f e7 20 |n.. R=67| ...x.. |
|000047d0| 43 75 72 73 25 3d 30 20 | 8c 0d 0f 82 11 4d 61 78 |Curs%=0 |.....Max|
|000047e0| 74 72 79 25 3d 35 30 2a | 4e 25 0d 0f 8c 05 cc 0d |try%=50*|N%......|
|000047f0| 0f 96 10 54 6c 69 6d 3d | 54 6c 69 6d 2f 31 30 0d |...Tlim=|Tlim/10.|
|00004800| 0f a0 05 cd 0d 0f aa 05 | cd 0d 0f b4 46 f4 20 41 |........|....F. A|
|00004810| 6c 74 65 72 20 74 68 65 | 20 73 74 61 72 20 63 6f |lter the| star co|
|00004820| 6d 6d 61 6e 64 20 69 6e | 20 6c 69 6e 65 20 34 30 |mmand in| line 40|
|00004830| 35 30 20 66 6f 72 20 64 | 65 73 69 72 65 64 20 73 |50 for d|esired s|
|00004840| 63 72 65 65 6e 2d 64 75 | 6d 70 20 63 61 6c 6c 0d |creen-du|mp call.|
|00004850| 0f be 44 f4 20 61 66 74 | 65 72 20 61 6e 20 52 4d |..D. aft|er an RM|
|00004860| 4c 6f 61 64 20 6f 66 20 | 74 68 65 20 48 61 72 64 |Load of |the Hard|
|00004870| 43 6f 70 79 20 6d 6f 64 | 75 6c 65 20 66 6f 72 20 |Copy mod|ule for |
|00004880| 44 6f 74 2d 4d 61 74 72 | 69 78 20 70 72 69 6e 74 |Dot-Matr|ix print|
|00004890| 65 72 73 0d 0f c8 0c e7 | 20 52 3d 36 38 20 8c 0d |ers.....| R=68 ..|
|000048a0| 0f d2 11 f4 20 2a 48 61 | 72 64 43 6f 70 79 46 58 |.... *Ha|rdCopyFX|
|000048b0| 0d 0f dc 05 cd 0d 0f e6 | 11 fd 20 52 3d 36 37 20 |........|.. R=67 |
|000048c0| 84 20 52 3d 36 39 0d 0f | f0 0f 45 78 69 74 3d 28 |. R=69..|..Exit=(|
|000048d0| 52 3d 36 39 29 0d 0f fa | 05 e1 0d ff 46 69 6c 65 |R=69)...|....File|
|000048e0| 44 61 74 61 82 5a 65 72 | 46 75 6e 63 00 00 00 00 |Data.Zer|Func....|
|000048f0| 56 27 00 00 42 fb ff ff | fd b4 91 de 03 00 2e ed |V'..B...|........|
|00004900| 0d 00 0a 15 f4 20 50 72 | 6f 67 72 61 6d 20 5a 65 |..... Pr|ogram Ze|
|00004910| 72 46 75 6e 63 0d 00 14 | 20 f4 20 28 43 29 20 44 |rFunc...| . (C) D|
|00004920| 2e 45 2e 20 42 6f 77 65 | 72 20 20 34 20 4a 61 6e |.E. Bowe|r 4 Jan|
|00004930| 20 31 39 39 31 0d 00 1e | 28 f4 20 56 65 72 73 69 | 1991...|(. Versi|
|00004940| 6f 6e 20 32 20 66 6f 72 | 20 41 72 63 68 69 6d 65 |on 2 for| Archime|
|00004950| 64 65 73 20 2b 20 42 41 | 53 49 43 20 56 0d 00 28 |des + BA|SIC V..(|
|00004960| 1e f4 20 28 63 6f 6e 76 | 65 72 74 65 64 20 66 72 |.. (conv|erted fr|
|00004970| 6f 6d 20 42 41 53 49 43 | 20 32 29 0d 00 32 05 20 |om BASIC| 2)..2. |
|00004980| 0d 00 3c 23 f4 20 52 65 | 61 6c 20 61 6e 64 2f 6f |..<#. Re|al and/o|
|00004990| 72 20 63 6f 6d 70 6c 65 | 78 20 7a 65 72 6f 65 73 |r comple|x zeroes|
|000049a0| 20 6f 66 0d 00 46 22 f4 | 20 61 6e 20 61 72 62 69 | of..F".| an arbi|
|000049b0| 74 72 61 72 79 20 66 75 | 6e 63 74 69 6f 6e 20 6f |trary fu|nction o|
|000049c0| 66 20 6f 6e 65 0d 00 50 | 23 f4 20 76 61 72 69 61 |f one..P|#. varia|
|000049d0| 62 6c 65 20 62 79 20 4d | 75 6c 6c 65 72 27 73 20 |ble by M|uller's |
|000049e0| 6d 65 74 68 6f 64 20 2e | 0d 00 5a 05 20 0d 00 64 |method .|..Z. ..d|
|000049f0| 3b f4 20 44 2e 45 2e 20 | 4d 75 6c 6c 65 72 20 22 |;. D.E. |Muller "|
|00004a00| 41 20 6d 65 74 68 6f 64 | 20 6f 66 20 73 6f 6c 76 |A method| of solv|
|00004a10| 69 6e 67 20 61 6c 67 65 | 62 72 61 69 63 20 65 71 |ing alge|braic eq|
|00004a20| 75 61 74 69 6f 6e 73 22 | 0d 00 6e 24 f4 20 4d 54 |uations"|..n$. MT|
|00004a30| 41 43 20 56 6f 6c 2e 20 | 31 30 20 70 70 20 32 30 |AC Vol. |10 pp 20|
|00004a40| 38 2d 32 31 35 20 28 31 | 39 35 36 29 0d 00 78 04 |8-215 (1|956)..x.|
|00004a50| 0d 00 82 35 f4 20 43 6f | 6e 74 65 20 26 20 64 65 |...5. Co|nte & de|
|00004a60| 20 42 6f 6f 72 20 22 45 | 6c 65 6d 65 6e 74 61 72 | Boor "E|lementar|
|00004a70| 79 20 4e 75 6d 65 72 69 | 63 61 6c 20 41 6e 61 6c |y Numeri|cal Anal|
|00004a80| 79 73 69 73 22 0d 00 8c | 22 f4 20 32 6e 64 20 65 |ysis"...|". 2nd e|
|00004a90| 64 69 74 69 6f 6e 20 4d | 63 47 72 61 77 2d 48 69 |dition M|cGraw-Hi|
|00004aa0| 6c 6c 20 31 39 37 32 0d | 00 96 05 20 0d 00 a0 04 |ll 1972.|... ....|
|00004ab0| 0d 00 aa 26 ee 20 85 20 | 3a 20 ee 20 85 20 87 20 |...&. . |: . . . |
|00004ac0| 3a 20 40 25 3d 31 30 20 | 3a 20 ef 32 30 20 3a 20 |: @%=10 |: .20 : |
|00004ad0| e5 20 8d 54 62 41 0d 00 | b4 05 20 0d 00 be 07 eb |. .TbA..|.. .....|
|00004ae0| 20 37 0d 00 c8 09 f2 69 | 6e 66 6f 0d 00 d2 07 eb | 7.....i|nfo.....|
|00004af0| 20 31 0d 00 dc 0f f2 69 | 6e 69 74 69 61 6c 69 73 | 1.....i|nitialis|
|00004b00| 65 0d 00 e6 0d f2 76 61 | 6c 69 64 61 74 65 0d 00 |e.....va|lidate..|
|00004b10| f0 0d e7 20 76 61 6c 69 | 64 20 8c 0d 00 fa 10 f2 |... vali|d ......|
|00004b20| 73 63 72 65 65 6e 5f 69 | 6e 69 74 0d 01 04 0b f2 |screen_i|nit.....|
|00004b30| 73 65 61 72 63 68 0d 01 | 0e 05 cd 0d 01 18 04 0d |search..|........|
|00004b40| 01 22 19 eb 20 30 20 3a | 20 fb 20 30 20 3a 20 fb |.".. 0 :| . 0 : .|
|00004b50| 20 31 32 39 20 3a 20 db | 0d 01 2c 04 0d 01 36 10 | 129 : .|..,...6.|
|00004b60| e7 20 ac 28 76 61 6c 69 | 64 29 20 8c 0d 01 40 26 |. .(vali|d) ...@&|
|00004b70| f1 20 27 27 22 20 20 49 | 6e 70 75 74 20 44 61 74 |. ''" I|nput Dat|
|00004b80| 61 20 69 73 20 4e 4f 54 | 20 56 61 6c 69 64 20 21 |a is NOT| Valid !|
|00004b90| 21 22 0d 01 4a 2a f1 20 | 27 27 22 20 20 50 6c 65 |!"..J*. |''" Ple|
|00004ba0| 61 73 65 20 43 68 65 63 | 6b 20 61 6e 64 20 43 6f |ase Chec|k and Co|
|00004bb0| 72 72 65 63 74 20 44 61 | 74 61 22 27 0d 01 54 05 |rrect Da|ta"'..T.|
|00004bc0| cd 0d 01 5e 27 e7 20 9f | 20 80 20 9f 3c 3e 31 37 |...^'. .| . .<>17|
|00004bd0| 20 80 20 9e 20 8c 20 f6 | 3a f1 20 22 20 61 74 20 | . . . .|:. " at |
|00004be0| 6c 69 6e 65 20 22 3b 9e | 0d 01 68 04 0d 01 72 05 |line ";.|..h...r.|
|00004bf0| e0 0d 01 7c 04 0d 01 86 | 3e 2a 2a 2a 2a 2a 2a 2a |...|....|>*******|
|00004c00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004c10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004c20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004c30| 2a 2a 2a 0d 01 90 04 0d | 01 9a 0b dd 20 f2 69 6e |***.....|.... .in|
|00004c40| 66 6f 0d 01 a4 0b 76 61 | 6c 69 64 3d b9 0d 01 ae |fo....va|lid=....|
|00004c50| 4b e3 20 72 6f 77 3d 30 | 20 b8 20 31 3a f1 8a 30 |K. row=0| . 1:..0|
|00004c60| 2c 72 6f 77 29 3b bd 31 | 34 31 3b bd 31 33 30 3b |,row);.1|41;.130;|
|00004c70| 22 43 6f 6d 70 6c 65 78 | 20 5a 65 72 6f 65 73 20 |"Complex| Zeroes |
|00004c80| 6f 66 20 41 72 62 69 74 | 72 61 72 79 20 46 75 6e |of Arbit|rary Fun|
|00004c90| 63 74 69 6f 6e 22 3a ed | 0d 01 b8 2e f1 27 22 20 |ction":.|.....'" |
|00004ca0| 20 50 72 6f 67 72 61 6d | 20 5a 65 72 46 75 6e 63 | Program| ZerFunc|
|00004cb0| 20 73 65 61 72 63 68 65 | 73 20 66 6f 72 20 61 6c | searche|s for al|
|00004cc0| 6c 20 74 68 65 22 0d 01 | c2 2d f1 20 22 20 20 72 |l the"..|.-. " r|
|00004cd0| 65 61 6c 20 6f 72 20 63 | 6f 6d 70 6c 65 78 20 7a |eal or c|omplex z|
|00004ce0| 65 72 6f 65 73 20 6f 66 | 20 61 20 67 65 6e 65 72 |eroes of| a gener|
|00004cf0| 61 6c 22 0d 01 cc 2d f1 | 20 22 20 20 66 75 6e 63 |al"...-.| " func|
|00004d00| 74 69 6f 6e 20 6f 66 20 | 74 68 65 20 63 6f 6d 70 |tion of |the comp|
|00004d10| 6c 65 78 20 76 61 72 69 | 61 62 6c 65 20 5a 2e 22 |lex vari|able Z."|
|00004d20| 0d 01 d6 2c f1 27 22 20 | 20 49 74 20 75 73 65 73 |...,.'" | It uses|
|00004d30| 20 74 68 65 20 4d 75 6c | 6c 65 72 20 61 6c 67 6f | the Mul|ler algo|
|00004d40| 72 69 74 68 6d 20 77 68 | 69 63 68 22 0d 01 e0 2e |rithm wh|ich"....|
|00004d50| f1 20 22 20 20 72 65 70 | 65 61 74 65 64 6c 79 20 |. " rep|eatedly |
|00004d60| 63 6f 6d 70 75 74 65 73 | 20 61 6e 20 61 70 70 72 |computes| an appr|
|00004d70| 6f 78 69 6d 61 74 69 6f | 6e 22 0d 01 ea 2e f1 20 |oximatio|n"..... |
|00004d80| 22 20 20 74 6f 20 74 68 | 65 20 6e 65 78 74 20 72 |" to th|e next r|
|00004d90| 6f 6f 74 20 62 79 20 65 | 78 74 72 61 70 6f 6c 61 |oot by e|xtrapola|
|00004da0| 74 69 6f 6e 20 6f 66 22 | 0d 01 f4 2e f1 20 22 20 |tion of"|..... " |
|00004db0| 20 61 20 70 61 72 61 62 | 6f 6c 61 20 66 69 74 20 | a parab|ola fit |
|00004dc0| 74 6f 20 74 68 65 20 74 | 68 72 65 65 20 70 72 65 |to the t|hree pre|
|00004dd0| 76 69 6f 75 73 22 0d 01 | fe 2c f1 20 22 20 20 61 |vious"..|.,. " a|
|00004de0| 70 70 72 6f 78 69 6d 61 | 74 69 6f 6e 73 2e 20 54 |pproxima|tions. T|
|00004df0| 68 69 73 20 6d 65 74 68 | 6f 64 20 69 73 20 66 61 |his meth|od is fa|
|00004e00| 72 22 0d 02 08 2d f1 20 | 22 20 20 6d 6f 72 65 20 |r"...-. |" more |
|00004e10| 72 6f 62 75 73 74 20 74 | 68 61 6e 20 74 68 65 20 |robust t|han the |
|00004e20| 4e 65 77 74 6f 6e 2d 52 | 61 70 68 73 6f 6e 22 0d |Newton-R|aphson".|
|00004e30| 02 12 2e f1 20 22 20 20 | 70 72 6f 63 65 64 75 72 |.... " |procedur|
|00004e40| 65 20 61 6e 64 20 61 6c | 73 6f 20 68 61 73 20 6d |e and al|so has m|
|00004e50| 75 63 68 20 73 75 70 65 | 72 69 6f 72 22 0d 02 1c |uch supe|rior"...|
|00004e60| 28 f1 20 22 20 20 67 6c | 6f 62 61 6c 20 63 6f 6e |(. " gl|obal con|
|00004e70| 76 65 72 67 65 6e 63 65 | 20 70 72 6f 70 65 72 74 |vergence| propert|
|00004e80| 69 65 73 2e 22 0d 02 26 | 2c f1 27 22 20 20 54 68 |ies."..&|,.'" Th|
|00004e90| 69 73 20 64 65 6d 6f 20 | 69 73 20 73 65 74 20 75 |is demo |is set u|
|00004ea0| 70 20 66 6f 72 20 74 68 | 65 20 7a 65 72 6f 65 73 |p for th|e zeroes|
|00004eb0| 22 0d 02 30 2e f1 20 22 | 20 20 6f 66 20 74 68 65 |"..0.. "| of the|
|00004ec0| 20 72 65 61 6c 20 70 6f | 6c 79 6e 6f 6d 69 61 6c | real po|lynomial|
|00004ed0| 20 46 28 5a 29 3d 5a 5e | 33 30 20 2d 20 31 22 0d | F(Z)=Z^|30 - 1".|
|00004ee0| 02 3a 2e f1 20 22 20 20 | 62 75 74 20 74 68 65 20 |.:.. " |but the |
|00004ef0| 63 6f 6e 74 72 6f 6c 20 | 64 61 74 61 20 6d 61 79 |control |data may|
|00004f00| 20 62 65 20 6d 6f 64 69 | 66 69 65 64 22 0d 02 44 | be modi|fied"..D|
|00004f10| 30 f1 20 22 20 20 74 6f | 20 61 6e 61 6c 79 73 65 |0. " to| analyse|
|00004f20| 20 61 20 75 73 65 72 2d | 73 75 70 70 6c 69 65 64 | a user-|supplied|
|00004f30| 20 66 75 6e 63 74 69 6f | 6e 2e 22 27 27 0d 02 4e | functio|n."''..N|
|00004f40| 2e f1 20 bd 31 33 32 3b | 22 20 20 20 20 20 20 20 |.. .132;|" |
|00004f50| 20 20 50 72 65 73 73 20 | 61 20 6b 65 79 2e 2e 2e | Press |a key...|
|00004f60| 2e 2e 22 3a 2a 46 58 31 | 35 2c 31 0d 02 58 07 47 |..":*FX1|5,1..X.G|
|00004f70| 3d a5 0d 02 62 05 e1 0d | 02 6c 04 0d 02 76 04 0d |=...b...|.l...v..|
|00004f80| 02 80 11 dd 20 f2 69 6e | 69 74 69 61 6c 69 73 65 |.... .in|itialise|
|00004f90| 0d 02 8a 04 0d 02 94 12 | ef 20 31 39 2c 31 2c 34 |........|. 19,1,4|
|00004fa0| 2c 30 2c 30 2c 30 0d 02 | 9e 44 ef 20 32 34 2c 30 |,0,0,0..|.D. 24,0|
|00004fb0| 3b 30 3b 38 30 30 3b 31 | 30 32 33 3b 20 20 3a 20 |;0;800;1|023; : |
|00004fc0| f4 20 55 73 65 20 6c 65 | 66 74 20 20 70 6f 72 74 |. Use le|ft port|
|00004fd0| 69 6f 6e 20 6f 66 20 73 | 63 72 65 65 6e 20 66 6f |ion of s|creen fo|
|00004fe0| 72 20 67 72 61 70 68 69 | 63 73 0d 02 a8 44 ef 20 |r graphi|cs...D. |
|00004ff0| 32 38 2c 32 36 2c 33 31 | 2c 33 39 2c 30 20 20 20 |28,26,31|,39,0 |
|00005000| 20 20 3a 20 f4 20 55 73 | 65 20 72 69 67 68 74 20 | : . Us|e right |
|00005010| 70 6f 72 74 69 6f 6e 20 | 6f 66 20 73 63 72 65 65 |portion |of scree|
|00005020| 6e 20 66 6f 72 20 74 65 | 78 74 20 6f 2f 70 0d 02 |n for te|xt o/p..|
|00005030| b2 39 ef 20 32 33 3b 38 | 32 30 32 3b 30 3b 30 3b |.9. 23;8|202;0;0;|
|00005040| 30 3b 20 20 20 20 3a 20 | f4 20 41 6e 63 69 65 6e |0; : |. Ancien|
|00005050| 74 20 6d 65 74 68 6f 64 | 20 66 6f 72 20 63 75 72 |t method| for cur|
|00005060| 73 6f 72 20 6f 66 66 0d | 02 bc 05 20 0d 02 c6 3d |sor off.|... ...=|
|00005070| 64 65 62 75 67 3d 30 20 | 20 3a 20 f4 20 53 65 74 |debug=0 | : . Set|
|00005080| 20 74 6f 20 31 20 66 6f | 72 20 70 72 69 6e 74 65 | to 1 fo|r printe|
|00005090| 72 20 6f 2f 70 20 6f 72 | 20 32 20 66 6f 72 20 73 |r o/p or| 2 for s|
|000050a0| 63 72 65 65 6e 20 6f 2f | 70 0d 02 d0 22 45 31 3d |creen o/|p..."E1=|
|000050b0| 31 45 2d 38 20 20 3a 20 | f4 20 52 6f 6f 74 20 50 |1E-8 : |. Root P|
|000050c0| 6f 73 69 74 69 6f 6e 20 | 54 6f 6c 0d 02 da 1f 45 |osition |Tol....E|
|000050d0| 32 3d 31 45 2d 38 20 20 | 3a 20 f4 20 46 75 6e 63 |2=1E-8 |: . Func|
|000050e0| 20 56 61 6c 75 65 20 54 | 6f 6c 0d 02 e4 22 45 33 | Value T|ol..."E3|
|000050f0| 3d 31 45 2d 31 34 20 3a | 20 f4 20 4d 75 6c 74 69 |=1E-14 :| . Multi|
|00005100| 70 6c 65 20 72 6f 6f 74 | 20 54 6f 6c 0d 02 ee 20 |ple root| Tol... |
|00005110| 45 34 3d 31 45 2d 31 36 | 20 3a 20 f4 20 43 53 51 |E4=1E-16| : . CSQ|
|00005120| 52 54 20 41 62 6f 72 74 | 20 54 6f 6c 0d 02 f8 25 |RT Abort| Tol...%|
|00005130| 45 31 39 3d 31 45 31 39 | 20 3a 20 f4 20 43 53 51 |E19=1E19| : . CSQ|
|00005140| 52 54 20 6f 76 65 72 66 | 6c 6f 77 20 6c 69 6d 69 |RT overf|low limi|
|00005150| 74 0d 03 02 0a 45 36 3d | 31 45 36 0d 03 0c 32 65 |t....E6=|1E6...2e|
|00005160| 70 73 3d 31 45 2d 33 20 | 3a 20 f4 20 50 65 72 74 |ps=1E-3 |: . Pert|
|00005170| 75 72 62 61 74 69 6f 6e | 20 66 6f 72 20 69 6e 69 |urbation| for ini|
|00005180| 74 69 61 6c 20 65 73 74 | 69 6d 61 74 65 0d 03 16 |tial est|imate...|
|00005190| 20 4d 61 78 69 74 3d 31 | 30 30 3a 20 f4 20 4d 61 | Maxit=1|00: . Ma|
|000051a0| 78 20 69 74 65 72 20 2f | 20 72 6f 6f 74 0d 03 20 |x iter /| root.. |
|000051b0| 1b 42 6c 61 6e 6b 24 3d | 22 20 20 20 20 20 20 20 |.Blank$=|" |
|000051c0| 20 20 20 20 20 20 20 22 | 0d 03 2a 04 0d 03 34 05 | "|..*...4.|
|000051d0| e1 0d 03 3e 04 0d 03 48 | 04 0d 03 52 0f dd 20 f2 |...>...H|...R.. .|
|000051e0| 76 61 6c 69 64 61 74 65 | 0d 03 5c 04 0d 03 66 17 |validate|..\...f.|
|000051f0| f3 20 46 24 2c 4e 72 2c | 43 24 20 3a 20 66 6e 24 |. F$,Nr,|C$ : fn$|
|00005200| 3d 46 24 0d 03 70 27 e7 | 20 46 24 3c 3e 22 50 4f |=F$..p'.| F$<>"PO|
|00005210| 4c 59 22 20 80 20 46 24 | 3c 3e 22 46 55 4e 43 22 |LY" . F$|<>"FUNC"|
|00005220| 20 8c 20 76 61 6c 69 64 | 3d a3 0d 03 7a 0d 46 24 | . valid|=...z.F$|
|00005230| 3d c0 46 24 2c 31 29 0d | 03 84 20 e7 20 4e 72 3c |=.F$,1).|.. . Nr<|
|00005240| 3e a8 28 4e 72 29 20 84 | 20 4e 72 3c 31 20 8c 20 |>.(Nr) .| Nr<1 . |
|00005250| 76 61 6c 69 64 3d a3 0d | 03 8e 1b de 20 5a 72 31 |valid=..|.... Zr1|
|00005260| 28 4e 72 29 2c 5a 72 32 | 28 4e 72 29 2c 43 28 4e |(Nr),Zr2|(Nr),C(N|
|00005270| 72 29 0d 03 98 2a e7 20 | 43 24 3c 3e 22 52 45 41 |r)...*. |C$<>"REA|
|00005280| 4c 22 20 80 20 43 24 3c | 3e 22 43 4f 4d 50 4c 45 |L" . C$<|>"COMPLE|
|00005290| 58 22 20 8c 20 76 61 6c | 69 64 3d a3 0d 03 a2 21 |X" . val|id=....!|
|000052a0| e7 20 43 24 3d 22 52 45 | 41 4c 22 20 63 6d 70 6c |. C$="RE|AL" cmpl|
|000052b0| 78 3d 30 20 8b 20 63 6d | 70 6c 78 3d 31 0d 03 ac |x=0 . cm|plx=1...|
|000052c0| 19 f3 20 58 6d 69 6e 2c | 58 6d 61 78 2c 59 6d 69 |.. Xmin,|Xmax,Ymi|
|000052d0| 6e 2c 59 6d 61 78 0d 03 | b6 27 e7 20 58 6d 69 6e |n,Ymax..|.'. Xmin|
|000052e0| 3e 3d 58 6d 61 78 20 84 | 20 59 6d 69 6e 3e 3d 59 |>=Xmax .| Ymin>=Y|
|000052f0| 6d 61 78 20 8c 20 76 61 | 6c 69 64 3d a3 0d 03 c0 |max . va|lid=....|
|00005300| 0e e7 20 46 24 3d 22 50 | 22 20 8c 0d 03 ca 34 f2 |.. F$="P|" ....4.|
|00005310| 63 6f 65 66 66 20 20 20 | 20 20 20 20 20 20 20 3a |coeff | :|
|00005320| 20 f4 20 72 65 61 64 20 | 70 6f 6c 79 6e 6f 6d 69 | . read |polynomi|
|00005330| 61 6c 20 63 6f 65 66 66 | 69 63 69 65 6e 74 73 0d |al coeff|icients.|
|00005340| 03 d4 43 4d 61 78 6d 6f | 64 3d 31 45 33 38 5e 28 |..CMaxmo|d=1E38^(|
|00005350| 32 2f 4e 72 29 20 3a 20 | f4 20 65 73 74 69 6d 61 |2/Nr) : |. estima|
|00005360| 74 65 20 6d 61 78 20 73 | 65 6e 73 69 62 6c 65 20 |te max s|ensible |
|00005370| 69 6e 70 75 74 20 74 6f | 20 70 6f 6c 79 20 65 76 |input to| poly ev|
|00005380| 61 6c 0d 03 de 05 cd 0d | 03 e8 04 0d 03 f2 05 e1 |al......|........|
|00005390| 0d 03 fc 04 0d 04 06 04 | 0d 04 10 0d dd 20 f2 73 |........|..... .s|
|000053a0| 65 61 72 63 68 0d 04 1a | 05 20 0d 04 24 11 e3 20 |earch...|. ..$.. |
|000053b0| 72 6f 6f 74 3d 31 20 b8 | 20 4e 72 0d 04 2e 04 0d |root=1 .| Nr.....|
|000053c0| 04 38 3a 52 31 3d 30 20 | 3a 20 52 32 3d 30 20 3a |.8:R1=0 |: R2=0 :|
|000053d0| 20 49 74 65 72 3d 30 20 | 3a 20 f4 20 53 65 74 20 | Iter=0 |: . Set |
|000053e0| 69 6e 69 74 69 61 6c 20 | 65 73 74 69 6d 61 74 65 |initial |estimate|
|000053f0| 20 74 6f 20 28 30 2c 30 | 29 0d 04 42 04 0d 04 4c | to (0,0|)..B...L|
|00005400| 05 f5 0d 04 56 04 0d 04 | 60 17 48 31 3d 2e 34 20 |....V...|`.H1=.4 |
|00005410| 3a 20 48 32 3d 2e 34 2a | 63 6d 70 6c 78 0d 04 6a |: H2=.4*|cmplx..j|
|00005420| 23 4c 61 6d 64 61 31 3d | 2d 30 2e 35 20 3a 20 4c |#Lamda1=|-0.5 : L|
|00005430| 61 6d 64 61 32 3d 30 20 | 3a 20 63 6f 6e 76 3d 30 |amda2=0 |: conv=0|
|00005440| 0d 04 74 04 0d 04 7e 2e | f4 20 46 69 72 73 74 20 |..t...~.|. First |
|00005450| 74 68 72 65 65 20 65 73 | 74 69 6d 61 74 65 73 20 |three es|timates |
|00005460| 61 72 65 20 20 52 2b 48 | 20 2c 20 52 2d 48 20 2c |are R+H| , R-H ,|
|00005470| 20 52 0d 04 88 04 0d 04 | 92 05 f5 0d 04 9c 04 0d | R......|........|
|00005480| 04 a6 0c c8 8e 20 65 72 | 72 20 ca 0d 04 b0 12 c9 |..... er|r ......|
|00005490| 20 31 3a 20 52 31 3d 52 | 31 2b 65 70 73 0d 04 ba | 1: R1=R|1+eps...|
|000054a0| 20 c9 20 32 3a 20 52 31 | 3d 2e 32 2a b3 2d 2e 31 | . 2: R1|=.2*.-.1|
|000054b0| 20 3a 20 52 32 3d 2e 32 | 2a b3 2d 2e 31 0d 04 c4 | : R2=.2|*.-.1...|
|000054c0| 05 cb 0d 04 ce 04 0d 04 | d8 17 5a 31 3d 52 31 2b |........|..Z1=R1+|
|000054d0| 48 31 20 3a 20 5a 32 3d | 52 32 2b 48 32 0d 04 e2 |H1 : Z2=|R2+H2...|
|000054e0| 09 f2 65 76 61 6c 0d 04 | ec 05 20 0d 04 f6 0d e7 |..eval..|.. .....|
|000054f0| 20 65 72 72 3d 30 20 8c | 0d 05 00 13 46 6d 31 3d | err=0 .|....Fm1=|
|00005500| 46 31 20 3a 20 46 6d 32 | 3d 46 32 0d 05 0a 17 5a |F1 : Fm2|=F2....Z|
|00005510| 31 3d 52 31 2d 48 31 20 | 3a 20 5a 32 3d 52 32 2d |1=R1-H1 |: Z2=R2-|
|00005520| 48 32 0d 05 14 09 f2 65 | 76 61 6c 0d 05 1e 05 cd |H2.....e|val.....|
|00005530| 0d 05 28 05 20 0d 05 32 | 0d e7 20 65 72 72 3d 30 |..(. ..2|.. err=0|
|00005540| 20 8c 0d 05 3c 17 4f 6c | 64 66 31 3d 46 31 20 3a | ...<.Ol|df1=F1 :|
|00005550| 20 4f 6c 64 66 32 3d 46 | 32 0d 05 46 1b 46 6d 31 | Oldf2=F|2..F.Fm1|
|00005560| 3d 46 31 2d 46 6d 31 20 | 3a 20 46 6d 32 3d 46 32 |=F1-Fm1 |: Fm2=F2|
|00005570| 2d 46 6d 32 0d 05 50 11 | 5a 31 3d 52 31 20 3a 20 |-Fm2..P.|Z1=R1 : |
|00005580| 5a 32 3d 52 32 0d 05 5a | 09 f2 65 76 61 6c 0d 05 |Z2=R2..Z|..eval..|
|00005590| 64 05 cd 0d 05 6e 05 20 | 0d 05 78 0b fd 20 65 72 |d....n. |..x.. er|
|000055a0| 72 3d 30 0d 05 82 04 0d | 05 8c 47 f4 20 50 61 72 |r=0.....|..G. Par|
|000055b0| 61 62 6f 6c 69 63 20 45 | 78 74 72 61 70 6f 6c 61 |abolic E|xtrapola|
|000055c0| 74 69 6f 6e 20 2f 20 55 | 70 64 61 74 65 20 69 74 |tion / U|pdate it|
|000055d0| 65 72 61 74 69 6f 6e 20 | 28 20 63 6f 6d 70 6c 65 |eration |( comple|
|000055e0| 78 20 61 72 69 74 68 6d | 65 74 69 63 20 29 0d 05 |x arithm|etic )..|
|000055f0| 96 36 f4 20 44 65 6c 66 | 3d 46 2d 4f 6c 64 66 20 |.6. Delf|=F-Oldf |
|00005600| 3a 20 44 65 6c 74 3d 46 | 6d 2a 4c 61 6d 64 61 20 |: Delt=F|m*Lamda |
|00005610| 3a 20 4e 75 6d 3d 2d 32 | 2a 46 2a 28 31 2b 4c 61 |: Num=-2|*F*(1+La|
|00005620| 6d 64 61 29 0d 05 a0 23 | f4 20 47 3d 28 31 2b 32 |mda)...#|. G=(1+2|
|00005630| 2a 4c 61 6d 64 61 29 2a | 44 65 6c 66 2d 4c 61 6d |*Lamda)*|Delf-Lam|
|00005640| 64 61 2a 44 65 6c 74 0d | 05 aa 31 f4 20 42 3d 47 |da*Delt.|..1. B=G|
|00005650| 2a 47 20 2b 20 32 2a 4e | 75 6d 2a 4c 61 6d 64 61 |*G + 2*N|um*Lamda|
|00005660| 2a 28 44 65 6c 66 2d 44 | 65 6c 74 29 20 3a 20 53 |*(Delf-D|elt) : S|
|00005670| 71 3d 53 51 52 28 42 29 | 0d 05 b4 2c f4 20 44 65 |q=SQR(B)|...,. De|
|00005680| 6e 3d 47 20 2b 2d 20 53 | 71 20 28 46 6f 72 63 65 |n=G +- S|q (Force|
|00005690| 20 6c 61 72 67 65 72 20 | 64 65 6e 6f 6d 69 6e 61 | larger |denomina|
|000056a0| 74 6f 72 29 0d 05 be 27 | f4 20 4c 61 6d 64 61 3d |tor)...'|. Lamda=|
|000056b0| 4e 75 6d 2f 44 65 6e 20 | 3a 20 48 3d 48 2a 4c 61 |Num/Den |: H=H*La|
|000056c0| 6d 64 61 20 3a 20 5a 3d | 5a 2b 48 0d 05 c8 04 0d |mda : Z=|Z+H.....|
|000056d0| 05 d2 05 f5 0d 05 dc 05 | 20 0d 05 e6 0d 63 66 6c |........| ....cfl|
|000056e0| 67 3d 63 6f 6e 76 0d 05 | f0 0a 63 6f 6e 76 3d 30 |g=conv..|..conv=0|
|000056f0| 0d 05 fa 05 20 0d 06 04 | 12 44 65 6c 66 31 3d 46 |.... ...|.Delf1=F|
|00005700| 31 2d 4f 6c 64 66 31 0d | 06 0e 12 44 65 6c 66 32 |1-Oldf1.|...Delf2|
|00005710| 3d 46 32 2d 4f 6c 64 66 | 32 0d 06 18 21 44 65 6c |=F2-Oldf|2...!Del|
|00005720| 74 31 3d 4c 61 6d 64 61 | 31 2a 46 6d 31 20 2d 20 |t1=Lamda|1*Fm1 - |
|00005730| 4c 61 6d 64 61 32 2a 46 | 6d 32 0d 06 22 21 44 65 |Lamda2*F|m2.."!De|
|00005740| 6c 74 32 3d 4c 61 6d 64 | 61 32 2a 46 6d 31 20 2b |lt2=Lamd|a2*Fm1 +|
|00005750| 20 4c 61 6d 64 61 31 2a | 46 6d 32 0d 06 2c 0f 4c | Lamda1*|Fm2..,.L|
|00005760| 31 3d 31 2b 4c 61 6d 64 | 61 31 0d 06 36 1f 4e 75 |1=1+Lamd|a1..6.Nu|
|00005770| 6d 31 3d 2d 32 2a 28 4c | 31 2a 46 31 20 2d 20 4c |m1=-2*(L|1*F1 - L|
|00005780| 61 6d 64 61 32 2a 46 32 | 29 0d 06 40 1f 4e 75 6d |amda2*F2|)..@.Num|
|00005790| 32 3d 2d 32 2a 28 4c 31 | 2a 46 32 20 2b 20 4c 61 |2=-2*(L1|*F2 + La|
|000057a0| 6d 64 61 32 2a 46 31 29 | 0d 06 4a 10 4c 31 3d 4c |mda2*F1)|..J.L1=L|
|000057b0| 31 2b 4c 61 6d 64 61 31 | 0d 06 54 14 4c 32 3d 4c |1+Lamda1|..T.L2=L|
|000057c0| 61 6d 64 61 32 2b 4c 61 | 6d 64 61 32 0d 06 5e 38 |amda2+La|mda2..^8|
|000057d0| 47 31 3d 4c 31 2a 44 65 | 6c 66 31 20 2d 20 4c 32 |G1=L1*De|lf1 - L2|
|000057e0| 2a 44 65 6c 66 32 20 2d | 20 4c 61 6d 64 61 31 2a |*Delf2 -| Lamda1*|
|000057f0| 44 65 6c 74 31 20 2b 20 | 4c 61 6d 64 61 32 2a 44 |Delt1 + |Lamda2*D|
|00005800| 65 6c 74 32 0d 06 68 38 | 47 32 3d 4c 32 2a 44 65 |elt2..h8|G2=L2*De|
|00005810| 6c 66 31 20 2b 20 4c 31 | 2a 44 65 6c 66 32 20 2d |lf1 + L1|*Delf2 -|
|00005820| 20 4c 61 6d 64 61 32 2a | 44 65 6c 74 31 20 2d 20 | Lamda2*|Delt1 - |
|00005830| 4c 61 6d 64 61 31 2a 44 | 65 6c 74 32 0d 06 72 24 |Lamda1*D|elt2..r$|
|00005840| 4e 31 3d 32 2a 28 4e 75 | 6d 31 2a 4c 61 6d 64 61 |N1=2*(Nu|m1*Lamda|
|00005850| 31 20 2d 20 4e 75 6d 32 | 2a 4c 61 6d 64 61 32 29 |1 - Num2|*Lamda2)|
|00005860| 0d 06 7c 24 4e 32 3d 32 | 2a 28 4e 75 6d 32 2a 4c |..|$N2=2|*(Num2*L|
|00005870| 61 6d 64 61 31 20 2b 20 | 4e 75 6d 31 2a 4c 61 6d |amda1 + |Num1*Lam|
|00005880| 64 61 32 29 0d 06 86 12 | 44 31 3d 44 65 6c 66 31 |da2)....|D1=Delf1|
|00005890| 2d 44 65 6c 74 31 0d 06 | 90 12 44 32 3d 44 65 6c |-Delt1..|..D2=Del|
|000058a0| 66 32 2d 44 65 6c 74 32 | 0d 06 9a 24 42 31 3d 47 |f2-Delt2|...$B1=G|
|000058b0| 31 2a 47 31 20 2d 20 47 | 32 2a 47 32 20 2b 20 4e |1*G1 - G|2*G2 + N|
|000058c0| 31 2a 44 31 20 2d 20 4e | 32 2a 44 32 0d 06 a4 24 |1*D1 - N|2*D2...$|
|000058d0| 42 32 3d 20 20 20 20 32 | 2a 47 31 2a 47 32 20 20 |B2= 2|*G1*G2 |
|000058e0| 20 2b 20 4e 32 2a 44 31 | 20 2b 20 4e 31 2a 44 32 | + N2*D1| + N1*D2|
|000058f0| 0d 06 ae 05 20 0d 06 b8 | 09 f2 73 71 72 74 0d 06 |.... ...|..sqrt..|
|00005900| c2 05 20 0d 06 cc 1a 73 | 67 6e 3d b4 28 47 31 2a |.. ....s|gn=.(G1*|
|00005910| 53 71 31 20 2b 20 47 32 | 2a 53 71 32 29 0d 06 d6 |Sq1 + G2|*Sq2)...|
|00005920| 15 44 65 6e 31 3d 47 31 | 20 2b 20 73 67 6e 2a 53 |.Den1=G1| + sgn*S|
|00005930| 71 31 0d 06 e0 15 44 65 | 6e 32 3d 47 32 20 2b 20 |q1....De|n2=G2 + |
|00005940| 73 67 6e 2a 53 71 32 0d | 06 ea 1f 44 6e 6f 72 6d |sgn*Sq2.|...Dnorm|
|00005950| 3d 44 65 6e 31 2a 44 65 | 6e 31 20 2b 20 44 65 6e |=Den1*De|n1 + Den|
|00005960| 32 2a 44 65 6e 32 0d 06 | f4 23 e7 20 44 6e 6f 72 |2*Den2..|.#. Dnor|
|00005970| 6d 3d 30 20 44 65 6e 31 | 3d 31 3a 44 65 6e 32 3d |m=0 Den1|=1:Den2=|
|00005980| 30 3a 44 6e 6f 72 6d 3d | 31 0d 06 fe 04 0d 07 08 |0:Dnorm=|1.......|
|00005990| 16 f4 20 55 70 64 61 74 | 65 20 69 74 65 72 61 74 |.. Updat|e iterat|
|000059a0| 69 6f 6e 0d 07 12 04 0d | 07 1c 28 4c 61 6d 64 61 |ion.....|..(Lamda|
|000059b0| 31 3d 28 4e 75 6d 31 2a | 44 65 6e 31 20 2b 20 4e |1=(Num1*|Den1 + N|
|000059c0| 75 6d 32 2a 44 65 6e 32 | 29 2f 44 6e 6f 72 6d 0d |um2*Den2|)/Dnorm.|
|000059d0| 07 26 28 4c 61 6d 64 61 | 32 3d 28 4e 75 6d 32 2a |.&(Lamda|2=(Num2*|
|000059e0| 44 65 6e 31 20 2d 20 4e | 75 6d 31 2a 44 65 6e 32 |Den1 - N|um1*Den2|
|000059f0| 29 2f 44 6e 6f 72 6d 0d | 07 30 0c 4f 6c 64 66 31 |)/Dnorm.|.0.Oldf1|
|00005a00| 3d 46 31 0d 07 3a 0c 4f | 6c 64 66 32 3d 46 32 0d |=F1..:.O|ldf2=F2.|
|00005a10| 07 44 0d 46 6d 31 3d 44 | 65 6c 66 31 0d 07 4e 0d |.D.Fm1=D|elf1..N.|
|00005a20| 46 6d 32 3d 44 65 6c 66 | 32 0d 07 58 1c 54 20 3d |Fm2=Delf|2..X.T =|
|00005a30| 48 31 2a 4c 61 6d 64 61 | 31 20 2d 20 48 32 2a 4c |H1*Lamda|1 - H2*L|
|00005a40| 61 6d 64 61 32 0d 07 62 | 1c 48 32 3d 48 32 2a 4c |amda2..b|.H2=H2*L|
|00005a50| 61 6d 64 61 31 20 2b 20 | 48 31 2a 4c 61 6d 64 61 |amda1 + |H1*Lamda|
|00005a60| 32 0d 07 6c 08 48 31 3d | 54 0d 07 76 0c 5a 31 3d |2..l.H1=|T..v.Z1=|
|00005a70| 5a 31 2b 48 31 0d 07 80 | 0c 5a 32 3d 5a 32 2b 48 |Z1+H1...|.Z2=Z2+H|
|00005a80| 32 0d 07 8a 05 20 0d 07 | 94 05 f5 0d 07 9e 05 20 |2.... ..|....... |
|00005a90| 0d 07 a8 19 64 69 76 65 | 72 3d 30 20 3a 20 49 74 |....dive|r=0 : It|
|00005aa0| 65 72 3d 49 74 65 72 2b | 31 0d 07 b2 09 f2 65 76 |er=Iter+|1.....ev|
|00005ab0| 61 6c 0d 07 bc 0b f2 6f | 75 74 70 75 74 0d 07 c6 |al.....o|utput...|
|00005ac0| 0f e7 20 61 62 6f 72 74 | 20 8c 20 e1 0d 07 d0 05 |.. abort| . .....|
|00005ad0| 20 0d 07 da 18 f4 20 43 | 6f 6e 76 65 72 67 65 6e | ..... C|onvergen|
|00005ae0| 63 65 20 43 68 65 63 6b | 73 0d 07 e4 04 0d 07 ee |ce Check|s.......|
|00005af0| 33 48 6e 6f 72 6d 3d 94 | 28 48 31 29 2b 94 28 48 |3Hnorm=.|(H1)+.(H|
|00005b00| 32 29 20 3a 20 f4 20 73 | 68 69 66 74 20 69 6e 20 |2) : . s|hift in |
|00005b10| 69 74 65 72 61 74 65 20 | 70 6f 73 69 74 69 6f 6e |iterate |position|
|00005b20| 0d 07 f8 32 5a 6e 6f 72 | 6d 3d 94 28 5a 31 29 2b |...2Znor|m=.(Z1)+|
|00005b30| 94 28 5a 32 29 20 3a 20 | f4 20 63 75 72 72 65 6e |.(Z2) : |. curren|
|00005b40| 74 20 69 74 65 72 61 74 | 65 20 70 6f 73 69 74 69 |t iterat|e positi|
|00005b50| 6f 6e 0d 08 02 34 46 6e | 6f 72 6d 3d 94 28 46 31 |on...4Fn|orm=.(F1|
|00005b60| 29 2b 94 28 46 32 29 20 | 3a 20 f4 20 20 20 20 64 |)+.(F2) |: . d|
|00005b70| 65 66 6c 61 74 65 64 20 | 66 75 6e 63 74 69 6f 6e |eflated |function|
|00005b80| 20 76 61 6c 75 65 0d 08 | 0c 34 55 6e 6f 72 6d 3d | value..|.4Unorm=|
|00005b90| 94 28 55 31 29 2b 94 28 | 55 32 29 20 3a 20 f4 20 |.(U1)+.(|U2) : . |
|00005ba0| 75 6e 2d 64 65 66 6c 61 | 74 65 64 20 66 75 6e 63 |un-defla|ted func|
|00005bb0| 74 69 6f 6e 20 76 61 6c | 75 65 0d 08 16 37 47 6e |tion val|ue...7Gn|
|00005bc0| 6f 72 6d 3d 94 28 4f 6c | 64 66 31 29 2b 94 28 4f |orm=.(Ol|df1)+.(O|
|00005bd0| 6c 64 66 32 29 20 3a 20 | f4 20 70 72 65 76 69 6f |ldf2) : |. previo|
|00005be0| 75 73 20 66 75 6e 63 74 | 69 6f 6e 20 76 61 6c 75 |us funct|ion valu|
|00005bf0| 65 0d 08 20 31 63 6f 6e | 76 3d 28 48 6e 6f 72 6d |e.. 1con|v=(Hnorm|
|00005c00| 3c 45 31 2a 5a 6e 6f 72 | 6d 29 20 84 20 28 46 6e |<E1*Znor|m) . (Fn|
|00005c10| 6f 72 6d 3c 45 32 20 80 | 20 55 6e 6f 72 6d 3c 45 |orm<E2 .| Unorm<E|
|00005c20| 32 29 0d 08 2a 04 0d 08 | 34 1e e7 20 46 6e 6f 72 |2)..*...|4.. Fnor|
|00005c30| 6d 3e 31 30 2a 47 6e 6f | 72 6d 20 84 20 65 72 72 |m>10*Gno|rm . err|
|00005c40| 3d 32 20 8c 0d 08 3e 0c | e7 20 63 6f 6e 76 20 8c |=2 ...>.|. conv .|
|00005c50| 0d 08 48 0c 5a 31 3d 5a | 31 2d 48 31 0d 08 52 0c |..H.Z1=Z|1-H1..R.|
|00005c60| 5a 32 3d 5a 32 2d 48 32 | 0d 08 5c 05 cc 0d 08 66 |Z2=Z2-H2|..\....f|
|00005c70| 0b 64 69 76 65 72 3d 31 | 0d 08 70 0b 48 31 3d 48 |.diver=1|..p.H1=H|
|00005c80| 31 2f 32 0d 08 7a 0b 48 | 32 3d 48 32 2f 32 0d 08 |1/2..z.H|2=H2/2..|
|00005c90| 84 45 f4 20 6e 65 78 74 | 20 6c 69 6e 65 20 66 72 |.E. next| line fr|
|00005ca0| 6f 6d 20 43 6f 6e 74 65 | 20 26 20 64 65 20 42 6f |om Conte| & de Bo|
|00005cb0| 6f 72 20 62 75 74 20 70 | 72 6f 62 6c 65 6d 73 20 |or but p|roblems |
|00005cc0| 6f 6e 20 68 69 67 68 2d | 6f 72 64 65 72 20 70 6f |on high-|order po|
|00005cd0| 6c 79 73 0d 08 8e 25 f4 | 20 4c 61 6d 64 61 31 3d |lys...%.| Lamda1=|
|00005ce0| 4c 61 6d 64 61 31 2f 32 | 3a 4c 61 6d 64 61 32 3d |Lamda1/2|:Lamda2=|
|00005cf0| 4c 61 6d 64 61 32 2f 32 | 0d 08 98 0c 5a 31 3d 5a |Lamda2/2|....Z1=Z|
|00005d00| 31 2d 48 31 0d 08 a2 0c | 5a 32 3d 5a 32 2d 48 32 |1-H1....|Z2=Z2-H2|
|00005d10| 0d 08 ac 0a 63 66 6c 67 | 3d 30 0d 08 b6 09 65 72 |....cflg|=0....er|
|00005d20| 72 3d 30 0d 08 c0 05 cd | 0d 08 ca 05 cd 0d 08 d4 |r=0.....|........|
|00005d30| 04 0d 08 de 13 fd 20 64 | 69 76 65 72 3d 30 20 84 |...... d|iver=0 .|
|00005d40| 20 65 72 72 0d 08 e8 05 | 20 0d 08 f2 19 fd 20 28 | err....| ..... (|
|00005d50| 63 6f 6e 76 20 80 20 63 | 66 6c 67 29 20 84 20 65 |conv . c|flg) . e|
|00005d60| 72 72 0d 08 fc 05 20 0d | 09 06 0b fd 20 65 72 72 |rr.... .|.... err|
|00005d70| 3d 30 0d 09 10 05 20 0d | 09 1a 10 5a 72 31 28 72 |=0.... .|...Zr1(r|
|00005d80| 6f 6f 74 29 3d 5a 31 0d | 09 24 10 5a 72 32 28 72 |oot)=Z1.|.$.Zr2(r|
|00005d90| 6f 6f 74 29 3d 5a 32 0d | 09 2e 05 20 0d 09 38 1a |oot)=Z2.|... ..8.|
|00005da0| fb 20 32 20 3a 20 f1 20 | 27 22 20 20 43 6f 6e 76 |. 2 : . |'" Conv|
|00005db0| 65 72 67 65 64 22 0d 09 | 42 07 fb 20 30 0d 09 4c |erged"..|B.. 0..L|
|00005dc0| 15 f1 20 27 22 20 50 72 | 65 73 73 20 61 20 6b 65 |.. '" Pr|ess a ke|
|00005dd0| 79 22 0d 09 56 0f e7 20 | 72 6f 6f 74 3c 4e 72 20 |y"..V.. |root<Nr |
|00005de0| 8c 0d 09 60 15 f1 20 22 | 20 74 6f 20 63 6f 6e 74 |...`.. "| to cont|
|00005df0| 69 6e 75 65 22 3b 0d 09 | 6a 05 cc 0d 09 74 15 f1 |inue";..|j....t..|
|00005e00| 20 22 20 74 6f 20 45 6e | 64 20 50 72 6f 67 22 3b | " to En|d Prog";|
|00005e10| 0d 09 7e 0d 40 25 3d 31 | 30 3a ef 32 30 0d 09 88 |..~.@%=1|0:.20...|
|00005e20| 05 cd 0d 09 92 0b 2a 46 | 58 31 35 2c 31 0d 09 9c |......*F|X15,1...|
|00005e30| 11 d4 20 31 2c 2d 31 35 | 2c 31 35 30 2c 35 0d 09 |.. 1,-15|,150,5..|
|00005e40| a6 0b 47 3d a5 20 3a 20 | db 0d 09 b0 05 20 0d 09 |..G=. : |..... ..|
|00005e50| ba 0a ed 20 72 6f 6f 74 | 0d 09 c4 05 20 0d 09 ce |... root|.... ...|
|00005e60| 05 e1 0d 09 d8 04 0d 09 | e2 04 0d 09 ec 0b dd 20 |........|....... |
|00005e70| f2 65 76 61 6c 0d 09 f6 | 1a e7 20 46 24 3d 22 46 |.eval...|.. F$="F|
|00005e80| 22 20 f2 66 75 6e 63 20 | 8b 20 f2 70 6f 6c 79 0d |" .func |. .poly.|
|00005e90| 0a 00 0c f2 73 75 70 72 | 65 73 73 0d 0a 0a 14 e7 |....supr|ess.....|
|00005ea0| 20 64 65 62 75 67 20 8c | 20 f2 64 65 62 75 67 0d | debug .| .debug.|
|00005eb0| 0a 14 05 e1 0d 0a 1e 05 | 20 0d 0a 28 04 0d 0a 32 |........| ..(...2|
|00005ec0| 0c dd 20 f2 64 65 62 75 | 67 0d 0a 3c 0e c8 8e 20 |.. .debu|g..<... |
|00005ed0| 64 65 62 75 67 20 ca 0d | 0a 46 09 c9 20 31 20 3a |debug ..|.F.. 1 :|
|00005ee0| 0d 0a 50 06 ef 32 0d 0a | 5a 5f f1 20 22 5a 31 3d |..P..2..|Z_. "Z1=|
|00005ef0| 22 3b 5a 31 27 22 5a 32 | 3d 22 3b 5a 32 27 22 55 |";Z1'"Z2|=";Z2'"U|
|00005f00| 31 3d 22 3b 55 31 27 22 | 55 32 3d 22 3b 55 32 27 |1=";U1'"|U2=";U2'|
|00005f10| 22 48 31 3d 22 3b 48 31 | 27 22 48 32 3d 22 3b 48 |"H1=";H1|'"H2=";H|
|00005f20| 32 27 22 4c 61 6d 64 61 | 31 3d 22 3b 4c 61 6d 64 |2'"Lamda|1=";Lamd|
|00005f30| 61 31 27 22 4c 61 6d 64 | 61 32 3d 22 3b 4c 61 6d |a1'"Lamd|a2=";Lam|
|00005f40| 64 61 32 27 27 0d 0a 64 | 06 ef 33 0d 0a 6e 13 ff |da2''..d|..3..n..|
|00005f50| 28 22 46 58 31 35 2c 31 | 22 29 3a 47 3d a5 0d 0a |("FX15,1|"):G=...|
|00005f60| 78 09 c9 20 32 20 3a 0d | 0a 82 25 e3 20 72 6f 77 |x.. 2 :.|..%. row|
|00005f70| 3d 32 36 20 b8 20 33 30 | 3a f1 20 8a 30 2c 72 6f |=26 . 30|:. .0,ro|
|00005f80| 77 29 3b 42 6c 61 6e 6b | 24 3b 3a ed 0d 0a 8c 38 |w);Blank|$;:....8|
|00005f90| f1 20 8a 30 2c 32 36 29 | 3b 22 5a 31 3d 22 3b 5a |. .0,26)|;"Z1=";Z|
|00005fa0| 31 27 22 5a 32 3d 22 3b | 5a 32 27 22 55 31 3d 22 |1'"Z2=";|Z2'"U1="|
|00005fb0| 3b 55 31 27 22 55 32 3d | 22 3b 55 32 3a 2a 46 58 |;U1'"U2=|";U2:*FX|
|00005fc0| 31 35 2c 31 0d 0a 96 07 | 47 3d a5 0d 0a a0 25 e3 |15,1....|G=....%.|
|00005fd0| 20 72 6f 77 3d 32 36 20 | b8 20 33 30 3a f1 20 8a | row=26 |. 30:. .|
|00005fe0| 30 2c 72 6f 77 29 3b 42 | 6c 61 6e 6b 24 3b 3a ed |0,row);B|lank$;:.|
|00005ff0| 0d 0a aa 0c f1 20 8a 30 | 2c 30 29 3b 0d 0a b4 05 |..... .0|,0);....|
|00006000| cb 0d 0a be 05 e1 0d 0a | c8 04 0d 0a d2 04 0d 0a |........|........|
|00006010| dc 35 f4 20 45 76 61 6c | 75 61 74 65 20 61 20 72 |.5. Eval|uate a r|
|00006020| 65 61 6c 20 70 6f 6c 79 | 6e 6f 6d 69 61 6c 20 66 |eal poly|nomial f|
|00006030| 6f 72 20 63 6f 6d 70 6c | 65 78 20 61 72 67 75 6d |or compl|ex argum|
|00006040| 65 6e 74 0d 0a e6 33 f4 | 20 75 73 69 6e 67 20 74 |ent...3.| using t|
|00006050| 68 65 20 70 6f 6c 61 72 | 20 65 78 70 61 6e 73 69 |he polar| expansi|
|00006060| 6f 6e 20 61 6c 67 6f 72 | 69 74 68 6d 20 77 68 69 |on algor|ithm whi|
|00006070| 63 68 20 68 61 73 0d 0a | f0 2b f4 20 67 6f 6f 64 |ch has..|.+. good|
|00006080| 20 61 63 63 75 72 61 63 | 79 20 66 6f 72 20 7c 5a | accurac|y for |Z|
|00006090| 7c 20 63 6c 6f 73 65 20 | 74 6f 20 75 6e 69 74 79 || close |to unity|
|000060a0| 2e 0d 0a fa 04 0d 0b 04 | 0b dd 20 f2 70 6f 6c 79 |........|.. .poly|
|000060b0| 0d 0b 0e 05 20 0d 0b 18 | 09 65 72 72 3d 30 0d 0b |.... ...|.err=0..|
|000060c0| 22 19 55 31 3d 43 28 4e | 72 29 20 3a 20 55 32 3d |".U1=C(N|r) : U2=|
|000060d0| 43 28 4e 72 2d 31 29 0d | 0b 2c 20 54 77 6f 78 3d |C(Nr-1).|., Twox=|
|000060e0| 32 2a 5a 31 20 3a 20 52 | 61 64 32 3d 5a 31 2a 5a |2*Z1 : R|ad2=Z1*Z|
|000060f0| 31 2b 5a 32 2a 5a 32 0d | 0b 36 1b e7 20 52 61 64 |1+Z2*Z2.|.6.. Rad|
|00006100| 32 3e 4d 61 78 6d 6f 64 | 20 8c 20 65 72 72 3d 32 |2>Maxmod| . err=2|
|00006110| 3a e1 0d 0b 40 04 0d 0b | 4a 15 e3 20 4a 3d 4e 72 |:...@...|J.. J=Nr|
|00006120| 2d 32 20 b8 20 30 20 88 | 20 2d 31 0d 0b 54 13 54 |-2 . 0 .| -1..T.T|
|00006130| 31 3d 55 32 20 2b 20 54 | 77 6f 78 2a 55 31 0d 0b |1=U2 + T|wox*U1..|
|00006140| 5e 13 55 32 3d 43 28 4a | 29 2d 52 61 64 32 2a 55 |^.U2=C(J|)-Rad2*U|
|00006150| 31 0d 0b 68 09 55 31 3d | 54 31 0d 0b 72 07 ed 20 |1..h.U1=|T1..r.. |
|00006160| 4a 0d 0b 7c 0f 54 31 3d | 5a 31 2a 55 31 2b 55 32 |J..|.T1=|Z1*U1+U2|
|00006170| 0d 0b 86 0c 55 32 3d 5a | 32 2a 55 31 0d 0b 90 09 |....U2=Z|2*U1....|
|00006180| 55 31 3d 54 31 0d 0b 9a | 04 0d 0b a4 1d e7 20 94 |U1=T1...|...... .|
|00006190| 28 55 31 29 2b 94 28 55 | 32 29 3e 45 31 39 20 8c |(U1)+.(U|2)>E19 .|
|000061a0| 20 65 72 72 3d 32 0d 0b | ae 04 0d 0b b8 05 e1 0d | err=2..|........|
|000061b0| 0b c2 05 20 0d 0b cc 04 | 0d 0b d6 46 f4 20 53 75 |... ....|...F. Su|
|000061c0| 70 70 72 65 73 73 20 70 | 72 65 76 69 6f 75 73 6c |ppress p|reviousl|
|000061d0| 79 20 64 69 73 63 6f 76 | 65 72 65 64 20 72 6f 6f |y discov|ered roo|
|000061e0| 74 73 20 74 6f 20 67 69 | 76 65 20 64 65 66 6c 61 |ts to gi|ve defla|
|000061f0| 74 65 64 20 66 75 6e 63 | 74 69 6f 6e 20 46 0d 0b |ted func|tion F..|
|00006200| e0 04 0d 0b ea 0e dd 20 | f2 73 75 70 72 65 73 73 |....... |.supress|
|00006210| 0d 0b f4 05 20 0d 0b fe | 0f 46 31 3d 55 31 3a 50 |.... ...|.F1=U1:P|
|00006220| 72 31 3d 31 0d 0c 08 0f | 46 32 3d 55 32 3a 50 72 |r1=1....|F2=U2:Pr|
|00006230| 32 3d 30 0d 0c 12 05 20 | 0d 0c 1c 14 e7 20 65 72 |2=0.... |..... er|
|00006240| 72 20 84 20 72 6f 6f 74 | 3d 31 20 e1 0d 0c 26 05 |r . root|=1 ...&.|
|00006250| 20 0d 0c 30 12 e3 20 4a | 3d 31 20 b8 20 72 6f 6f | ..0.. J|=1 . roo|
|00006260| 74 2d 31 0d 0c 3a 10 44 | 31 3d 5a 31 2d 5a 72 31 |t-1..:.D|1=Z1-Zr1|
|00006270| 28 4a 29 0d 0c 44 10 44 | 32 3d 5a 32 2d 5a 72 32 |(J)..D.D|2=Z2-Zr2|
|00006280| 28 4a 29 0d 0c 4e 15 54 | 72 31 3d 50 72 31 2a 44 |(J)..N.T|r1=Pr1*D|
|00006290| 31 2d 50 72 32 2a 44 32 | 0d 0c 58 15 50 72 32 3d |1-Pr2*D2|..X.Pr2=|
|000062a0| 50 72 32 2a 44 31 2b 50 | 72 31 2a 44 32 0d 0c 62 |Pr2*D1+P|r1*D2..b|
|000062b0| 0b 50 72 31 3d 54 72 31 | 0d 0c 6c 07 ed 20 4a 0d |.Pr1=Tr1|..l.. J.|
|000062c0| 0c 76 19 50 72 6d 3d 28 | 50 72 31 2a 50 72 31 2b |.v.Prm=(|Pr1*Pr1+|
|000062d0| 50 72 32 2a 50 72 32 29 | 0d 0c 80 0d e7 20 50 72 |Pr2*Pr2)|..... Pr|
|000062e0| 6d 3d 30 20 8c 0d 0c 8a | 09 65 72 72 3d 32 0d 0c |m=0 ....|.err=2..|
|000062f0| 94 05 cc 0d 0c 9e 14 e7 | 20 50 72 6d 3c 45 33 20 |........| Prm<E3 |
|00006300| 8c 20 65 72 72 3d 31 0d | 0c a8 05 cd 0d 0c b2 0d |. err=1.|........|
|00006310| e7 20 65 72 72 3d 30 20 | 8c 0d 0c bc 1a 46 31 3d |. err=0 |.....F1=|
|00006320| 28 55 31 2a 50 72 31 2b | 55 32 2a 50 72 32 29 2f |(U1*Pr1+|U2*Pr2)/|
|00006330| 50 72 6d 0d 0c c6 1a 46 | 32 3d 28 55 32 2a 50 72 |Prm....F|2=(U2*Pr|
|00006340| 31 2d 55 31 2a 50 72 32 | 29 2f 50 72 6d 0d 0c d0 |1-U1*Pr2|)/Prm...|
|00006350| 05 cd 0d 0c da 04 0d 0c | e4 05 e1 0d 0c ee 04 0d |........|........|
|00006360| 0c f8 04 0d 0d 02 41 f4 | 20 53 75 62 72 6f 75 74 |......A.| Subrout|
|00006370| 69 6e 65 20 66 6f 72 20 | 63 6f 6d 70 6c 65 78 20 |ine for |complex |
|00006380| 73 71 75 61 72 65 2d 72 | 6f 6f 74 20 28 69 6e 63 |square-r|oot (inc|
|00006390| 6c 75 64 65 73 20 76 61 | 72 69 6f 75 73 20 74 72 |ludes va|rious tr|
|000063a0| 61 70 73 29 0d 0d 0c 04 | 0d 0d 16 0b dd 20 f2 73 |aps)....|..... .s|
|000063b0| 71 72 74 0d 0d 20 05 20 | 0d 0d 2a 11 53 71 31 3d |qrt.. . |..*.Sq1=|
|000063c0| 30 20 3a 20 53 71 32 3d | 30 0d 0d 34 19 41 62 31 |0 : Sq2=|0..4.Ab1|
|000063d0| 3d 94 28 42 31 29 20 3a | 20 41 62 32 3d 94 28 42 |=.(B1) :| Ab2=.(B|
|000063e0| 32 29 0d 0d 3e 05 20 0d | 0d 48 14 e7 20 41 62 31 |2)..>. .|.H.. Ab1|
|000063f0| 2b 41 62 32 20 3c 20 45 | 34 20 e1 0d 0d 52 1e e7 |+Ab2 < E|4 ...R..|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
