/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / fractal / progs / fea / voltera

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0f f4 20 3e 20 | 56 4f 4c 54 45 52 41 0d |..... > |VOLTERA.|
|00000010| 00 14 0f 20 ee 20 85 20 | eb 20 31 39 3a e0 0d 00 |... . . |. 19:...|
|00000020| 1e 15 eb 20 39 3a 50 3d | 2e 37 33 39 3a 48 3d 2e |... 9:P=|.739:H=.|
|00000030| 37 33 39 0d 00 28 25 f1 | 22 46 72 6f 6d 20 27 54 |739..(%.|"From 'T|
|00000040| 68 65 20 42 65 61 75 74 | 79 20 6f 66 20 66 72 61 |he Beaut|y of fra|
|00000050| 63 74 61 6c 73 2e 27 22 | 0d 00 32 20 f1 27 22 57 |ctals.'"|..2 .'"W|
|00000060| 61 69 74 20 66 6f 72 20 | 73 65 63 6f 6e 64 20 70 |ait for |second p|
|00000070| 69 63 74 75 72 65 2e 22 | 0d 00 3c 1c f1 27 22 53 |icture."|..<..'"S|
|00000080| 61 76 65 64 20 61 73 20 | 76 6f 6c 74 65 72 61 70 |aved as |volterap|
|00000090| 69 63 2e 22 0d 00 46 2c | f1 27 22 4c 6f 74 6b 65 |ic."..F,|.'"Lotke|
|000000a0| 2d 56 6f 6c 74 65 72 61 | 20 70 72 65 64 61 74 6f |-Voltera| predato|
|000000b0| 72 2d 70 72 65 79 20 66 | 6f 72 6d 75 6c 61 2e 22 |r-prey f|ormula."|
|000000c0| 0d 00 50 28 f1 27 22 54 | 68 69 73 20 77 69 6c 6c |..P(.'"T|his will|
|000000d0| 20 74 61 6b 65 20 6c 6f | 74 73 20 6f 66 20 74 69 | take lo|ts of ti|
|000000e0| 6d 65 2e 2e 2e 2e 2e 22 | 0d 00 5a 21 f1 27 22 28 |me....."|..Z!.'"(|
|000000f0| 42 75 74 20 69 74 20 6c | 6f 6f 6b 73 20 76 65 72 |But it l|ooks ver|
|00000100| 79 20 6e 69 63 65 21 29 | 22 0d 00 64 13 87 3a de |y nice!)|"..d..:.|
|00000110| 20 4e 25 28 33 31 39 2c | 32 35 35 29 0d 00 6e 23 | N%(319,|255)..n#|
|00000120| 58 52 3d 36 2e 35 3a 59 | 52 3d 34 3a 58 53 3d 58 |XR=6.5:Y|R=4:XS=X|
|00000130| 52 2f 33 32 30 3a 59 53 | 3d 59 52 2f 32 35 36 0d |R/320:YS|=YR/256.|
|00000140| 00 78 0d e3 58 25 3d 31 | b8 33 31 39 0d 00 82 1d |.x..X%=1|.319....|
|00000150| e3 59 25 3d 30 b8 32 35 | 35 3a 55 25 3d 34 2a 58 |.Y%=0.25|5:U%=4*X|
|00000160| 25 3a 56 25 3d 34 2a 59 | 25 0d 00 8c 10 e6 30 3a |%:V%=4*Y|%.....0:|
|00000170| f0 36 39 2c 55 25 2c 56 | 25 0d 00 96 58 58 3d 58 |.69,U%,V|%...XX=X|
|00000180| 25 2a 58 53 3a 59 3d 59 | 25 2a 59 53 3a 4e 25 3d |%*XS:Y=Y|%*YS:N%=|
|00000190| 30 3a f5 3a 4e 58 3d a4 | 4e 45 57 58 28 58 2c 59 |0:.:NX=.|NEWX(X,Y|
|000001a0| 29 3a 59 3d a4 4e 45 57 | 59 28 58 2c 59 29 3a 58 |):Y=.NEW|Y(X,Y):X|
|000001b0| 3d 4e 58 3a 4e 25 2b 3d | 31 3a fd 20 4e 25 3e 35 |=NX:N%+=|1:. N%>5|
|000001c0| 30 20 84 20 58 3e 31 30 | 30 20 84 20 59 3e 31 30 |0 . X>10|0 . Y>10|
|000001d0| 30 0d 00 a0 0d e7 20 4e | 25 3e 35 30 20 8c 0d 00 |0..... N|%>50 ...|
|000001e0| aa 14 20 20 20 20 e6 37 | 3a f0 36 39 2c 55 25 2c |..    .7|:.69,U%,|
|000001f0| 56 25 0d 00 b4 0f 20 20 | 20 20 58 3d 58 25 2a 58 |V%....  |  X=X%*X|
|00000200| 53 0d 00 be 0f 20 20 20 | 20 59 3d 59 25 2a 59 53 |S....   | Y=Y%*YS|
|00000210| 0d 00 c8 0c 20 20 20 20 | 4e 25 3d 30 0d 00 d2 44 |....    |N%=0...D|
|00000220| 20 20 20 20 f5 3a 55 25 | 3d 58 2f 58 53 3a 56 25 |    .:U%|=X/XS:V%|
|00000230| 3d 59 2f 59 53 3a e7 55 | 25 3e 3d 30 20 80 56 25 |=Y/YS:.U|%>=0 .V%|
|00000240| 3e 3d 30 20 80 55 25 3c | 33 32 30 20 80 56 25 3c |>=0 .U%<|320 .V%<|
|00000250| 32 35 36 20 4e 25 28 55 | 25 2c 56 25 29 2b 3d 31 |256 N%(U|%,V%)+=1|
|00000260| 0d 00 dc 30 20 20 20 20 | 20 20 20 4e 58 3d a4 4e |...0    |   NX=.N|
|00000270| 45 57 58 28 58 2c 59 29 | 3a 59 3d a4 4e 45 57 59 |EWX(X,Y)|:Y=.NEWY|
|00000280| 28 58 2c 59 29 3a 58 3d | 4e 58 3a 4e 25 2b 3d 31 |(X,Y):X=|NX:N%+=1|
|00000290| 0d 00 e6 0f 20 20 20 20 | fd 20 4e 25 3e 35 30 0d |....    |. N%>50.|
|000002a0| 00 f0 05 cd 0d 00 fa 07 | ed 3a ed 0d 01 04 08 41 |........|.:.....A|
|000002b0| 25 3d 30 0d 01 0e 37 e3 | 58 25 3d 30 b8 33 31 39 |%=0...7.|X%=0.319|
|000002c0| 3a e3 59 25 3d 30 b8 32 | 35 35 3a e7 20 4e 25 28 |:.Y%=0.2|55:. N%(|
|000002d0| 58 25 2c 59 25 29 3e 41 | 25 20 41 25 3d 4e 25 28 |X%,Y%)>A|% A%=N%(|
|000002e0| 58 25 2c 59 25 29 3a f1 | 41 25 0d 01 18 07 ed 3a |X%,Y%):.|A%.....:|
|000002f0| ed 0d 01 22 08 eb 20 31 | 33 0d 01 2c 16 41 3d aa |...".. 1|3..,.A=.|
|00000300| 28 41 25 2b 31 2e 35 29 | 3a 41 3d 31 36 2f 41 0d |(A%+1.5)|:A=16/A.|
|00000310| 01 36 3c e3 58 25 3d 30 | b8 33 31 39 3a e3 59 25 |.6<.X%=0|.319:.Y%|
|00000320| 3d 30 b8 32 35 35 3a 4e | 25 3d 41 2a aa 28 31 2b |=0.255:N|%=A*.(1+|
|00000330| 4e 25 28 58 25 2c 59 25 | 29 29 3a e6 28 4e 25 20 |N%(X%,Y%|)):.(N% |
|00000340| 80 20 36 33 29 20 c8 9c | 20 4e 25 0d 01 40 15 f0 |. 63) ..| N%..@..|
|00000350| 36 39 2c 58 25 2a 34 2c | 59 25 2a 34 3a ed 3a ed |69,X%*4,|Y%*4:.:.|
|00000360| 0d 01 4a 1a 2a 53 43 52 | 45 45 4e 53 41 56 45 20 |..J.*SCR|EENSAVE |
|00000370| 56 4f 4c 54 45 52 41 50 | 49 43 0d 01 54 05 e0 0d |VOLTERAP|IC..T...|
|00000380| 01 5e 05 3a 0d 01 68 13 | dd a4 46 28 58 2c 59 29 |.^.:..h.|..F(X,Y)|
|00000390| 3a 3d 58 2d 58 2a 59 0d | 01 72 14 dd a4 47 28 58 |:=X-X*Y.|.r...G(X|
|000003a0| 2c 59 29 3a 3d 2d 59 2b | 58 2a 59 0d 01 7c 3d dd |,Y):=-Y+|X*Y..|=.|
|000003b0| a4 4e 45 57 58 28 58 2c | 59 29 3a 3d 58 2b 2e 35 |.NEWX(X,|Y):=X+.5|
|000003c0| 2a 48 2a 28 a4 46 28 58 | 2c 59 29 2b a4 46 28 58 |*H*(.F(X|,Y)+.F(X|
|000003d0| 2b 50 2a a4 46 28 58 2c | 59 29 2c 59 2b 50 2a a4 |+P*.F(X,|Y),Y+P*.|
|000003e0| 47 28 58 2c 59 29 29 29 | 0d 01 86 3d dd a4 4e 45 |G(X,Y)))|...=..NE|
|000003f0| 57 59 28 58 2c 59 29 3a | 3d 59 2b 2e 35 2a 48 2a |WY(X,Y):|=Y+.5*H*|
|00000400| 28 a4 47 28 58 2c 59 29 | 2b a4 47 28 58 2b 50 2a |(.G(X,Y)|+.G(X+P*|
|00000410| a4 46 28 58 2c 59 29 2c | 59 2b 50 2a a4 47 28 58 |.F(X,Y),|Y+P*.G(X|
|00000420| 2c 59 29 29 29 0d 01 90 | 05 3a 0d ff             |,Y)))...|.:..    |
+--------+-------------------------+-------------------------+--------+--------+