/ APDL Public Domain 1 / APDL_PD1A.iso / fractal / afg_1 / some_fract / Z-1_Z+1PJ2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 12 f4 20 3e 20 | 5a 2d 31 2f 5a 2b 31 50 |..... > |Z-1/Z+1P|
|00000010| 4a 32 0d 00 14 11 c8 9b | 22 25 2e 43 4f 4d 50 4c |J2......|"%.COMPL|
|00000020| 45 58 22 0d 00 1e 10 f2 | 49 4e 49 54 43 4f 4d 50 |EX".....|INITCOMP|
|00000030| 4c 45 58 0d 00 28 12 46 | 24 3d 22 5a 2d 31 2f 5a |LEX..(.F|$="Z-1/Z|
|00000040| 2b 31 4a 32 22 0d 00 32 | 08 eb 20 32 30 0d 00 3c |+1J2"..2|.. 20..<|
|00000050| 0a 43 25 3d 32 30 30 0d | 00 46 08 53 25 3d 32 0d |.C%=200.|.F.S%=2.|
|00000060| 00 50 07 52 3d 33 0d 00 | 5a 29 58 4c 3d 28 2e 34 |.P.R=3..|Z)XL=(.4|
|00000070| 31 32 33 2b 2e 34 31 33 | 39 29 2f 32 3a 59 4c 3d |123+.413|9)/2:YL=|
|00000080| 28 2e 36 32 30 38 2b 2e | 36 32 32 33 29 2f 32 0d |(.6208+.|6223)/2.|
|00000090| 00 64 19 58 42 3d 2d 52 | 3a 58 45 3d 52 3a 59 42 |.d.XB=-R|:XE=R:YB|
|000000a0| 3d 2d 52 3a 59 45 3d 52 | 0d 00 6e 13 58 53 3d 28 |=-R:YE=R|..n.XS=(|
|000000b0| 58 45 2d 58 42 29 2f 31 | 32 38 30 0d 00 78 13 59 |XE-XB)/1|280..x.Y|
|000000c0| 53 3d 28 59 45 2d 59 42 | 29 2f 31 30 32 34 0d 00 |S=(YE-YB|)/1024..|
|000000d0| 82 12 58 25 3d 30 3a 59 | 25 3d 30 3a 58 3d 58 42 |..X%=0:Y|%=0:X=XB|
|000000e0| 0d 00 8c 05 f5 0d 00 96 | 0a 59 25 2b 3d 53 25 0d |........|.Y%+=S%.|
|000000f0| 00 a0 45 e7 59 25 3e 3d | 31 30 32 34 20 59 25 3d |..E.Y%>=|1024 Y%=|
|00000100| 30 3a 58 25 2b 3d 53 25 | 3a 58 3d 58 42 2b 58 25 |0:X%+=S%|:X=XB+X%|
|00000110| 2a 58 53 3a e7 20 58 25 | 3e 3d 31 32 38 30 20 ff |*XS:. X%|>=1280 .|
|00000120| 22 53 43 52 45 45 4e 53 | 41 56 45 20 22 2b 46 24 |"SCREENS|AVE "+F$|
|00000130| 3a f5 fd a3 0d 00 aa 0e | 59 3d 59 42 2b 59 25 2a |:.......|Y=YB+Y%*|
|00000140| 59 53 0d 00 b4 32 f2 53 | 45 54 28 58 2c 59 2c 5a |YS...2.S|ET(X,Y,Z|
|00000150| 28 29 29 3a f2 53 45 54 | 28 58 4c 2c 59 4c 2c 42 |()):.SET|(XL,YL,B|
|00000160| 28 29 29 3a f2 53 45 54 | 28 58 4c 2c 2d 59 4c 2c |()):.SET|(XL,-YL,|
|00000170| 44 28 29 29 0d 00 be 08 | 4e 25 3d 30 0d 00 c8 05 |D())....|N%=0....|
|00000180| f5 0d 00 d2 11 20 20 e7 | 20 5a 28 30 29 3e 3d 30 |.....  .| Z(0)>=0|
|00000190| 20 8c 0d 00 dc 31 20 20 | 20 20 5a 28 30 29 2d 3d | ....1  |  Z(0)-=|
|000001a0| 31 3a 41 28 29 3d 5a 28 | 29 3a f2 44 49 56 28 41 |1:A()=Z(|):.DIV(A|
|000001b0| 28 29 2c 42 28 29 2c 43 | 28 29 29 3a 5a 28 29 3d |(),B(),C|()):Z()=|
|000001c0| 43 28 29 0d 00 e6 07 20 | 20 cc 0d 00 f0 31 20 20 |C().... | ....1  |
|000001d0| 20 20 5a 28 30 29 2b 3d | 31 3a 41 28 29 3d 5a 28 |  Z(0)+=|1:A()=Z(|
|000001e0| 29 3a f2 44 49 56 28 41 | 28 29 2c 44 28 29 2c 43 |):.DIV(A|(),D(),C|
|000001f0| 28 29 29 3a 5a 28 29 3d | 43 28 29 0d 00 fa 07 20 |()):Z()=|C().... |
|00000200| 20 cd 0d 01 04 0b 20 20 | 4e 25 2b 3d 31 0d 01 0e | .....  |N%+=1...|
|00000210| 26 fd 20 4e 25 3e 43 25 | 20 84 20 28 5a 28 30 29 |&. N%>C%| . (Z(0)|
|00000220| 2a 5a 28 30 29 2b 5a 28 | 31 29 2a 5a 28 31 29 29 |*Z(0)+Z(|1)*Z(1))|
|00000230| 3e 35 30 0d 01 18 26 e7 | 20 4e 25 3e 43 25 20 e6 |>50...&.| N%>C% .|
|00000240| 20 30 20 8b 20 e6 31 2b | 28 4e 25 83 20 37 29 3a | 0 . .1+|(N%. 7):|
|00000250| f0 36 39 2c 58 25 2c 59 | 25 0d 01 22 06 fd a3 0d |.69,X%,Y|%.."....|
|00000260| ff                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+