|
Fractal of the Day
by Jim Muth
|
|
Fractal visionaries and enthusiasts: Today's FOTD features an all new midget. Yes, this particular midget, though it has potentially existed for longer than all eternity, has never before been seen by the eyes of Man, or the eyes of Cats. I present it here today in its premier appearance -- the midget that against all odds *was* discovered. I named the picture "An All-New Midget" simply because that's what it is. I rated it a 6 because at the moment I consider it to be slightly above the FOTD average. Tomorrow I might feel different, but today's opinion is the one that counts. What are the chances that this particular midget would ever see the light of day? One in a million, one in a googol, one in a googolplex^googolplex? Actually, since the number of undiscovered midgets in the infinity of undrawn fractals is a number beyond infinity, the chances of this midget ever being seen are zero -- exactly as great as the chances of my ever having been born. Yet despite these overwhelming odds, the midget was discovered and I was born. And the midget actually made it onto the honor roll of midgets worthy of being chosen Fractal of the Day. The fractal formula that was iterated to uncover this midget is Z^(-7.071)+Z(-0.7071)+(1/C), an obviously whimsical expression that I entered totally at random. The parameter file takes 1/4 hour to render even on a fast Pentium, so to avoid impatience, a quick trip to the Usenet group: The fractal weather was much improved today, which turned out partly cloudy, with a temperature of 83F (28C). The lack of the daily deluge met with the approval of the fractal cats. Curiously enough, last year at this time the local farmers were praying for rain. Their prayers have been generously answered, but now they're praying for the rain to stop. I guess they should have been more specific about the amount of rain they asked for. My philosophy is still coming, as it always is, but it's not yet here. It may arrive tomorrow, it may not. But an FOTD most certainly will arrive tomorrow, so check back then to see the eighth wonder of the world. Until then, take care, and befriend a lost Mandelbrot midget. Jim Muth jamth@mindspring.com |
START 20.0 PAR-FORMULA FILE================================
An_All-New_Midget { ; time=0:14:19.74 -- SF5 on a P200
; Version 2000 Patchlevel 9
reset=2000 type=formula formulafile=critical.frm
formulaname=MandelbrotMix4 function=recip passes=1
center-mag=-0.41054321687411460/+0.58664493306153620\
/3457899/1/52.499 params=1/-7.071/1/-0.7071/0/0
float=y maxiter=1800 inside=0 logmap=163 periodicity=9
colors=000TO_<7>_Vf`WgaXh<3>e`lZXn<3>7Hm1Em9Gm<2>XKl\
cLicMgcMg<3>cOacO`eO_eOYePX<6>QROORMMRL<2>FSHDSG9RE<\
24>`cIadIbdI<3>ffI<3>iId<23>K6KJ5JI5I<3>E3EA2F<8>UBC\
WCCZDC<3>fGB<21>UZ7T_7S`6<2>Rc6Qd6Oc7<8>`j6ak6bl6<3>\
ho6jp6lp6<3>ts6vt6xu6zv6zv6<3>ntIktKhtN<2>_sWXsYUqWR\
oV<3>`hQcfPeeO<3>oZJ<7>fM_eKadJc<3>`Dk<3>uDo<5>rNuqP\
vqQwqSxpUy<3>n_znazmbzmdzmez<2>afzYfzVez<2>UgzMgz<2>\
Thz
}
frm:MandelbrotMix4 {; Jim Muth
a=real(p1), b=imag(p1), d=real(p2), f=imag(p2),
g=1/f, h=1/d, j=1/(f-b), z=(-a*b*g*h)^j,
k=real(p3)+1, l=imag(p3)+100, c=fn1(pixel):
z=k*((a*(z^b))+(d*(z^f)))+c,
|z| < l
}
END 20.0 PAR-FORMULA FILE==================================
|
times.
