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.
}

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

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

init:
  z = ((1/#pixel)/(2*#pixel-flip(1/#pixel)-conj(1/#pixel)))/@scale
  c = (#pixel)/(flip(1/#pixel)-conj(1/#pixel))

loop:
  z = fn1(fn2(fn3(z^2+c)))
  c = ((1+flip(imag(sqrt(sin(c)))))*real(sqrt(tan(c)))/9+z)

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

default:
  title = "Carr 1700S"
  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
}

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

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

init:
  z = ((1/#pixel)/(2*#pixel-flip(1/#pixel)-conj(1/#pixel)))/@scale
  c = (#pixel)/(flip(1/#pixel)-conj(1/#pixel))

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

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

default:
  title = "Carr 1701S"
  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
}

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

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

init:
  z = ((1/#pixel)/(3*#pixel-flip(1/#pixel)-conj(1/#pixel)))/!scale
  c = (#pixel)/(flip(1/#pixel)-conj(1/#pixel))
  
loop:
  z = fn1(fn2(fn3(z^2+c)))

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

default:
  title = "Carr 1702S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.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 = 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
}

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

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

init:
  z = ((1/#pixel)/(3*#pixel-flip(1/#pixel)-conj(1/#pixel)))/@scale
  c = conj(#pixel)/(flip(1/#pixel)-conj(1/#pixel))
  

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

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

default:
  title = "Carr 1703S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.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 = 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
}

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

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

init:
  z = ((1/#pixel)/(3*#pixel-flip(1/#pixel)-conj(1/#pixel)))/@scale
  c = 1/tan(#pixel)/(flip(1/#pixel)-conj(1/#pixel))
  

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

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

default:
  title = "Carr 1704S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .9
  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
}

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

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

init:
  z = ((1/#pixel)/(3*#pixel-flip(1/#pixel)-conj(1/#pixel)))/@scale
  c = tan(#pixel+#pixel)/(flip(1/#pixel)-conj(1/#pixel))
 
loop:
  z = fn1(fn2(fn3(z^2+c)))

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

default:
  title = "Carr 1705S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .9
  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
}

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

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

init:
  z = ((1/#pixel)/(3*#pixel-flip(1/#pixel)-conj(1/#pixel)))/@scale
  c = conj(cos(3*#pixel))/(flip(1/#pixel)-conj(1/#pixel))
  
loop:
  z = fn1(fn2(fn3(z^2+c)))

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

default:
  title = "Carr 1706S"
  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
}

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

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

init:
  z = (sin(1/#pixel)/(3*#pixel-flip(1/#pixel)-conj(1/#pixel)))/@scale
  c = conj(#pixel+#pixel)/(flip(1/#pixel)-conj(1/#pixel))  

loop:
  z = fn1(fn2(fn3(z^2+c)))
  c = ((1+flip(imag(sqrt(sin(c)))))*real(sqrt(tan(c)))/9+z)

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

default:
  title = "Carr 1707S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.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 = 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
}

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

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

init:
  z = ((1/#pixel)/(3*#pixel-flip(1/#pixel)-conj(1/#pixel)))/@scale
  c = conj(#pixel+#pixel)/(#pixel-(flip(1/#pixel)-conj(1/#pixel)))
    
loop:
  z = fn1(fn2(fn3(z^2+c)))

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

default:
  title = "Carr 1708S"
  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 = 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
}

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

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

init:
  z = ((1/#pixel)/(3*#pixel-flip(1/#pixel)-conj(1/#pixel)))/@scale
  c = flip(#pixel)/(#pixel-(flip(1/#pixel)-conj(1/#pixel)))
  
loop:
  z = fn1(fn2(fn3(z^2+c)))

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

default:
  title = "Carr 1709S"
  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 = 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
}

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

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

init:
  z = ((1/#pixel)/(3*#pixel-flip(1/#pixel)-conj(1/#pixel)))/@scale
  c = conj(#pixel^1/#pixel)/(#pixel-(flip(1/#pixel)-conj(1/#pixel)))
  
loop:
  z = fn1(fn2(fn3(z^2+c)))

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

default:
  title = "Carr 1710S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .8
  center = (1,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
}

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

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

init:
  z = ((1/#pixel)/(3*(#pixel)-flip(1/#pixel)-conj(1/#pixel)))/@scale
  c = conj(#pixel^imag(1/#pixel))/(#pixel-(flip(1/#pixel)-conj(1/#pixel)))
  
loop:
  z = fn1(fn2(fn3(z^2+c)))

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

default:
  title = "Carr 1711S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .8
  center = (1,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
}

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

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

init:
  z = ((1/#pixel)/((0.3,0.6)*(#pixel)-flip(1/#pixel)-conj(1/#pixel)))/@scale
  c = conj(#pixel^(1/#pixel))/(#pixel-(flip(1/#pixel)-conj(1/#pixel)))
  
loop:
  z = fn1(fn2(fn3(z^2+c)))

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

default:
  title = "Carr 1712S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .5
  center = (1,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
}

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

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

init:
  z = ((1/#pixel)/((1/#pixel)^(#pixel)-flip(1/#pixel)-conj(1/#pixel)))/@scale
  c = conj(#pixel^(1/#pixel))/(#pixel-(flip(1/#pixel)-conj(1/#pixel)))
  
loop:
  z = fn1(fn2(fn3(z^2+c)))

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

default:
  title = "Carr 1713S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .5
  center = (1,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
}

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

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

init:
  z = ((1/#pixel)/((1/#pixel)^(#pixel)-flip(1/#pixel)-conj(1/#pixel)))/@scale
  c = conj(#pixel^(1/#pixel))/(#pixel-(flip(1/#pixel+1/#pixel)-conj(1/#pixel+1/#pixel)))
  
loop:
  z = fn1(fn2(fn3(z^3+c)))

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

default:
  title = "Carr 1714S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .7
  center = (.5,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
}

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

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

init:
  z = ((1/#pixel)/((1/#pixel)^(#pixel)-flip(1/#pixel)-conj(1/#pixel)))/@scale
  c = (0.3,0.6)/conj(#pixel)
  
loop:
  z = fn1(fn2(fn3(z^2+c)))

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

default:
  title = "Carr 1715S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .5
  center = (1,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
}

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

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

init:
  z = ((1/#pixel)/((1/#pixel)^(#pixel)-tan(1/#pixel)-sin(1/#pixel)))/@scale
  c = (-0.7456,0.2)/(conj(#pixel))
  
loop:
  z = fn1(fn2(fn3(z^2+c)))

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

default:
  title = "Carr 1716S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .5
  center = (1,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
}

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

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

init:
  z = ((1/#pixel)/((1/#pixel)^conj(#pixel)-cotan(1/#pixel)-cos(1/#pixel)))/@scale
  c = (-0.7456,0.2)/(conj(#pixel))
  
loop:
  z = fn1(fn2(fn3(z^2 + c)))

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

default:
  title = "Carr 1717S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .5
  center = (1,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
}

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

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

init:
  z = ((1/#pixel)/((1/#pixel)^log(#pixel)-flip(1/#pixel)-tan(1/#pixel)))/@scale
  c = (-0.7456,0.2)/(conj(#pixel))
  
loop:
  z = fn1(fn2(fn3(z^2+c)))

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

default:
  title = "Carr 1718S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .5
  center = (1,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
}

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

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

init:
  z = ((1/#pixel)/((1/#pixel)^(#pixel)-flip(1/#pixel)-tan(1/#pixel)))/@scale
  c = conj((4.299,-1.2))/(conj(#pixel))
  
loop:
  z = fn1(fn2(fn3(z^2+c)))

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

default:
  title = "Carr 1719S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .15
  center = (5,-1)

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
}

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

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

init:
  z = ((1/#pixel)/((1/#pixel)^(#pixel)-flip(1/#pixel)-tan(1/#pixel)))/@scale
  c = conj((-0.3,0.3))/(conj(#pixel))
  
loop:
  z = fn1(fn2(fn3(z^2+c)))

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

default:
  title = "Carr 1720S"
  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
}

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

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

init:
  z = (1/(#pixel-flip(1/#pixel)-conj(1/#pixel)))/@scale
  c = 1/(#pixel-flip(1/#pixel+0.5)-conj(1/#pixel))

loop:
  z = fn1(fn2(fn3(z^2+c-.02/z)))

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

default:
  title = "Carr 1721S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .06
  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
}

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

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

init:
  z = (1/(#pixel-sin(1/#pixel)-tan(1/#pixel)))/@scale
  c = 1/(#pixel-sqr(1/#pixel)-conj(1/#pixel))

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

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

default:
  title = "Carr 1722S"
  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 = 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
}

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

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

init:
  z = (1/(#pixel-sin(1/#pixel)-tan(1/#pixel)))/@scale
  c = 1/(#pixel-sqr(1/#pixel)-conj(1/#pixel))

loop:
  z = fn1(fn2(fn3(z^2+c)))
  c = ((1+flip(imag(sqrt(sin(c)))))*real(sqrt(tan(c)))/9+z)

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

default:
  title = "Carr 1723S"
  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 = 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
}

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

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

init:
  z = (1/(#pixel-sin(1/#pixel)-tan(1/#pixel)))/@scale
  c = 1/(#pixel-sqr(1/#pixel)-conj(1/#pixel))

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

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

default:
  title = "Carr 1724S"
  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 = 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
}

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

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

init:
  z = ((1/#pixel)/(3*#pixel-(sin(flip(#pixel)))-conj(1/#pixel)))/@scale
  c = conj(#pixel^1/#pixel)/(#pixel-sqr(flip(1/#pixel)-sqr(conj(1/#pixel))))

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

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

default:
  title = "Carr 1725S"
  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 = 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
}

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

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

init:
  z = (1/(#pixel)/(5*#pixel-(sin(flip(#pixel)))-conj(1/#pixel)))/@scale
  c = 1/(#pixel*sin(#pixel))/(#pixel-sqr(flip(1/#pixel)-sqr(conj(1/#pixel))))

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

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

default:
  title = "Carr 1726S"
  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
}

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

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

init:
  z = (1/(#pixel)/(5*#pixel-(sin(flip(#pixel)))-conj(1/#pixel)))/@scale
  c = 1/(#pixel*sin(#pixel))/(#pixel-sqr(flip(1/#pixel)-sqr(conj(1/#pixel))))

loop:
  z = fn1(fn2(fn3(z^2+c)))
  c = ((1+flip(imag(sqrt(sin(c)))))*real(sqrt(tan(c)))/9+z)

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

default:
  title = "Carr 1727S"
  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 = 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
}

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

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

init:
  z = (1/(#pixel)/(5*#pixel-(sin(flip(#pixel)))-conj(1/#pixel)))/@scale
  c = 1/(#pixel*sin(#pixel))/(#pixel-sqr(flip(1/#pixel)-sqr(conj(1/#pixel))))

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

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

default:
  title = "Carr 1728S"
  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 = 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
}

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

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

init:
  z = ((tan(1/#pixel))/(5*#pixel-(sin(flip(#pixel)))-conj(1/#pixel)))/@scale
  c = 1/(tan(#pixel)*(#pixel))/(#pixel-sqr(flip(1/#pixel)-sqr(conj(1/#pixel))))

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

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

default:
  title = "Carr 1729S"
  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 = 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
}

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

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

init:
  z = ((tan(1/#pixel))/(5*#pixel-(sin(flip(#pixel)))-conj(1/#pixel)))/@scale
  c = 1/(tan(#pixel)*(#pixel))/(#pixel-sqr(flip(1/#pixel)-sqr(conj(1/#pixel))))

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

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

default:
  title = "Carr 1730S"
  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 = 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
}

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

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

init:
  z = ((conj(1/#pixel))/(5*#pixel-(sin(flip(#pixel)))-conj(1/#pixel)))/@scale
  c = 1/(cos(#pixel)*conj(#pixel))/(#pixel-sqr(flip(1/#pixel)-sqr(conj(1/#pixel))))

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

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

default:
  title = "Carr 1731S"
  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 = 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
}

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

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

init:
  z = (1/(#pixel-flip(1/#pixel)-conj(1/#pixel)))/@scale
  c = 1/(#pixel-flip(1/#pixel)-conj(1/#pixel))/1.66

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

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

default:
  title = "Carr 1732S"
  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 = 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
}

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

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

init:
  z = ((sqr(sqr(sqr(sqr(1/(#pixel-conj(1/#pixel)-flip(1/#pixel))))))))/@scale
  c = 1/(#pixel-exp(conj(1/#pixel))-exp(flip(1/#pixel)))

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

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

default:
  title = "Carr 1733S"
  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 = 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
}

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

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

init:
  z = (tan(sqr(sqr(sqr(sqr(1/(#pixel-conj(1/#pixel)-flip(1/#pixel))))))))/@scale
  c = 1/(#pixel-sqr(tan(conj(1/#pixel)))-sqr(exp(flip(1/#pixel))))

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

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

default:
  title = "Carr 1734S"
  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 = 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
}

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

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

init:
  z = (tan(sqr(sqr(sqr(sqr(1/(#pixel-conj(1/#pixel)-flip(1/#pixel))))))))/@scale
  c = 1/(#pixel-sqr(tan(conj(1/#pixel)))-sqr(exp(flip(1/#pixel))))

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

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

default:
  title = "Carr 1735S"
  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 = 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
}

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

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

init:
  z = (abs(sqr(sqr(sqr(sqr(1/(#pixel-conj(1/#pixel)-flip(1/#pixel))))))))/@scale
  c = 1/(#pixel-sqr(tan(conj(1/#pixel)))-sqr(exp(real(conj(1/#pixel)))))

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

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

default:
  title = "Carr 1736S"
  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 = 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
}

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

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

init:
  z = (abs(sqr(sqr(sqr(sqr(1/((#pixel-0.5)-conj(1/#pixel)-flip(1/#pixel))))))))/@scale
  c = 1/(#pixel-sqr(sinh(conj(1/#pixel)))-sqr(exp(imag(conj(1/#pixel)))))

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

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

default:
  title = "Carr 1737S"
  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 = 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
}

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

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

init:
  z = (abs(sqr(sqr(sqr(sqr(1/((#pixel-0.5)-conj(1/#pixel)-flip(1/#pixel))))))))/@scale
  c = 1/(#pixel-conj(1/#pixel)-flip(1/#pixel))

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

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

default:
  title = "Carr 1738S"
  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 = 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
}

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

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

init:
  z = (abs(sqr(sqr(sqr(sqr(1/((#pixel-0.5)-conj(3/#pixel)-flip(1/#pixel))))))))/@scale
  c = 1/((#pixel)-conj(1/#pixel)-flip(1/#pixel))

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

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

default:
  title = "Carr 1739S"
  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 = 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
}

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

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

init:
  z = (sqr(sqr(1/((#pixel-0.5)-conj(1/#pixel)-flip(1/#pixel)))))/@scale
  c = 1/(#pixel-exp(sinh(conj(2/#pixel+1.5/#pixel)))-sqr(exp(imag(conj(1/#pixel)))))

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

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

default:
  title = "Carr 1740S"
  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 = 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
}

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

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

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

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

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

default:
  title = "Carr 1741S"
  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
}

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

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

init:
  z = 0
  c = 1/((#pixel/@scale)-conj(1/#pixel)-flip(1/#pixel)-tan(1/#pixel)-sin(1/#pixel))

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

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

default:
  title = "Carr 1742S"
  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 = 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
}

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

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

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

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

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

default:
  title = "Carr 1743S"
  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 = 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
}

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

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

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

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

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

default:
  title = "Carr 1744S"
  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 = 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
}

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

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

init:
  z = (1/(cosh(#pixel+#pixel))/(cotanh(1/#pixel*6/#pixel)))/@scale
  c = 1/(#pixel-conj(1/#pixel)-flip(1/#pixel))

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

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

default:
  title = "Carr 1745S"
  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 = 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
}

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

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

init:
  z = (1/(sinh(#pixel+#pixel))/(cotanh(1/#pixel*6/#pixel)))/@scale
  c = 1/(#pixel-sin(1/#pixel)-cos(1/#pixel))

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

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

default:
  title = "Carr 1746S"
  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 = 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
}

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

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

init:
  z = (1/(cotanh(#pixel+#pixel))/(cotan(1/#pixel*6/#pixel)))/@scale
  c = 1/(#pixel-conj(cabs(1/#pixel))-tanh(conj(1/#pixel)))

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

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

default:
  title = "Carr 1747S"
  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 = 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
}

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

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

init:
  z = (1/(#pixel-flip(1/#pixel)-conj(1/#pixel)))/@scale
  c = 1/((-0.7456,0.2)+(-0.3,0.6)*conj(#pixel)+flip(sin(#pixel)))

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

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

default:
  title = "Carr 1748S"
  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 = 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
}

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

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

init:
  z = ((1/(#pixel-flip(1/#pixel)-conj(1/#pixel))))/@scale
  c = 1/(sin(4/#pixel)*real(conj(#pixel))+flip(imag(#pixel)))

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

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

default:
  title = "Carr 1749S"
  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 = 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
}

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

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

init:
  z = ((1/(#pixel-flip(1/#pixel)-conj(1/#pixel))))/@scale
  c = 1/(sin(#pixel)+cos(#pixel)+conj(#pixel))

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

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

default:
  title = "Carr 1750S"
  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 = 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
}

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

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

init:
  z = ((1/(#pixel-flip(1/#pixel)-conj(1/#pixel))))/@scale
  c = 1/(conj(cos(#pixel)*cotan(#pixel)))

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

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

default:
  title = "Carr 1751S"
  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 = 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
}

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

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

init:
  z = ((1/(#pixel-flip(1/#pixel)-conj(1/#pixel))))/@scale
  c = 1/(#pixel*conj(5/#pixel-0.724))

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

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

default:
  title = "Carr 1752S"
  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 = 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
}

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

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

init:
  z = ((1/(#pixel-flip(1/#pixel)-conj(1/#pixel))))/@scale
  c = 1/(#pixel*flip(5/#pixel-0.724))

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

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

default:
  title = "Carr 1753S"
  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 = 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
}

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

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

init:
  z = ((1/(#pixel-flip(1/#pixel)-conj(1/#pixel))))/@scale
  c = 1/(#pixel*tanh(conj(1.9/#pixel-0.324)))

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

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

default:
  title = "Carr 1754S"
  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 = 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
}

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

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

init:
  z = ((1/(#pixel-conj(cos(1/#pixel))-cos(2/#pixel))))/@scale
  c = 1/(#pixel*sinh(5/#pixel-0.724))

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

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

default:
  title = "Carr 1755S"
  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 = 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
}

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

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

init:
  z = ((1/(#pixel-conj(cos(1/#pixel))-cos(2/#pixel))))/@scale
  c = (conj(1/#pixel)^2.32)-1.25

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

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

default:
  title = "Carr 1756S"
  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 = 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
}

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

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

init:
  z = ((1/(#pixel-conj(cos(1/#pixel))-cos(2/#pixel))))/@scale
  c = conj(1-#pixel)/2.33^1.75

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

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

default:
  title = "Carr 1757S"
  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 = 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
}

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

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

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

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

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

default:
  title = "Carr 1758S"
  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 = 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
}

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

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

init:
  z = ((1/(#pixel-flip(1/#pixel)-conj(1/#pixel))))/@scale
  c = (atan(real(1/#pixel)))
  
loop:
  z = fn1(fn2(fn3(z*z+c)))

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

default:
  title = "Carr 1759S"
  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 = 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
}

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

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

init:
  z = ((1/(#pixel-flip(1/#pixel)-conj(1/#pixel))))/@scale
  c = (atan(real(1/#pixel)))
  
loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(sin(c)))))*real(sqrt(tan(c)))/9+z)

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

default:
  title = "Carr 1760S"
  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 = 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
}

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

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

init:
  z = (1/(#pixel-sin(conj(1/#pixel))-flip(1/#pixel)))/@scale
  c = 1/(#pixel*(0.5*(conj(5/#pixel-0.724))))

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

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

default:
  title = "Carr 1761S"
  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 = 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
}

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

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

init:
  z = (1/(#pixel-sin(conj(1/#pixel))-flip(1/#pixel)))/@scale
  c = 1/(#pixel*(#pixel*(conj(5/#pixel-0.724))))

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

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

default:
  title = "Carr 1761AS"
  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 = 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
}

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

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

init:
  z = (1/(#pixel-(conj(1/#pixel))-flip(1/#pixel)))/@scale
  c = 1/(#pixel*(conj(2.5/#pixel-0.724)))

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

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

default:
  title = "Carr 1762S"
  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 = 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
}

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

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

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

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

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

default:
  title = "Carr 1763S"
  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 = 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
}

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

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

init:
  z = (sqrt(1/(1/(1/cos(5/#pixel)))))/@scale
  c = 1/(#pixel-conj(1/#pixel)-flip(1/#pixel))
  
loop:
  z = fn1(fn2(fn3(z*z+c)))

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

default:
  title = "Carr 1764S"
  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 = 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
}

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

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

init:
  z = (1/log(1/(1/(1/cos(5/#pixel)))))/@scale
  c = 1/(#pixel-conj(1/#pixel)-flip(1/#pixel))
  
loop:
  z = fn1(fn2(fn3(z*z+c)))

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

default:
  title = "Carr 1765S"
  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 = 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
}

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

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

init:
  z = (1/log(1/(1/(1/cos(7/#pixel)))))/@scale
  c = 1/(#pixel-conj(1/#pixel)-flip(1/#pixel))
  
loop:
  z = fn1(fn2(fn3(z*z+c)))

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

default:
  title = "Carr 1766S"
  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 = 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
}

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

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

init:
  z = (1/log(1/(1/(1/cos(4.9/#pixel)))))/@scale
  c = 1/(conj(cos(#pixel)-1/#pixel))
  
loop:
  z = fn1(fn2(fn3(z*z+c)))

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

default:
  title = "Carr 1767S"
  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 = 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
}

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

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

init:
  z = (1/log(1/(1/(1/cos(4.9/#pixel)))))/@scale
  c = 1/(conj(cos(#pixel)-cos(1/#pixel)))
  
loop:
  z = fn1(fn2(fn3(z*z+c)))

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

default:
  title = "Carr 1768S"
  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 = 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
}

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

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

init:
  z = (1/log(1/(1/(1/cos(4.9/#pixel)))))/@scale
  c = 1/(conj(cos(#pixel)-conj(1/#pixel)))
  
loop:
  z = fn1(fn2(fn3(z*z+c)))

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

default:
  title = "Carr 1769S"
  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 = 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
}

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

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

init:
  z = (1/log(1/cos(4.9/#pixel)))/@scale
  c = 1/(conj(cos(#pixel)-real(2/#pixel)))
  
loop:
  z = fn1(fn2(fn3(z*z+c)))

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

default:
  title = "Carr 1770S"
  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 = 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
}

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

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

init:
  z = (1/log(1/(1/(1/cos(7/#pixel)))))/@scale
  c = 1/(conj(cos(#pixel)-cos(1/#pixel)-flip(1/#pixel)))
  
loop:
  z = fn1(fn2(fn3(z*z+c)))

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

default:
  title = "Carr 1771S"
  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 = 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
}

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

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

init:
  z = (1/log(1/(1/(1/cos(7/#pixel)))))/@scale
  c = conj(0.5/#pixel)/(conj(cos(#pixel)-cos(1/#pixel)))
  
loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(sin(c)))))*real(sqrt(tan(c)))/9+z)

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

default:
  title = "Carr 1772S"
  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 = 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
}

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

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

init:
  z = (1/log(1/(1/(1/cos(7/#pixel)))))/@scale
  c = conj(1/#pixel)/(conj(1/#pixel)^(#pixel)-flip(1/#pixel)-conj(1/#pixel))
  
loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = z+c/2.125

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

default:
  title = "Carr 1773S"
  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 = 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
}

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

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

init:
  z = (1/#pixel)/@scale
  c = (1/#pixel)+0.1*(atan(tan(7/#pixel)))
  
loop:
  z = fn1(fn2(fn3(z*z+c)))

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

default:
  title = "Carr 1774S"
  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 = 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
}

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

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

init:
  z = (1/(#pixel*atan(3/#pixel-0.724)))/@scale
  c = (1/#pixel)+0.1*(atan(tan(7/#pixel)))
  
loop:
  z = fn1(fn2(fn3(z*z+c)))

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

default:
  title = "Carr 1775S"
  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 = 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
}

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

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

init:
  z = (1/((#pixel-0.5)-tan(2.5/#pixel)-conj(5/#pixel)))/@scale
  c = (1/#pixel+1.15/#pixel)+0.1*(tan(conj(cos(7/#pixel-real(3.5/#pixel)))))
  
loop:
  z = fn1(fn2(fn3(z*z+c)))

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

default:
  title = "Carr 1776S"
  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 = 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
}

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

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

init:
  z = (1/((#pixel-0.5)-real(2.5/#pixel)-conj(5/#pixel)))/@scale
  c = (1/#pixel+1.15/#pixel)+0.1*(tan(cotanh(7/#pixel-real(3.5/#pixel))))
  
loop:
  z = fn1(fn2(fn3(z*z+c)))

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

default:
  title = "Carr 1777S"
  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 = 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
}

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

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

init:
  z = (1/(log(#pixel)+conj(cos(#pixel))))/@scale
  c = 1/(#pixel-conj(1/#pixel)-flip(1/#pixel))

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

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

default:
  title = "Carr 1778S"
  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 = 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
}

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

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

init:
  z = (1/(cotanh(#pixel)+conj(#pixel)))/@scale
  c = 1/(#pixel-tan(#pixel)-sqrt(#pixel))

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

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

default:
  title = "Carr 1779S"
  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 = 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
}

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

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

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

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

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

default:
  title = "Carr 1780S"
  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 = 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
}

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

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

init:
  z = (1/(cos(#pixel)+conj(cos(5/#pixel-conj(cos(1.5/#pixel-1/conj(5.5/#pixel)))))))/@scale
  c = 1/(conj(#pixel-conj(1/#pixel+(1/#pixel))))

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

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

default:
  title = "Carr 1781S"
  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 = 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
}

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

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

init:
  z = (1/(atan(#pixel/conj(0.1/#pixel))))/@scale
  c = 1/(conj(#pixel)+tan(#pixel)-cos(1/#pixel)-cosh(1/#pixel))

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

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

default:
  title = "Carr 1782S"
  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 = 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
}

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

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

init:
  z = (1/(atan(#pixel/conj(0.09/#pixel))))/@scale
  c = 1/(conj(#pixel-0.2)+tan(#pixel)-cos(1/#pixel)-cosh(1/#pixel))

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

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

default:
  title = "Carr 1783S"
  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 = 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
}

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

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

init:
  z = (1/(atan(#pixel/conj(0.25/#pixel))))/@scale
  c = 1/(conj(#pixel-0.2)+sin(#pixel)+conj(cos(1/#pixel))-cos(1/#pixel))

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

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

default:
  title = "Carr 1784S"
  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 = 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
}

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

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

init:
  z = (1/(flip(#pixel/conj(0.15/#pixel))))/@scale
  c = 1/(conj(#pixel-0.2)+conj(#pixel+0.4)+cotan(7.5/#pixel)-conj(cos(1/#pixel)))

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

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

default:
  title = "Carr 1785S"
  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 = 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
}

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

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

init:
  z = (1/(flip(#pixel/conj(0.15/#pixel))))/@scale
  c = 1/(sin(#pixel-0.2)+conj(#pixel+0.1)+cotan(7.5/#pixel)-conj(cos(1/#pixel)))

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

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

default:
  title = "Carr 1786S"
  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 = 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
}

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

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

init:
  z = (1/(#pixel-conj(1/#pixel)-flip(1/#pixel)))/@scale
  c = 1/(conj(#pixel)-(flip(conj(1/z^z*z+z))))

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

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

default:
  title = "Carr 1787S"
  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 = 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
}

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

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

init:
  z = (1/(#pixel-conj(1/#pixel)-flip(1/#pixel)))/@scale
  c = 1/conj(cos(z*z+#pixel*#pixel))

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(sin(c)))))*real(sqrt(tan(c)))/9+z)

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

default:
  title = "Carr 1788S"
  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 = 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
}

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

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

init:
  z = (1/(sqrt(#pixel-conj(1/#pixel))+conj(cos(#pixel-conj(1/#pixel)))))/@scale
  c = 1/(#pixel-conj(1/#pixel)-flip(1/#pixel))
  
loop:
  z = fn1(fn2(fn3(z*z+c)))

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

default:
  title = "Carr 1789S"
  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 = 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
}

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

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

init:
  z = (1/((2*#pixel-conj(5/#pixel))+atan(#pixel-conj(2.5/#pixel))))/@scale
  c = 1/#pixel+conj(flip(tan(z*z)))

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

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

default:
  title = "Carr 1790S"
  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 = 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
}

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

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

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

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

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

default:
  title = "Carr 1791S"
  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 = 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
}

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

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

init:
  z = (1/(#pixel-1/conj(#pixel)-1/flip(#pixel)))/@scale
  c = 1/(#pixel-(0.124/z*(0.524/#pixel/z)))

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

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

default:
  title = "Carr 1792S"
  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 = 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
}

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

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

init:
  z = (1/(conj(#pixel)+sqrt(#pixel)+log(#pixel)))/@scale
  c = 1/(#pixel-(0.124/z*(0.524/#pixel/z)))

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

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

default:
  title = "Carr 1793S"
  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 = 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
}

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

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

init:
  z = (1/(#pixel-sin(1/#pixel)-sinh(1/#pixel)))/@scale
  c = (1/(#pixel-(0.124/z*(0.524/#pixel/z))))

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

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

default:
  title = "Carr 1794S"
  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 = 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
}

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

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

init:
  z = (1/(#pixel-real(1/#pixel)-sinh(1/#pixel-0.25)))/@scale
  c = (1/(#pixel-(0.124/z*(0.524/#pixel/z))))

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

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

default:
  title = "Carr 1795S"
  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 = 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
}

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

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

init:
  z = (1/(#pixel-cabs(sinh(5.5/#pixel))-tanh(sin(1/#pixel-0.25))))/@scale
  c = (1/(#pixel-(0.124/z*cos(0.524/#pixel/z))))

loop:
  z = fn1(fn2(fn3(0.124/#pixel/c*c*c*(#pixel+cos(2.5/#pixel))/z^(1.23))))

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

default:
  title = "Carr 1796S"
  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 = 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
}

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

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

init:
  z = (1/(#pixel-cabs(cosh(5.5/#pixel))-tanh(sin(1/#pixel-0.25))))/@scale
  c = (1/(#pixel-(0.124/z*cos(0.524/#pixel/z))))

loop:
  z = fn1(fn2(fn3(0.124/#pixel/c*c*c*(#pixel+cos(2.5/#pixel))/z^(1.23))))

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

default:
  title = "Carr 1797S"
  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 = 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
}

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

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

init:
  z = (1/(#pixel-cotanh(cosh(5.5/#pixel))-tanh(sin(1/#pixel-0.25))))/@scale
  c = (1/(#pixel-(0.124/z*cos(0.524/#pixel/z))))

loop:
  z = fn1(fn2(fn3(0.124/#pixel/c*c*c*(#pixel+cos(2.5/#pixel))/z^(1.23))))

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

default:
  title = "Carr 1798S"
  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 = 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
}

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

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

init:
  z = (1/(#pixel-cotanh(cosh(5.5/#pixel))-conj(cos(sin(1/#pixel-0.25)))))/@scale
  c = (1/(#pixel-(0.124/z*cos(0.524/#pixel/z))))

loop:
  z = fn1(fn2(fn3(0.124/#pixel/c*c*c*(#pixel+cos(2.5/#pixel))/z^(1.23))))

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

default:
  title = "Carr 1799S"
  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 = 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
}

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