comment { Carr1800.ufm Version 1.1 Ultra Fractal conversions of Robert Carr's formulas Carr1800 - Carr1899 by Erik Reckase, March 10, 2000 History: Version 1.1 - Major optimization overhaul, cleanup Version 1.0 - Initial Release Original formulas pulled from _rc1.frm Carr1800 : divide by undefined variable Carr1809,1812,1847-1851, 1854-1855,1877-1878 : cosxx fix } Carr1800 { ; Updated for UF2 by Erik Reckase, March 2000 init: z=1/pixel, c=1/(pixel-sqr(z/z^z+z)/atan(pixel)) loop: z = z^3 + c bailout: |real(z)| <= 10 default: title = "Carr 1800" periodicity = 0 maxiter = 500 magn = .6 center = (0,0) } Carr1801 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: z=1/(pixel-conj(1/pixel)-flip(1/pixel)) c=1/(pixel-z-cos(sqr(z/(pixel-.124)))) loop: z = z^2 + c bailout: |real(z)| <= 10 default: title = "Carr 1801" periodicity = 0 maxiter = 500 magn = .6 center = (1.6,0) } Carr1802 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: z=1/pixel, c=1/(pixel-conj(z^2/|pixel|+pixel/z)) loop: z = z^2 + c bailout: |real(z)| <= 10 default: title = "Carr 1802" periodicity = 0 maxiter = 500 magn = .6 center = (0,0) } Carr1803 { ; Updated for UF2 by Erik Reckase, March 2000 ; Spider type init: z=1/pixel, c=1/(pixel-conj(z^2/|pixel|+pixel/z)) loop: z = z^2 + c c = z + c/2.125 bailout: |real(z)| <= 4 default: title = "Carr 1803" periodicity = 0 maxiter = 500 magn = .8 center = (0,0) } Carr1804 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: z=1/pixel, c=1/(pixel-cosh(z^2/cos(pixel)/pixel+pixel/z)) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1804" periodicity = 0 maxiter = 500 magn = .6 center = (0,0) } Carr1805 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: z=1/asin(1/atanh(1/pixel-conj(1/pixel))) c=1/pixel+(z+1)/pixel loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1805" periodicity = 0 maxiter = 500 magn = .4 center = (1.7,0) } Carr1806 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: c3=conj(tan(pixel)), c2=c3+conj(sinh(pixel)) ct = conj(1/pixel)+flip(1/pixel) c=1/(sin(c3)+cos(c2))-ct, z=1/(pixel-ct) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1806" periodicity = 0 maxiter = 500 magn = .3 center = (0,0) } Carr1807 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: c3=tan(pixel), c2=|c3|+conj(sin(pixel)), op = 1/pixel c=1/(c3+flip(c2))-asin(op)-atan(op) z=1/(pixel-conj(op)-flip(op)) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1807" periodicity = 0 maxiter = 500 magn = .22 center = (-1.5,0) } Carr1808 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: c3=sin(conj(pixel)), c2=|c3|+conj(atan(pixel)), op = 1/pixel c=1/(conj(c3)+flip(c2))-asin(op)-atan(op) z=1/(pixel-conj(op)-flip(op)) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1808" periodicity = 0 maxiter = 500 magn = .17 center = (0,0) } Carr1809 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: c3=asin(conj(pixel)), c2=|c3|+cos(pixel), op = 1/pixel c=1/(conj(c3)+flip(c2))-asin(op)-atan(op) z=1/(pixel-conj(op)-flip(op)) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1809" periodicity = 0 maxiter = 500 magn = .25 center = (0,0) } Carr1810 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: op = 1/pixel, z1=conj(op)-flip(op) z=1/(pixel+sqrt(op)-log(op)-|z1|), c=1/(pixel+sqrt(7*op)) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1810" periodicity = 0 maxiter = 500 magn = .5 center = (0,0) } Carr1811 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: op = 1/pixel, z1=conj(op)-flip(op) z=1/(pixel+.45-sqrt(op)+log(2*op)+|z1|-cos(5*op)) c=1/(pixel+sqrt(7*op)) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1811" periodicity = 0 maxiter = 500 magn = .5 center = (0,0) } Carr1812 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: op = 1/pixel, z1=conj(op)-flip(op) z=1/(pixel+.45-sqrt(op)-log(2*op)+z1-cos(5*op)) c=1/(pixel-cos(op)-conj(cos(op))+sqrt(7*op)-log(op/2)) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1812" periodicity = 0 maxiter = 500 magn = .7 center = (0,0) } Carr1813 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: z=1/flip(pixel)/conj(atan(5/pixel-.724)) c=1/(flip(pixel)*tan(7/pixel-.524)-flip(1/pixel)-conj(1/pixel)) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1813" periodicity = 0 maxiter = 500 magn = .6 center = (0,0) } Carr1814 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: z=1/(conj(pixel)-cos(7/pixel-.524)-sin(1/pixel)+conj(1/pixel)) c=1/pixel/real(5/pixel-.724) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1814" periodicity = 0 maxiter = 500 magn = .2 center = (0,0) } Carr1815 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: z=1/(conj(pixel)-cos(7/pixel-.524)-sin(1/pixel)+conj(1/pixel)) c=1/(pixel-conj(z-1.1)*z*z^conj(cotanh(pixel-.2))) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1815" periodicity = 0 maxiter = 500 magn = .5 center = (0,0) } Carr1816 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: z=1/(conj(pixel)-cos(7/pixel-.524)-sin(1/pixel)+conj(1/pixel)) c=1/(pixel-conj(z-1.1)*z*z^conj(cotanh(5/pixel-.2))) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1816" periodicity = 0 maxiter = 500 magn = .5 center = (0,0) } Carr1817 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: z=1/(pixel-conj(1/pixel)-flip(1/pixel)) c=1/(pixel-z+2.5^conj(cos(pixel-1))) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1817" periodicity = 0 maxiter = 500 magn = .5 center = (0,0) } Carr1818 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: op = 1/pixel, c=conj(op)/exp(op) z=1/(pixel-atan(op-conj(c)+.55)+conj(op)+flip(op)) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1818" periodicity = 0 maxiter = 500 magn = .7 center = (0,0) } Carr1819 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: op = 1/pixel, c=conj(op)/sqr(sin(op)) z=1/(pixel-atan(op-conj(c)+.55)+conj(op)+flip(op)) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1819" periodicity = 0 maxiter = 500 magn = 1 center = (0,0) } Carr1820 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: op=1/pixel, c=op/(pixel-flip(op)-conj(op)) z=1/(cos(pixel)-sqr(conj(exp(1.79*op)))) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1820" periodicity = 0 maxiter = 500 magn = .7 center = (0,0) } Carr1821 { ; Updated for UF2 by Erik Reckase, March 2000 ; Julia init: op = pixel - flip(1/pixel) - conj(1/pixel) c=1/pixel/op, z=1/op loop: z = z^2 + c c=(1+flip(imag(sqrt(sin(c)))))*real(sqrt(tan(c)))/9+z bailout: |real(z)| <= 4 default: title = "Carr 1821" periodicity = 0 maxiter = 500 magn = .25 center = (0,0) } Carr1822 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: op = 1/pixel, c=conj(op)/(pixel-sin(op)-conj(op)) z=1/(pixel-conj(op)-flip(op)) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1822" periodicity = 0 maxiter = 500 magn = .7 center = (0,0) } Carr1823 { ; Updated for UF2 by Erik Reckase, March 2000 ; Spider init: op = 1/pixel, c=conj(op)/(pixel-sin(op)-conj(op)) z=1/(pixel-conj(op)-flip(op)) loop: z = z^2 + c c=z+c/2.125 bailout: |real(z)| <= 4 default: title = "Carr 1823" periodicity = 0 maxiter = 500 magn = 1.5 center = (0,0) } Carr1824 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: op = 1/pixel, c=5/atan(op)/(pixel-sin(op)-conj(op)) z=1/(pixel-conj(op)-flip(op)) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1824" periodicity = 0 maxiter = 500 magn = 3 center = (0,0) } Carr1825 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: op = 1/pixel, c=exp(op)/(conj(.073*pixel-cos(op)-conj(op))) z=1/(pixel-conj(op)-flip(op)) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1825" periodicity = 0 maxiter = 500 magn = .25 center = (0,0) } Carr1826 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: c=1/(pixel-conj(1/pixel)*cos(.88/pixel)) z=conj((1-conj(c)*cos(c))/conj(pixel-conj(1/pixel))) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1826" periodicity = 0 maxiter = 500 magn = .5 center = (0,0) } Carr1827 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: z=1/(pixel-conj(1/pixel)*cos(.88/pixel)) c=conj((1-conj(z)*cos(z))/conj(pixel-conj(1/pixel))) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1827" periodicity = 0 maxiter = 500 magn = .5 center = (0,0) } Carr1828 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: c=1/(pixel-conj(1/pixel)-flip(1.88/pixel)) z=1/(flip(pixel)-conj(c+sin(1/pixel))*sin(c+1/c)) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1828" periodicity = 0 maxiter = 500 magn = .4 center = (0,0) } Carr1829 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: c=1/(pixel-conj(1/pixel)-flip(1.88/pixel)) z=1/(flip(pixel)-conj(c+sin(1/pixel))*sin(c+.8/c)) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1829" periodicity = 0 maxiter = 500 magn = .4 center = (0,0) } Carr1830 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: op = 1/pixel, z=1/(pixel-conj(op)-flip(op)) c=1/(flip(pixel)-conj(z+sin(op/z))*sin(z+1/z)) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1830" periodicity = 0 maxiter = 500 magn = .4 center = (0,0) } Carr1831 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: op = 1/pixel, z=1/(pixel-conj(op)-flip(op)) c=1/(flip(pixel)-conj(z+sin(op/z))*sin(z+1/z)+exp(op+1/z)) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1831" periodicity = 0 maxiter = 500 magn = .4 center = (0,0) } Carr1832 { ; Updated for UF2 by Erik Reckase, March 2000 ; Spider init: op = 1/pixel, z=1/(pixel-conj(op)-flip(op)) c=1/(flip(pixel)-conj(z+sin(op/z))*sin(z+1/z)+exp(op+1/z)) loop: z = z^2 + c c=z+c/2.125 bailout: |real(z)| <= 4 default: title = "Carr 1832" periodicity = 0 maxiter = 500 magn = .25 center = (0,0) } Carr1833 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: op = 1/pixel, z=tan(op)/(flip(conj(pixel-tan(op)))-1) c=1/(flip(pixel)-conj(z+sin(op/z))*sin(z+1/z)+exp(op+conj(1/z))) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1833" periodicity = 0 maxiter = 500 magn = .6 center = (0,0) } Carr1834 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: op = 1/pixel, z=tan(op)/(cos(conj(pixel-tan(op)))-1) c=1/(flip(pixel)-conj(z+sin(op/z))*sin(z+1/z)+exp(op+conj(1/z))) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1834" periodicity = 0 maxiter = 500 magn = .8 center = (0,0) } Carr1835 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: op = 1/pixel, c=conj(op)/(cos(conj(pixel-tan(op)))-1) z=1/(flip(pixel)-conj(c+sin(op/c))*sin(c+1/c)+exp(op+conj(1/c))) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1835" periodicity = 0 maxiter = 500 magn = .8 center = (0,0) } Carr1836 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: op = 1/pixel, c=tan(op)/(cos(conj(pixel-tan(op)))-1) z=1/(pixel-conj(op)-flip(op)) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1836" periodicity = 0 maxiter = 500 magn = .8 center = (0,0) } Carr1837 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: op = 1/pixel, c=tan(op)/(cos(conj(pixel-tan(op)))-1.75) z=1/(pixel-conj(op)-flip(op)) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1837" periodicity = 0 maxiter = 500 magn = .8 center = (0,0) } Carr1838 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: op = 1/pixel, c=tan(op)/(cos(conj(pixel-tan(op)))-1.75) z=1/(pixel-conj(op)-flip(op)-1) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1838" periodicity = 0 maxiter = 500 magn = .8 center = (0,0) } Carr1839 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: op = 1/pixel, c=(tan(op))/(cos(conj(pixel-tan(op)))+(-.7456,.2)) z=1/(pixel-conj(op)-flip(op)-1/c) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1839" periodicity = 0 maxiter = 500 magn = .7 center = (0,0) } Carr1840 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: op = 1/pixel, c=1/(pixel-tan(op)/(cos(conj(pixel-tan(op)))-1)) z=1/(pixel-conj(op)-flip(op)) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1840" periodicity = 0 maxiter = 500 magn = .7 center = (1,0) } Carr1841 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: op = 1/pixel, z=1/(cos(conj(pixel^2-tan(op)))-1) c=1/(pixel-cos(op)-conj(op))-sqrt(op) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1841" periodicity = 0 maxiter = 500 magn = .6 center = (0,0) } Carr1842 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: op = 1/pixel, z=1/(cos(conj(pixel^2-tan(op+conj(.88*op))))-1) c=1/(pixel-cos(1.88*op)-conj(op))-sqrt(op) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1842" periodicity = 0 maxiter = 500 magn = .6 center = (0,0) } Carr1843 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: op = 1/pixel, z=flip(op)/conj(op+2.78/flip(pixel)) c=1/(pixel-tan(op))*.94*cos((z+7*op)/conj(pixel-1)) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1843" periodicity = 0 maxiter = 500 magn = .8 center = (0,0) } Carr1844 { ; Updated for UF2 by Erik Reckase, March 2000 ; init: op = 1/pixel, z=(conj(op*flip(.91*op))-1)*op c=1/(pixel-tan(op))+(-.7645,.2) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1844" periodicity = 0 maxiter = 500 magn = .04 center = (0,0) } Carr1845 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: op = 1/pixel, z=1/(pixel-flip(op)-tan(|op|)-conj(op)) c=1/(pixel+(-1.7456,.2)-atan(op-cosh(|z|)-|z|)) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1845" periodicity = 0 maxiter = 500 magn = .5 center = (1,0) } Carr1846 { ; Updated for UF2 by Erik Reckase, March 2000 ; Spider init: op = 1/pixel, z=1/(pixel-flip(op)-tan(|op|)-conj(op)) c=1/(pixel-atan(op-cosh(|z|)-|z|)-conj(1/exp(pixel-.85))) loop: z = z^2 + c c = z + c/2.125 bailout: |real(z)| <= 4 default: title = "Carr 1846" periodicity = 0 maxiter = 500 magn = .2 center = (0,0) } Carr1847 { ; Updated for UF2 by Erik Reckase, March 2000 ; Spider init: op = 1/pixel, z=1/(pixel-exp(op)-tan(|op|)-conj(op)) c=1/(pixel-asinh(op-cos(|z|)-|z|)-conj(1/exp(pixel-0.85))) loop: z = z^2 + c c = z + c/2.125 bailout: |real(z)| <= 4 default: title = "Carr 1847" periodicity = 0 maxiter = 500 magn = .2 center = (0,0) } Carr1848 { ; Updated for UF2 by Erik Reckase, March 2000 ; Julia init: op = 1/pixel, z=1/(pixel-exp(op)-tan(|op|)-conj(op)) c=1/(pixel-asinh(op-cos(|z|)-|z|)-conj(1/exp(pixel+1.85))) loop: z = z^2 + c c=(1+flip(imag(sqrt(sin(c)))))*real(sqrt(tan(c)))/9+z bailout: |real(z)| <= 4 default: title = "Carr 1848" periodicity = 0 maxiter = 500 magn = .09 center = (0,0) } Carr1849 { ; Updated for UF2 by Erik Reckase, March 2000 ; Julia : slow render init: op = 1/pixel, z=1/(pixel-exp(op)-sinh(|op|)-conj(op)) c=1/(pixel-asinh(op-cos(|z|)-|z|)-conj(cos(1/exp(pixel+1.85)))) loop: z = z^2 + c c=(1+flip(imag(sqrt(sin(c)))))*real(sqrt(tan(c)))/9+z bailout: |real(z)| <= 4 default: title = "Carr 1849" periodicity = 0 maxiter = 500 magn = .09 center = (0,0) } Carr1850 { ; Updated for UF2 by Erik Reckase, March 2000 ; init: op = 1/pixel, z=1/|pixel-conj(op)-flip(op)| c=1/(pixel-acosh(op-cos(|z|)-|z|)-conj(1/exp(pixel+1.85))) loop: z = z^2 + c z = conj(z*z+c) bailout: |real(z)| <= 4 default: title = "Carr 1850" periodicity = 0 maxiter = 500 magn = .25 center = (0,0) } Carr1851 { ; Updated for UF2 by Erik Reckase, March 2000 ; init: op = 1/pixel z=1/(pixel-conj(op)-flip(op)-(sqrt(1/exp(pixel+.75)))) c=1/(pixel-acosh(op-cos(|z|)-|z|)-conj(1/exp(pixel+1.85))) loop: z = z^2 + c z = conj(z*z+c) bailout: |real(z)| <= 4 default: title = "Carr 1851" periodicity = 0 maxiter = 500 magn = .25 center = (0,0) } Carr1852 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: op = 1/pixel, z1=conj(pixel)-sqrt(op)-log(op)-.9 z=1/(pixel-conj(z1)-exp(1/exp(pixel+.45))) c=1/(pixel+sqrt(op)/log(op)-conj(1/z1)) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1852" periodicity = 0 maxiter = 500 magn = .4 center = (1,0) } Carr1853 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: op = 1/pixel, z1=-1/(pixel-conj(op)-flip(op)+.5) z=exp(z1)/sin(pixel) c=1/pixel-.5 loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1853" periodicity = 0 maxiter = 500 magn = .4 center = (0,0) } Carr1854 { ; Updated for UF2 by Erik Reckase, March 2000 init: op = 1/pixel, z=1/(pixel-conj(op)-flip(op)) c=1/(pixel-conj(cos(1/sqr(cos(pixel))))) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1854" periodicity = 0 maxiter = 500 magn = .5 center = (1,0) } Carr1855 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: op = 1/pixel, z=1/(pixel-conj(op)-exp(op)) c=1/(pixel+conj(cos(1/sqr(cos(pixel+conj(op)))))-1) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1855" periodicity = 0 maxiter = 500 magn = .5 center = (1,0) } Carr1856 { ; Updated for UF2 by Erik Reckase, March 2000 init: c=1/(pixel-conj(1/pixel)-flip(1/pixel)) z=pixel/(6+c) loop: z = z^2 + c z = z^2 + conj(c) bailout: |real(z)| <= 4 default: title = "Carr 1856" periodicity = 0 maxiter = 500 magn = .3 center = (0,0) } Carr1857 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: op = 1/pixel, z=1/(pixel-sin(op)-tan(op)) c=conj(pixel-conj(op))/(4+tan(conj(z^2-conj(7*op)))) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1857" periodicity = 0 maxiter = 500 magn = .3 center = (-1,0) } Carr1858 { ; Updated for UF2 by Erik Reckase, March 2000 ; Spider init: op = 1/pixel, z=1/(pixel-sin(op)-tan(op)) c=conj(pixel-conj(op))/(4+tan(conj(z^2-conj(7*op)))) loop: z = z^2 + c c = z + c/2.125 bailout: |real(z)| <= 4 default: title = "Carr 1858" periodicity = 0 maxiter = 500 magn = .2 center = (0,0) } Carr1859 { ; Updated for UF2 by Erik Reckase, March 2000 ; Julia init: op = 1/pixel, z=1/(pixel-sin(op)-tan(op)) c=conj(pixel-conj(op))/(4+tan(conj(z^2-conj(7*op)))) loop: z = z^2 + c c=(1+flip(imag(sqrt(sin(c)))))*real(sqrt(tan(c)))/9+z bailout: |real(z)| <= 4 default: title = "Carr 1859" periodicity = 0 maxiter = 500 magn = .25 center = (0,0) } Carr1860 { ; Updated for UF2 by Erik Reckase, March 2000 init: c1=(-.7456,.2), op = 1/pixel c=tan(op)/tan(pixel-conj(op)-flip(op))/9+c1 z=tan(op-c^2)/(9+c1+c) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1860" periodicity = 0 maxiter = 500 magn = .9 center = (0,0) } Carr1861 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: op = 1/pixel, c1=1/(pixel-sin(op)-cos(op)) z=1/(pixel-conj(op)-flip(op)), c=1/(pixel-c1+z) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1861" periodicity = 0 maxiter = 500 magn = .7 center = (1,0) } Carr1862 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: op = 1/conj(pixel), z=1/(pixel-conj(op)-flip(op)) c=1/tan(pixel)/conj(5/pixel-.724) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1862" periodicity = 0 maxiter = 500 magn = .08 center = (0,0) } Carr1863 { ; Updated for UF2 by Erik Reckase, March 2000 ; Carr-brot-2 init: z=log(pi)+conj(1/pixel) loop: z=z-z^2-pixel bailout: |z| <= 4 default: title = "Carr 1863" periodicity = 0 maxiter = 500 magn = 1.7 center = (-1,0) } Carr1864 { ; Updated for UF2 by Erik Reckase, March 2000 ; Carr-brot-3 init: z=sqrt(pi+2)+1/pixel loop: z=z-z^2-pixel z=z*z+z bailout: |sin(z)| <= 4 default: title = "Carr 1864" periodicity = 0 maxiter = 500 magn = 7 center = (-.55,0) } Carr1865 { ; Updated for UF2 by Erik Reckase, March 2000 ; Carr-brot-4 init: z=1/(pixel-sqrt(conj(pixel))-log(pixel)) loop: z = z-z^2-pixel bailout: |sin(z)| <= 4 default: title = "Carr 1865" periodicity = 0 maxiter = 500 magn = 1.9 center = (-.5,0) } Carr1866 { ; Updated for UF2 by Erik Reckase, March 2000 init: op = 1/pixel, z=1/(pixel-sin(op)-tan(op)) c=conj(pixel-conj(op))/(4+tan(conj(z^2-conj(7*op)))) loop: z = z^2 + c c=conj((1+flip(imag(sqrt(sin(c)))))*real(sqrt(tan(c)))/9+z) bailout: |real(z)| <= 4 default: title = "Carr 1866" periodicity = 0 maxiter = 500 magn = .25 center = (-.5,0) } Carr1867 { ; Updated for UF2 by Erik Reckase, March 2000 init: op = 1/pixel, z=1/(pixel-sin(op)-cos(op)) c=conj(pixel-conj(op))/(4+tan(conj(z^2-conj(7*op)))) loop: z = z^2 + c c=sin((1+flip(imag(sqrt(sin(c)))))*real(sqrt(tan(c)))/9+z) bailout: |real(z)| <= 4 default: title = "Carr 1867" periodicity = 0 maxiter = 500 magn = .25 center = (-.5,0) } Carr1868 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandelbrot init: c1 = 1/tan(pixel)/pixel z=c1/(-.7456,.2), c=c1/(-.3,.6) loop: z = z^2 + c bailout: |real(z)| <= 4 default: title = "Carr 1868" periodicity = 0 maxiter = 500 magn = .25 center = (0,0) } Carr1869 { ; Updated for UF2 by Erik Reckase, March 2000 ; Spider init: z=1/tan(1/pixel) c=1/(pixel-conj(z/z^z+z)) loop: z = z^2 + c c = z + c/2.125 bailout: |real(z)| <= 4 default: title = "Carr 1869" periodicity = 0 maxiter = 500 magn = 1.2 center = (0,0) } Carr1870 { ; Updated for UF2 by Erik Reckase, March 2000 ; Modified Newton init: z=cos(pixel-1/pixel) c=(-.7456,.2) loop: z = (3*z^4+c)/4/z^3 bailout: .004 <=|z^4 - c| default: title = "Carr 1870" periodicity = 0 maxiter = 500 magn = 1.2 center = (0,0) } Carr1871 { ; Updated for UF2 by Erik Reckase, March 2000 ; Modified Newton init: z=tan(pixel-conj(1/pixel)) c=(.3,.6) loop: z = (3*z^4+c)/4/z^3 bailout: .004 <=|real(z^4 - c)| default: title = "Carr 1871" periodicity = 0 maxiter = 500 magn = 1.2 center = (0,0) } Carr1872 { ; Updated for UF2 by Erik Reckase, March 2000 ; Modified Sylvie Gallet formula init: z=conj(1/pixel), c=1/(pixel-z-flip(1/pixel)) float compt=0, float limit=.3, float bailout=4 loop: IF (compt>=limit) c = (-.743380900000982,-.131850030300002) ENDIF z = z*z + c compt = compt + 1 bailout: |z| <= bailout default: title = "Carr 1872" periodicity = 0 maxiter = 500 magn = .01 center = (0,0) } Carr1873 { ; Updated for UF2 by Erik Reckase, March 2000 init: op = 1/pixel, c1=1/(pixel-sin(op)) z1=c1-conj(op), c=1/(pixel-(z1+c1)*op) z=1/(pixel-(c-cos(z1))/z1/c1) loop: z = z*z + c bailout: |real(z)| <= 4 default: title = "Carr 1873" periodicity = 0 maxiter = 500 magn = .7 center = (1,0) } Carr1874 { ; Updated for UF2 by Erik Reckase, March 2000 ; Modified Lee Skinner formula init: p=1/(pixel-conj(1/pixel)-flip(1/pixel)) t3=3*cos(p), t2=p*p, a=(t2+1)/t3 b=2*a^3+(t2-2)/t3, aa3=a*a*3, z=-a loop: z=z*z-aa3*z+b bailout: |real(z)| <= 4 default: title = "Carr 1874" periodicity = 0 maxiter = 500 magn = .5 center = (0,0) } Carr1875 { ; Updated for UF2 by Erik Reckase, March 2000 ; Modified Lee Skinner formula init: p=1/(pixel-conj(1/pixel)-flip(1/pixel)) t3=3*1/cos(p), t2=tan(p*p), a=(t2+(1/pixel))/t3 b=2*a^3+(t2-2)/t3, aa3=a*a*3, z=-a loop: z=z*z-aa3*z+b bailout: |real(z)| <= 4 default: title = "Carr 1875" periodicity = 0 maxiter = 500 magn = .5 center = (0,0) } Carr1876 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandel-Julia init: op = 1/pixel, z=1/(pixel-real(op)+flip(imag(op)*2.924)) c=1/(pixel-conj(op)-flip(op)) loop: z=z*z+c+(-.3,.6) bailout: |z| <= 4 default: title = "Carr 1876" periodicity = 0 maxiter = 500 magn = .05 center = (-8,-20) } Carr1877 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandel-Julia init: op = 1/pixel, z=1/(pixel-real(op)+flip(imag(op)*2.924)) c=1/(pixel-sin(op)-conj(cos(op))) loop: z=z*z+c+(-.3,.6) bailout: |z| <= 4 default: title = "Carr 1877" periodicity = 0 maxiter = 500 magn = 1 center = (0,0) } Carr1878 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandel-Julia init: op = 1/pixel, z=1/(pixel-real(op)+flip(imag(op)*2.924)) c=1/(pixel-sin(op)-conj(cos(op))) loop: z=z*z+c+(-.8,.2) bailout: |z| <= 4 default: title = "Carr 1878" periodicity = 0 maxiter = 500 magn = 1 center = (0,0) } Carr1879 { ; Updated for UF2 by Erik Reckase, March 2000 ; Julia init: op = 1/pixel, z=1/(pixel-real(op)+flip(imag(op)*.924)) c=1/(pixel-sin(op)-conj(cos(op))) loop: z=z*z+c+(-.6,.45) bailout: |z| <= 4 default: title = "Carr 1879" periodicity = 0 maxiter = 500 magn = 1 center = (0,0) } Carr1880 { ; Updated for UF2 by Erik Reckase, March 2000 init: op = 1/pixel, z=1/(pixel-real(op)+flip(imag(op)*.924)) c=1/(pixel-sin(op)-exp(2*op)) loop: z=z*z+c+(-.6,.05) bailout: |z| <= 4 default: title = "Carr 1880" periodicity = 0 maxiter = 500 magn = .3 center = (-1,0) } Carr1881 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandel-Julia init: op = 1/pixel, z=1/(pixel-real(op)+flip(imag(op)*.924)) c=1/(pixel-sin(op)-exp(2*op)) loop: z=z*z+c+(.09,-.71) bailout: |z| <= 4 default: title = "Carr 1881" periodicity = 0 maxiter = 500 magn = 1.75 center = (0,0) } Carr1882 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandel-Julia init: op = 1/pixel, z=1/(pixel-real(op)+flip(imag(op)*.924)) c=1/(pixel-sqr(op)-exp(2*op)) loop: z=z*z+c+(.39,-.2491) bailout: |z| <= 4 default: title = "Carr 1882" periodicity = 0 maxiter = 500 magn = 1.75 center = (0,0) } Carr1883 { ; Updated for UF2 by Erik Reckase, March 2000 ; Julia init: z=1/(pixel-conj(1/pixel)-flip(1/pixel)) loop: z=z*z+(-.7456,.2) bailout: |z| <= 4 default: title = "Carr 1883" periodicity = 0 maxiter = 500 magn = .5 center = (0,0) } Carr1884 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandel-Julia init: z=1/(pixel-conj(1/pixel)-flip(1/pixel)) c=1/(pixel-abs(imag(z)-real(z))+flip(1-abs(1-real(z)-imag(z)))) loop: z=z*z+c+(-.7456,.2) bailout: |z| <= 4 default: title = "Carr 1884" periodicity = 0 maxiter = 500 magn = .5 center = (0,0) } Carr1885 { ; Updated for UF2 by Erik Reckase, March 2000 ; Mandel-Julia init: c=1/(pixel-conj(1/pixel)-flip(1/pixel)) z=1/(pixel-abs(cos(c)-conj(c))+flip(cabs(tanh(c)-conj(c)))) loop: z=z*z+c+(.39776,-.009) bailout: |z| <= 4 default: title = "Carr 1885" periodicity = 0 maxiter = 500 magn = .2 center = (0,0) } Carr1886 { ; Updated for UF2 by Erik Reckase, March 2000 ; Modified FractalFenderC init: z=1/(pixel-conj(1/pixel)-flip(1/pixel)) loop: IF (|z|>1) z = cosh(z)+pixel ENDIF z=z^2+pixel bailout: |z| <= 4 default: title = "Carr 1886" periodicity = 0 maxiter = 500 magn = 1 center = (0,0) } Carr1887 { ; Updated for UF2 by Erik Reckase, March 2000 init: z=pixel, c=1/(pixel-conj(1/pixel)-flip(1/pixel)) loop: z=z^3/5/pixel+conj(z^2)+c+(.39776,-.009) bailout: |z| <= 4 default: title = "Carr 1887" periodicity = 0 maxiter = 500 magn = 1 center = (0,0) } Carr1888 { ; Updated for UF2 by Erik Reckase, March 2000 ; Julia init: op = 1/pixel, c=1/(pixel-conj(op)-flip(op)) z=1/(pixel-3/c+c/4-conj(op)) loop: z=z*z+c+(.35776,-.08294) bailout: |real(z)| <= 4 default: title = "Carr 1888" periodicity = 0 maxiter = 500 magn = 1 center = (0,0) } Carr1889 { ; Updated for UF2 by Erik Reckase, March 2000 ; Modification of Sylvie Gallet frm. Redone by Sylvie init: z=c=pixel, bool test1=TRUE float b1=16, float b2=.0001 loop: test1 = !test1 z=z^2+c+(.35776,-.08294) IF (test1) float ztest = |z| float btest = b1 ELSE IF (z==0) z1 = (z^5-1) ELSE z1 = (z^5-1)/(4*z^4) ENDIF float ztest = b2 float btest = |z1| ENDIF bailout: ztest <= btest default: title = "Carr 1889" periodicity = 0 maxiter = 500 magn = 1.4 center = (-.5,0) } Carr1890 { ; Updated for UF2 by Erik Reckase, March 2000 ; Julia init: z=1/(pixel-conj(1/pixel)-flip(1/pixel)) loop: z=z*z+pixel+(.34776,-.08094) bailout: |z| <= 4 default: title = "Carr 1890" periodicity = 0 maxiter = 500 magn = 1.4 center = (-.5,0) } Carr1891 { ; Updated for UF2 by Erik Reckase, March 2000 ; Julia init: z=1/(pixel-conj(1/pixel)-flip(1/pixel)) loop: z=z*z+pixel+(.34899,-.08294) bailout: |z| <= 4 default: title = "Carr 1891" periodicity = 0 maxiter = 500 magn = 1.4 center = (-.5,0) } Carr1892 { ; Updated for UF2 by Erik Reckase, March 2000 ; Julia or not? init: z=1/(pixel-conj(1/pixel)-flip(1/pixel)) c=sin((1+flip(imag(sqrt(sin(z)))))*real(sqrt(tan(z)))/9+z) loop: z=z*z+c+(.34899,-.08294) bailout: |z| <= 4 default: title = "Carr 1892" periodicity = 0 maxiter = 500 magn = 1.4 center = (-.5,0) }