/ APDL Public Domain 1 / APDL_PD1A.iso / fractal / afg_1 / verhulst

< prev

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | fc 00 00 00 5c 01 00 00 |Archive.|....\...|
|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 21 56 65 72 68 75 6c | 73 74 00 00 ff ff ff ff |.!Verhul|st......|
|00000070| 43 dc fd ff fd f0 02 78 | 33 00 00 00 ff ff ff ff |C......x|3.......|
|00000080| d8 00 00 80 82 21 52 75 | 6e 00 00 00 ff ff ff ff |.....!Ru|n.......|
|00000090| 19 00 00 00 43 eb ff ff | d6 d1 e4 35 03 00 94 41 |....C...|...5...A|
|000000a0| 19 00 00 00 24 00 00 00 | 82 21 52 75 6e 49 6d 61 |....$...|.!RunIma|
|000000b0| 67 65 00 ff 9c 0e 00 00 | 43 fb ff ff 71 a3 9f 39 |ge......|C...q..9|
|000000c0| 03 00 01 c0 9c 0e 00 00 | 61 00 00 00 82 21 53 70 |........|a....!Sp|
|000000d0| 72 69 74 65 73 00 ff ff | e0 02 00 00 43 f9 ff ff |rites...|....C...|
|000000e0| aa 83 e3 35 03 00 60 ae | e0 02 00 00 21 0f 00 00 |...5..`.|....!...|
|000000f0| 82 53 70 65 63 74 72 75 | 6d 00 ff ff 3c 00 00 00 |.Spectru|m...<...|
|00000100| 40 ed ff ff ac 91 3c b0 | 03 00 c8 c2 3c 00 00 00 |@.....<.|....<...|
|00000110| 25 12 00 00 00 68 75 6c | 73 74 00 00 ff ff ff ff |%....hul|st......|
|00000120| 03 00 d3 00 43 dc fd ff | d0 96 f6 77 c1 64 00 00 |....C...|...w.d..|
|00000130| 33 00 00 00 8b c1 db fd | 00 00 00 00 00 00 00 00 |3.......|........|
|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 | f8 01 00 00 46 69 6c 65 |........|....File|
|00000160| 44 61 74 61 82 21 52 75 | 6e 00 00 00 ff ff ff ff |Data.!Ru|n.......|
|00000170| 19 00 00 00 43 eb ff ff | d6 d1 e4 35 03 00 94 41 |....C...|...5...A|
|00000180| 0a 52 55 4e 20 3c 4f 62 | 65 79 24 44 69 72 3e 2e |.RUN <Ob|ey$Dir>.|
|00000190| 21 52 75 6e 49 6d 61 67 | 65 46 69 6c 65 44 61 74 |!RunImag|eFileDat|
|000001a0| 61 82 21 52 75 6e 49 6d | 61 67 65 00 ff 9c 0e 00 |a.!RunIm|age.....|
|000001b0| 00 43 fb ff ff 71 a3 9f | 39 03 00 01 c0 0d 00 0a |.C...q..|9.......|
|000001c0| 1d f4 20 3e 20 24 2e 21 | 56 65 72 68 75 6c 73 74 |.. > $.!|Verhulst|
|000001d0| 2e 21 52 75 6e 49 6d 61 | 67 65 0d 00 0b 13 f4 20 |.!RunIma|ge..... |
|000001e0| 62 79 20 4a 2e 4f 2e 4c | 69 6e 74 6f 6e 0d 00 0c |by J.O.L|inton...|
|000001f0| 2a f4 20 54 68 69 73 20 | 70 72 6f 67 72 61 6d 20 |*. This |program |
|00000200| 69 73 20 69 6e 20 74 68 | 65 20 50 75 62 6c 69 63 |is in th|e Public|
|00000210| 20 44 6f 6d 61 69 6e 0d | 00 14 04 0d 00 1e 08 eb | Domain.|........|
|00000220| 20 31 32 0d 00 28 1d 48 | 25 3d 8e 22 3c 4f 62 65 | 12..(.H|%=."<Obe|
|00000230| 79 24 44 69 72 3e 2e 53 | 70 65 63 74 72 75 6d 22 |y$Dir>.S|pectrum"|
|00000240| 0d 00 32 0f e3 20 43 25 | 3d 30 20 b8 20 31 35 0d |..2.. C%|=0 . 15.|
|00000250| 00 3c 19 20 20 fb 20 43 | 25 2c 9a 23 48 25 2c 9a |.<.  . C|%,.#H%,.|
|00000260| 23 48 25 2c 9a 23 48 25 | 0d 00 46 05 ed 0d 00 50 |#H%,.#H%|..F....P|
|00000270| 07 d9 23 30 0d 00 5a 17 | 46 24 3d 22 6c 61 6d 62 |..#0..Z.|F$="lamb|
|00000280| 64 61 2a 50 2a 28 31 2d | 50 29 22 0d 00 64 17 58 |da*P*(1-|P)"..d.X|
|00000290| 53 3d 30 3a 58 46 3d 31 | 3a 59 53 3d 30 3a 59 46 |S=0:XF=1|:YS=0:YF|
|000002a0| 3d 31 0d 00 6e 10 f2 63 | 61 6c 63 5f 73 63 61 6c |=1..n..c|alc_scal|
|000002b0| 65 73 0d 00 78 15 ee 20 | 85 20 f2 65 72 72 6f 72 |es..x.. |. .error|
|000002c0| 3a e5 20 8d 74 4c 40 0d | 00 82 04 0d 00 8c 05 f5 |:. .tL@.|........|
|000002d0| 0d 00 96 0a c8 97 20 87 | 3a 87 0d 00 a0 08 f2 62 |...... .|:......b|
|000002e0| 6f 78 0d 00 aa 0c f1 22 | 43 48 41 4f 53 22 0d 00 |ox....."|CHAOS"..|
|000002f0| b4 07 f1 27 27 0d 00 be | 20 f1 22 31 2e 20 20 20 |...''...| ."1.   |
|00000300| 49 6e 70 75 74 20 61 20 | 6e 65 77 20 66 75 6e 63 |Input a |new func|
|00000310| 74 69 6f 6e 22 0d 00 c8 | 20 f1 22 32 2e 20 20 20 |tion"...| ."2.   |
|00000320| 50 6c 6f 74 20 73 74 61 | 62 69 6c 69 74 79 20 67 |Plot sta|bility g|
|00000330| 72 61 70 68 22 0d 00 d2 | 24 f1 22 33 2e 20 20 20 |raph"...|$."3.   |
|00000340| 50 6c 6f 74 20 66 69 72 | 73 74 20 31 35 20 69 74 |Plot fir|st 15 it|
|00000350| 65 72 61 74 69 6f 6e 73 | 22 0d 00 dc 1e f1 22 34 |erations|"....."4|
|00000360| 2e 20 20 20 41 6e 61 6c | 79 73 65 20 69 74 65 72 |.   Anal|yse iter|
|00000370| 61 74 69 6f 6e 73 22 0d | 00 e6 1c f1 22 35 2e 20 |ations".|...."5. |
|00000380| 20 20 50 6c 6f 74 20 67 | 65 6e 65 72 61 74 69 6f |  Plot g|eneratio|
|00000390| 6e 73 22 0d 00 f0 07 f1 | 27 27 0d 00 fa 17 f1 22 |ns".....|''....."|
|000003a0| 58 2e 20 20 20 45 6e 64 | 20 70 72 6f 67 72 61 6d |X.   End| program|
|000003b0| 22 0d 01 04 07 f1 27 27 | 0d 01 0e 05 f5 0d 01 18 |".....''|........|
|000003c0| 08 41 24 3d be 0d 01 22 | 14 fd 20 a7 22 31 32 33 |.A$=..."|.. ."123|
|000003d0| 34 35 58 78 22 2c 41 24 | 29 0d 01 2c 0b c8 8e 20 |45Xx",A$|)..,... |
|000003e0| 41 24 20 ca 0d 01 36 19 | 20 20 c9 20 22 31 22 3a |A$ ...6.|  . "1":|
|000003f0| f2 6e 65 77 5f 66 75 6e | 63 74 69 6f 6e 0d 01 40 |.new_fun|ction..@|
|00000400| 1c 20 20 c9 20 22 32 22 | 3a f2 73 74 61 62 69 6c |.  . "2"|:.stabil|
|00000410| 69 74 79 5f 67 72 61 70 | 68 0d 01 4a 17 20 20 c9 |ity_grap|h..J.  .|
|00000420| 20 22 33 22 3a f2 69 74 | 65 72 61 74 69 6f 6e 73 | "3":.it|erations|
|00000430| 0d 01 54 14 20 20 c9 20 | 22 34 22 3a f2 61 6e 61 |..T.  . |"4":.ana|
|00000440| 6c 79 73 65 0d 01 5e 18 | 20 20 c9 20 22 35 22 3a |lyse..^.|  . "5":|
|00000450| f2 67 65 6e 65 72 61 74 | 69 6f 6e 73 0d 01 68 0f |.generat|ions..h.|
|00000460| 20 20 c9 20 22 58 22 3a | db 3a e0 0d 01 72 0f 20 |  . "X":|.:...r. |
|00000470| 20 c9 20 22 78 22 3a db | 3a e0 0d 01 7c 05 cb 0d | . "x":.|:...|...|
|00000480| 01 86 07 fd 20 a3 0d 01 | 90 04 0d 01 9a 13 dd 20 |.... ...|....... |
|00000490| f2 6e 65 77 5f 66 75 6e | 63 74 69 6f 6e 0d 01 a4 |.new_fun|ction...|
|000004a0| 05 ee 0d 01 ae 05 f5 0d | 01 b8 08 f2 62 6f 78 0d |........|....box.|
|000004b0| 01 c2 18 f1 22 4f 6c 64 | 20 66 75 6e 63 74 69 6f |...."Old| functio|
|000004c0| 6e 20 3d 20 22 46 24 0d | 01 cc 05 f1 0d 01 d6 19 |n = "F$.|........|
|000004d0| e8 22 4e 65 77 20 46 75 | 6e 63 74 69 6f 6e 20 3d |."New Fu|nction =|
|000004e0| 20 22 46 60 24 0d 01 e0 | 16 e7 20 46 60 24 3c 3e | "F`$...|.. F`$<>|
|000004f0| 22 22 20 8c 20 46 24 3d | 46 60 24 0d 01 ea 2c e7 |"" . F$=|F`$...,.|
|00000500| 20 a7 46 24 2c 22 6c 61 | 6d 62 64 61 22 29 3d 30 | .F$,"la|mbda")=0|
|00000510| 20 8c 20 46 24 3d 22 6c | 61 6d 62 64 61 2a 28 22 | . F$="l|ambda*("|
|00000520| 2b 46 24 2b 22 29 22 0d | 01 f4 1d ef 20 31 31 3a |+F$+")".|.... 11:|
|00000530| f1 22 4e 65 77 20 46 75 | 6e 63 74 69 6f 6e 20 3d |."New Fu|nction =|
|00000540| 20 22 46 24 0d 01 fe 17 | 58 53 3d 30 3a 58 46 3d | "F$....|XS=0:XF=|
|00000550| 31 3a 59 53 3d 30 3a 59 | 46 3d 31 0d 02 08 0c 6c |1:YS=0:Y|F=1....l|
|00000560| 61 6d 62 64 61 3d 31 0d | 02 12 10 f2 63 61 6c 63 |ambda=1.|....calc|
|00000570| 5f 73 63 61 6c 65 73 0d | 02 1c 09 f2 61 78 65 73 |_scales.|....axes|
|00000580| 0d 02 26 09 e6 20 30 2c | 39 0d 02 30 20 ec 20 a4 |..&.. 0,|9..0 . .|
|00000590| 78 28 58 53 29 2c a4 79 | 28 a4 69 74 65 72 61 74 |x(XS),.y|(.iterat|
|000005a0| 65 5f 6e 28 58 2c 4e 29 | 29 0d 02 3a 14 e3 20 58 |e_n(X,N)|)..:.. X|
|000005b0| 3d 58 53 20 b8 20 58 46 | 20 88 20 58 54 0d 02 44 |=XS . XF| . XT..D|
|000005c0| 21 20 20 df 20 a4 78 28 | 58 29 2c a4 79 28 a4 69 |!  . .x(|X),.y(.i|
|000005d0| 74 65 72 61 74 65 5f 6e | 28 58 2c 4e 29 29 0d 02 |terate_n|(X,N))..|
|000005e0| 4e 05 ed 0d 02 58 11 f1 | 22 4f 4b 20 28 59 2f 4e |N....X..|"OK (Y/N|
|000005f0| 29 3f 22 3b 0d 02 62 18 | f5 3a 4b 24 3d be 3a fd |)?";..b.|.:K$=.:.|
|00000600| 20 a7 22 59 79 4e 6e 22 | 2c 4b 24 29 0d 02 6c 0f | ."YyNn"|,K$)..l.|
|00000610| fd 20 a7 22 59 79 22 2c | 4b 24 29 0d 02 76 05 e1 |. ."Yy",|K$)..v..|
|00000620| 0d 02 80 04 0d 02 8a 12 | dd 20 f2 63 61 6c 63 5f |........|. .calc_|
|00000630| 73 63 61 6c 65 73 0d 02 | 94 12 58 54 3d 28 58 46 |scales..|..XT=(XF|
|00000640| 2d 58 53 29 2f 34 30 30 | 0d 02 9e 12 53 58 3d 38 |-XS)/400|....SX=8|
|00000650| 30 30 2f 28 58 46 2d 58 | 53 29 0d 02 a8 12 53 59 |00/(XF-X|S)....SY|
|00000660| 3d 38 30 30 2f 28 59 46 | 2d 59 53 29 0d 02 b2 05 |=800/(YF|-YS)....|
|00000670| e1 0d 02 bc 04 0d 02 c6 | 16 dd 20 f2 73 74 61 62 |........|.. .stab|
|00000680| 69 6c 69 74 79 5f 67 72 | 61 70 68 0d 02 d0 05 ee |ility_gr|aph.....|
|00000690| 0d 02 da 0a 53 3d 30 2e | 30 31 0d 02 e4 1d e8 22 |....S=0.|01....."|
|000006a0| 6c 61 6d 62 64 61 20 66 | 72 6f 6d 2c 74 6f 20 20 |lambda f|rom,to  |
|000006b0| 22 3b 58 53 2c 58 46 0d | 02 ee 05 87 0d 02 f8 0d |";XS,XF.|........|
|000006c0| 59 53 3d 30 3a 59 46 3d | 31 0d 03 02 10 f2 63 61 |YS=0:YF=|1.....ca|
|000006d0| 6c 63 5f 73 63 61 6c 65 | 73 0d 03 0c 05 f5 0d 03 |lc_scale|s.......|
|000006e0| 16 09 f2 61 78 65 73 0d | 03 20 12 50 3d 53 3a 50 |...axes.|. .P=S:P|
|000006f0| 60 3d 50 3a 50 60 60 3d | 50 0d 03 2a 19 e3 20 6c |`=P:P``=|P..*.. l|
|00000700| 61 6d 62 64 61 3d 58 53 | 20 b8 20 58 46 20 88 20 |ambda=XS| . XF . |
|00000710| 58 54 0d 03 34 35 20 20 | f1 20 8a 30 2c 30 29 3b |XT..45  |. .0,0);|
|00000720| 22 46 75 6e 63 74 69 6f | 6e 3a 20 22 3b 46 24 2c |"Functio|n: ";F$,|
|00000730| 8a 34 30 29 3b 22 20 4c | 61 6d 62 64 61 3a 20 22 |.40);" L|ambda: "|
|00000740| 3b 6c 61 6d 62 64 61 0d | 03 3e 0a 20 20 e6 20 31 |;lambda.|.>.  . 1|
|00000750| 35 0d 03 48 14 20 20 e7 | 20 50 3c 30 2e 30 31 20 |5..H.  .| P<0.01 |
|00000760| 8c 20 50 3d 53 0d 03 52 | 0a 20 20 49 25 3d 30 0d |. P=S..R|.  I%=0.|
|00000770| 03 5c 07 20 20 f5 0d 03 | 66 1b 20 20 20 20 c8 92 |.\.  ...|f.    ..|
|00000780| 20 a4 78 28 6c 61 6d 62 | 64 61 29 2c a4 79 28 50 | .x(lamb|da),.y(P|
|00000790| 29 0d 03 67 17 20 20 20 | 20 d4 20 31 2c 2d 31 35 |)..g.   | . 1,-15|
|000007a0| 2c 50 2a 31 32 38 2c 31 | 0d 03 70 13 20 20 20 20 |,P*128,1|..p.    |
|000007b0| 50 60 60 3d 50 60 3a 50 | 60 3d 50 0d 03 7a 15 20 |P``=P`:P|`=P..z. |
|000007c0| 20 20 20 50 3d a4 69 74 | 65 72 61 74 65 28 50 29 |   P=.it|erate(P)|
|000007d0| 0d 03 84 0d 20 20 20 20 | 49 25 2b 3d 31 0d 03 8e |....    |I%+=1...|
|000007e0| 20 20 20 fd 20 94 28 50 | 2d 50 60 60 29 3c 30 2e |   . .(P|-P``)<0.|
|000007f0| 30 30 30 31 20 84 20 49 | 25 3d 31 30 30 0d 03 98 |0001 . I|%=100...|
|00000800| 05 ed 0d 03 a2 0a 52 53 | 3d 31 30 30 0d 03 ac 09 |......RS|=100....|
|00000810| e6 20 33 2c 36 0d 03 b6 | 05 f5 0d 03 c0 0e 20 20 |. 3,6...|......  |
|00000820| c8 97 20 41 2c 42 2c 43 | 0d 03 ca 1c 20 20 e7 20 |.. A,B,C|....  . |
|00000830| 43 3d 31 20 80 20 52 53 | 3c 35 30 30 20 8c 20 52 |C=1 . RS|<500 . R|
|00000840| 53 2b 3d 34 0d 03 d4 1b | 20 20 e7 20 43 3d 34 20 |S+=4....|  . C=4 |
|00000850| 80 20 52 53 3e 32 30 20 | 8c 20 52 53 2d 3d 34 0d |. RS>20 |. RS-=4.|
|00000860| 03 de 12 20 20 c8 93 20 | 41 2c 42 2c 52 53 2c 52 |...  .. |A,B,RS,R|
|00000870| 53 0d 03 e8 08 20 20 c8 | 96 0d 03 f2 12 20 20 c8 |S....  .|.....  .|
|00000880| 93 20 41 2c 42 2c 52 53 | 2c 52 53 0d 03 fc 09 fd |. A,B,RS|,RS.....|
|00000890| 20 43 3d 32 0d 04 06 1e | 58 46 3d a4 78 69 6e 76 | C=2....|XF=.xinv|
|000008a0| 28 41 2b 52 53 29 3a 58 | 53 3d a4 78 69 6e 76 28 |(A+RS):X|S=.xinv(|
|000008b0| 41 29 0d 04 10 1e 59 46 | 3d a4 79 69 6e 76 28 42 |A)....YF|=.yinv(B|
|000008c0| 2b 52 53 29 3a 59 53 3d | a4 79 69 6e 76 28 42 29 |+RS):YS=|.yinv(B)|
|000008d0| 0d 04 1a 10 f2 63 61 6c | 63 5f 73 63 61 6c 65 73 |.....cal|c_scales|
|000008e0| 0d 04 24 07 fd 20 a3 0d | 04 2e 05 e1 0d 04 38 04 |..$.. ..|......8.|
|000008f0| 0d 04 42 11 dd 20 f2 69 | 74 65 72 61 74 69 6f 6e |..B.. .i|teration|
|00000900| 73 0d 04 4c 05 ee 0d 04 | 56 23 e8 22 6c 61 6d 62 |s..L....|V#."lamb|
|00000910| 64 61 20 66 72 6f 6d 2c | 74 6f 20 20 20 20 20 20 |da from,|to      |
|00000920| 20 20 22 3b 58 53 2c 58 | 46 0d 04 60 20 e8 22 53 |  ";XS,X|F..` ."S|
|00000930| 74 61 72 74 20 20 20 28 | 65 67 20 30 2e 31 29 20 |tart   (|eg 0.1) |
|00000940| 20 20 20 20 20 22 3b 53 | 53 0d 04 6a 05 87 0d 04 |     ";S|S..j....|
|00000950| 74 0d 59 53 3d 30 3a 59 | 46 3d 31 0d 04 7e 10 f2 |t.YS=0:Y|F=1..~..|
|00000960| 63 61 6c 63 5f 73 63 61 | 6c 65 73 0d 04 88 05 f5 |calc_sca|les.....|
|00000970| 0d 04 92 09 f2 61 78 65 | 73 0d 04 9c 19 e3 20 6c |.....axe|s..... l|
|00000980| 61 6d 62 64 61 3d 58 53 | 20 b8 20 58 46 20 88 20 |ambda=XS| . XF . |
|00000990| 58 54 0d 04 a6 35 20 20 | f1 20 8a 30 2c 30 29 3b |XT...5  |. .0,0);|
|000009a0| 22 46 75 6e 63 74 69 6f | 6e 3a 20 22 3b 46 24 2c |"Functio|n: ";F$,|
|000009b0| 8a 34 30 29 3b 22 20 4c | 61 6d 62 64 61 3a 20 22 |.40);" L|ambda: "|
|000009c0| 3b 6c 61 6d 62 64 61 0d | 04 b0 0a 20 20 50 3d 53 |;lambda.|...  P=S|
|000009d0| 53 0d 04 ba 11 20 20 e3 | 20 49 25 3d 31 20 b8 20 |S....  .| I%=1 . |
|000009e0| 31 35 0d 04 c4 0e 20 20 | 20 20 e6 20 30 2c 49 25 |15....  |  . 0,I%|
|000009f0| 0d 04 ce 1b 20 20 20 20 | c8 92 20 a4 78 28 6c 61 |....    |.. .x(la|
|00000a00| 6d 62 64 61 29 2c a4 79 | 28 50 29 0d 04 d8 15 20 |mbda),.y|(P).... |
|00000a10| 20 20 20 50 3d a4 69 74 | 65 72 61 74 65 28 50 29 |   P=.it|erate(P)|
|00000a20| 0d 04 e2 07 20 20 ed 0d | 04 ec 05 ed 0d 04 f6 08 |....  ..|........|
|00000a30| 41 24 3d be 0d 05 00 07 | fd 20 a3 0d 05 0a 05 e1 |A$=.....|. ......|
|00000a40| 0d 05 14 04 0d 05 1e 0e | dd 20 f2 61 6e 61 6c 79 |........|. .analy|
|00000a50| 73 65 0d 05 28 08 c8 97 | 20 ee 0d 05 32 10 4e 3d |se..(...| ...2.N=|
|00000a60| 31 3a 6c 61 6d 62 64 61 | 3d 32 0d 05 3c 09 53 3d |1:lambda|=2..<.S=|
|00000a70| 30 2e 31 0d 05 46 17 58 | 53 3d 30 3a 58 46 3d 31 |0.1..F.X|S=0:XF=1|
|00000a80| 3a 59 53 3d 30 3a 59 46 | 3d 31 0d 05 50 05 f5 0d |:YS=0:YF|=1..P...|
|00000a90| 05 5a 0b f2 61 78 65 73 | 3a 87 0d 05 64 46 f1 22 |.Z..axes|:...dF."|
|00000aa0| 46 75 6e 63 74 69 6f 6e | 3a 20 22 3b 46 24 3b 8a |Function|: ";F$;.|
|00000ab0| 34 30 29 3b 22 4c 61 6d | 62 64 61 3a 20 22 3b 6c |40);"Lam|bda: ";l|
|00000ac0| 61 6d 62 64 61 3b 8a 36 | 30 29 3b 22 49 74 65 72 |ambda;.6|0);"Iter|
|00000ad0| 61 74 69 6f 6e 20 6f 72 | 64 65 72 3a 20 22 3b 4e |ation or|der: ";N|
|00000ae0| 0d 05 6e 4d f1 20 8a 30 | 2c 33 30 29 3b 22 55 73 |..nM. .0|,30);"Us|
|00000af0| 65 20 70 6f 69 6e 74 65 | 72 20 74 6f 20 63 68 61 |e pointe|r to cha|
|00000b00| 6e 67 65 20 6c 61 6d 62 | 64 61 20 61 6e 64 20 6d |nge lamb|da and m|
|00000b10| 6f 75 73 65 20 62 75 74 | 74 6f 6e 73 20 74 6f 20 |ouse but|tons to |
|00000b20| 63 68 61 6e 67 65 20 6f | 72 64 65 72 22 0d 05 78 |change o|rder"..x|
|00000b30| 09 e6 20 30 2c 39 0d 05 | 82 21 ec 20 a4 78 28 58 |.. 0,9..|.!. .x(X|
|00000b40| 53 29 2c a4 79 28 a4 69 | 74 65 72 61 74 65 5f 6e |S),.y(.i|terate_n|
|00000b50| 28 58 53 2c 4e 29 29 0d | 05 8c 14 e3 20 58 3d 58 |(XS,N)).|.... X=X|
|00000b60| 53 20 b8 20 58 46 20 88 | 20 58 54 0d 05 96 21 20 |S . XF .| XT...! |
|00000b70| 20 df 20 a4 78 28 58 29 | 2c a4 79 28 a4 69 74 65 | . .x(X)|,.y(.ite|
|00000b80| 72 61 74 65 5f 6e 28 58 | 2c 4e 29 29 0d 05 a0 05 |rate_n(X|,N))....|
|00000b90| ed 0d 05 aa 21 86 20 a4 | 78 28 58 53 29 2c a4 79 |....!. .|x(XS),.y|
|00000ba0| 28 59 53 29 2c a4 78 28 | 58 46 29 2c a4 79 28 58 |(YS),.x(|XF),.y(X|
|00000bb0| 46 29 0d 05 b4 07 58 3d | 53 0d 05 be 09 e6 20 30 |F)....X=|S..... 0|
|00000bc0| 2c 32 0d 05 c8 11 ec 20 | a4 78 28 58 29 2c a4 79 |,2..... |.x(X),.y|
|00000bd0| 28 30 29 0d 05 d2 0f e3 | 20 49 3d 31 20 b8 20 31 |(0).....| I=1 . 1|
|00000be0| 30 30 0d 05 dc 15 20 20 | e7 20 49 3d 39 35 20 8c |00....  |. I=95 .|
|00000bf0| 20 e6 20 30 2c 31 35 0d | 05 e6 18 20 20 58 60 3d | . 0,15.|...  X`=|
|00000c00| a4 69 74 65 72 61 74 65 | 5f 6e 28 58 2c 4e 29 0d |.iterate|_n(X,N).|
|00000c10| 05 f0 1a 20 20 e7 20 94 | 28 58 60 29 3e 31 30 30 |...  . .|(X`)>100|
|00000c20| 30 20 8c 20 49 3d 31 30 | 30 0d 05 fa 24 20 20 df |0 . I=10|0...$  .|
|00000c30| 20 a4 78 28 58 29 2c a4 | 79 28 58 60 29 3a df 20 | .x(X),.|y(X`):. |
|00000c40| a4 78 28 58 60 29 2c a4 | 79 28 58 60 29 0d 06 04 |.x(X`),.|y(X`)...|
|00000c50| 0a 20 20 58 3d 58 60 0d | 06 0e 05 ed 0d 06 18 05 |.  X=X`.|........|
|00000c60| f5 0d 06 22 10 20 20 f5 | 3a c8 97 20 78 2c 79 2c |...".  .|:.. x,y,|
|00000c70| 62 0d 06 2c 12 20 20 e7 | 20 62 3d 34 20 8c 20 4e |b..,.  .| b=4 . N|
|00000c80| 2b 3d 31 0d 06 36 18 20 | 20 e7 20 62 3d 31 20 80 |+=1..6. | . b=1 .|
|00000c90| 20 4e 3e 31 20 8c 20 4e | 2d 3d 31 0d 06 40 12 20 | N>1 . N|-=1..@. |
|00000ca0| 20 6c 61 6d 62 64 61 3d | 79 2f 32 30 30 0d 06 4a | lambda=|y/200..J|
|00000cb0| 4f 20 20 f1 20 8a 30 2c | 33 31 29 3b 22 4e 65 77 |O  . .0,|31);"New|
|00000cc0| 20 6c 61 6d 62 64 61 20 | 3d 20 22 3b 6c 61 6d 62 | lambda |= ";lamb|
|00000cd0| 64 61 3b 22 20 20 20 20 | 20 20 20 20 20 22 3b 8a |da;"    |     ";.|
|00000ce0| 34 30 2c 33 31 29 22 4e | 65 77 20 6f 72 64 65 72 |40,31)"N|ew order|
|00000cf0| 20 3d 20 22 3b 4e 3b 22 | 20 20 22 3b 0d 06 54 0c | = ";N;"|  ";..T.|
|00000d00| 20 20 fd 20 62 3c 3e 30 | 0d 06 5e 18 20 20 f5 3a |  . b<>0|..^.  .:|
|00000d10| c8 97 20 78 2c 79 2c 62 | 62 3a fd 20 62 62 3d 30 |.. x,y,b|b:. bb=0|
|00000d20| 0d 06 68 09 fd 20 62 3d | 32 0d 06 72 07 fd 20 a3 |..h.. b=|2..r.. .|
|00000d30| 0d 06 7c 05 e1 0d 06 86 | 04 0d 06 90 12 dd 20 f2 |..|.....|...... .|
|00000d40| 67 65 6e 65 72 61 74 69 | 6f 6e 73 0d 06 9a 05 ee |generati|ons.....|
|00000d50| 0d 06 a4 0a 53 3d 30 2e | 30 31 0d 06 ae 14 e8 22 |....S=0.|01....."|
|00000d60| 6c 61 6d 62 64 61 20 22 | 6c 61 6d 62 64 61 0d 06 |lambda "|lambda..|
|00000d70| b8 05 87 0d 06 b9 10 58 | 53 3d 30 3a 58 46 3d 31 |.......X|S=0:XF=1|
|00000d80| 30 30 30 0d 06 c2 0d 59 | 53 3d 30 3a 59 46 3d 31 |000....Y|S=0:YF=1|
|00000d90| 0d 06 cc 10 f2 63 61 6c | 63 5f 73 63 61 6c 65 73 |.....cal|c_scales|
|00000da0| 0d 06 d6 09 f2 61 78 65 | 73 0d 06 e0 07 50 3d 53 |.....axe|s....P=S|
|00000db0| 0d 06 e1 08 e6 20 31 35 | 0d 06 ea 10 e3 20 78 3d |..... 15|..... x=|
|00000dc0| 31 20 b8 20 31 30 30 30 | 0d 06 f4 14 20 20 c8 92 |1 . 1000|....  ..|
|00000dd0| 20 a4 78 28 78 29 2c a4 | 79 28 50 29 0d 06 fe 0a | .x(x),.|y(P)....|
|00000de0| 20 20 50 60 3d 50 0d 07 | 08 13 20 20 50 3d a4 69 |  P`=P..|..  P=.i|
|00000df0| 74 65 72 61 74 65 28 50 | 29 0d 07 12 05 ed 0d 07 |terate(P|).......|
|00000e00| 1c 07 4b 3d a5 0d 07 26 | 05 e1 0d 07 30 04 0d 07 |..K=...&|....0...|
|00000e10| 3a 04 0d 07 44 04 0d 07 | 4e 0a dd 20 f2 62 6f 78 |:...D...|N.. .box|
|00000e20| 0d 07 58 05 db 0d 07 62 | 14 ef 20 32 36 2c 32 39 |..X....b|.. 26,29|
|00000e30| 2c 32 34 30 3b 31 32 38 | 3b 0d 07 6c 0d e6 20 31 |,240;128|;..l.. 1|
|00000e40| 33 3a fb 20 31 35 0d 07 | 76 12 c8 93 20 30 2c 30 |3:. 15..|v... 0,0|
|00000e50| 2c 38 30 30 2c 38 30 30 | 0d 07 80 13 ef 20 32 38 |,800,800|..... 28|
|00000e60| 2c 31 38 2c 32 35 2c 36 | 32 2c 35 0d 07 8a 05 e1 |,18,25,6|2,5.....|
|00000e70| 0d 07 94 04 0d 07 9e 0b | dd 20 f2 61 78 65 73 0d |........|. .axes.|
|00000e80| 07 a8 0d db 3a 40 25 3d | 26 38 30 30 0d 07 b2 14 |....:@%=|&800....|
|00000e90| ef 20 32 36 2c 32 39 2c | 32 34 30 3b 31 32 38 3b |. 26,29,|240;128;|
|00000ea0| 0d 07 bc 08 e6 20 31 33 | 0d 07 c6 12 c8 93 20 30 |..... 13|...... 0|
|00000eb0| 2c 30 2c 38 30 30 2c 38 | 30 30 0d 07 d0 11 86 20 |,0,800,8|00..... |
|00000ec0| 2d 35 30 2c 30 2c 38 35 | 30 2c 30 0d 07 da 15 86 |-50,0,85|0,0.....|
|00000ed0| 20 2d 35 30 2c 38 30 30 | 2c 38 35 30 2c 38 30 30 | -50,800|,850,800|
|00000ee0| 0d 07 e4 11 86 20 30 2c | 2d 35 30 2c 30 2c 38 35 |..... 0,|-50,0,85|
|00000ef0| 30 0d 07 ee 15 86 20 38 | 30 30 2c 2d 35 30 2c 38 |0..... 8|00,-50,8|
|00000f00| 30 30 2c 38 35 30 0d 07 | f8 07 ef 20 35 0d 08 02 |00,850..|... 5...|
|00000f10| 12 ec 20 2d 33 32 2c 2d | 33 32 3a f1 20 58 53 0d |.. -32,-|32:. XS.|
|00000f20| 08 0c 12 ec 20 38 30 30 | 2c 2d 33 32 3a f1 20 58 |.... 800|,-32:. X|
|00000f30| 46 0d 08 16 12 ec 20 2d | 32 34 30 2c 33 32 3a f1 |F..... -|240,32:.|
|00000f40| 20 59 53 0d 08 20 13 ec | 20 2d 32 34 30 2c 38 30 | YS.. ..| -240,80|
|00000f50| 30 3a f1 20 59 46 0d 08 | 2a 07 ef 20 34 0d 08 34 |0:. YF..|*.. 4..4|
|00000f60| 05 e1 0d 08 3e 04 0d 08 | 48 15 dd 20 a4 78 28 58 |....>...|H.. .x(X|
|00000f70| 29 3d 28 58 2d 58 53 29 | 2a 53 58 0d 08 52 15 dd |)=(X-XS)|*SX..R..|
|00000f80| 20 a4 79 28 59 29 3d 28 | 59 2d 59 53 29 2a 53 59 | .y(Y)=(|Y-YS)*SY|
|00000f90| 0d 08 5c 16 dd 20 a4 78 | 69 6e 76 28 58 29 3d 58 |..\.. .x|inv(X)=X|
|00000fa0| 2f 53 58 2b 58 53 0d 08 | 66 16 dd 20 a4 79 69 6e |/SX+XS..|f.. .yin|
|00000fb0| 76 28 59 29 3d 59 2f 53 | 59 2b 59 53 0d 08 70 04 |v(Y)=Y/S|Y+YS..p.|
|00000fc0| 0d 08 7a 0c dd 20 f2 65 | 72 72 6f 72 0d 08 84 0e |..z.. .e|rror....|
|00000fd0| e7 20 9f 3d 31 37 20 8c | 20 e1 0d 08 8e 14 f6 3a |. .=17 .| ......:|
|00000fe0| f1 22 20 61 74 20 6c 69 | 6e 65 20 22 3b 9e 0d 08 |." at li|ne ";...|
|00000ff0| 98 07 4b 3d a5 0d 08 a2 | 05 e1 0d 08 ac 04 0d 08 |..K=....|........|
|00001000| b6 11 dd 20 a4 69 74 65 | 72 61 74 65 28 50 29 0d |... .ite|rate(P).|
|00001010| 08 c0 0a 3d a0 28 46 24 | 29 0d 08 ca 04 0d 08 d4 |...=.(F$|).......|
|00001020| 15 dd 20 a4 69 74 65 72 | 61 74 65 5f 6e 28 50 2c |.. .iter|ate_n(P,|
|00001030| 4e 29 0d 08 de 0d e3 20 | 5a 3d 31 20 b8 20 4e 0d |N)..... |Z=1 . N.|
|00001040| 08 e8 0d 20 20 50 3d a0 | 28 46 24 29 0d 08 f2 05 |...  P=.|(F$)....|
|00001050| ed 0d 08 fc 06 3d 50 0d | ff 46 69 6c 65 44 61 74 |.....=P.|.FileDat|
|00001060| 61 82 21 53 70 72 69 74 | 65 73 00 ff ff e0 02 00 |a.!Sprit|es......|
|00001070| 00 43 f9 ff ff aa 83 e3 | 35 03 00 60 ae 01 00 00 |.C......|5..`....|
|00001080| 00 10 00 00 00 e4 02 00 | 00 d4 02 00 00 21 76 65 |........|.....!ve|
|00001090| 72 68 75 6c 73 74 00 00 | 00 04 00 00 00 10 00 00 |rhulst..|........|
|000010a0| 00 00 00 00 00 07 00 00 | 00 2c 00 00 00 80 01 00 |........|.,......|
|000010b0| 00 0c 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010c0| 00 00 00 00 77 70 00 00 | 00 00 00 00 00 00 00 00 |....wp..|........|
|000010d0| 00 00 00 00 00 00 70 70 | 00 07 00 00 00 00 00 00 |......pp|........|
|000010e0| 00 00 00 00 00 00 00 00 | 00 77 77 77 70 07 00 00 |........|.wwwp...|
|000010f0| 00 00 00 00 00 00 00 00 | 00 00 00 70 77 07 00 00 |........|...pw...|
|00001100| 70 70 00 00 00 00 00 00 | 00 00 00 00 00 00 77 77 |pp......|......ww|
|00001110| 00 77 77 70 00 77 00 00 | 00 00 00 00 00 00 00 00 |.wwp.w..|........|
|00001120| 00 70 07 00 00 00 00 07 | 77 70 00 00 00 00 00 00 |.p......|wp......|
|00001130| 00 00 00 00 77 77 07 00 | 00 00 00 70 00 07 00 00 |....ww..|...p....|
|00001140| 00 00 00 00 00 00 77 77 | 07 70 07 00 00 00 00 07 |......ww|.p......|
|00001150| 07 77 00 00 00 00 00 00 | 70 77 07 00 00 00 77 77 |.w......|pw....ww|
|00001160| 00 77 77 07 70 00 00 00 | 00 00 00 70 77 00 00 00 |.ww.p...|...pw...|
|00001170| 00 00 00 70 77 07 00 00 | 07 70 00 00 00 00 00 77 |...pw...|.p.....w|
|00001180| 00 00 00 00 00 00 00 00 | 00 77 77 07 00 07 00 00 |........|.ww.....|
|00001190| 00 00 70 07 00 00 00 00 | 00 00 00 00 00 00 00 77 |..p.....|.......w|
|000011a0| 70 77 00 00 00 00 77 00 | 00 00 00 00 00 00 00 00 |pw....w.|........|
|000011b0| 00 00 00 70 70 00 00 00 | 00 70 07 00 00 00 00 00 |...pp...|.p......|
|000011c0| 00 00 00 00 00 00 00 00 | 70 70 00 00 00 70 07 00 |........|pp...p..|
|000011d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 07 07 00 00 |........|........|
|000011e0| 00 77 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.w......|........|
|000011f0| 70 00 00 00 00 77 00 00 | 00 00 00 00 00 00 00 00 |p....w..|........|
|00001200| 00 00 00 00 00 70 00 00 | 00 00 00 00 00 00 00 00 |.....p..|........|
|00001210| 00 00 00 00 00 00 00 00 | ff f0 00 00 00 00 00 00 |........|........|
|00001220| 00 00 00 00 00 00 00 00 | 00 00 f0 f0 00 0f 00 00 |........|........|
|00001230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 ff ff ff |........|........|
|00001240| f0 0f 00 00 00 00 00 00 | 00 00 00 00 00 00 00 f0 |........|........|
|00001250| ff 0f 00 00 f0 f0 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001260| 00 00 ff ff 00 ff ff f0 | 00 ff 00 00 00 00 00 00 |........|........|
|00001270| 00 00 00 00 00 f0 0f 00 | 00 00 00 0f ff f0 00 00 |........|........|
|00001280| 00 00 00 00 00 00 00 00 | ff ff 0f 00 00 00 00 f0 |........|........|
|00001290| 00 0f 00 00 00 00 00 00 | 00 00 ff ff 0f f0 0f 00 |........|........|
|000012a0| 00 00 00 0f 0f ff 00 00 | 00 00 00 00 f0 ff 0f 00 |........|........|
|000012b0| 00 00 ff ff 00 ff ff 0f | f0 00 00 00 00 00 00 f0 |........|........|
|000012c0| ff 00 00 00 00 00 00 f0 | ff 0f 00 00 0f f0 00 00 |........|........|
|000012d0| 00 00 00 ff 00 00 00 00 | 00 00 00 00 00 ff ff 0f |........|........|
|000012e0| 00 0f 00 00 00 00 f0 0f | 00 00 00 00 00 00 00 00 |........|........|
|000012f0| 00 00 00 ff f0 ff 00 00 | 00 00 ff 00 00 00 00 00 |........|........|
|00001300| 00 00 00 00 00 00 00 f0 | f0 00 00 00 00 f0 0f 00 |........|........|
|00001310| 00 00 00 00 00 00 00 00 | 00 00 00 00 f0 f0 00 00 |........|........|
|00001320| 00 f0 0f 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001330| 0f 0f 00 00 00 ff 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001340| 00 00 00 00 f0 00 00 00 | 00 ff 00 00 00 00 00 00 |........|........|
|00001350| 00 00 00 00 00 00 00 00 | 00 f0 00 00 00 46 69 6c |........|.....Fil|
|00001360| 65 44 61 74 61 82 53 70 | 65 63 74 72 75 6d 00 ff |eData.Sp|ectrum..|
|00001370| ff 3c 00 00 00 40 ed ff | ff ac 91 3c b0 03 00 c8 |.<...@..|...<....|
|00001380| c2 00 00 00 20 10 50 30 | 00 a0 00 50 f0 00 80 f0 |.... .P0|...P....|
|00001390| 00 f0 f0 00 f0 90 00 f0 | 00 a0 f0 00 f0 f0 00 f0 |........|........|
|000013a0| b0 00 f0 70 00 f0 00 00 | f0 50 50 f0 a0 a0 f0 f0 |...p....|.PP.....|
|000013b0| f0 00 00 b0 00 f0 f0 00 | 00 f0 f0 00 00          |........|.....   |
+--------+-------------------------+-------------------------+--------+--------+