The formula name and appearance of today's fractal suggests both the inside and outside coloring is a derivative of the bof algorithm but I'm no mathematician. Ready made at http://maxitersfractalfollies.blogspot.com fract336.gif { ; blue mandelbrot ; blank ; calctime 0:42:38.10 ; created Jul 30, 2010 ; Fractint Version 2004 Patchlevel 9 reset=2004 type=formula formulafile=bof.frm formulaname=bof60_man center-mag=-0.15835464320625550/+1.03421851368970000/64.10256 params=64/0 float=y maxiter=3500 inside=0 decomp=256 periodicity=0 cyclerange=0/255 colors=0Qk0Qj0Pj0Oi0Oi0Ni0Nh0Mh0Lg0Lg0Kg0Jf0Jf0Ie0Ie0He0Gd0Gd0Fc0Fc0Eb0D\ b0Db0Ca0Ca0B`0A`0A`09_08_08Z07Z07Z06Y05Y05X04X04X03W02W02V01V00U01V03W05\ X07Y09Z0A_0C`0Ea0Gb0Ic0Kd0Le0Nf0Pg0Rh0Ti0Vj0Wk0Yl0_m0an0co0ep0fq0hr0js0l\ t0nu0pv0rw0qw0ov0mu0lt0js0hr0fq0ep0co0an0`m0Zl0Xk0Vj0Ui0Sh0Qh0Pg0Nf0Le0J\ d0Ic0Gb0Ea0D`0B_09Z07Y06X04W02V00U00U00T00S00R00Q00P00O00O00N00M00L00K00\ J00I00H00H00G00F00E00D00C00B00A00A00B00C00D00E00F00F00G00H00I00J00K00K00\ L00M00N00O00P00P00Q00R00S00T00U01V03W05X06Y08Z0A_0B`0Da0Fc0Gd0Ie0Kf0Lg0N\ h0Pi0Qj0Sk0Um0Vm0Xn0Zo0`o0bp0cq0er0gr0is0kt0mt0nu0pv0rw0tw0vx0xy0zz0zz0y\ z0yz0xz0xy0wy0wy0vy0vy0ux0ux0tx0tx0sx0sw0rw0qw0qw0pw0pv0ov0ov0nv0nu0mu0m\ u0lu0lu0kt0kt0jt0it0it0hs0hs0gs0gs0fs0fr0er0er0dr0dq0cq0cq0bq0aq0ap0`p0`\ p0_p0_p0Zo0Zo0Yo0Yo0Xo0Xn0Wn0Wn0Vn0Um0Um0Tm0Tl0Sl0Rk0Rk } frm:bof60_man {; Kerry Mitchell 04feb98 ; ; records the iterate which is closest to the origin ; and colors by (the log of) its magnitude ; Mandelbrot variation ; ; real(p1) = bailout (try 4) ; calculation performed on variable zc, z used for coloring ; use decomp=256 ; zc=0, c=pixel, iter=1, r=|zc| maxr=real(p1), minr=maxr: iter=iter+1, zc=sqr(zc)+c, r=|zc| ; ; check to see if iterate is closer to origin ; if so, remember this minimum distance ; IF (r<minr) minr=r ENDIF ; ; bailout--escape or maximum iterations ; set "iteration done" flag (iter-1) ; take log of minimum distance, use as angle for ; decomp coloring ; IF ((r>maxr)||(iter==maxit)) iter=-1 angle60=log(minr) z=cos(angle60)+flip(sin(angle60)) ENDIF iter>0 ;SOURCE: bof.frm } Roger Alexander _________________________________________________________________ Learn more ways to connect with your buddies now http://go.microsoft.com/?linkid=9734388
participants (1)
-
Roger Alexander