[Fractint] MFRX194h

15 Nov 2012


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