comment { Carr3000.ufm Version 1.7 Ultra Fractal conversions of Robert Carr's formulas Carr3000 - Carr3099 by Erik Reckase, February 29, 2000 History: Version 1.7 - minor optimization tweaks, cleanup Version 1.6 - z=z*t workaround in Carr3015-3017,3028-3030 Version 1.5 - major optimization overhaul fixed bugs in two formulae Version 1.4 - fixed typos in 3039,3083,3084,3085 Version 1.3 - Modified whitesq code to eliminate warnings Version 1.2 - Fixed bug in Carr3095 Version 1.1 - Fixed errors in last 3 formulas Respaced whitesq lines Version 1.0 - Initial Release Original formulas pulled from _rc3.frm Carr3005,3009,3010,3012, 3014,3036,3054-3086, 3088-3099 : pixel fix Carr3037,3065,3067,3084 : cosxx fix } Carr3000 {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. [101324,3444],1996 init: c=pixel-conj(.01/pixel-flip(.001/pixel)) z=conj(pixel)-flip(.01/pixel)-conj(.001/pixel)-conj(.001/c)-.1 IF (@p3==0) c = -c, z = -z ELSEIF (@p3==2) IF (whitesq) c = -c, z = -z ENDIF ENDIF c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z k = (.3,.525) ct = flip(conj(c/10)) - k 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) ct = flip(conj(c1/10)) - k, z = 0 ELSEIF (iter==l2) ct = flip(conj(c2/10)) - k, z = 0 ELSEIF (iter==l3) ct = flip(conj(c3/10)) - k, z = 0 ELSEIF (iter==l4) ct = flip(conj(c4/10)) - k, z = 0 ENDIF z = z^2 + ct iter=iter+1 bailout: real(z)<=bailout default: title = "Carr 3000" periodicity = 0 maxiter = 700 magn = 1.3 center = (.1,0) method = multipass param p1 caption = "Iter Limits 1,2" default = (200,300) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2)