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-------------------------------------------------------