carr2518tna{ ; Updated for UF by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. ; modified for UF3 by Ted Nason Feb 2004 astrolathe@comcast.net ; this formula was only modified to allow for the Julia switch ; and was not otherwise modified init: pixel2=-abs(real(pixel))+flip(imag(pixel)), m4=conj(.1/pixel) z=conj(sin(1/(imag(pixel2)+flip(real(pixel2-.224)*1.224))))-.6 c=tanh(sinh(1.5/(.224+.612*real(pixel2)+flip(abs(pixel2)))-m4)) c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z k = pixel2/imag(p2) + .001995 k2 = .15/pixel2 l1=round(real(p1)), l2=round(imag(p1)) l3=round(real(p2)), l4=round(imag(p2)) float bailout=16, int iter=0 loop: IF (iter==l1) z=-.09/c, c=c1 ELSEIF (iter==l2) z=-.09/c, c=c2 ELSEIF (iter==l3) z=-.09/c, c=c3 ELSEIF (iter==l4) z=-.09/c, c=c4 ELSE z=z-.09/c ENDIF c = c + k z = .2*real(z^2)*z + z^2 + c - k2 iter=iter+1 bailout: |real(z)| <= bailout default: title = "carr2518tna" maxiter = 500 magn = .08 center = (0,-1) periodicity = 0 method = multipass helpfile = "http://www.astrolathe.com/formulas.htm" param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2)