June 6, 1997: Number Sieve | June 5 | June 7 | 1997 | FOTD Home |
Fractal
visionaries:
Last evening, I promised an IF-ELSE fractal for today, and I've found
one worth sharing. My own first efforts at IF-ELSE formula
writing have failed to find anything of interest, so I took a formula
posted a few days ago by Ron Barnett, added a few variable parameters
to it, and set it loose.
It didn't let me down. This formula has no end of great
fractals
in it. Today's picture is just one of a dozen or so equally
striking ones this formula has produced. The coloring is in
my
preferred style of looking toward the source of light. I hope
you
enjoy it.
In a month or so, I'll start shopping for a new computer to replace my
poor old overworked 486. Before I buy, I plan on doing a
speed
test, by running the same test fractal on different machines.
I also hear various rumors I'd like to check. I've heard it
claimed that the MMX technology sacrifices accuracy for speed, and that
its fractal performance is therefore compromised. I've also
heard
that the Pentium Pro, (40686), is optimized for 32-bit apps.
I'm
curious to see if this affects its fractal performance. The
new
Pentium II processors appear interesting. I'm curious to see
how
they compare with the Pentium Pro.
Well, while I'm dreaming of my new computer, I'd better send this off
before my mail server goes down again.
Jim Muth
jamth@mindspring.com
START PARAMETER-FORMULA FILE FOR 19.6======================
Number_Seive
{ ;
time=0:00:13.02-SF5 on P4-2000
reset=1960 type=formula formulafile=basicer.frm
formulaname=IfElse01 function=cotan passes=1
center-mag=0/0/0.1054215/1/45/0 symmetry=origin
params=0.7/0/1/0/0.26/0.26 float=y maxiter=724
inside=253 logmap=yes periodicity=10
colors=000F0B600JELLFJOIUOHNRKWRISTMYTKVWN_WM_ZPaZ\
Pa`RcaSdcTedTfeUggVhhWjiWkkXllYmmZnoZop_pl_pg_pc_o\
Z_oV_oQ_oM_nH_nGZoFXpDWqCVrBTsASu9Qv8Pw6Ox5My4Lz5L\
z5Ky6Ky7Kx8Kx8Jw9KwAIwBKvBIvCKuDHuEGtEGtFGsGFsHFsH\
FrIErJEqKEqKDpLDpKFpJHqIJqHLqGNqFPrERrDTrBUrAWs9Ys\
8_s7as6ct5et4gt9fpEflIehNddSc`XcYabUfaQj`Mo`It_EsZ\
JrYNpXSoWXnV`mUekTjjSniRshQwfRudStbTraTq_UpYVoWWmU\
WlTXkRYiPZhNZgL_eK`dIacGabEb`Cc_BdZ9dX7eWBeZFe`Jdc\
NdeRdhWdj_dmcdogcrkctocwlcuibrfbpbam_akX`h`VIaRGbN\
DcIBdE8eA6fC8fFAgHCgJEhLGiOIiQKjSMjUOkXRlZTl`VmbXm\
eZng`oibokdpnfpphqrjoqglqdjpahpZeoWcoU`nRZnOXmLUmI\
SlFQhIOdLL`OJYRHUTFQWCMZAIaCIbDHcFHdGGeIGfJFgLFhME\
iOEjQDkRDkTClUCmWBnXBoZAp_Aqa9rb9sd8tdBqdDmdGjdJge\
LceO`eRYeTUeWReYOgcUiiZkndltinynoxkowhpvfqucqt`rtY\
ssVsrStqQupNuoKvnHvnFuoXupnqijnbgjWcfQ_bJW_CTW5PUC\
QSJRQQSNXTLcUJjVzazMoTP0K }
frm:IfElse01 {; adapted from R. Barnett's formula
z=y=c=pixel, w=0:
if(w), z=fn1(real(y))+flip(imag(y)), w=0
else, z=(y*p1), w=w+1, endif
z=z^p2+(p3*c), y=z,
|z| <= 100 }
END PARAMETER-FORMULA FILE FOR 19.6========================