Fractal of the Day
by Jim Muth
real(C) and imag(C) = Mandelbrot aspect real(Z) and imag(Z) = Julia aspect imag(C) and real(Z) = Oblate aspect real(C) and real(Z) = Parabolic aspect real(C) and imag(Z) = Elliptic aspect imag(C) and imag(Z) = Rectangular aspectThe names of the four additional aspects are my own invention.
START PARAMETER FILE=======================================
Seahorse_Valley-01 { ; time=3:09:55.05-SF5 on P4-2000
reset=2004 type=formula formulafile=basic.frm
formulaname=SliceJulibrot4 passes=1 maxiter=3500000
center-mag=0/0/0.862069 float=y inside=0 logmap=yes
params=90/0/89.99/90/-0.75/0/0/0/2/0 symmetry=yaxis
periodicity=none
colors=000HazJczLezNgzPizRjzTkzVmzXnzZoz`qzbszduzf\
wzhzzjzzlzznzzpzzrzztzzvzzxzzzzzzzzzvzzrzzmzzhzzcz\
zZzOj_NibMidLifKihJhkIhmHhoGhqFgtEgvDgxCgzIfuOepTd\
kZdfccaibXnbTi`Vd_X_YZVX__YZdZZi_Zn`ZsaZwbZtYRqUJn\
QCpVKqZRrbYsgdtkkuorrmmpkinjdlh`jgXdi_ZjaTkcNmfHnh\
Boj6pl7mk8jk8gj9ejAbjA_iBYiBVhCShDQhDNgEKgEIgILiLN\
jOPkRRlUTmXWn_YoNfLcfZtfkp`lmWliQlfLlbGl_AlW5lT0lQ\
6nOBpLGqJMsGRtEWvC`wFdqHgkJjfLm`OpVQsQSvKUyFTuKTqP\
SmTSiYReaRafRZjPWhNTfLQdKNbIK`GIZEFXDCVB9T96R73P61\
O76R8BU8GX9L_9QbAUeBZhBckChnCmqDrtDvvFruHotJksLhrN\
dqPapRYoSVnUSmWPlYMk_JjaDicAhd7g`CeYHdULcRQbNUaKZ`\
HcZDgYAlX6rW3xV0zU2xS3tR4pP5mO6jM7gL8eJAbIB_GCXFDU\
DERCFOAGM9KPBORCSTDWWE_YFc_GgaHkdIofJshKvjLulOumQu\
nTuoVupYuq_trbtsdttgtuitvltwnnxmiymczlczlczlczkczk\
czjczjczjczkczlhzlmzmrzmvznzznzzozzpzzpzzqzzqzzrzz\
rzzizz`zzSzzJzzBzzIzzOzzU }
frm:SliceJulibrot4 {; draws most slices of Julibrot
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),
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=z^(p5)+c
|z| <= 9 }
END PARAMETER FILE=========================================
times.