comment { Carr2700.ufm Version 1.4 Ultra Fractal conversions of Robert Carr's formulas Carr2700 - Carr2799 by Erik Reckase, 15 February 2000 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. PHC/PTC Formulas start at Carr2729 History: Version 1.4 - Minor optimization tweaks and cleanup Version 1.3 - Global optimization and hints Version 1.2 - Modified whitesq code to eliminate warnings Version 1.1 - Added 'Original' functionality to 'Layer Option' to reproduce original fractal exactly Fixed translation error in Carr2735 Version 1.0 - Initial Release Original formulas pulled from _rc2.frm Carr2200-2735, 2743-2798 : pixel fix Carr2707,2708 : lines out of order Carr2720,23,24,25,34,35 2759,90 : cosxx fix } Carr2700 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: pixel2=-abs(real(pixel))+flip(imag(pixel)) z=conj(flip(pixel2/3))-|conj(pixel2)^3| b3=|1/acos(pixel2^30.5)|, b4=|2*z^10| c=.15/log(exp(pixel2^450-b3-.4)-.8)+b4 c1=1.75*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z l1=round(real(p1)),l2=round(imag(p1)) l3=round(real(p2)),l4=round(imag(p2)),int l5=300 float bailout=16,int iter=0, float zro=0 zmod = .3 - .03/pixel2 zmod2 = .17/pixel2 cmod = pixel2/imag(p2) + .0048095 loop: IF (iter==l1) c = c1, z = z*zro ELSEIF (iter==l2) c = c2, z = z*zro ELSEIF (iter==l3) c = c3, z = z*zro ELSEIF (iter==l4) c = c4, z = z*zro ELSEIF (iter==l5) c = c5, z = z*zro ENDIF c = c + cmod z = (z+zmod)^2 + c + zmod2 iter=iter+1 bailout: |real(z)|<=bailout default: title = "Carr 2700" periodicity = 0 maxiter = 500 magn = 1.3 center = (0,.001) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam param p2 caption = "Iter Limits 3,4" default = (200,250) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam } Carr2701 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: pixel2=-abs(real(pixel)+flip(imag(pixel))) z=flip(imag(pixel2/2.5))-conj(.1/pixel2)-.2 b3=|cos(pixel2^30.5)|, b4=|2*z^4| c=.15/log(exp(pixel2^450-b3-.4)-.8)+b4*b3 c1=1.75*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z l1=round(real(p1)),l2=round(imag(p1)) l3=round(real(p2)),l4=round(imag(p2)),int l5=300 float bailout=16,int iter=0, float zro = 0 zmod = .3 - .03/pixel2 cmod = pixel2/imag(p2) + .0048095 zmod2 = .28/pixel2 loop: IF (iter==l1) c = c1, z = z*zro ELSEIF (iter==l2) c = c2, z = z*zro ELSEIF (iter==l3) c = c3, z = z*zro ELSEIF (iter==l4) c = c4, z = z*zro ELSEIF (iter==l5) c = c5, z = z*zro ENDIF c = c + cmod z = (z+zmod)^2 + c + zmod2 iter=iter+1 bailout: |real(z)|<=bailout default: title = "Carr 2701" periodicity = 0 maxiter = 500 magn = 1.3 center = (0,.001) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam param p2 caption = "Iter Limits 3,4" default = (200,250) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam } Carr2702 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: pixel2=-abs(real(pixel))+flip(imag(pixel)) z=flip(conj(pixel2/2.5))+.01/exp(flip(imag(.1/pixel2)))-.2 b3=|cos(pixel2^30.5)|, b4=|2*z^4| c=.15/log(exp(pixel2^450-b3-.4)-.8)+b4 c1=1.75*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z l1=round(real(p1)),l2=round(imag(p1)) l3=round(real(p2)),l4=round(imag(p2)),int l5=300 float bailout=16,int iter=0, float zro=0 zmod = .2 - .03/pixel2 cmod = pixel2/imag(p2) + .0038095 zmod2 = .15/pixel2 loop: IF (iter==l1) c = c1, z = z*zro ELSEIF (iter==l2) c = c2, z = z*zro ELSEIF (iter==l3) c = c3, z = z*zro ELSEIF (iter==l4) c = c4, z = z*zro ELSEIF (iter==l5) c = c5, z = z*zro ENDIF c = c + cmod z = (z+zmod)^2 + c + zmod2 iter=iter+1 bailout: |real(z)|<=bailout default: title = "Carr 2702" periodicity = 0 maxiter = 500 magn = 1.3 center = (.001,.001) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam param p2 caption = "Iter Limits 3,4" default = (200,250) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam } Carr2703 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: pixel2=-abs(real(pixel))+flip(imag(pixel)) z=abs(flip(pixel2/2.5))+.01/exp(flip(imag(.1/pixel2)))-.2 b3=|cos(pixel2^30.5)|, b4=|2*z^4| c=.15/log(exp(pixel2^750-b3-.4)-1.5)+b4 c1=1.75*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z l1=round(real(p1)),l2=round(imag(p1)) l3=round(real(p2)),l4=round(imag(p2)),int l5=300 float bailout=16,int iter=0, float zro=0 zmod = .2 - .03/pixel2 cmod = pixel2/imag(p2) + .0068095 zmod2 = .19/pixel2 loop: IF (iter==l1) c = c1, z = z*zro ELSEIF (iter==l2) c = c2, z = z*zro ELSEIF (iter==l3) c = c3, z = z*zro ELSEIF (iter==l4) c = c4, z = z*zro ELSEIF (iter==l5) c = c5, z = z*zro ENDIF c = c + cmod z = (z+zmod)^2 + c + zmod2 iter=iter+1 bailout: |real(z)|<=bailout default: title = "Carr 2703" periodicity = 0 maxiter = 500 magn = 1.3 center = (.001,.001) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam param p2 caption = "Iter Limits 3,4" default = (200,250) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam } Carr2704 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: pixel2=-abs(real(pixel))+flip(imag(pixel)) z=pixel2^6-(atan(1/pixel2)-cabs(acos(2/pixel2)))^-6-.09 b3=|cos(pixel2^30.5)|, b4=|2*z^4| c=0.15/log(exp(pixel2^750-b3-0.4)-1.5)+b4 c1=1.75*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z l1=round(real(p1)),l2=round(imag(p1)) l3=round(real(p2)),l4=round(imag(p2)),int l5=300 float bailout=16,int iter=0, float zro=0 zmod = .1 - .03/pixel2 cmod = pixel2/imag(p2) + .0068095 zmod2 = .16/pixel2 loop: IF (iter==l1) c = c1, z = z*zro ELSEIF (iter==l2) c = c2, z = z*zro ELSEIF (iter==l3) c = c3, z = z*zro ELSEIF (iter==l4) c = c4, z = z*zro ELSEIF (iter==l5) c = c5, z = z*zro ENDIF c = c + cmod z = (z+zmod)^2 + c + zmod2 iter=iter+1 bailout: |real(z)|<=bailout default: title = "Carr 2704" periodicity = 0 maxiter = 500 magn = 1.3 center = (.001,.001) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam param p2 caption = "Iter Limits 3,4" default = (200,250) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam } Carr2705 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: pixel2=-abs(real(pixel))+flip(imag(pixel)) z=conj(flip(pixel2))^6 \ -(acos(1/pixel2)-abs(atan(2/pixel2)))^-6-.1 b3=|cos(pixel2^30.5)|, b4=|2*z^4| c=.15/log(exp(pixel2^750-b3-.4)-1.5)+b4 c1=1.75*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z l1=round(real(p1)),l2=round(imag(p1)) l3=round(real(p2)),l4=round(imag(p2)),int l5=300 float bailout=16,int iter=0, float zro=0 zmod = .1 - .03/pixel2 cmod = pixel2/imag(p2) + .0052095 zmod2 = .16/pixel2 loop: IF (iter==l1) c = c1, z = z*zro ELSEIF (iter==l2) c = c2, z = z*zro ELSEIF (iter==l3) c = c3, z = z*zro ELSEIF (iter==l4) c = c4, z = z*zro ELSEIF (iter==l5) c = c5, z = z*zro ENDIF c = c + cmod z = (z+zmod)^2 + c + zmod2 iter=iter+1 bailout: |real(z)|<=bailout default: title = "Carr 2705" periodicity = 0 maxiter = 500 magn = 1.3 center = (.001,.001) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam param p2 caption = "Iter Limits 3,4" default = (200,250) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam } Carr2706 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: pixel2=-abs(real(pixel))+flip(imag(pixel)) z=conj(flip(pixel2))^2 \ -(acos(1/pixel2)-abs(atan(2/pixel2)))^-10-.1 b3=|cos(pixel2^30.5)|, b4=|2*z^4| c=.15/log(exp(pixel2^750-b3-.4)-1.5)+b4 c1=1.75*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z l1=round(real(p1)),l2=round(imag(p1)) l3=round(real(p2)),l4=round(imag(p2)),int l5=300 float bailout=16,int iter=0, float zro=0 zmod = .1 - .03/pixel2 cmod = pixel2/imag(p2) + .0052095 zmod2 = .16/pixel2 loop: IF (iter==l1) c = c1, z = z*zro ELSEIF (iter==l2) c = c2, z = z*zro ELSEIF (iter==l3) c = c3, z = z*zro ELSEIF (iter==l4) c = c4, z = z*zro ELSEIF (iter==l5) c = c5, z = z*zro ENDIF c = c + cmod z = (z+zmod)^2 + c + zmod2 iter=iter+1 bailout: (|real(z)|)<=bailout default: title = "Carr 2706" periodicity = 0 maxiter = 500 magn = 1.3 center = (.001,.001) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam param p2 caption = "Iter Limits 3,4" default = (200,250) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam } Carr2707 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: pixel2=-abs(real(pixel))+flip(imag(pixel)) c=conj(flip(pixel2))^2 \ -.5/(acos(1/pixel2)-abs(atan(0.2/pixel2)))^10-.1 b3=|cos(pixel2^30.5)|, b4=|2*c^4| z=0.15/log(exp(pixel2^750-b3-0.4)-1.5)+b4 c1=1.75*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z l1=round(real(p1)),l2=round(imag(p1)) l3=round(real(p2)),l4=round(imag(p2)),int l5=300 float bailout=16,int iter=0, float zro=0 zmod = .1 - .03/pixel2 cmod = pixel2/imag(p2) + .0030095 zmod2 = .1/pixel2 loop: IF (iter==l1) c = c1, z = z*zro ELSEIF (iter==l2) c = c2, z = z*zro ELSEIF (iter==l3) c = c3, z = z*zro ELSEIF (iter==l4) c = c4, z = z*zro ELSEIF (iter==l5) c = c5, z = z*zro ENDIF c = c + cmod z = (z+zmod)^2 + c + zmod2 iter=iter+1 bailout: (|real(z)|)<=bailout default: title = "Carr 2707" periodicity = 0 maxiter = 500 magn = 1.3 center = (.001,.001) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam param p2 caption = "Iter Limits 3,4" default = (200,250) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam } Carr2708 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: pixel2=-abs(real(pixel))+flip(imag(pixel)) c=cotanh(.3-pixel2)*pixel/2-log(conj(.1/pixel2+.25))^-12.5 b3=|cos(pixel2^30.5)|, b4=|2*c^4| z=.15/log(exp(pixel2^750-b3-.4)-1.5)+b4 c1=1.75*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z l1=round(real(p1)),l2=round(imag(p1)) l3=round(real(p2)),l4=round(imag(p2)),int l5=300 float bailout=16,int iter=0, float zro=0 zmod = -.03/pixel2 cmod = pixel2/imag(p2) + .0030095 zmod2 = -.1/pixel2 loop: IF (iter==l1) c = c1, z = z*zro ELSEIF (iter==l2) c = c2, z = z*zro ELSEIF (iter==l3) c = c3, z = z*zro ELSEIF (iter==l4) c = c4, z = z*zro ELSEIF (iter==l5) c = c5, z = z*zro ENDIF c = c + cmod z = (z+zmod)^2 + c + zmod2 iter=iter+1 bailout: |real(z)|<=bailout default: title = "Carr 2708" periodicity = 0 maxiter = 500 magn = 1.3 center = (.001,.001) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam param p2 caption = "Iter Limits 3,4" default = (200,250) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam } Carr2709 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: pixel2=-abs(real(pixel))+flip(imag(pixel)) c=flip(abs(pixel2/2)/flip(cabs(pixel2)))+.1 b3=|cos(pixel2^30.5)|, b4=|2*c^4| z=.15/log(exp(pixel2^750-b3-.4)-1.5)+b4 c1=1.75*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z l1=round(real(p1)),l2=round(imag(p1)) l3=round(real(p2)),l4=round(imag(p2)),int l5=300 float bailout=16,int iter=0, float zro=0 zmod = -.03/pixel2 cmod = pixel2/imag(p2) + .0002095 zmod2 = .15/pixel2 loop: IF (iter==l1) c = c1, z = z*zro ELSEIF (iter==l2) c = c2, z = z*zro ELSEIF (iter==l3) c = c3, z = z*zro ELSEIF (iter==l4) c = c4, z = z*zro ELSEIF (iter==l5) c = c5, z = z*zro ENDIF c = c + cmod z = (z+zmod)^2 + c + zmod2 iter=iter+1 bailout: |real(z)|<=bailout default: title = "Carr 2709" periodicity = 0 maxiter = 500 magn = 1.3 center = (.001,.001) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam param p2 caption = "Iter Limits 3,4" default = (200,250) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam } Carr2710 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: pixel2=-abs(real(pixel))+flip(imag(pixel)) c=pixel2/cabs(.3/pixel), b3=|cos(pixel2^30.5)|, b4=|2*c^4| z=.15/log(exp(pixel2^750-b3-.4)-1.5)+b4 c1=1.75*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z l1=round(real(p1)),l2=round(imag(p1)) l3=round(real(p2)),l4=round(imag(p2)),int l5=300 float bailout=16,int iter=0, float zro=0 zmod = -.03/pixel2 cmod = pixel2/imag(p2) + .0002095 zmod2 = .15/pixel2 loop: IF (iter==l1) c = c1, z = z*zro ELSEIF (iter==l2) c = c2, z = z*zro ELSEIF (iter==l3) c = c3, z = z*zro ELSEIF (iter==l4) c = c4, z = z*zro ELSEIF (iter==l5) c = c5, z = z*zro ENDIF c = c + cmod z = (z+zmod)^2 + c + zmod2 iter=iter+1 bailout: |real(z)|<=bailout default: title = "Carr 2710" periodicity = 0 maxiter = 500 magn = 1.3 center = (.001,.001) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam param p2 caption = "Iter Limits 3,4" default = (200,250) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam } Carr2711 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: pixel2=-abs(real(pixel))+flip(imag(pixel)) c=conj(pixel^2)-1/log(pixel2-conj(.1/pixel)/flip(.01/pixel2))+.3 b3=|cos(pixel2^30.5)|, b4=|2*c^4| z=.15/log(exp(pixel2^750-b3-.4)-1.5)+b4 c1=1.75*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z l1=round(real(p1)),l2=round(imag(p1)) l3=round(real(p2)),l4=round(imag(p2)),int l5=300 float bailout=16,int iter=0, float zro=0 zmod = -.03/pixel2 cmod = pixel2/imag(p2) + .0002095 zmod2 = .18/pixel2 loop: IF (iter==l1) c = c1, z = z*zro ELSEIF (iter==l2) c = c2, z = z*zro ELSEIF (iter==l3) c = c3, z = z*zro ELSEIF (iter==l4) c = c4, z = z*zro ELSEIF (iter==l5) c = c5, z = z*zro ENDIF c = c + cmod z = (z+zmod)^2 + c + zmod2 iter=iter+1 bailout: |real(z)|<=bailout default: title = "Carr 2711" periodicity = 0 maxiter = 500 magn = 1.3 center = (.001,.001) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam param p2 caption = "Iter Limits 3,4" default = (200,250) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam } Carr2712 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: pixel2=-abs(real(pixel))+flip(imag(pixel)) c=|pixel2^2|-1/log(pixel2-conj(.1/pixel2)/flip(.01/pixel2))+.3 b3=|cos(pixel2^30.5)|, b4=|2*c^4| z=.15/log(exp(pixel2^750-b3-.4)-1.5)+b4 c1=1.75*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z l1=round(real(p1)),l2=round(imag(p1)) l3=round(real(p2)),l4=round(imag(p2)),int l5=300 float bailout=16,int iter=0, float zro=0 zmod = -.2 -.02/pixel2 cmod = pixel2/imag(p2) + .0001095 zmod2 = .18/pixel2 loop: IF (iter==l1) c = c1, z = z*zro ELSEIF (iter==l2) c = c2, z = z*zro ELSEIF (iter==l3) c = c3, z = z*zro ELSEIF (iter==l4) c = c4, z = z*zro ELSEIF (iter==l5) c = c5, z = z*zro ENDIF c = c + cmod z = (z+zmod)^2 + c + zmod2 iter=iter+1 bailout: |real(z)|<=bailout default: title = "Carr 2712" periodicity = 0 maxiter = 500 magn = 1.3 center = (.001,.001) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam param p2 caption = "Iter Limits 3,4" default = (200,250) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam } Carr2713 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: pixel2=-abs(real(pixel))+flip(imag(pixel)) c=conj(pixel2^2)-cos(|pixel2|)\ -1/log(pixel2-conj(.1/pixel2)/flip(.01/pixel2))+.7 b3=|cos(pixel2^30.5)|, b4=|2*c^4| z=.15/log(exp(pixel2^750-b3-.4)-1.5)+b4 c1=1.75*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z l1=round(real(p1)),l2=round(imag(p1)) l3=round(real(p2)),l4=round(imag(p2)),int l5=300 float bailout=16,int iter=0, float zro=0 zmod = -.2 -.02/pixel2 cmod = pixel2/imag(p2) + .0001095 zmod2 = .18/pixel2 loop: IF (iter==l1) c = c1, z = z*zro ELSEIF (iter==l2) c = c2, z = z*zro ELSEIF (iter==l3) c = c3, z = z*zro ELSEIF (iter==l4) c = c4, z = z*zro ELSEIF (iter==l5) c = c5, z = z*zro ENDIF c = c + cmod z = (z+zmod)^2 + c + zmod2 iter=iter+1 bailout: |real(z)|<=bailout default: title = "Carr 2713" periodicity = 0 maxiter = 500 magn = 1.3 center = (.001,.001) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam param p2 caption = "Iter Limits 3,4" default = (200,250) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam } Carr2714 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: pixel2=-abs(real(pixel))+flip(imag(pixel)) c=conj(pixel2^2)-cos(cos(|pixel2|))-.25/sqrt(pixel2*2 \ -conj(.1/pixel2)/flip(.01/pixel2))+.7 b3=|cos(pixel2^30.5)|, b4=|2*c^4| z=.15/log(exp(pixel2^750-b3-.4)-1.5)+b4 c1=1.75*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z l1=round(real(p1)),l2=round(imag(p1)) l3=round(real(p2)),l4=round(imag(p2)),int l5=300 float bailout=16,int iter=0, float zro=0 zmod = -.2 -.02/pixel2 cmod = pixel2/imag(p2) + .0001095 zmod2 = .18/pixel2 loop: IF (iter==l1) c = c1, z = z*zro ELSEIF (iter==l2) c = c2, z = z*zro ELSEIF (iter==l3) c = c3, z = z*zro ELSEIF (iter==l4) c = c4, z = z*zro ELSEIF (iter==l5) c = c5, z = z*zro ENDIF c = c + cmod z = (z+zmod)^2 + c + zmod2 iter=iter+1 bailout: |real(z)|<=bailout default: title = "Carr 2714" periodicity = 0 maxiter = 500 magn = 1.3 center = (.001,.001) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam param p2 caption = "Iter Limits 3,4" default = (200,250) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam } Carr2715 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: pixel2=-abs(real(pixel))+flip(imag(pixel)) b6=conj(pixel2^2)-cos(1/acos(|pixel2|)) c=b6-.25/sqrt(pixel2*2-tanh(.1/pixel2)*pixel2)+.7 b3=|cos(pixel2^30.5)|, b4=|2*c^4| z=.15/log(exp(pixel2^750-b3-.4)-1.5)+b4 c1=1.75*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z l1=round(real(p1)),l2=round(imag(p1)) l3=round(real(p2)),l4=round(imag(p2)),int l5=300 float bailout=16,int iter=0, float zro=0 zmod = -.2 -.02/pixel2 cmod = pixel2/imag(p2) + .0001095 zmod2 = .18/pixel2 loop: IF (iter==l1) c = c1, z = z*zro ELSEIF (iter==l2) c = c2, z = z*zro ELSEIF (iter==l3) c = c3, z = z*zro ELSEIF (iter==l4) c = c4, z = z*zro ELSEIF (iter==l5) c = c5, z = z*zro ENDIF c = c + cmod z = (z+zmod)^2 + c + zmod2 iter=iter+1 bailout: |real(z)|<=bailout default: title = "Carr 2715" periodicity = 0 maxiter = 500 magn = 1.3 center = (.001,.001) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam param p2 caption = "Iter Limits 3,4" default = (200,250) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam } Carr2716 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: pixel2=-abs(real(pixel))+flip(imag(pixel)) c=pixel2-flip(.25+pixel2) b3=|1/acos(pixel2^30.5)|, b4=|2*c^4| z=.15/log(exp(pixel2^750-b3-.4)-1.5)+b4 c1=1.75*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z l1=round(real(p1)),l2=round(imag(p1)) l3=round(real(p2)),l4=round(imag(p2)),int l5=300 float bailout=16,int iter=0, float zro=0 zmod = -.2 -.02/pixel2 cmod = pixel2/imag(p2) + .0000995 zmod2 = .11/pixel2 loop: IF (iter==l1) c = c1, z = z*zro ELSEIF (iter==l2) c = c2, z = z*zro ELSEIF (iter==l3) c = c3, z = z*zro ELSEIF (iter==l4) c = c4, z = z*zro ELSEIF (iter==l5) c = c5, z = z*zro ENDIF c = c + cmod z = (z+zmod)^2 + c + zmod2 iter=iter+1 bailout: |real(z)|<=bailout default: title = "Carr 2716" periodicity = 0 maxiter = 500 magn = 1.3 center = (.001,.001) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam param p2 caption = "Iter Limits 3,4" default = (200,250) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam } Carr2717 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: pixel2=-abs(real(pixel))+flip(imag(pixel)) c=pixel2-(conj(.05/pixel2)+flip(conj(.001/pixel2)))^4\ +.1+flip(.1/pixel2) b3=|1/acos(pixel2^30.5)|, b4=|2*c^4| z=.15/log(exp(pixel2^750-b3-.4)-1.5)+b4 c1=1.75*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z l1=round(real(p1)),l2=round(imag(p1)) l3=round(real(p2)),l4=round(imag(p2)),int l5=300 float bailout=16,int iter=0, float zro=0 zmod = -.2 -.02/pixel2 cmod = pixel2/imag(p2) + .0020995 zmod2 = .15/pixel2 loop: IF (iter==l1) c = c1, z = z*zro ELSEIF (iter==l2) c = c2, z = z*zro ELSEIF (iter==l3) c = c3, z = z*zro ELSEIF (iter==l4) c = c4, z = z*zro ELSEIF (iter==l5) c = c5, z = z*zro ENDIF c = c + cmod z = (z+zmod)^2 + c + zmod2 iter=iter+1 bailout: |real(z)|<=bailout default: title = "Carr 2717" periodicity = 0 maxiter = 500 magn = 1.3 center = (.001,.001) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam param p2 caption = "Iter Limits 3,4" default = (200,250) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam } Carr2718 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: pixel2=-abs(real(pixel))+flip(imag(pixel)) c=flip(imag(pixel2))-(conj(.05/pixel2)\ +flip(conj(.001/pixel2)))^4+.1+flip(.1/pixel2) b3=|1/acos(pixel2^30.5)|, b4=|2*c^4| z=.15/log(exp(pixel2^750-b3-.4)-1.5)+b4 c1=1.75*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z l1=round(real(p1)),l2=round(imag(p1)) l3=round(real(p2)),l4=round(imag(p2)),int l5=300 float bailout=16,int iter=0, float zro=0 zmod = -.2 -.02/pixel2 cmod = pixel2/imag(p2) + .0020995 zmod2 = .15/pixel2 loop: IF (iter==l1) c = c1, z = z*zro ELSEIF (iter==l2) c = c2, z = z*zro ELSEIF (iter==l3) c = c3, z = z*zro ELSEIF (iter==l4) c = c4, z = z*zro ELSEIF (iter==l5) c = c5, z = z*zro ENDIF c = c + cmod z = (z+zmod)^2 + c + zmod2 iter=iter+1 bailout: (|real(z)|)<=bailout default: title = "Carr 2718" periodicity = 0 maxiter = 500 magn = 1.3 center = (.001,.001) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam param p2 caption = "Iter Limits 3,4" default = (200,250) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam } Carr2719 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: pixel2=-abs(real(pixel))+flip(imag(pixel)) c=(2.5*flip(imag(pixel2))/sqrt(flip(tanh(pixel2)))^5+.25)\ /|4/pixel2| b3=|1/acos(pixel2^30.5)|, b4=|2*c^4| z=.15/log(exp(pixel2^750-b3-.4)-1.5)+b4 c1=1.75*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z l1=round(real(p1)),l2=round(imag(p1)) l3=round(real(p2)),l4=round(imag(p2)),int l5=300 float bailout=16,int iter=0, float zro=0 zmod = -.2 -.02/pixel2 cmod = pixel2/imag(p2) + .0020995 zmod2 = .15/pixel2 loop: IF (iter==l1) c = c1, z = z*zro ELSEIF (iter==l2) c = c2, z = z*zro ELSEIF (iter==l3) c = c3, z = z*zro ELSEIF (iter==l4) c = c4, z = z*zro ELSEIF (iter==l5) c = c5, z = z*zro ENDIF c = c + cmod z = (z+zmod)^2 + c + zmod2 iter=iter+1 bailout: |real(z)|<=bailout default: title = "Carr 2719" periodicity = 0 maxiter = 500 magn = 1.3 center = (.001,.001) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam param p2 caption = "Iter Limits 3,4" default = (200,250) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam } Carr2720 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: pixel2=-abs(real(pixel))+flip(imag(pixel)) c=log(flip(tanh(|pixel2/2|)))/conj(cos(4/pixel2))-.4 b3=|1/acos(flip(conj(pixel2^30.5)))|, b4=|2*c^4| z=.15/log(exp(pixel2^750-b3-.4)-.5)+b4 c1=1.75*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z l1=round(real(p1)),l2=round(imag(p1)) l3=round(real(p2)),l4=round(imag(p2)),int l5=300 float bailout=16,int iter=0, float zro=0 zmod = -.2 -.02/pixel2 cmod = pixel2/imag(p2) + .0020995 zmod2 = .15/pixel2 loop: IF (iter==l1) c = c1, z = z*zro ELSEIF (iter==l2) c = c2, z = z*zro ELSEIF (iter==l3) c = c3, z = z*zro ELSEIF (iter==l4) c = c4, z = z*zro ELSEIF (iter==l5) c = c5, z = z*zro ENDIF c = c + cmod z = (z+zmod)^2 + c + zmod2 iter=iter+1 bailout: |real(z)|<=bailout default: title = "Carr 2720" periodicity = 0 maxiter = 500 magn = 1.3 center = (.001,.001) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam param p2 caption = "Iter Limits 3,4" default = (200,250) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam } Carr2721 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: pixel2=-abs(real(pixel))+flip(imag(pixel)) c=atan(pixel2)*2+conj(pixel2/3) b3=|1/acos(flip(conj(pixel2^30.5)))|, b4=|2*c^4| z=.15/log(exp(pixel2^750-b3/.4)-.5)+b4 c1=1.75*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z l1=round(real(p1)),l2=round(imag(p1)) l3=round(real(p2)),l4=round(imag(p2)),int l5=300 float bailout=16,int iter=0, float zro=0 zmod = -.2 -.02/pixel2 cmod = pixel2/imag(p2) + .0020995 zmod2 = .19/pixel2 loop: IF (iter==l1) c = c1, z = z*zro ELSEIF (iter==l2) c = c2, z = z*zro ELSEIF (iter==l3) c = c3, z = z*zro ELSEIF (iter==l4) c = c4, z = z*zro ELSEIF (iter==l5) c = c5, z = z*zro ENDIF c = c + cmod z = (z+zmod)^2 + c + zmod2 iter=iter+1 bailout: |real(z)|<=bailout default: title = "Carr 2721" periodicity = 0 maxiter = 500 magn = 1.3 center = (.001,.001) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam param p2 caption = "Iter Limits 3,4" default = (200,250) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam } Carr2722 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: pixel2=-abs(real(pixel))+flip(imag(pixel)) c=conj(pixel2)*sqr(pixel2)-sqr(flip(.0051/pixel2)) b3=|1/acos(flip(conj(pixel2^30.5)))|, b4=|(|2*c^9|)| z=.15/log(exp(pixel2^750-b3/.4)-.5)+b4 c1=1.75*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z l1=round(real(p1)),l2=round(imag(p1)) l3=round(real(p2)),l4=round(imag(p2)),int l5=300 float bailout=16,int iter=0, float zro=0 zmod = -.2 -.02/pixel2 cmod = pixel2/imag(p2) + .0020995 zmod2 = .14/pixel2 loop: IF (iter==l1) c = c1, z = z*zro ELSEIF (iter==l2) c = c2, z = z*zro ELSEIF (iter==l3) c = c3, z = z*zro ELSEIF (iter==l4) c = c4, z = z*zro ELSEIF (iter==l5) c = c5, z = z*zro ENDIF c = c + cmod z = (z+zmod)^2 + c + zmod2 iter=iter+1 bailout: |real(z)|<=bailout default: title = "Carr 2722" periodicity = 0 maxiter = 500 magn = 1.3 center = (.001,.001) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam param p2 caption = "Iter Limits 3,4" default = (200,250) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam } Carr2723 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: pixel2=-abs(real(pixel))+flip(imag(pixel)) c=conj(cos(pixel2/2))*cabs(pixel2^2)-sqr(flip(|.0051/pixel2|)) b3=|1/acos(flip(conj(pixel2^30.5)))|, b4=|(|2*c^9|)| z=flip(.15/log(exp(pixel2^750-b3/.4)-.5))+b4 c1=1.75*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z l1=round(real(p1)),l2=round(imag(p1)) l3=round(real(p2)),l4=round(imag(p2)),int l5=300 float bailout=16,int iter=0, float zro=0 zmod = -.2 -.02/pixel2 cmod = pixel2/imag(p2) + .0020995 zmod2 = .14/pixel2 loop: IF (iter==l1) c = c1, z = z*zro ELSEIF (iter==l2) c = c2, z = z*zro ELSEIF (iter==l3) c = c3, z = z*zro ELSEIF (iter==l4) c = c4, z = z*zro ELSEIF (iter==l5) c = c5, z = z*zro ENDIF c = c + cmod z = (z+zmod)^2 + c + zmod2 iter=iter+1 bailout: |real(z)|<=bailout default: title = "Carr 2723" periodicity = 0 maxiter = 500 magn = 1.3 center = (.001,.001) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam param p2 caption = "Iter Limits 3,4" default = (200,250) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam } Carr2724 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: pixel2=-abs(real(pixel))+flip(imag(pixel)) c=cos(|pixel2/2|)*cabs(pixel2^2)-sqr(flip(|.0051/pixel2|)) b3=|1/acos(flip(conj(pixel2^30.5)))|, b4=|(|2*c^9|)| z=flip(.15/log(exp(pixel2^750-b3/.4)-.5))+b4-conj(.1/pixel2) c1=1.75*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z l1=round(real(p1)),l2=round(imag(p1)) l3=round(real(p2)),l4=round(imag(p2)),int l5=300 float bailout=16,int iter=0, float zro=0 zmod = -.2 -.02/pixel2 cmod = pixel2/imag(p2) + .0020995 zmod2 = .14/pixel2 loop: IF (iter==l1) c = c1, z = z*zro ELSEIF (iter==l2) c = c2, z = z*zro ELSEIF (iter==l3) c = c3, z = z*zro ELSEIF (iter==l4) c = c4, z = z*zro ELSEIF (iter==l5) c = c5, z = z*zro ENDIF c = c + cmod z = (z+zmod)^2 + c + zmod2 iter=iter+1 bailout: |real(z)|<=bailout default: title = "Carr 2724" periodicity = 0 maxiter = 500 magn = 1.3 center = (.001,.001) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam param p2 caption = "Iter Limits 3,4" default = (200,250) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam } Carr2725 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: pixel2=-abs(real(pixel))+flip(imag(pixel)) c=cos(|pixel2/2|)*cabs(pixel2^2)+(flip(|.025/pixel2|))^4+.3 b3=|1/acos(flip(conj(pixel2^30.5)))|, b4=|(|2*c^9|)| z=flip(.15/log(exp(pixel2^750-b3/.4)-.5))+b4-flip(.1/pixel2) IF (@p3==0) c = -c ELSEIF (@p3==2) IF (whitesq) c = -c ENDIF ENDIF c1=1.75*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z l1=round(real(p1)),l2=round(imag(p1)) l3=round(real(p2)),l4=round(imag(p2)),int l5=300 float bailout=16,int iter=0, float zro=0 zmod = -.25 + .02/pixel2 cmod = pixel2/imag(p2) + .0009995 zmod2 = .07/pixel2 loop: IF (iter==l1) c = c1, z = z*zro ELSEIF (iter==l2) c = c2, z = z*zro ELSEIF (iter==l3) c = c3, z = z*zro ELSEIF (iter==l4) c = c4, z = z*zro ELSEIF (iter==l5) c = c5, z = z*zro ENDIF c = c + cmod z = (z+zmod)^2 + c + zmod2 iter=iter+1 bailout: |real(z)|<=bailout default: title = "Carr 2725" periodicity = 0 maxiter = 500 magn = 1.3 center = (.001,.001) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam param p2 caption = "Iter Limits 3,4" default = (200,250) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" 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 } Carr2726 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: pixel2=-abs(real(pixel))+flip(imag(pixel)) c=atan(|pixel2/2|)*cabs(pixel2^2)+flip(|.025/pixel2|)^4+.3 b3=|1/acos(flip(conj(pixel2^30.5)))|, b4=|(|2*c^9|)| z=flip(.15/log(exp(pixel2^750-b3/.4)-.5))+b4-flip(.1/pixel2) c1=1.75*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z l1=round(real(p1)),l2=round(imag(p1)) l3=round(real(p2)),l4=round(imag(p2)),int l5=300 float bailout=16,int iter=0, float zro=0 zmod = -.25 + .02/pixel2 cmod = pixel2/imag(p2) + .0009995 zmod2 = .07/pixel2 loop: IF (iter==l1) c = c1, z = z*zro ELSEIF (iter==l2) c = c2, z = z*zro ELSEIF (iter==l3) c = c3, z = z*zro ELSEIF (iter==l4) c = c4, z = z*zro ELSEIF (iter==l5) c = c5, z = z*zro ENDIF c = c + cmod z = (z+zmod)^2 + c + zmod2 iter=iter+1 bailout: |real(z)|<=bailout default: title = "Carr 2726" periodicity = 0 maxiter = 500 magn = 1.3 center = (.001,.001) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam param p2 caption = "Iter Limits 3,4" default = (200,250) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam } Carr2727 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: pixel2=-abs(real(pixel))+flip(imag(pixel)) c=tanh(|pixel2*2|)*|pixel2/2|-exp(|.0035/pixel2|) \ -flip(.1/pixel2)+.3 b3=|1/acos(flip(conj(pixel2^30.5)))|, b4=|(|2*c^9|)| z=flip(.15/log(exp(pixel2^750-b3/.4)-.5))+b4-flip(.25/pixel2) c1=1.75*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z l1=round(real(p1)),l2=round(imag(p1)) l3=round(real(p2)),l4=round(imag(p2)),int l5=300 float bailout=16,int iter=0, float zro=0 zmod = -.25 + .02/pixel2 cmod = pixel2/imag(p2) + .0009995 zmod2 = .07/pixel2 loop: IF (iter==l1) c = c1, z = z*zro ELSEIF (iter==l2) c = c2, z = z*zro ELSEIF (iter==l3) c = c3, z = z*zro ELSEIF (iter==l4) c = c4, z = z*zro ELSEIF (iter==l5) c = c5, z = z*zro ENDIF c = c + cmod z = (z+zmod)^2 + c + zmod2 iter=iter+1 bailout: |real(z)|<=bailout default: title = "Carr 2727" periodicity = 0 maxiter = 500 magn = 1.3 center = (.001,.001) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam param p2 caption = "Iter Limits 3,4" default = (200,250) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam } Carr2728 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: pixel2=-abs(real(pixel))+flip(imag(pixel)) c=|pixel2^8|-.296-flip(.1/pixel2) b3=|1/acos(flip(conj(pixel2^30.5)))|, b4=|(|2*c^9|)| z=flip(.15/log(exp(pixel2^750-b3/.4)-.5))+b4-flip(.25/pixel2) c1=1.75*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z, c5=10.59375*z l1=round(real(p1)),l2=round(imag(p1)) l3=round(real(p2)),l4=round(imag(p2)),int l5=300 float bailout=16,int iter=0, float zro=0 zmod = -.25 + .02/pixel2 cmod = pixel2/imag(p2) + .0009995 zmod2 = .07/pixel2 loop: IF (iter==l1) c = c1, z = z*zro ELSEIF (iter==l2) c = c2, z = z*zro ELSEIF (iter==l3) c = c3, z = z*zro ELSEIF (iter==l4) c = c4, z = z*zro ELSEIF (iter==l5) c = c5, z = z*zro ENDIF c = c + cmod z = (z+zmod)^2 + c + zmod2 iter=iter+1 bailout: |real(z)|<=bailout default: title = "Carr 2728" periodicity = 0 maxiter = 500 magn = 1.3 center = (.001,.001) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam param p2 caption = "Iter Limits 3,4" default = (200,250) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) < 300 \ for best results" endparam } Carr2729 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. init: pixel2=-abs(real(pixel))+flip(imag(pixel)) c=pixel2/2+1/log(pixel2) z=pixel2-1/log(pixel2-1/log(tan(1/pixel2))-1/log(2/pixel2)) IF (@p3==0) c = -c ELSEIF (@p3==2) IF (whitesq) c = -c ENDIF ENDIF k = pixel2/imag(p2) - .0055 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 c = c + k z = z*z + c iter=iter+1 bailout: |real(z)|<=bailout default: title = "Carr 2729" periodicity = 0 maxiter = 500 magn = 1.3 center = (0,0) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2)