Fractal of the Day
by Jim Muth
START PARAMETER FILE=======================================
Star_Nursery { ; time=0:08:09.33-SF5 on P4-2000
reset=2004 type=formula formulafile=basic.frm
formulaname=DivideJulibrot logmap=yes periodicity=10
center-mag=1.6021/13.942/5.9192/1.1171/-17.19328754\
94030064/-6.00330107850168204 passes=1 inside=bof60
params=86/0/86/0/-0.77/0/0/0/-1/1 maxiter=1500
float=y
colors=000zzzmszcfzUXmKShKNcK5AK0AK0AK4AP7JUCGYGDa\
KBcNJePPgQSiRVkRYmR`mRdmRemRemRfmRfmRgmQgmPfmNdmKb\
kJ`iIYgHVfGTeFSfDSh1Tj6WlBYnG`pIbrLetOgvRjxUlyXnvZ\
_sQLpI6mHCkGHhFMfERdDWaC`_BeYAjaDddG_gJVjMQmOLpRGs\
UBvX6yZ1tV3oR4kO6fK7aG8YDAT9BO5CK2EF0FB0GJ5`REuPCt\
NAtL8tJ6tH4tG3tccih_ZmWOrTEgYEYbENgEDkEHjIKiLNhORg\
SUfVXeY_d`ccdfbgiajl`mp_qsZtvYwyYztXypXxlXwhXvcXu_\
XtWWsSWrNWqJWpFWoBWn7WnAVlDUkFUjITiKThNSfPSeSRdVQc\
XQb_P`aP_dOZfOYiNXkNW`FUQ8SF0Q40P90NE1MI5LN9JRDIWG\
H_KGdOEhSDmWCqZBr_Fr_Is_Ls_Pt_St_Vt_Yu`TvaPvbLwbHx\
cCxd8ye4ye0nZ7dSDVLKLEQB8WDAVFBVGCVIDUJEULFUMGTOIT\
PJTRKSSLSUMSVNRXORYPR`MTcJVeHWhEYkB_m9`p6br4co5`l6\
Yi7Vg8Sd9Pa9MZAJXBGUCDRDAOE7ME5LE9KEDJEHIELHEPGETF\
EXEE`DEdCEhJMkPUnWaqaisaUkaFda0Y_1ZZ2_Y3_X4`W5aV5a\
U6bT7bS8cR9dQ9dPAeOBfNCfMDgLDgJCgICgHBgFBgEAgCAgB9\
gA9g88g78g57g47g13j37g5Ad }
frm:DivideJulibrot { ; Jim Muth (third version)
; 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.00000000000000000000001),
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.