comment { Carr2900.ufm Version 1.6 Ultra Fractal conversions of Robert Carr's formulas Carr2900 - Carr2999 by Erik Reckase / Lale Erguner, 12 December 2002 These formulas (and the parameters that go with them) are intended to provide a reasonable approximation to the behavior of the original Fractint formulas. The images will not be exactly the same! Roundoff error surely contributes to this inequality. History: Version 1.7 - Fixes for UF3 compatibility by Lale Erguner Version 1.6 - minor optimization tweaks, cleanup Version 1.5 - z=z*t workaround in Carr2992 Version 1.4 - Global optimization + hints Version 1.3 - Error in 2900 translation corrected Typo in 2976 fixed Version 1.2 - Modified whitesq code to eliminate warnings Version 1.1 - Fixed bug in Carr2998 Version 1.0 - Initial Release Original formulas pulled from _rc3.frm Carr2987 : missing Carr2955 : pixel fix Carr2927,2962-2964,2978, 2989,2990 : cosxx fix } Carr2900 {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: z=pixel^3-cabs(.1/(conj(.1/pixel)-sqr(sinh(.025/pixel))))^6-1 b4=c=pixel^9-(.1/(conj(.1/pixel)-|.0250/pixel|))^6 IF (@p3==0) c = -c, z = -z ELSEIF (@p3==2) IF (whitesq) c = -c, z = -z ENDIF ENDIF c = c + conj(.1/b4) k = .0035/21 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) c = c1, z = 0 ELSEIF (iter==l2) c = c2, z = 0 ELSEIF (iter==l3) c = c3, z = 0 ELSEIF (iter==l4) c = c4, z = 0 ENDIF z = z^2 + (-.7456,-.132) + c/10 - k/c c = z + c/2.125 + .009125 iter=iter+1 bailout: |z|<=bailout default: title = "Carr 2900" periodicity = 0 maxiter = 700 magn = 1.5 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) =.0001 default: title = "Carr 2907" periodicity = 0 maxiter = 700 magn = 1 center = (0,0) method = multipass param p1 caption = "Parameter 1" default = (.5,-.5) endparam param p2 caption = "Layer Option" enum = "Option 1" "Option 2" "Original" default = 2 hint = "Options 1 and 2 are the two separate layers of this \ formula. The 'Original' option uses the original \ PHC formula." endparam } Carr2908 (XYAXIS) {; Updated for UF2 by Erik Reckase, Feb 2000 ; Halley PHC init: z=pixel IF (@p2==1) z = 2*z^2 ELSEIF (@p2==2) IF (whitesq) z = 2*z^2 ENDIF ENDIF loop: z=(z-p1*((z^7-z)/((7*z^6-1)-(42*z^5)*(z^7-z)/(14*z^6-2)))) bailout: |z^7-z|>=.0001 default: title = "Carr 2908" periodicity = 0 maxiter = 700 magn = 1.2 center = (0,0) method = multipass param p1 caption = "Parameter 1" default = (.5,-.5) endparam param p2 caption = "Layer Option" enum = "Option 1" "Option 2" "Original" default = 2 hint = "Options 1 and 2 are the two separate layers of this \ formula. The 'Original' option uses the original \ PHC formula." endparam } Carr2909 {; Updated for UF2 by Erik Reckase, Feb 2000 ; Modified Sylvie Gallet frm. init: z=conj(pixel^7)*abs(pixel-.2)^2 c=cabs(pixel)-conj(.01/pixel) IF (@p3==0) c = -fn2(c), z = -fn2(z) ELSEIF (@p3==2) IF (whitesq) c = -fn2(c), z = -fn2(z) ENDIF ENDIF c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z k = (-.7456,-.132) ck = .0035/21 ct = c/10 - ck/c + 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 = c1/10 - ck/c1 + k, z = 0 ELSEIF (iter==l2) ct = c2/10 - ck/c2 + k, z = 0 ELSEIF (iter==l3) ct = c3/10 - ck/c3 + k, z = 0 ELSEIF (iter==l4) ct = c4/10 - ck/c4 + k, z = 0 ENDIF z = z*z + ct iter=iter+1 bailout: |z|<=bailout default: title = "Carr 2909" periodicity = 0 maxiter = 700 magn = 1.1 center = (0.01,0.01) method = multipass param p1 caption = "Iter Limits 1,2" default = (200,300) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) |oldz|) c = c*k ENDIF oldz = z z = z^2 + c bailout: |z|<=test default: title = "Carr 2925" periodicity = 0 maxiter = 700 magn = 1.2 center = (.2,0) method = multipass param p1 caption = "C Mult" default = (1.01,.035) endparam param p2 caption = "Bailout" default = (0,0) hint = "The imaginary part of this parameter is not used." endparam param p3 caption = "Layer Option" enum = "Option 1" "Option 2" "Original" default = 2 hint = "Options 1 and 2 are the two separate layers of this \ formula. The 'Original' option uses the original \ PHC formula." endparam } Carr2926 {; Updated for UF2 by Erik Reckase, Feb 2000 ; Modified inandout04, Brad Beacham init: k = p1 IF (|p1|<=0) k = k+1 ENDIF float rp2 = real(p2) IF (rp2<=0) float test = 4 ELSE float test = rp2 ENDIF b4=cabs(pixel*2)-log(conj(.5/pixel)) oldz=pixel-conj(pixel-1/log(tan(1/pixel))-1/log(2/pixel)) IF (@p3==1) c = conj(b4), z = sqr(oldz) ELSEIF (@p3==0) c = -sqr(b4), z = -conj(oldz) ELSE IF (whitesq) c = conj(b4), z = sqr(oldz) ELSE c = -sqr(b4), z = -conj(oldz) ENDIF ENDIF loop: IF (|z|>|oldz|) c = c*k ENDIF oldz = z z = z^2 + c bailout: |z|<=test default: title = "Carr 2926" periodicity = 0 maxiter = 700 magn = 6 center = (.3,0) method = multipass param p1 caption = "C Mult" default = (1.01,.035) endparam param p2 caption = "Bailout" default = (0,0) hint = "The imaginary part of this parameter is not used." endparam param p3 caption = "Layer Option" enum = "Option 1" "Option 2" "Original" default = 2 hint = "Options 1 and 2 are the two separate layers of this \ formula. The 'Original' option uses the original \ PHC formula." endparam } Carr2927 {; Updated for UF2 by Erik Reckase, Feb 2000 ; Modified Sylvie Gallet frm. init: b4=pixel*(1+pixel)/cos(pixel^3) b5=pixel*conj(sin(pixel^3)/conj(cos(1-pixel)))-conj(.1/pixel) IF (@p3==1) c = sqr(b4), z = sqr(b5) ELSEIF (@p3==0) c = -sqr(b4), z = -conj(b5) ELSE IF (whitesq) c = sqr(b4), z = sqr(b5) ELSE c = -sqr(b4), z = -conj(b5) ENDIF ENDIF 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) c = c1, z = 0 ELSEIF (iter==l2) c = c2, z = 0 ELSEIF (iter==l3) c = c3, z = 0 ELSEIF (iter==l4) c = c4, z = 0 ENDIF z = z^2 + c iter=iter+1 bailout: |z|<=bailout default: title = "Carr 2927" 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) =0, z = z^2 + ct + 0.125 ELSE z = z^2 + ct ENDIF iter=iter+1 bailout: real(z)<=bailout default: title = "Carr 2981" periodicity = 0 maxiter = 700 magn = .6 center = (-.3,0) method = multipass param p1 caption = "Iter Limits 1,2" default = (200,300) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) =0, z = z^2 + ct + 0.125 ELSE z = z^2 + ct ENDIF iter=iter+1 bailout: real(z)<=bailout default: title = "Carr 2983" periodicity = 0 maxiter = 700 magn = 1.3 center = (0,0) method = multipass param p1 caption = "Iter Limits 1,2" default = (200,300) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2)