comment {

These are Modified Carr formulas based on the original with
the gracious permission of Dr. Robert Carr. Utmost care has
been taken to preserve the original formulation fully intact. 
Several "User Friendly" additions have been made which allow 
the user to alter the fractal through the following parameters:

Scale: 
Use this parameter to reduce or enlarge the image 
without having to zoom the entire image.Depending
on the complexity of Z, larger numbers may be needed
to produce desired scale.Begin with 2, 4, 6, 8, etc. 

Bailout:
The user may now change this parameter as desired.
In a few cases, more than one bailout may be chosen.

Functions(3-4):
In most cases, extreme changes in form may be achieved
by varying one or more of these formula functions.

NOTE: In the interest of faster calculation speeds,
the original "Maxiter" (maximum iterations) default
has been lowered from 500 to 100. I found that, in 99.99%
of instances there was no detectable difference, and in the
0.01% of instances with a difference, these were very small.

My gratefull thanks go to Dr. Robert Carr, both for writing 
such great formulations and for graciously permitting me to
add what little functionality my small knowledge allows. 

I hope that you will find these modifications helpful.
}

===================================================================

Carr1300S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; based on formulas by Brad Beacham and Gordon Lamb

init:
  z = (real(1/#pixel)+flip(imag(1/#pixel)))/@scale
  c = real(#pixel)+flip(imag(#pixel))
  count = z/c, shift=(1.099,0)

loop:
  IF (|count| <= |shift|)
    a = z^2.71828182845905
    b = 0
  ELSE
    a = 0
    b = z/c
  ENDIF
  
  count = count+1/#pixel
  z = fn1(fn2(fn3(z-(a+b+c)/(#pixel-c*c))))

bailout:
  |real(z)| <= @bailout  

default:
  title = "Carr 1300S"
  method  = multipass
  periodicity = 0
  maxiter = 100
  magn = .4
  center = (2,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1301S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; based on formulas by Brad Beacham and Gordon Lamb

init:
  z = (real(1/#pixel)+flip(imag(1/#pixel)))/@scale
  c = real(#pixel)+flip(imag(#pixel))
  count = z/c 
  shift = (1.099,0)
loop:
  IF (|count| <= |shift|)
    a = z^2.71828182845905
    b = 0
  ELSE
    a = 0
    b = z/c
  ENDIF
  
  count = count+sqr(1/#pixel)
  z = fn1(fn2(fn3(z-((a+b)/c)/(#pixel-c*c))))
  
bailout:
  |real(z)| <= @bailout  

default:
  title = "Carr 1301S"
  periodicity = 0
  maxiter = 100
  magn = .6
  center = (.25,0)
  method = multipass

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1302S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; based on formulas by Brad Beacham and Gordon Lamb

init:
  z = (real(1/#pixel)+flip(imag(1/#pixel)))/@scale
  c = real(#pixel)+flip(imag(#pixel))
  count = z/c
  shift = (1.099,0)
  
loop:
  IF (|count| <= |shift|)
    a = z^2.71828182845905
    b = 0
  ELSE
    a = 0
    b = z/c
  ENDIF
  
  count = count/conj(cos(1/#pixel))
  z = fn1(fn2(fn3(z-((a+b)/c)/(#pixel-c*c))))
  
bailout:
  |real(z)| <= @bailout  

default:
  title = "Carr 1302S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .6
  center = (.25,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1303S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; based on formulas by Brad Beacham and Gordon Lamb

init:
  z = (real(#pixel)+flip(imag(#pixel)))/@scale
  c = real(1/#pixel)+flip(imag(1/#pixel))
  count = abs(z/c)
  shift = 1/(2.099,0)
  
loop:
  IF (|count| <= |shift|)
    a = z^2.71828182845905
    b = 0
  ELSE
    a = 0
    b = z/c
  ENDIF
  
  count = count/conj(cos(sqr(2.5/#pixel)))
  z = fn1(fn2(fn3((z-sqr(a+b)^c)/(#pixel*#pixel+c))))
  z = (#pixel-z*z)/(#pixel-c*c)
  
bailout:
  |real(z)| <= @bailout  

default:
  title = "Carr 1303S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .8
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1304S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (sqrt(5+1.224)*conj(cos(#pixel)))/@scale
  c = sqrt(#pixel)^#pixel

loop:
  z = fn1(fn2(fn3(conj(cos(z+2))+(z/c)/(z-2))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1304S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .7
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1305S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Modified Cubic_alt.

init:
  z = (sqrt(#pixel)*conj(cos(#pixel)))/@scale

loop:
  z = fn1(fn2(fn3(z^3+z^2)))

bailout:
  |z-#pixel| <= @bailout

default:
  title = "Carr 1305S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .6
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1306S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (sqr(#pixel)*conj(cos(#pixel)))/@scale

loop:
  z = fn1(fn2(fn3(z^3+z^4+z^5+sqr(z^3))))

bailout:
  |z-#pixel| <= @bailout

default:
  title = "Carr 1306S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .6
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1307S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (sqr(1/#pixel)*cotanh(1/#pixel))/@scale

loop:
  z = fn1(fn2(fn3((#pixel*#pixel+z)-(z^3+z^4+z^5+sqr(z^3)))))

bailout:
  |z-#pixel| <= @bailout

default:
  title = "Carr 1307S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.3
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1308S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003. 
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (sqr(1/#pixel)*cotanh(1/#pixel))/@scale
  c = 1/sqr(#pixel)^#pixel

loop:
  z = fn1(fn2(fn3(((#pixel*#pixel+z)-conj(cos(z^3+z^4+z^5+sqr(z^3))))/(#pixel-c*c))))

bailout:
  |z-#pixel| <= @bailout

default:
  title = "Carr 1308S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .2
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1309S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (sqr(1/#pixel)*cotanh(1/#pixel))/@scale
  c = 1/sqr(#pixel)^#pixel+z

loop:
  z = fn1(fn2(fn3(((z+#pixel)+(z^2+#pixel)+(z^4+#pixel))/((z/c)+#pixel))))

bailout:
  |z-#pixel| <= @bailout

default:
  title = "Carr 1309S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .2
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1310S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Cardiod modified

init:
  z = (conj(cos(1/#pixel))*imag(1/#pixel))/@scale
  x = flip(imag(1/#pixel))
  y = real(1/#pixel)
  c = x*(cosh(y)+x*sinh(y))

loop:
  z = fn1(fn2(fn3((#pixel-z*z)/(#pixel-c*c))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1310S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .7
  center = (-1.3,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1311S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Cardiod modified

init:
  z = (conj(cos(1/#pixel))*imag(1/#pixel))/@scale
  x = flip(imag(1/#pixel))
  y = real(1/#pixel)
  c = x*(cosh(y)+x*sinh(y))

loop:
  z = fn1(fn2(fn3(1/sqr(z*z+#pixel)/(#pixel-c*c))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1311S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1312S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Creates Faceted Glass with "G"

init:
  z = #pixel/@scale
  c = -#pixel
  y = #pixel/z-(1.099,0)
  c1 = imag(#pixel)+y
  c = c1-#pixel

loop:
  z = fn1(fn2(fn3(z-(#pixel*(#pixel^z/c)))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1312S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
 
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1313S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (1/#pixel)/@scale
  c2 = #pixel/z-(1.099,0)
  c1 = imag(#pixel)+c2
  c = c1^2+c2^2

loop:
  z = fn1(fn2(fn3(z*z+c+sin(z))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1313S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1314S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Creates Faceted Glass with "G"

init:
  z = (1/#pixel)/@scale
  c2 = #pixel*#pixel/z-(1.099,0)
  c1 = conj(imag(#pixel*#pixel))+c2
  c = c1^2+c2^2

loop:
  z = fn1(fn2(fn3(z*z+c+sin(z))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1314S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1315S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Creates Faceted Glass with "G".

init:
  z = (1/#pixel)/@scale
  c2 = #pixel*#pixel/z-#pixel
  c1 = conj(imag(#pixel*#pixel))+c2
  c = c1^2+c2^2

loop:
  z = fn1(fn2(fn3(z*z+c+sin(z*z))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1315S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1316S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003. 
; Updated for UF2 by Erik Reckase, Feb 2000
; Creates Faceted Glass with "G".

init:
  z = (1/#pixel)/@scale
  c2 = #pixel*#pixel/z-#pixel
  c1 = conj(imag(#pixel*#pixel))+c2
  c = c1^2+c2^2

loop:
  z = fn1(fn2(fn3(z-(#pixel*#pixel+z)/(#pixel-c*c))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1316S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1317S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Creates Faceted Glass with "G".

init:
  z = (1/#pixel)/@scale
  c2 = sqr(z-1)
  c1 = 1/(#pixel*#pixel*#pixel)+c2
  c = (c1/c2^c2/c1)

loop:
  z = fn1(fn2(fn3((#pixel*#pixel+z)/(#pixel-c*c))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1317S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1318S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003. 
; Updated for UF2 by Erik Reckase, Feb 2000
; Creates Faceted Glass with "G".

init:
  z = (1/#pixel)/@scale
  c2 = sqr(z-1)
  c1 = 1/(#pixel*#pixel*#pixel)+c2
  c = (c1/c2^c2/c1)

loop:
  z = fn1(fn2(fn3((#pixel*#pixel+z)/c-(#pixel-c*c))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1318S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1319S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003. 
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (1/#pixel)/@scale
  c2 = sqr(z*z-1)
  c1 = 1/(#pixel*#pixel*#pixel)+c2
  c = (c1/c2^c2/c1)

loop:
  z = fn1(fn2(fn3(z-(c*1/z))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1319S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1320S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (1/#pixel)/@scale
  c2 = #pixel+z
  c1 = #pixel+c2
  c = c1/c2

loop:
  z = fn1(fn2(fn3(z*z+c)))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1320S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1321S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003. 
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (1/#pixel)/@scale
  c2 = #pixel+z
  c1 = #pixel+c2
  c = c1/c2

loop:
  z = fn1(fn2(fn3(z*1/c)))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1321S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.8
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1322S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003. 
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (4/#pixel)/@scale
  c2 = #pixel+z
  c1 = #pixel+c2
  c = #pixel*2/z-c1/c2

loop:
  z = fn1(fn2(fn3(z*1/c+1/#pixel)))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1322S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .8
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1323S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003. 
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (4/#pixel)/@scale
  c2 = #pixel+z
  c1 = #pixel+c2
  c = #pixel*2/z-c1/c2

loop:
  z = fn1(fn2(fn3((#pixel-z*1/c)/(#pixel*#pixel+1/z^c))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1323S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .8
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1324S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003. 
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (4/#pixel)/@scale
  c2 = 1.75*(z*#pixel)
  c1 = 0.5/#pixel+c2
  c = #pixel*2/z-c1/c2

loop:
  z = fn1(fn2(fn3((z/c)/(#pixel*#pixel+1/z^c))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1324S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .8
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1325S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003. 
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (4/#pixel)/@scale
  c2 = 1.75*(z*#pixel)
  c1 = 0.5/#pixel+c2
  c = #pixel*2/z-c1/c2

loop:
  z = fn1(fn2(fn3(z-(z/c)/(#pixel*#pixel+1/z^c))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1325S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .8
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1326S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (4/#pixel)/@scale
  c2 = 1.75*(z*#pixel)
  c1 = 0.5/#pixel+c2
  c = #pixel*2/z-c1/c2

loop:
  z = z*1/c
  z = fn1(fn2(fn3((z-(z+c+1/#pixel))*(z+(z-c-1/#pixel)))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1326S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .8
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1327S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003. 
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (4/#pixel)/@scale
  c2 = 1.75*(z*#pixel)
  c1 = 0.5/#pixel+c2
  c = #pixel*2/z-c1/c2

loop:
  z = z/c+1/#pixel
  z = fn1(fn2(fn3((z-(z+c+1/#pixel))*(z+(z-c-1/#pixel)))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1327S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .8
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1328S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (1/#pixel)/@scale
  c = z*z

loop:
  z = fn1(fn2(fn3(z*1/c)))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1328S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (.001,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1329S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003. 
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (1/#pixel)/@scale
  c = z*z*z

loop:
  z = fn1(fn2(fn3((z*1/c)/(#pixel-c*c))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1329S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
 
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1330S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003. 
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (1/#pixel)/@scale
  c = z*z

loop:
  z = fn1(fn2(fn3((z/c)/(#pixel^2+z))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1330S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1331S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003. 
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (1/#pixel*0.91/#pixel)/@scale
  c = z*z+#pixel

loop:
  z = fn1(fn2(fn3(sqr(z*1/c)/(#pixel*#pixel+z))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1331S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1332S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003. 
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = ((1/#pixel^#pixel+2.3))/@scale
  c = conj(imag(#pixel))/z-2.5^(#pixel+2.324)/(5/#pixel)

loop:
  z = fn1(fn2(fn3(z*1/c)))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1332S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
 
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1333S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (real(#pixel)+1.5)/@scale
  c = z+1/z+1/#pixel

loop:
  z = fn1(fn2(fn3((z*1/c))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1333S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1334S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (real(#pixel)+1.5)/@scale
  c = z+1/z+1/#pixel

loop:
  z = fn1(fn2(fn3((z*1/c)/(z*z+c))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1334S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1335S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (imag(#pixel)+1.5)/@scale
  c = z+1/z+1/#pixel

loop:
  z = fn1(fn2(fn3((z*1/c)/(#pixel-(z*z+c)))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1335S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1336S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (imag(#pixel)+1.5)/@scale
  c = z+1/z+1/#pixel

loop:
  z = fn1(fn2(fn3(sqr(z*1/c)/(#pixel-(z*z+c)))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1336S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1337S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (1/#pixel)/@scale
  c = 1/#pixel

loop:
  z = fn1(fn2(fn3((#pixel-z*z)/(#pixel-(z*z+c)))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1337S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1338S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (1/#pixel)/@scale
  c = 1/#pixel

loop:
  z = fn1(fn2(fn3(z-(#pixel-z*z)/(#pixel-(z*z+c)))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1338S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1339S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (sqr(#pixel))/@scale
  c = sqr(1/#pixel)

loop:
  z = fn1(fn2(fn3(z-(#pixel-z*z)/(#pixel-(z*z+c)))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1339S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
 
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1340S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (sqr(#pixel))/@scale
  c = sqr(1/#pixel)

loop:
  z = fn1(fn2(fn3(z-conj(cos(#pixel-z*z))/(#pixel-(z*z+c)))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1340S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
 
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1341S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (sqr(#pixel))/@scale
  c = sqr(1/#pixel)

loop:
  z = fn1(fn2(fn3(z-cotanh(#pixel-z*z)/(#pixel-(z*z+c)))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1341S"
  method = multipass
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1342S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (sqr(#pixel))/@scale
  c = sqr(1/#pixel)

loop:
  z = fn1(fn2(fn3(z-(#pixel*#pixel-z*z)/(#pixel-(z*z+c)))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1342S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
 
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1343S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (sqr(#pixel))/@scale
  c = sqr(1.5/#pixel)

loop:
  z = fn1(fn2(fn3(z-(#pixel-z*z*z+1/#pixel)/(#pixel-(z*z+c)))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1343S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1344S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (conj(cos(1/#pixel)))/@scale
  z2 = flip(real(z))
  z3 = conj(imag(z))
  c = cotanh(1/#pixel)
  z4 = conj(sqr(#pixel))/conj(cos(sqr(#pixel)))

loop:
  z = fn1(fn2(fn3((z*1/c)+z4)))
  z2 = conj(z2^z3)/z
  z3 = conj(z3^z4)/z
  z4 = (1/z*z+z4)/(#pixel-z*z+c)

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1344S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1345S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (conj(cos(1/#pixel)))/@scale
  c = cotanh(1/#pixel)
  z4 = conj(sqr(#pixel))/conj(cos(sqr(#pixel)))

loop:
  z = fn1(fn2(fn3(((z*1/c)+z4)/(#pixel-z*z+c))))
  z4 = (1/z*z+z4)/(#pixel-z*z+c)

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1345S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1346S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (conj(cos(1/#pixel*0.91/#pixel)))/@scale
  c = cotanh(1/#pixel)
  z4 = conj(sqr(#pixel))/conj(cos(sqr(#pixel)))

loop:
  z = fn1(fn2(fn3(((z*1/c)+z4)/(#pixel-z*z+c))))
  z4 = (1/z*z+1/#pixel)/(#pixel-z*z+c)

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1346S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1347S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (conj(cos(1/#pixel*0.91/#pixel)))/@scale
  c = cotanh(#pixel*#pixel)
  z4 = conj(sqr(#pixel))/conj(cos(sqr(#pixel)))

loop:
  z = fn1(fn2(fn3(((z*1/c)+z4)/(#pixel-z*z+c))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1347S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1348S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (1/sqr(#pixel*#pixel))/@start
  c = sqr(#pixel)+log(sqrt(z))

loop:
  z = fn1(fn2(fn3(z-(z*1/c)/(#pixel-(z*z+c)))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1348S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1349S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (sqr(#pixel*#pixel))/@scale
  c = sqr(#pixel)+log(conj(cos(z)))
  c1 = log(sqrt(sqr(#pixel*#pixel)))+c

loop:
  z = fn1(fn2(fn3(z-(z/c1)/(#pixel-(z*z+c)))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1349S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1350S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = #pixel/@scale
  c = 1/#pixel
  c1 = (z-1)+(c-1)

loop:
  z = fn1(fn2(fn3(z-(z*1/c1)/(#pixel-(z*z+c)))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1350S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1351S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = #pixel/@scale
  c1 = (z-1)/(1/#pixel)
  c = (c1)/z

loop:
  z = fn1(fn2(fn3(((z*1/c)/z-(#pixel-z*z)))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1351S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
 
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1352S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (1/#pixel)/@scale
  c1 = z/#pixel*#pixel
  c = (c1)*z

loop:
  z = fn1(fn2(fn3(z-(z*1/c)/(#pixel-z*z+c))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1352S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1353S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (1/#pixel*0.91/#pixel)/@scale
  c1 = (1.099,0)
  c = z*sqr(c1)

loop:
  z = fn1(fn2(fn3(conj(cos(z))+c+sin(z/c1)+conj(cos(1/#pixel)))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1353S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1354S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (1/#pixel*0.91/#pixel)/@scale
  c1 = (1.099,0)
  c = sqr(c1)*#pixel

loop:
  z = fn1(fn2(fn3(z-(conj(cos(z))+c+sin(z/c1)+conj(cos(1/#pixel))))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1354S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1355S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Carr-brot 

init:
  z = (log(3.1416)+1/#pixel)/@scale

loop:
  z = fn1(fn2(fn3(z-(sqr(z)+#pixel))))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1355S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1356S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (1/#pixel)/@scale
  c = conj(cos(#pixel))

loop:
  z = fn1(fn2(fn3((1/flip(sqr(z)+(1.099,0)))/(z*z*z*z+c))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1356S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1357S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = #pixel/@scale
  z1 = 4/sqr(sqr(sqr((1.099,0))))
  c = conj(cos(#pixel))+sqr(cotanh(z1))

loop:
  z = fn1(fn2(fn3(z-(z*1/c)+conj(cos(1/#pixel)))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1357S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .4
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1358S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = #pixel/@scale
  z1 = 4/sqr(sqr(sqr((1.099,0))))
  c = conj(cos(#pixel))+sqr(cotanh(z1))

loop:
  z = fn1(fn2(fn3((z-(z*1/c)+conj(cos(1/#pixel)))/(#pixel*#pixel+z))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1358S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .4
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1359S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (flip(imag(#pixel*#pixel)))/@scale
  z1 = sqr(sqr(sqr((0.3,0.6))))
  c = #pixel+sqr(cotanh(z^z1+1))

loop:
  z = fn1(fn2(fn3((z-(z*1/c)+sqr(1/#pixel))/(#pixel-z*z+c))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1359S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .4
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1360S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Modified Peter Jack (Newton variation) frm.

init:
  z = #pixel/@scale

loop:
  z2 = cotanh(z*z)
  z3 = cotanh(z*z*z)
  z = fn1(fn2(fn3(cotanh(z-((z3-z*.25-1.25)/((z2*3-.25)))))))

bailout:
  |(z3-z*.25-1.25)| >= 0.000001*@bailout

default:
  title = "Carr 1360S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .4
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 1
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1361S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Modified Peter Jack (Newton variation) frm

init:
  z = #pixel/@scale

loop:
  z2 = z-(z*z)
  z3 = z-(z*z*z)
  z = fn1(fn2(fn3((z-((z3-z*.25-1.25)/((z2*3-.25)+2.224))))))

bailout:
  |real(z3-z*.25-1.25)| >= 0.000001*@bailout

default:
  title = "Carr 1361S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .4
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 1
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1362S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Modified Peter Jack (Newton variation) frm

init:
  z = #pixel/@scale
  c = 1/#pixel

loop:
  z2 = z-(z*z)/(#pixel-c*c)
  z3 = z-(z*z*z)
  z = fn1(fn2(fn3((z-((z3-z*.25-1.25)/((z2*3-.25)+2.224))))))

bailout:
  |real(z3-z*.25-1.25)| >= 0.000001*@bailout

default:
  title = "Carr 1362S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .4
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 1
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1363S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Modified Peter Jack (Newton variation) frm

init:
  z = #pixel/@scale
  c = 1/#pixel

loop:
  z2 = z-(z*z)/(#pixel-c*c)
  z3 = z-(z*z*z)/(#pixel-c*c)
  z = fn1(fn2(fn3((z-((z3-z*.25-1.25)/((z2*3-.25)+2.224))))))

bailout:
  |real(z3-z*.25-1.25)| >= 0.000001*@bailout

default:
  title = "Carr 1363S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .4
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 1
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1364S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Modified Peter Jack (Newton variation) frm

init:
  z = (imag(#pixel))/@scale
  c = 1/#pixel*0.91/#pixel

loop:
  z2 = z-(z*z)/(#pixel-c*c)
  z3 = z-(z*z*z)/(#pixel-c*c)
  z = fn1(fn2(fn3((z-((z3-z*.25-1.25)/((z2*3-.25)+2.224))))))

bailout:
  |real(z3-z*.25-1.25)| >= 0.000001*@bailout

default:
  title = "Carr 1364S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .4
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 1
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1365S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Modified Peter Jack (Newton variation) frm

init:
  z = (abs(#pixel))/@scale
  c = sqr(1/#pixel*0.91/#pixel)

loop:
  z2 = z-(z*z)/(#pixel-c*c)
  z3 = z-(z*z*z)/(#pixel-c*c)
  z = fn1(fn2(fn3((z-((z3-z*.25-1.25)/((z2*3-.25)+2.224))))))

bailout:
  |real(z3-z*.25-1.25)| >= 0.000001*@bailout

default:
  title = "Carr 1365S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .4
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 1
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1366S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Modified Peter Jack (Newton variation) frm

init:
  z = (abs(#pixel))/@scale
  c = sqr(1/#pixel*0.91/#pixel)

loop:
  z2 = z-(z*z)/sinh(#pixel-z*z+c)
  z3 = z-(z*z*z)/sinh(#pixel-z*z+c)
  z = fn1(fn2(fn3((z-((z3-z*.25-1.25)/((z2*3-.25)+2.224))))))

bailout:
  |real(z3-z*.25-1.25)| >= 0.000001*@bailout

default:
  title = "Carr 1366S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .4
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 1
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1367S (XAXIS) { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Modified Scott LPS

init:
  z = #pixel/@scale
  c = 1/((1.099,0)+3)

loop:
  z = fn1(fn2(fn3(log(z)*sin(z)+c)))

bailout:
  |z|<= @bailout

default:
  title = "Carr 1367S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .4
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1368S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (((1/#pixel)^2.12)+1.25)/@scale
  c = 1/#pixel

loop:
  z = fn1(fn2(fn3((z*z)+c)))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1368S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .4
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1369S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (((1/#pixel)^2.12)+1.25)/@scale
  c = 1/#pixel
  
loop:
  z = fn1(fn2(fn3(z-(z*z+c+sinh(z))/(#pixel-c*c))))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1369S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .4
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1370S (XYAXIS) { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Jm Richard-Collard frm. modified.

init:
  z = (#pixel^2.132)/@scale
  c = z-(1-#pixel)/2.5

loop:
  sq = z*z
  z = fn1(fn2(fn3((sq*sin(sq)+sq)+c)))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1370S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
 
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 50
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1371S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = #pixel/@scale
  c = (-0.399,-1.1)^1.62+0.0224

loop:
  z = fn1(fn2(fn3(z*z+c)))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1371S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1372S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = #pixel/@scale
  c = -0.724^1.59+0.0224

loop:
  z = fn1(fn2(fn3(z*z+c)))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1372S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
 
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1373S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = #pixel/@scale
  c = -0.784^1.2786+0.0229
  
loop:
  z = fn1(fn2(fn3(z*z+c)))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1373S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1374S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = #pixel/@scale
  c = (-0.784^1.2786+0.0229)+(1.099,0)

loop:
  z = fn1(fn2(fn3(z*z+flip(c-1.2))))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1374S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1375S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = #pixel/@scale
  c = (-0.784^1.2786+0.0229)+(1.099,0)

loop:
  z = fn1(fn2(fn3(z*z+log(c+0.8))))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1375S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1376S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia Serpent

init:
  z = #pixel/@scale
  c = (-0.74543^1.2796+0.0799)+(-0.3,0.09586)

loop:
  z = fn1(fn2(fn3(conj(z*z)+conj(c+0.999978))))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1376S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1377S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = #pixel/@scale
  c = (-0.76943^1.27996+0.0799)+(-0.34,0.8)

loop:
  z = fn1(fn2(fn3(conj(z*z)+conj(c+0.9899978))))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1377S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
 
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1378S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = #pixel/@scale
  c = 1/#pixel+(1.099,0)

loop:
  z = fn1(fn2(fn3((z*z)+(c-1.5))))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1378S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1379S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = #pixel/@scale
  c = (0.35/#pixel)-0.2998

loop:
  z = fn1(fn2(fn3((z*z)+c)))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1379S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1380S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = #pixel/@scale
  c = (-0.5,0.042089)
  
loop:
  z = fn1(fn2(fn3(z^2+(c-0.25))))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1380S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
 
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1381S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = #pixel/@scale
  c = (-0.5,0.042089)

loop:
  z = fn1(fn2(fn3((z^2)-(c+0.1745))))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1381S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1382S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; SpNewton modified

init:
  z = (sqr(sqr(#pixel)))/@scale
  
loop:
  z1 = (z*z-1)*(z*z+0.16)
  z2 = 4*z^3-1.68*z
  z = fn1(fn2(fn3(z-z1/z2)))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1382S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1383S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; SpNewton modified

init:
  z = (sqr(sqr(#pixel)))/@scale
  
loop:
  z1 = (z*z-0.1/z)*(z*z+0.16)
  z2 = 4*z^3-1.68*z
  z = fn1(fn2(fn3(z-z1/z2)))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1383S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
 
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1384S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = #pixel/@scale

loop:
  z = fn1(fn2(fn3(z^2*z+(-0.7456,0.2)+0.18890342)))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1384S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1385S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Frm by Paul J. Horn, JuliCon07

init:
  z = #pixel/@scale
  
loop:
  z = fn1(fn2(fn3(sqr(sqr(z))+conj(-1.2199085))))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1385S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1386S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = #pixel/@scale
  c = z^(z-1)

loop:
  z = (z-z*1/(cotanh(c)/cosh(c)))/(#pixel-z*z+c)
  z = fn1(fn2(fn3(z-z*1/(cotanh(c)/cosh(c)))))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1386S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1387S (XAXIS_NOPARM) { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; FractalFenderC Modified
; Edited for Fractint v. 20 By George Martin, 10/98

init:
  z = 0.224
  x = |z|
  c = (z*1/#pixel)/@scale
  
loop:
  IF (|x| > 1)
    z = fn1(fn2(fn3(cosh(z)+c)))
  ENDIF
  
  z = fn1(fn2(fn3(sqr(z)+#pixel)))
  x = |z|

bailout:
  x <= @bailout

default:
  title = "Carr 1387S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1388S (XAXIS_NOPARM) { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; FractalFenderC Modified
; Edited for Fractint v. 20 By George Martin, 10/98

init:
  z = (cotanh(#pixel*#pixel))/@scale
  x = |real(z)|
  c = z/#pixel^z

loop:
  IF (|x| > 1)
    z = fn1(fn2(fn3(z-cotanh(sqr(z/c)))))
  ENDIF
  
  z = fn1(fn2(fn3(z-(z*1/c)/(#pixel*#pixel+z))))
  x = |z|

bailout:
  x <= @bailout

default:
  title = "Carr 1388S"
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  method = multipass

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1389S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = (#pixel-0.009)/@scale
  
loop:
  z = fn1(fn2(fn3(sqr(z)+sqrt(3.1416)-1.505809882)))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1389S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1390S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Creates a Leopard Spotted Julia?

init:
  z = (#pixel-0.009)/@scale

loop:
  z = fn1(fn2(fn3(sqr(z)+sqrt((0.3,0.6))-1.32)))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1390S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1391S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia?-Mandel?-Neither?

init:
  z = (#pixel-0.009)/@scale

loop:
  z = fn1(fn2(fn3(sqr(z)+sqrt(z)-1)))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1391S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1392S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (#pixel-0.009)/@scale
  
loop:
  z = fn1(fn2(fn3(z^2.099+sqrt(z)-1.1528063)))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1392S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1393S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = (#pixel-0.009)/@scale

loop:
  z = fn1(fn2(fn3((z^2)+sqrt((0.6,0.3))-1.9904)))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1393S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
 
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1394S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = (#pixel-0.019)/@scale
  
loop:
  z = fn1(fn2(fn3((z^2.09905)+sqrt((4.29908,-1.2))-3.288955)))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1394S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
 
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1395S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (#pixel-0.009)/@scale
  c = sqrt((0.3,0.6))-1.32
  
loop:
  z = fn1(fn2(fn3((z*z+c)/(#pixel*#pixel+z))))

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1395S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
 
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1396S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (#pixel-0.009)/@scale
  c = sqrt((0.3,0.6))-1.32
  
loop:
  z = fn1(fn2(fn3((z*z+c)/(#pixel*#pixel+z))))
  z = (z*1/c)

bailout:
  |real(z)| <= @bailout

default:
  title = "Carr 1396S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
 
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1397S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (sqrt(1/#pixel)/#pixel)/@scale
  c = sqrt((0.3,0.6))-1.32

loop:
  z = fn1(fn2(fn3(z-(z^#pixel+c)+1/c)))

bailout:
  |real(z)| <= @bailout 

default:
  title = "Carr 1397S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
 
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1398S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (sqrt(1/#pixel)/#pixel)/@scale
  c = sqrt((0.3,0.6))-1.32
  
loop:
  z = fn1(fn2(fn3((z*z+c)/(z*1/c))))
  
bailout:
  |real(z)| <= @bailout 

default:
  title = "Carr 1398s"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
 
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1399S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Mark Peterson; Mod. by T.J.E. Reed; Modified 

init:
  z = #pixel/@scale
  
loop:
  z = fn1(fn2(fn3(tan(z*z)+(-0.74543,0.2)+0.02)))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1399S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================