|
Fractal of the Day
by Jim Muth
|
|
Fractal visionaries and enthusiasts: Today's C-FOTD is named "Square Root of Two". The reason is that the exponent of Z is sqrt(2). I rated the picture a 5 because I doubt that it is worth any more than that. To add to the interest, I calculated a part of the image far out in a negative direction on the infinite spiral of the complex logarithm. The value of -1234567890 that I entered is totally whimsical, and why not? Doing things on a whim is great fun. Though midgets of order 1.414... are hard to find, the search, as today's image illustrates, can be worth the effort. The draw time of the parameter file is a slow 11-3/4 minutes; the download time is far shorter. Look for the download on Usenet at: The fractal weather today here at Fractal H.Q. was cloudy in the morning, with intermittent heavy showers, followed by clearing in the afternoon. The temperature of 56 brought out the cats, though the wet grass dampened their adventurous spirits. And I, having my spirit dampened by world events, am ready to shut down the fractal shoppe and declare the day closed. Until tomorrow, take care, and then take even more care. Jim Muth jamth@mindspring.com |
START 20.0 PAR-FORMULA FILE================================
Square_Root_of_Two { ; time=0:11:47.44 -- SF5 on a P200
reset=2001 type=formula formulafile=branchct.frm
formulaname=MandelbrotBC passes=1
center-mag=+0.7234134339563163/-0.1756656620377885/6\
71159.7/1/-22.5 params=1.414213562373/0/-1234567890/0
float=y maxiter=50000 inside=0 periodicity=10
colors=0004Ag38k28n07r07v06y06z04z04zSBizHKzHI<2>zI8\
zNHzSOyYXwabaaE_bBZcAXe7Vf4Ug3Qf7NeAJeDHcH<2>7bOBaRF\
aUJ_XM_ZQZaUZcXYf_YicXkgXnjVqnVsrUvuUyySzzSzzSznIzZ7\
uJ0oK4j<2>KOYKVUMbOMiKMoHMvBMz7Mz3Nz8NrEOiJOaOQSU<2>\
R3gF2U30H84KD7OIASMDXRF_VIc_KgcOjiRn<2>vZzzazzczzfzz\
gzvgzogwigsbgoXij<3>6iVAgX<4>NfbQfcSfeVffYffaeg<2>ie\
kkemncnqcoscqvcrycrzeszeu<2>zfvzfwzgy<2>zgzzkyzoyzrw\
zvwzzwzzvzzvzzvzzszzqzznzzmzyjzvgzufzrczqaznZzmYzjVz\
iSzfRzeOzbMzaJzZIzYFzVDzVA<2>zUBvSBsSBoSBmRBiRBfRBbR\
BZQDXQDSQDQODMODJODFNDDND8ND07H6NDHaARo7ez0az4YwAVrF\
RkMOfRK_XIVaEOg<2>47w84yD2yH0yK0yO0zN0yN0vN0sN0qN0mN\
0jN0gN0eN0aN0ZN0X<2>N0NN0KN0IN0E<3>N03K07J3BI7EHAIFE\
KEHODJS<2>8Ua7Xe6ZgAagDbgFcgIfgMggOigRkgUmgYng_qgbrg\
esgbzigugenZkefqXnJFHIEJHENEDRDDUBBY8Ba7Ac
}
frm:MandelbrotBC = { ; Z = Z^E + C
e=p1
p=real(p2)+PI
q=2*PI*trunc(p/(2*PI))
r=real(p2)-q
Z=C=Pixel:
Z=log(Z)
IF(imag(Z)>r)
Z=Z+flip(2*PI)
ENDIF
Z=exp(e*(Z+flip(q)))+C
|Z| < 100
}
END 20.0 PAR-FORMULA FILE==================================
|
times.
