comment { Carr3100.ufm Version 1.6 Ultra Fractal conversions of Robert Carr's formulas Carr3100 - Carr3199 by Erik Reckase / Lale Erguner, December 12, 2002 History: Version 1.6 - Fixes for UF3 compatibility by Lale Erguner Version 1.5 - Minor optimization tweaks + cleanup Version 1.4 - z=z*t workaround in 3115 Version 1.3 - global optimization + hints fixed layer bug in 3148-3190 Can further optimize the following formulas : 3115 : remove t dependency Version 1.2 - Modified whitesq code to eliminate warnings Version 1.1 - Fixed bug in Carr3102 Version 1.0 - Initial Release Original formulas pulled from _rc3.frm 43aCarr.frm 43bCarr.frm 43cCarr.frm Carr3100-3199 : pixel fix Carr3103,3113,3114,3184, 3192,3199 : cosxx fix Carr3102 : missing iter=iter+1 } Carr3100 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: pixel2=-abs(real(pixel))+flip(imag(pixel)) b3=conj(.13/pixel2)+flip(.1/pixel2), c=(-.7456,.2) z=flip(cabs(pixel2))*cabs(pixel2^2)+tan(.1/pixel2) \ -sin(.1/pixel2)-b3 IF (@p3==0) c = -c, z = -z ELSEIF (@p3==2) IF (whitesq) c = -c, z = -z ENDIF ENDIF co1 = (-.7456,-.132) ct1 = |c/9|^2 + co1 ct2 = .0025*(c*2/3 + co1) c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z 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) ct1 = |c1/9|^2 + co1, ct2 = .0025*(c1*2/3 + co1), z = 0 ELSEIF (iter==l2) ct1 = |c2/9|^2 + co1, ct2 = .0025*(c2*2/3 + co1), z = 0 ELSEIF (iter==l3) ct1 = |c3/9|^2 + co1, ct2 = .0025*(c3*2/3 + co1), z = 0 ELSEIF (iter==l4) ct1 = |c4/9|^2 + co1, ct2 = .0025*(c4*2/3 + co1), z = 0 ENDIF z = .9975*z^2 - .0005*z^3 + ct1 - ct2 iter=iter+1 bailout: |z|<=bailout default: title = "Carr 3100" periodicity = 0 maxiter = 700 magn = 1.5 center = (0,.1) method = multipass param p1 caption = "Iter Limits 1,2" default = (200,300) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2)