/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / fractal / progs / fea / ice-julia

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 f4 20 3e 20 | 49 43 45 2d 4a 55 4c 49 |..... > |ICE-JULI|
|00000010| 41 0d 00 14 08 eb 20 32 | 30 0d 00 1e 37 f1 27 27 |A..... 2|0...7.''|
|00000020| 27 22 4a 75 6c 69 61 20 | 73 65 74 73 20 6f 66 20 |'"Julia |sets of |
|00000030| 74 68 65 20 6d 61 6e 64 | 65 6c 62 72 6f 6f 74 20 |the mand|elbroot |
|00000040| 66 6f 72 6d 75 6c 61 20 | 5a 3d 5a 2a 5a 2b 43 22 |formula |Z=Z*Z+C"|
|00000050| 0d 00 28 1e f1 27 27 27 | 22 4b 20 73 63 72 6f 6c |..(..'''|"K scrol|
|00000060| 6c 73 20 74 68 65 20 63 | 6f 6c 6f 75 72 22 0d 00 |ls the c|olour"..|
|00000070| 32 1d f1 27 27 27 22 42 | 20 73 63 72 6f 6c 6c 73 |2..'''"B| scrolls|
|00000080| 20 67 72 65 79 73 63 61 | 6c 65 22 0d 00 3c 44 f1 | greysca|le"..<D.|
|00000090| 27 27 27 22 57 68 65 6e | 20 66 69 6e 69 73 68 65 |'''"When| finishe|
|000000a0| 64 2c 20 44 20 73 61 76 | 65 73 20 61 73 20 4a 55 |d, D sav|es as JU|
|000000b0| 4c 49 41 50 49 43 20 2c | 20 42 20 61 6e 64 20 4b |LIAPIC ,| B and K|
|000000c0| 20 73 74 69 6c 6c 20 61 | 63 74 69 76 65 2e 22 0d | still a|ctive.".|
|000000d0| 00 46 59 58 42 3d 2d 31 | 2e 33 3a 58 45 3d 31 2e |.FYXB=-1|.3:XE=1.|
|000000e0| 33 3a 59 42 3d 2d 31 2e | 35 3a 59 45 3d 31 2e 35 |3:YB=-1.|5:YE=1.5|
|000000f0| 3a e8 27 27 27 22 4a 75 | 6c 69 61 20 63 6f 6f 72 |:.'''"Ju|lia coor|
|00000100| 64 69 6e 61 74 65 20 58 | 20 2c 20 59 20 22 3b 58 |dinate X| , Y ";X|
|00000110| 43 2c 59 43 3a e8 27 27 | 27 22 4c 6f 6f 70 20 64 |C,YC:.''|'"Loop d|
|00000120| 65 70 74 68 22 3b 4d 25 | 0d 00 50 23 44 58 3d 28 |epth";M%|..P#DX=(|
|00000130| 58 45 2d 58 42 29 2f 31 | 30 32 34 3a 44 59 3d 28 |XE-XB)/1|024:DY=(|
|00000140| 59 45 2d 59 42 29 2f 31 | 30 32 34 0d 00 5a 08 eb |YE-YB)/1|024..Z..|
|00000150| 20 32 30 0d 00 64 42 ee | 20 85 20 eb 20 31 39 3a | 20..dB.| . . 19:|
|00000160| f1 20 22 4a 75 6c 69 61 | 20 70 6f 69 6e 74 20 77 |. "Julia| point w|
|00000170| 61 73 20 22 3b 58 43 3b | 22 20 2c 20 22 3b 59 43 |as ";XC;|" , ";YC|
|00000180| 3b 22 20 20 4c 6f 6f 70 | 20 64 65 70 74 68 3a 22 |;"  Loop| depth:"|
|00000190| 3b 4d 25 3a e0 0d 00 6e | 1f e3 58 25 3d 30 20 b8 |;M%:...n|..X%=0 .|
|000001a0| 20 20 35 31 32 20 88 20 | 32 3a 58 3d 58 42 2b 44 |  512 . |2:X=XB+D|
|000001b0| 58 2a 58 25 0d 00 78 1f | e3 59 25 3d 30 20 b8 20 |X*X%..x.|.Y%=0 . |
|000001c0| 31 30 32 34 20 88 20 32 | 3a 59 3d 59 42 2b 44 59 |1024 . 2|:Y=YB+DY|
|000001d0| 2a 59 25 0d 00 82 0f f2 | 4a 55 4c 49 41 28 58 2c |*Y%.....|JULIA(X,|
|000001e0| 59 29 0d 00 8c 1c 42 24 | 3d bf 28 30 29 3a e7 20 |Y)....B$|=.(0):. |
|000001f0| 42 24 3c 3e 22 22 20 f2 | 63 6f 6c 6f 75 72 0d 00 |B$<>"" .|colour..|
|00000200| 96 07 ed 3a ed 0d 00 a0 | 36 f5 3a 42 24 3d be 3a |...:....|6.:B$=.:|
|00000210| e7 20 42 24 3d 22 44 22 | 20 ff 28 22 53 43 52 45 |. B$="D"| .("SCRE|
|00000220| 45 4e 53 41 56 45 20 4a | 55 4c 49 41 50 49 43 22 |ENSAVE J|ULIAPIC"|
|00000230| 29 20 8b 20 f2 63 6f 6c | 6f 75 72 0d 00 aa 07 fd |) . .col|our.....|
|00000240| 20 a3 0d 00 b4 05 3a 0d | 00 be 10 dd f2 4a 55 4c | .....:.|.....JUL|
|00000250| 49 41 28 58 2c 59 29 0d | 00 c8 1b 5a 58 3d 58 3a |IA(X,Y).|...ZX=X:|
|00000260| 5a 59 3d 59 3a 58 32 3d | 58 2a 58 3a 59 32 3d 59 |ZY=Y:X2=|X*X:Y2=Y|
|00000270| 2a 59 0d 00 d2 08 4e 25 | 3d 30 0d 00 dc 50 f5 3a |*Y....N%|=0...P.:|
|00000280| 55 3d 58 32 2d 59 32 2b | 58 43 3a 5a 59 3d 32 2a |U=X2-Y2+|XC:ZY=2*|
|00000290| 5a 58 2a 5a 59 2b 59 43 | 3a 5a 58 3d 55 3a 58 32 |ZX*ZY+YC|:ZX=U:X2|
|000002a0| 3d 5a 58 2a 5a 58 3a 59 | 32 3d 5a 59 2a 5a 59 3a |=ZX*ZX:Y|2=ZY*ZY:|
|000002b0| 4e 25 3d 4e 25 2b 31 3a | fd 28 58 32 2b 59 32 29 |N%=N%+1:|.(X2+Y2)|
|000002c0| 3e 34 20 84 20 4e 25 3d | 4d 25 0d 00 e6 0e 4e 25 |>4 . N%=|M%....N%|
|000002d0| 3d 32 2e 32 2a aa 4e 25 | 0d 00 f0 27 e6 30 2c 4e |=2.2*.N%|...'.0,N|
|000002e0| 25 3a f0 36 39 2c 58 25 | 2c 59 25 3a f0 36 39 2c |%:.69,X%|,Y%:.69,|
|000002f0| 31 30 32 34 2d 58 25 2c | 31 30 32 34 2d 59 25 0d |1024-X%,|1024-Y%.|
|00000300| 00 fa 05 e1 0d 01 04 05 | 3a 0d 01 0e 05 3a 0d 01 |........|:....:..|
|00000310| 18 0c dd f2 63 6f 6c 6f | 75 72 0d 01 22 0d 43 43 |....colo|ur..".CC|
|00000320| 25 3d 43 43 25 2b 31 0d | 01 2c 52 e7 20 42 24 3c |%=CC%+1.|.,R. B$<|
|00000330| 3e 22 42 22 20 c8 96 3a | ef 32 30 3a e3 43 25 3d |>"B" ..:|.20:.C%=|
|00000340| 31 20 b8 20 37 3a fb 43 | 25 2c 28 43 25 2b 43 43 |1 . 7:.C|%,(C%+CC|
|00000350| 25 29 83 37 2b 31 3a ed | 3a e3 20 43 25 3d 38 b8 |%).7+1:.|:. C%=8.|
|00000360| 31 35 3a fb 43 25 2c 38 | 2d 28 43 25 2b 43 43 25 |15:.C%,8|-(C%+CC%|
|00000370| 29 83 37 2d 31 3a ed 3a | e1 0d 01 36 34 c8 96 3a |).7-1:.:|...64..:|
|00000380| e3 43 25 3d 31 b8 31 35 | 3a fb 28 43 25 2b 43 43 |.C%=1.15|:.(C%+CC|
|00000390| 25 29 83 31 35 2b 31 2c | 43 25 2a 31 36 2c 43 25 |%).15+1,|C%*16,C%|
|000003a0| 2a 31 36 2c 43 25 2a 31 | 36 3a ed 3a e1 0d ff    |*16,C%*1|6:.:... |
+--------+-------------------------+-------------------------+--------+--------+