Hi,
I?m presenting this image because it has a story.
About 10 years ago, when I did not think about
my multifractal project, I was experimenting
and testing combinations of formulas. The results
later partly went into the project. As I always
was in a hurry the image was not finished and the
experiments went on. Later, when I looked at it
I saw that the Many-mods holes contained small
fractal images which you could zoom into. But
the data were lost and I couldn?t finish it, but
always kept it.
Just lately, cleaning up my working folder, I stumbled
on some old experimental formulas, tested them
and voila! one was the correct one.
So here it is.
Albrecht
----------------------------------start-par-------------------------------
MFRX194h { ; An_early_Wonder
; Time 27.48 1600/1200
; Multifrac_236
reset=2004 type=formula formulafile=mfr.frm
formulaname=multifrac_236 ismand=y
function=exp/exp/exp passes=t
center-mag=-1.19904e-014/1.59872e-014/0.3704381
params=0.4546494949186682/-0.6008903775139622/384.\
0001/256.512/2084.0008/768.256/768.1536/2560.1025/\
-4/2 float=y maxiter=2048 inside=maxiter
outside=tdis logmap=3 periodicity=0
rseed=-2436
colors=20009C<19>0bo0cq0es<3>0kz<25>09C08A068<2>02\
2000211<22>keOmgPoiQqjRslSunT<2>zsX<25>CB7A96875<3\
>000400<23>o00q00s00<3>z00<25>C00A00800<3>000<23>e\
eegggiiijjjlllnnn<2>sss<18>NNNLLLJJJ<3>DDDCCCAAA<3\
>222000022<3>08A
}
frm:multifrac_236 {
;
d=real(p2)
fac1=trunc(d)
b1=(d-fac1)*10000
;
d=imag(p2)
mi1=trunc(d)
p6r=trunc((d-out1)*10000)
if (mi1<0)
mi1=-mi1
endif
;
d=real(p3)
ba=trunc(d)
p6i=trunc((d-ba)*10000)
if (ba<0)
ba=-ba
endif
p6=p6r,p6i
;
d=imag(p3)
fac2=trunc(d)
b2=(d-fac2)*10000
;
d=real(p4)
mi2=trunc(d)
fac3=trunc((d-mi2)*10000)
;
d=imag(p4)
b3=trunc(d)
mi3=trunc((d-b3)*10000)
;
d=real(p5)
vb=(d<0)
If (vb)
d=-d
endif
d1=trunc(d)
d=trunc((d-d1)*100)
ab1=(d==10)+(d==11)
ab=(d==1)+(d==11)
ir1=(d1>1000)
d1=d1-1000*ir1
wo=(d1>100)
d1=d1-100*wo
tj=(d1<10)
d1=d1-10*(tj==0)
v1=(d1==3)
v2=(d1==4)
d1=(d1==2)+(d1==4)
;
d=imag(p5)
st=(d<0)
if (st)
d=-d
endif
d2=trunc(d)
ab2=((d-d2)>0)
ir2=(d2>1000)
d2=d2-1000*ir2
ni=2*(d2>100)
st=st*(ni==0)
d2=d2-50*ni
mj=(d2<10)
d2=d2-10*(mj==0)
v3=(d2==3)
v4=(d2==4)
d2=(d2==2)+(d2==4)
d3=(ismand==0)
t=0
u=1
bx=ba
start=2-st-ni
if (ismand)
z=0
if (vb)
c=0.4*log(sqr(pixel^p6i))
else
c=pixel
endif
else
c=p1
z=pixel
endif
:
ba=bx
if (vb)
if (d3)
z=(z*z-real(c))^(z*u+imag(c))
else
z2=sin(z)+c
sqz2=cos(z2)
z=c*(1-sqz2)/(1+sqz2)
ba=p6
endif
else
if (ab)
q=sqr(z)
z=real(q)+flip(real(z*q))+c
else
z=z*z+c
endif
endif
bo=|z|
If (wo)
t=t+1
if ((t<mi1)+(bo>b1))
u=2*(fn1(t/fac1))
if (ismand)
z=z*u
c=pixel
if (vb)
c=0.4*log(sqr(pixel^p6i))
endif
else
z=pixel
c=p1*u
endif
wo=0
if (ir1)
t=0
endif
endif
else
if (start)
t=t+1
if (start==2)
if ((t>mi2)+(bo>b2))
u=2*(fn2(t/fac2))
ab=ab1
if (d1)
if (tj)
z=pixel
endif
c=p1*u
vb=v2
d3=vb
else
d3=0
z=z*u
c=z
if (mj)
z=0
endif
vb=v1
if (vb)
p6=mi2,p6i
c=0.4*log(sqr(pixel^p6i))
endif
endif
start=1
if (ir2)
t=0
endif
endif
else
if ((t>mi3)+(bo>b3))
u=2*(fn3(t/fac3))
ab=ab2
if (d2)
if (tj)
z=pixel
endif
c=p1*u
vb=v4
d3=vb
else
d3=0
z=z*u
c=z
if (mj)
z=0
endif
vb=v3
if (vb)
p6=mi3,p6i
c=0.4*log(sqr(pixel^p6i))
endif
endif
start=0
endif
endif
endif
endif
bo<=ba
}
------------------------------------------------end-------------------------------------------------------
