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

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

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

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

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

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

default:
  title = "Carr 1200S"
  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 = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

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

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

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

init:
  z = (1/#pixel)/@scale
  z2 = z^1/z*z
  z3 = z^z2
  c = conj(cos(1/#pixel))

loop:
  z = fn1(fn2(fn3((z*z+c)*(z*z2*z3+c))))
  z2 = z-(z2^z3)
  z3 = z-(z3^z2)

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

init:
  z = (conj(cos(1/#pixel)))/@scale
  z2 = z
  z3 = z^z2
  c = cabs(1/#pixel)

loop:
  z = fn1(fn2(fn3((z/c)/(1/z^c/c))))
  z2 = z-(z2^z3)
  z3 = z-(z3^z2)

bailout:
  |real(z)| <=100

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

loop:
  z = fn1(fn2(fn3(sqr(sqr(z*c))+c+1.224)))
  z2 = conj(z2^z3)/c
  z3 = conj(z3^z2)

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

loop:
  z = fn1(fn2(fn3(sqr(sqr(z*c))+c+1.224)))
  z2 = conj(z2^z3)/c*c
  z3 = conj(z3^z2)/c

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

init:
  z = conj(cos(sqr(1/#pixel)))
  c = cotanh(1/#pixel)
  z2 = conj(sqr(#pixel-1))/conj(cos(sqr(#pixel)))

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

init:
  z = conj(cos(sqr(1/(#pixel/@scale))))
  c = cotanh(1/#pixel*0.91/#pixel)
  z2 = conj(sqr(#pixel-1))/conj(cos(sqr(#pixel+1)))
  zp1 = z+c+z2

loop:
  z = fn1(fn2(fn3((zp1-(z/c+z*1/c))/(#pixel-c*c))))
  z = (z-(z/c+z*1/c))/(#pixel-c*c)
  z2 = z*1/z2
  
bailout:
  |real(z)| <= @bailout

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

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

heading
  caption = "Functions"
endheading

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

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

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

init:
  z = (conj(cos(sqr(1/#pixel))))/@scale
  c = cotanh(1/#pixel*0.91/#pixel)
  z2 = conj(sqr(#pixel-1))/conj(cos(sqr(#pixel+1)))
  zp1 = z+c+z2

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


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

default:
  title = "Carr 1211S"
  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 invert
  caption = "Invert Z"
  default = false
  hint = "Check to invert the value of Z for the formula."
endparam
param Bailout
  caption = "Bailout"
  default = 100
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

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

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

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

init:
  z = (conj(cos(sqr(1/#pixel))))/@scale
  c = cotanh(1/#pixel*0.91/#pixel)
  z1 = conj(sqr(#pixel-1))/conj(cos(sqr(#pixel+1)))
  c1 = conj(z+c+z1)

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

init:
  z = (conj(cos(sqr(1/#pixel))))/@scale
  c = cotanh(1/#pixel*0.91/#pixel)
  z1 = conj(sqr(#pixel-1))/conj(cos(sqr(#pixel+1)))
  c1 = conj(z+c+z1)

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

init:
  z = (sinh(sqr(1/#pixel)))/@scale
  z1 = conj(sqr(#pixel-1))/flip(sqr(#pixel+1))
  c1 = sqr(z+z1)

loop:
  z1 = z*z*z
  c1 = z1*z
  z = fn1(fn2(fn3((3*c1+1)/(4*(z*z*z)))))

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

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

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

heading
  caption = "Functions"
endheading

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

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

Carr1215S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003. 
; Updated for UF2 by Erik Reckase, Feb 2000
; Newton variant (sort of)

init:
  z = (sinh(sqr(1/#pixel)))/@scale
  c = conj(cos(1/#pixel*0.91/#pixel))
  z1 = conj(sqr(#pixel-1))/flip(sqr(#pixel+1))
  c1 = sqr(z+c+z1)

loop:
  z1 = conj(z*z*z)
  c1 = z1*z
  z = fn1(fn2(fn3((3*c1+1)/(4*(z*z*z)))))

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

init:
  z = (1/#pixel )/@scale
  zz = z*z
  zzz = zz*z
  z = (1.-(1.099,0))*zz+((1.099,0)*zzz)

loop:
  z = fn1(fn2(fn3(z+1/#pixel)))
  zsq = z*1/z
  zcu = zsq*1/z
  z = (1.-(1.099,0))*zsq+(1.099,0)*1/zcu

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

init:
  z = (1/#pixel*0.91/#pixel)/@scale
  zz = z*z
  zzz = zz*z
  z = (1.-(2.099,0))*zz+((2.099,0)*zzz)

loop:
  z = fn1(fn2(fn3(conj(cos(z+1/#pixel)))))
  zsq = z*1/z
  zcu = zsq*1/z
  z = z-((1.-(2.099,0))*zsq+(2.099,0)*1/zcu)

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

init:
  z = (1/#pixel*0.91/#pixel)/@scale
  zz = z*z
  zzz = zz*z
  z = (1.-(2.099,0))*zz+((2.099,0)*zzz)

loop:
  z = fn1(fn2(fn3(conj(cos(z+1/#pixel))/(z*1/z))))
  zsq = z*1/z
  zcu = zsq*1/z
  z = z-((1.-(2.099,0))*zsq+(2.099,0)*1/zcu)/(#pixel-z*z)

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

init:
  z = (1/#pixel*0.91/#pixel)/@scale
  c = (conj(cos(1.7/z)))/(1.099,0)

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

bailout:
  |real(z)| <= 100

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

init:
  z = (1/#pixel*0.91/#pixel)/@scale
  c = cotanh(1.4/z)/(2.099,0)

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

loop:
  z = fn1(fn2(fn3((1.099,0)*z*(1-flip(z)*flip(z)))))

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

loop:
  z = fn1(fn2(fn3((1.099,0)*z*(1-conj(z)*conj(z)))))

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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


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

init:
  z = ((#pixel)/(5.8,2.01))/@scale
  x = |real(z)|
  c = conj(cos(sqr(1/#pixel)))

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

bailout:
  x <= @bailout 

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

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


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

init:
  z = (imag(sqr(#pixel)))/@scale
  x = |real(z)|
  c = conj(cos(sqr(#pixel)))

loop:
  IF (x>1)
    z = imag(conj(cos(z))+sqr(#pixel))
  ENDIF
  
  z = fn1(fn2(fn3(sqr(z/c)+(#pixel*#pixel))))
  x = |real(z)|

bailout:
  x <= @bailout

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

loop:
  z = fn1(fn2(fn3(conj(abs(imag(z/#pixel)*c-real(z/#pixel)))\
      +flip(conj(abs(real(z/#pixel)-imag(z/#pixel))))-(1.099,0))))

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

loop:
  z = fn1(fn2(fn3(conj(abs(imag(z/c)*c-real(z/c)))\
      +flip(conj(abs(real(z/c)-imag(z/c))))-(1.099,0))))

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

loop:
  z = fn1(fn2(fn3(((abs(imag(z*1/c)*c-real(z/c)))\
       +flip(conj(abs(real(z*1/c)-imag(z*1/c))))-(1.099,0))/1.34)))

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

loop:
  z = fn1(fn2(fn3(((abs(imag(z*1/c)*c-real(z/c)))\
       +flip(conj(abs(real(z*1/c)-imag(z*1/c))))-(2.099,0))/0.34)))

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

loop:
  z = fn1(fn2(fn3((conj(abs(imag(z*1/c)*c-real(z/c)))\
      +flip(conj(abs(real(z*1/c)-imag(z*1/c))))-(1.099,0)))))

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

loop:
  z = fn1(fn2(fn2((abs(imag(conj(z*1/c)/(#pixel-c*c)))*c\
       +(cabs(real(flip(z*1/c)/(#pixel-c*c)))))/0.6)))

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

init:
  z = (sqrt(1/(#pixel*#pixel*#pixel)))/@scale
  c = sinh(sqr(0.56/#pixel*1/#pixel))

loop:
  z = fn1(fn2(fn3((abs(imag(conj(z*1/c)/(#pixel-c*c)))*c\
      +(cabs(real(flip(z*1/c)/(#pixel-c*c)))))/0.6)))

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

loop:
  z = fn1(fn2(fn3((abs(imag(#pixel/z))*cabs(real(#pixel/c)))/(#pixel-c*c))))

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

loop:
  z = fn1(fn2(fn3((z-(abs(real(z/#pixel)))*z-(cabs(imag(c/#pixel))))/(#pixel-z/c))))

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

loop:
  z = fn1(fn2(fn3(abs(conj(imag(z*z+c)))*abs(imag(conj(cos(z*z*c))))+2.224)))

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

loop:
  z = fn1(fn2(fn3(sqr(#pixel)-(abs(conj(imag(#pixel+z*z))))*(flip(real(abs(#pixel-c*c)))))))

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

loop:
  z = fn1(fn2(fn3(sqr(#pixel)-(abs(conj(imag(#pixel+z*z))))*(abs(real(flip(sqr(#pixel+c*c))))))))

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

init:
  z = (sqr(sqr(sqr(0.5-#pixel))))/@scale
  c = z*z

loop:
  z = fn1(fn2(fn3(z-(#pixel*(c*c*c-6*c*c+9*c-2)))))

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

loop:
  z3 = z*z*z
  z4 = z3*z
  z5 = z4*z
  z = fn1(fn2(fn3((3*z4+c)/(4*z3))))

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

loop:
  z3 = conj(z*z*z)
  z4 = flip(z3*z)
  z5 = z4*z
  z6 = z5*z
  z = fn1(fn2(fn3((3*z4+c)/(4*z3))))

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

init:
  z = (abs(#pixel))/@scale
  c = cabs(sqr(flip(#pixel)))

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

loop:
  z = fn1(fn2(fn3(2*cabs(z)-sqr(3*(z*4/c)))))

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

loop:
  z = fn1(fn2(fn3((2*cabs(z)-sqr(3*(z*4/c)))/(#pixel-c*c))))

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

bailout:
  |real(z)| <= @bailout
  
default:
  title = "Carr 1281S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)
  
heading 
  caption = "Parameters"
endheading

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

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

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

init:
  z = (real(#pixel)+flip(imag(#pixel)))/@scale
  c = real(#pixel)+conj(imag(#pixel))

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

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

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

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

heading
  caption = "Functions"
endheading

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

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

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

init:
  z = (real(#pixel)+flip(imag(#pixel)))/@scale
  c = real(#pixel)+conj(imag(#pixel))

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

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

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

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

heading
  caption = "Functions"
endheading

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

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