Another Kerry Mitchell formula fractal.
Gif and jpg at the usual http://maxitersfractalfollies.blogspot.com
Steel Blue Curves { ; fract283.gif
; blank
; calctime 0:14:50.83
; created Jun 30, 2010
; Fractint Version 2004 Patchlevel 9
reset=2004 type=formula formulafile=kerrym.frm formulaname=km_12
center-mag=0.639399/0.290604/1.173709/1/15.0000000000000018/-3.778227730\
67748585e-014
params=-1.596484267708365/-0.3024384289071322/1.072847682119205/0.015808\
58790856655/-0.5392010254219184/-0.1369060335093234/-0.2313303018280587/\
0.7412945951719717 float=y maxiter=1500 inside=0
invert=0.644093142490921/-0.0506912442396313/-0.962157048249763
decomp=256 periodicity=0
colors=ELLFLLFMMGMMGNNHNNHOOIOOIPPJPPJPPKQQKQQLRRLRRMSSMSSNTTNTTOTTOUUPU\
UPVVQVVQWWRWWRXXSXXSXXTYYTYYUZZUZZV__V__W``W``W``XaaXaaYaaYaaYbbYbbZbbZb\
b_cc_cc`dd`ddaddaeebeebffcffcffdggdggehhehhfiifiigiigjjhjjhkkikkikkjlljl\
lkmmkmmlnnlnnmnnmoonoonppoppopppqqpqqqrrqrrrrrrssssssttttttuuuuuuuuvvvvv\
vwwwwwwwwwxxxxxxyyyyyyyyyxxxxxxwwwwwwvvvvvvuvvuuutuutttsttsttrssrssqrrqr\
rprrpqqoqqoppnppnoomoomoolnnlnnlmmkmmkmmjlljllikkikkhkkhjjgjjgiifiifiieh\
hehhdggdggcggcffbffbeeaeeaeeadd`dd`cc_cc_ccZbbZbbYaaYaaXaaX``W``W__V__VZ\
ZUZZUZZTYYTYYSXXSXXRXXRWWQWWQVVQVVPVVPUUOUUOTTNTTNTTMSSMSSLRRLRRKRRKQQJQ\
QJPPIPPIPPHOOHOOGNNGNNFNNFMMFMMELLELLDLLDKKCKKCJJBJJBIIAIIAII9HH9HH8GG8G\
G7GG7FF6FF6EE5EE5EE4DD4DD3CC3CC3CC2BB1BB1AA0AA0AA1BB1BB2CC2CC3DD3DD4DD4E\
E5EE5FF6FF6FF7GG7GG8HH8HH9HH9IIAIIAJJBJJBJJCKKCKKDLLDLL
}
frm:km_12 { ; Kerry Mitchell 11may98
;originally conic-near_jul2
;tweaked so user can directly input
; julia parameters (cc=p4) originally
; hardcoded to -2
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