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

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

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

init:
  z = (acos(exp(1/atanh(#pixel-0.5))))/@scale
  c  =sqr(1+asin(#pixel))

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

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

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

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

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

init:
  z = ((1/log(#pixel/0.2)-conj(1/#pixel))/(acos(#pixel)))/@scale
  c = #pixel*#pixel/(asin(#pixel))

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

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

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

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 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
}

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

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

init:
  z = ((1/log(#pixel/0.2)-conj(1/#pixel))/(acos(#pixel)))/@scale
  c = #pixel*#pixel/(asin(#pixel))

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

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

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

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 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
}

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

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

init:
  z = ((1/log(#pixel/0.2)-conj(1/#pixel))/(acos(#pixel)))/@scale
  c = #pixel*#pixel/(asin(#pixel))

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

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

default:
  title = "Carr 1603S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.2
  center = (-.3,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 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
}

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

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

init:
  z = ((1/log(#pixel/0.2)-1/conj(1/#pixel))/(acos(#pixel)))/@scale
  c = conj(#pixel*#pixel)/(1/asin(#pixel))

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

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

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

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 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
}

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

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

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

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

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

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

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

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

init:
  z = (1/asinh(#pixel))/@scale
  c = log((#pixel+4/#pixel)/(1/asin(1-#pixel)))

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

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

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

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

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

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

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

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

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

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

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

init:
  z = ((-0.3,0.3)*#pixel)/@scale
  c = #pixel*#pixel

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

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

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

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

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

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

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

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

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

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

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

init:
  z = (1/conj(cos(#pixel))+1/asin(conj(#pixel))-0.5)/@scale
  c = 1.34/(1+sqr(#pixel*#pixel+sin(1/#pixel)))

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

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

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

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

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

init:
  z = (1/cos(#pixel)+2/cos(conj(#pixel))-0.5)/@scale
  c = 1.34/(1+sqr(#pixel*#pixel+sin(1/#pixel)))

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

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

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

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

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

init:
  z = ((1/cos(#pixel)/cos(1/conj(#pixel)))-2/#pixel)/@scale
  c = 2.34/(1+sqr(#pixel*#pixel+1/asin(1/#pixel)))

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

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

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

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

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

init:
  z = ((1/sin(#pixel)/cos(1/flip(#pixel)))-1.5/#pixel)/@scale
  c = 2.34/(1.5+sqr(#pixel*#pixel+2/atan(1/#pixel)))

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

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

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

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

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

init:
  z = ((1/sin(#pixel)/cos(1/flip(#pixel)))-1.5/#pixel)/@scale
  c = 2.34/(1.5+sqr(#pixel*#pixel+2/atan(1/#pixel)))

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

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

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

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

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

init:
  z = ((1/cos(#pixel)/sin(1/flip(#pixel)))-2.5/#pixel)/@scale
  c = 2.34/(1.75+sqr(#pixel*#pixel+2/acos(1/#pixel)))

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

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

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

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

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

init:
  z = ((1/cos(#pixel)/sin(1/flip(#pixel)))-2.5/#pixel)/@scale
  c = 2.34/(1.75+sqr(#pixel*#pixel+2/acos(1/#pixel)))

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

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

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

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

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

init:
  z = ((2.7/sin(#pixel)/cos(1/flip(#pixel)))-1.5/#pixel)/@scale
  c = 2.34/(3.5+sqr(#pixel*#pixel+2/atan(1/#pixel)))

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

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

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

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

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

init:
  z = ((2.7/sin(#pixel+#pixel)/cos(1/flip(#pixel)))-1.5/#pixel)/@scale
  c = 2.34/(3.5+sqr(#pixel*#pixel+2/atan(1/#pixel)))

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

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

default:
  title = "Carr 1618S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .3
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 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
}

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

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

init:
  z = (1/acos(1+#pixel*#pixel)/(1/asin(1-#pixel)))/@scale
  c = 3.34/(1.5+sqr((#pixel+0.5)*(#pixel+0.5)+atan(#pixel+#pixel)))

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

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

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

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

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

init:
  z = (1/sin(1+2.23*(#pixel))/(1/sin(1-#pixel)))/@scale
  c = 0.34/(0.25+conj((#pixel+0.5)*(#pixel+0.5)+atan(#pixel+1/#pixel)))

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

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

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

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

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

init:
  z = (exp(1+2.23*(#pixel))/(sqr(1-#pixel)))/@scale
  c = 0.34/(0.25+conj(asin((#pixel+0.5)*(#pixel+0.5))+atan(#pixel+1/#pixel)))

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

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

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

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

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

init:
  z = (2/sin(#pixel)/cos(1/#pixel*1/#pixel))/@scale
  c = 2/sin(3/#pixel)/(cos(3/#pixel))

loop:
  z = fn1(fn2(fn3(z^2 + c)))
  c = ((1+flip(imag(sqrt(asin(c-0.1/#pixel)))))*real(sqrt(atan(c)))/9+z)

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

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

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

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

init:
  z = (2/sin(#pixel)/cos(1/#pixel*1/#pixel))/@scale
  c = 2/sin(3/#pixel)/(cos(3/#pixel))

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

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

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

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

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

init:
  z = (3/sin(#pixel)/cos(1/#pixel*1/#pixel))/@scale
  c = 2/sin(4/#pixel)/(cos(4/#pixel))

loop:
  z = fn1(fn2(fn3(z^2 + c)))
  c = ((1+flip(imag(sqrt(asin(c-0.1/#pixel)))))*real(sqrt(atan(c)))/9+z)

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

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

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

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

init:
  z = (3/sin(1/#pixel*1/#pixel)/(2.5/cos(#pixel*#pixel)))/@scale
  c = 2/conj(cos(4/#pixel-1))/(conj(cos(4/#pixel+1)))

loop:
  z = fn1(fn2(fn3(z^2 + c)))
  c = ((1+flip(imag(sqrt(asin(c-0.1/#pixel)))))*real(sqrt(atan(c)))/9+z)

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

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

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

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

init:
  z = (0.7/sin(1/#pixel*1/#pixel)/(2.5/cos(#pixel*#pixel)))/@scale
  c = 2/conj(cos(4/#pixel-1))/(conj(cos(4/#pixel+1)))

loop:
  z = fn1(fn2(fn3(z^2 + c)))
  c = ((1+flip(imag(sqrt(asin(c-0.1/#pixel)))))*real(sqrt(atan(c)))/9+z)

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

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

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

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

init:
  z = (0.55/sinh(1/#pixel)/(2.5/abs(#pixel*1.33)))/@scale
  c = 0.38/cos(4/#pixel-1)/(cos(4/#pixel+1))

loop:
  z = fn1(fn2(fn3(z^2 + c)))
  c = ((1+flip(imag(sqrt(asin(c-0.1/#pixel)))))*real(sqrt(atan(c)))/9+z)

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

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

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

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

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

loop:
  z = fn1(fn2(fn3(z^2 + c)))
  c = ((1+flip(imag(sqrt(asin(c-0.1/#pixel)))))*real(sqrt(atan(c)))/9+z)

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

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

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

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

init:
  z = ((sqrt(#pixel)^#pixel)/sqr(sqr(#pixel)))/@scale
  c = (-0.3,0.3)/log(#pixel+1/#pixel)

loop:
  z = fn1(fn2(fn3(z^2 + c)))
  c = ((1+flip(imag(sqrt(asin(c-0.1/#pixel)))))*real(sqrt(atan(c)))/9+z)

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

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

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

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

init:
  z = ((sqrt(#pixel)^#pixel)/sqr(sqr(1/asin(#pixel))))/@scale
  c = acos(#pixel)/acos(#pixel+1/#pixel)

loop:
  z = fn1(fn2(fn3(z^2 + c)))
  c = ((1+flip(imag(sqrt(asin(c-0.1/#pixel)))))*real(sqrt(atan(c)))/9+z)

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

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

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

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

init:
  z = (asin(sqrt(#pixel)^#pixel)/sqr(sqr(tan(1/asin(#pixel)))))/@scale
  c = acos(#pixel)/acos(#pixel+1/#pixel)

loop:
  z = fn1(fn2(fn3(z^2 + c)))
  c = ((1+flip(imag(sqrt(asin(c-0.1/#pixel)))))*real(sqrt(atan(c)))/9+z)

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

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

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

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

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

loop:
  z = fn1(fn2(fn3(z^2 + c)))
  c = ((1+flip(imag(sqrt(asin(c-0.1/#pixel)))))*real(sqrt(atan(c)))/9+z)

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

default:
  title = "Carr 1632S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .3
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 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
}

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

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

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

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

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

default:
  title = "Carr 1633S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .3
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 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
}

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

Carr1634S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Jan 2000
; Julia (same as 1632, included for completeness)

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

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(asin(c-0.1/#pixel)))))*real(sqrt(atan(c)))/9+z)

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

default:
  title = "Carr 1634S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .3
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 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
}

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

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

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

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(asin(c-0.1/#pixel)))))*real(sqrt(atan(c)))/9+z)

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

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

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

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

init:
  z = (1/sin(1/#pixel*0.91/#pixel)*1/#pixel)/@scale
  c = 1/conj(5/#pixel*0.88/#pixel)

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(asin(c-0.1/#pixel)))))*real(sqrt(atan(c)))/9+z)

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

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

heading 
  caption = "Parameters"
endheading

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

heading
  caption = "Functions"
endheading

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

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

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

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

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(asin(c-0.1/#pixel)))))*real(sqrt(atan(c)))/9+z)

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

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

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

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

init:
  z = ((1/cosh(1/cotanh(0.5/#pixel))))/@scale
  c = 1/cosh(1/tanh(1/#pixel))

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(asin(c-0.1/#pixel)))))*real(sqrt(atan(c)))/9+z)

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

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

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 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
}

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

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

init:
  z = (conj(1/cosh(1/cotanh(0.5/#pixel))))/@scale
  c = flip(1/cosh(1/tanh(1/#pixel)))

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(asin(c-0.1/#pixel)))))*real(sqrt(atan(c)))/9+z)

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

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

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

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

init:
  z = (conj(1/sinh(1/tanh(0.5/#pixel))))/@scale
  c = flip(1/sinh(1/cosh(1/#pixel)))

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(asin(c-0.1/#pixel)))))*real(sqrt(atan(c)))/9+z)

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

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

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

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

init:
  z = (conj(1/sinh(1/tanh(0.75/#pixel))))/@scale
  c = conj(1/sinh(1/cosh(1/#pixel)))

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

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

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

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

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

init:
  z = (1/tan(1/conj(1/sinh(1/tanh(0.75/#pixel)))))/@scale
  c = 1/tan(1/conj(1/sinh(1/cosh(1/#pixel))))

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

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

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

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

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

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

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

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

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

heading 
  caption = "Parameters"
endheading

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

heading 
  caption = "Parameters"
endheading

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

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

init:
  z = (1/tan(#pixel)/(-0.7456,0.2)/#pixel)/@scale
  c = 1/tan(#pixel)/(-0.7456,0.2)/#pixel

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

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

default:
  title = "Carr 1646S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .3
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 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
}

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

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

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

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

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

default:
  title = "Carr 1647S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .3
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 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
}

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

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

init:
  z = ((1/asin(#pixel)/(0.3,0.6))/#pixel)/@scale
  c = (1/sin(#pixel)/(0.3,0.6))/#pixel

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

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

default:
  title = "Carr 1648S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .3
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 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
}

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

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

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

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

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

default:
  title = "Carr 1649S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .3
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 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
}

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

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

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

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

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

default:
  title = "Carr 1650S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .4
  center = (0,0)

heading 
  caption = "Parameters"
endheading

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

heading
  caption = "Functions"
endheading

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

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

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

init:
  z = (abs(1/tan(#pixel)/sin(#pixel)/(1/cos(#pixel))))/@scale
  c = 1/sin(z^#pixel)

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

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

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

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

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

init:
  z = (abs(1/tan(#pixel)/sin(#pixel)/(1/cos(#pixel))))/@scale
  c = 1/conj(cos(z^#pixel))

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

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

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

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

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

init:
  z = (abs(1/tan(#pixel)/sin(#pixel)/(1/cos(#pixel))))/@scale
  c = 1/conj(cos(z^#pixel))

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

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

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

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

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

init:
  z = (abs(1/tan(#pixel)/sin(#pixel)/(1/cos(#pixel))))/@scale
  c = 1/asin(z^#pixel)

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

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

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

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

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

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

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

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

default:
  title = "Carr 1655S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .3
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 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
}

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

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

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

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

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

default:
  title = "Carr 1656S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .3
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 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
}

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

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

init:
  z = (abs(1/tan(#pixel*#pixel)))/@scale
  c = 0.1*sin(z*z)/#pixel

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

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

default:
  title = "Carr 1657S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .3
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 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
}

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

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

init:
  z = (conj(abs(tan(#pixel*#pixel))))/@scale
  c = 0.1*sin(z*z*z)/(#pixel-0.5)

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

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

default:
  title = "Carr 1658S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .3
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 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
}

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

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

init:
  z = (1/sin(1/#pixel)/(1/cos(1/#pixel))/(cos(1-#pixel)))/@scale
  c = #pixel+(-0.7456,0.2)

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

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

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

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

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

init:
  z = (1/sin(2/#pixel)/(1/cos(2/#pixel))/(cos(1-conj(#pixel))))/@scale
  c = 1/conj(cos(#pixel))+(-0.7456,0.2)

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

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

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

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

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

init:
  z = (1/sin(2/#pixel)/(1/cos(2/#pixel))/(cos(1/#pixel-conj(#pixel))))/@scale
  c = 1/cos(#pixel)+(-0.3,0.6)

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

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

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

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

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

init:
  z = (1/conj(cos(2/#pixel))/(cos(1/#pixel-sin(#pixel))))/@scale
  c = 1/sinh(#pixel)/(1/cos((1.0,0.4)))

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

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

default:
  title = "Carr 1662S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .4
  center = (0,0)

heading 
  caption = "Parameters"
endheading

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

default:
  title = "Carr 1663S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .4
  center = (0,0)

heading 
  caption = "Parameters"
endheading

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

default:
  title = "Carr 1664S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .4
  center = (0,0)

heading 
  caption = "Parameters"
endheading

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

heading
  caption = "Functions"
endheading

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

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

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

init:
  z = (1/cos(2.5/#pixel)/(1/#pixel-1))/@scale
  c = 1/cos(3.5/#pixel)/(1/#pixel+1)

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

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

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

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

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

init:
  z = (1/cos(2.5/#pixel)/(1/#pixel-1))/@scale
  c = 1/cos(3.5/#pixel)/(1/#pixel+1)

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

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

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

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

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

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

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

bailout:
  |z| <= @bailout

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

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 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
}

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

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

init:
  z = (1/cos(2.5/#pixel)/(1/#pixel-1))/@scale
  c = sqrt(1/(1/(1/cos(5/#pixel))))

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

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

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

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

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

init:
  z = (1/log(1/(1/(1/cos(5/#pixel)))))/@scale
  c = sqrt(1/(1/(1/cos(5/#pixel))))

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

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

default:
  title = "Carr 1669S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .4
  center = (0,0)

heading 
  caption = "Parameters"
endheading

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

heading
  caption = "Functions"
endheading

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

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

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

init:
  z = (sqr(0.1-#pixel))/@scale
  c = 1/log(z)^cos(#pixel*sin(#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 1670S"
  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
}

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

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

init:
  z = (sqr(0.1-#pixel))/@scale
  c = 1/log(z)^cos(#pixel*sin(#pixel))

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

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

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

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

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

init:
  z = (sqr(conj(0.1-#pixel)))/@scale
  c = 1/log(z)^sin(#pixel*conj(cos(#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 1672S"
  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
}

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

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

init:
  z = (sqr(sin(cos(0.1-#pixel))))/@scale
  c = log(z)^(1/sin(#pixel*conj(cos(#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 1673S"
  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
}

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

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

init:
  z = (sqr(1/sin(1/conj(cos(0.1-#pixel)))))/@scale
  c = sqrt(z)^(1/sin(#pixel*sin(#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 1674S"
  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
}

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

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

init:
  z = (sqr(1/sin(1/conj(cos(sqr(0.2-#pixel))))))/@scale
  c = sinh(z*z)/(sin(#pixel*1/sin(#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 1675S"
  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
}

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

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

init:
  z = (sqr(1/sin(1/tanh(sqr(0.32-#pixel)))))/@scale
  c = sinh(z*z)-(sin(#pixel*1/sin(#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 1676S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.5
  center = (.3,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 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
}

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

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

init:
  z = ((0.25-#pixel)/(conj(#pixel)))/@scale
  c = (0.33-#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 1677S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (.3,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 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
}

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

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

init:
  z = ((0.25-#pixel)/(conj(#pixel)))/@scale
  c = (0.33-#pixel)

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

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

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

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

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

init:
  z = (sin(0.25-#pixel)/(sin(1/#pixel)))/@scale
  c = (0.33-sin(#pixel))/(0.33-cos(#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 1679S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.3
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 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
}

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

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

init:
  z = (sin(0.25-#pixel)/(sin(1/#pixel)))/@scale
  c = (0.33-sin(#pixel))/(0.33-cos(#pixel))

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

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

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

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 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
}

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

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

init:
  z = (sin(0.25-#pixel)/(sin(1/#pixel)))/@scale
  c = (0.33-sin(#pixel))/(0.33-cos(#pixel))

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

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

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

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 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
}

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

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

init:
  z = (1/cos(0.25-#pixel)/(1/conj(cos(1/#pixel))))/@scale
  c = (0.33-cosh(#pixel))/(0.33-sinh(#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 1682S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .3
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 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
}

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

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

init:
  z = (sin(0.33-#pixel))/@scale
  c = (0.39-cos(0.33-#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 1683S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.7
  center = (.3,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 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
}

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

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

init:
  z = (flip(0.33-1/cotan(#pixel)))/@scale
  c = (0.39-1/cotan(0.33-5/#pixel))-1/#pixel

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

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

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

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

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

init:
  z = (sqr(1.33-cotan(flip(0.95/#pixel/#pixel))))/@scale
  c = (0.39-asin(0.33-1.5/((-0.7456,0.2))))/sqr(flip(4/#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 1685S"
  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
}

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

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

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

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

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

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

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

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

init:
  z = (1/(#pixel-1/#pixel-0.9/#pixel))/@scale
  c = 1/(#pixel-1/#pixel-0.9/#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 1687S"
  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
}

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

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

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

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

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

default:
  title = "Carr 1688S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .3
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 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
}

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

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

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

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

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

default:
  title = "Carr 1689S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .3
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 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
}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

init:
  z = (1/(#pixel+5*#pixel))/@scale
  c = 1/#pixel-conj(#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 1695S"
  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
}

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

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

init:
  z = (((-0.7456,0.2))/(flip(#pixel)))/@scale
  c = 1/((#pixel-(1.099,0)/#pixel)/#pixel)/conj(#pixel)

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

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

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

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

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

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

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

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

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

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

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

init:
  c = ((#pixel)/(flip(#pixel)-conj(1/#pixel)))/@scale
  z = (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 1698S"
  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
}

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

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

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

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

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

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

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