|
Fractal of the Day
by Jim Muth
|
|
Fractal visionaries and enthusiasts: Today's image is one I found automatically. I named it "Where Trees Come From" because with only a slight change of parameters, I could turn the Julia image into one of those fractal trees. But today we have no trees. We have a surreal something, vaguely resembling a slavic helmet, better seen than described. There is no way I could honestly rate such a quickie image, so I let it go unrated. The calculation time of just under 9 minutes is longer than I would have preferred. But give Paul a chance to calculate and post the image, then rush to the FOTD web site to enjoy it. The web site may be accessed at: With full sun and a temperature of 79F 26C, Saturday was the picture of perfection here in the Fractal Central area. The fractal cats must have agreed, for in the late evening when we returned from the day out, we found three waste baskets over-turned and the contents scattered -- a sure sign of bored and discontented cats. With little harm done, I managed a FOTD, though a bit too late to post on time. However, the next FOTD will be posted on time in 6 hours or so. Until then, take care, and fractals are the spirits of numbers, or are numbers the spirits of fractals? Jim Muth jamth@mindspring.com jimmuth@aol.com |
START PARAMETER FILE=======================================
WhereTreesComeFrom { ; time=0:08:53.54-SF5 on P4-2000
reset=2004 type=formula formulafile=allinone.frm
formulaname=dividejulibrot passes=1 periodicity=10
center-mag=45.1158/0/0.1140451/1/90/0 maxiter=3000
params=90/0/90/0/-105.58135/0/0/0/1.5/100 float=y
inside=bof61
colors=000JYCIVCHTBGQAGO9FL9EI8DG7CD6B74CB6DF8EJAE\
MCFQEGUFHYHH`JIdLJhNJkOKmQKnSLpULqXMsZMt`NvbNwdMtg\
LqjKnlJloIirHftGcwGayFbwFbvEcuEcsDdrDdqDdoCenCemBf\
kBfjAgiAggAgf9he9hc8ib8ia8i`PU_eF_u0_t2`s4ar6bq7cq\
9dpBeoCfnEgnGhmHilJjkLkkMklQmlUnlYolapmermismmtmpu\
korjnphmmglkfkhdjfcicbha`ib_icZidYjeXjeVjfUkgTkhSk\
hRkiQljOlkNlkMmlLmmKmnJmnIkkIjiHigHheHgbGf`GeZGdXF\
cUFbS8nsAmtBmtCmtDltEltGltHktIktJktKktMjtNjtOjtPit\
QitSitThtUhtVhtWht_arbWqeQjgLdjGYlASo5Lq0Fp2Hp4Io6\
Jo8KnALnCMmEOmGPmIQlKRlMSkOTkQUjSWjUXiWYiYZi__ha`h\
cagecggdfiefkfemgeohftjeqidnhckgcigbfface``e`Zd_Wc\
ZTcYQbYOaXLaWI`VF_VD_UAZT7YT5YU6XV6XV6XW6XW6XX6XY6\
XY6WZ6WZ6W_6W`7W`7Wa7Wa7Vb7Vc7Vc7Vd7Vd7Ve7Ve7VWmXV\
kYUiZUhZTf_Se_Sc`Rb`Q`aQ_aPYbOWcOXcNTdMSdMQeLUeKNf\
JVzKMfLZdLSbMzzMY_NdjNcWzzzPiSPoRQoPzzNRuLSvLRwKfz\
JPrIOoIOmHNsGMgFLeFKbEK`D }
frm:DivideJulibrot {; draws 4-D slices of DivideBrot Julibrots
pix=pixel, u=real(pix), v=imag(pix),
a=pi*real(p1*0.0055555555555556),
b=pi*imag(p1*0.0055555555555556),
g=pi*real(p2*0.0055555555555556),
d=pi*imag(p2*0.0055555555555556),
ca=cos(a), cb=cos(b), sb=sin(b), cg=cos(g),
sg=sin(g), cd=cos(d), sd=sin(d),
aa=real(p5)-2, bb=imag(p5)+0.00000000000000000001,
p=u*cg*cd-v*(ca*sb*sg*cd+ca*cb*sd),
q=u*cg*sd+v*(ca*cb*cd-ca*sb*sg*sd),
r=u*sg+v*ca*sb*cg, s=v*sin(a),
c=p+flip(q)+p3, z=r+flip(s)+p4:
z=sqr(z)/(z^(-aa)+bb)+c
|z| < 1000000 }
END PARAMETER FILE=========================================
|
times.
