[Fractint] Threaded Julia

4 Nov 2010


      Today's post is another formula by Kerry Mitchell based on the Julia iteration loop.
Gif and jpg version available at http://maxitersfractalfollies.blogspot.com

Threaded Julia       { ; fract499.gif another Julia iteration loop fractal
                     ; blank
                     ; calctime   0:05:22.08
                     ; created Nov 04, 2010
                     ;  Fractint Version 2004 Patchlevel 10
  reset=2004 type=formula formulafile=kerrym.frm formulaname=km_08
  center-mag=-0.730914/0.135225/2.109705
  params=0.5243385113071077/0.07968382824182867/-0.8776207770012513/-0.809\
  0762047181616/-0.5746330149235511/0.3112582781456953/-0.8414868617816705\
  /0.2847071749015778 float=y maxiter=1500 inside=0 decomp=256
  periodicity=0
  colors=000734633523422312211101000000100200311411512612723823924A34B35B3\
  5C46D46E46F47G57H58I58J69K69L6AM6AN7BO7BP7BQ8CR8CS8DT9DU9EU9EV9FWAFXAGYA\
  GZBH_BH`BHaCIbCIcCJdCJeDKfDKgDLhELiEMjEMkEMlFNlFNmFOnGOoGPpGPqHQrHQsHRtH\
  RuISvISwJTwJTwKUwLVwLVwMWwNWwNXwOXwPYwQYwQZwRZxS_xS_xT`xU`xUaxVbxWbxWcxX\
  cxYdxZdxZex_ex`fx`fxagxbgxbhxchxdiyejyejyfkygkyglyhlyimyimyjnyknykoyloym\
  pynpynqyoqyprypsyqsyrtyrtzsuztuztvzuvzvwzwwzwxzxxzyyzyyzzzzzzzyyzxxzxxzw\
  wzvwzvvzuvztuztuzstzrtzqszqszprzorzoqynqympympyloykoyknyjnyimyimyhlyglyg\
  kyfkyejyejydiychybhybgyagy`fy`fy_eyZeyZdyYdyXcyXcyWbyVbxVaxUaxT`xT`xS_xR\
  _xQZxQZxPYxOYxOXxNXxMWxMWxLVxKUwJTvJTuJTtISsISrIRqIRpHQoHQnHPnGPmGOlGOkF\
  NjFNiFNhFMgEMfELeELdDKcDKbDJaCJ`CI_CIZCHYBHYBHXBGWAGVAFUAFTAES9ER9DQ9DP8\
  CO8CN8BM7BL7AK7AJ7AI69H69H68G58F57E57D46C46B45A45934834
  }
frm:km_08 { ; Kerry Mitchell 11may98
        ; originally conic-near_jul16
        ; tweaked by rjr 2k04 to allow user to directly input
        ; julia parameters previously hardcoded to 0.2882,0.0106
        cc=p4, zc=pixel, maxr=1e12, minr=maxr, iter=1
        a=real(p1), b=imag(p1), c=real(p2), d=imag(p2)
        e=real(p3), f=imag(p3):
        iter=iter+1, zc=sqr(zc)+cc, x=real(zc), y=imag(zc)
        conic=|x*(a*x+b)+y*(c*y+d)+e*x*y+f|
        if (conic<minr)
          minr=conic
          end if
        if ((|zc|>maxr)||(iter==maxit))
          iter=-1
          t=log(minr)
          z=cos(t)+flip(sin(t))
          end if
        iter>0
        }
Roger Alexander