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

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

Carr1100S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = sinh((2.5/(pixel/@scale))/(2.95,0))
  c = conj(cos((2.5/pixel)/(2.95,0)))
  
loop:
  z = (pixel-sqr(z/c)-1/pixel)/(pixel-c*c)
  z = fn1(fn2(fn3(z*1/c)))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1100S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1101S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (sinh((2.5/pixel)/(1.099,0)))/@scale
  c = conj(cos((2.5/pixel)/(1.099,0)))
  
loop:
  z = fn1(fn2(fn3((pixel-sqr(z/c)-2/pixel)/(pixel-c*c))))
  z = z*1/c

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1101S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1102S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (sinh((2.5/pixel)/(2.099,0)))/@scale
  c = conj(cos((2.5/pixel)/(2.099,0)))
  
loop:
  z = fn1(fn2(fn3((pixel-sqr(z/c)-2/pixel)/(pixel-c*c))))
  z = sqr(z*1/c)

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1102S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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

Carr1103S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (sinh((2.5/pixel)/(2.099,0)))/@scale
  c = conj(cos((2.5/pixel)/(2.099,0)))
  
loop:
  z = fn1(fn2(fn3(pixel-sqr(z/c)-2/pixel)/(pixel-c*c)))
  z = sinh(z*1/c)

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1103S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1104S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (sinh((2.5/pixel)/(1.095,0)))/@scale
  c = conj(cos((2.5/pixel)/(1.095,0)))
  
loop:
  z = fn1(fn2(fn3((pixel-sqr(z/c)-1.5/pixel)/(pixel-c*c))))
  z = (pixel-(z/c-1/pixel))/(pixel-c*c)

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1104S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1105S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (sinh((2.5/pixel)/(1.095,0)))/@scale
  c = conj(cos((2.5/pixel)/(1.095,0)))
  
loop:
  z = fn1(fn2(fn3((pixel-(z/c-1/pixel))/(pixel-c*c))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1105S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1106S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (sinh((2.5/pixel)/(1.095,0)))/@scale
  c = conj(cos((2.5/pixel)/(1.095,0)))
  
loop:
  z = fn1(fn2(fn3(z*z+c)))
  z = (pixel-(z*1/c-1/pixel))/(pixel-c*c)

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1106S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1107S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (conj((2.5/pixel)/(1.095,0)))/@scale
  c = conj(cos((2.5/pixel)/(1.095,0)))
  
loop:
  z = fn1(fn2(fn3((log(z^2)^conj(z*1/c)+1/pixel)/(pixel-c*c))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1107S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1108S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (conj((2.699,0)/(4/pixel)))/@scale
  c = flip((2.699,0)/(1/pixel))
  
loop:
  z = fn1(fn2(fn3((z*1/c)/(pixel-c*c))))
  z = z/c

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1108S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1109S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = ((1/pixel)/(1.099,0))/@scale
  c = pixel/(1.099,0)
  
loop:
  z = fn1(fn2(fn3((z*z/(sinh(z)))*1/c)))
  
bailout:
  |z| <= @bailout

default:
title = "Carr-1109S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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

Carr1110S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = ((1/pixel)/(1.099,0))/@scale
  c = pixel/(1.099,0)
  
loop:
  z = fn1(fn2(fn3((z*z/(conj(cos(z))))*1/c)))
  
bailout:
  |z| <= @bailout
  
default:
  title = "Carr1110S"
  method = multipass
  periodicity = 0
  
heading 
  caption = "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 = "Utter Chaos"
  default = ident()
  hint = "Select a function to introduce utter chaos into the formula."
endfunc
}

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

Carr1111S {
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm
; Functionality added by Sharon S. Schultz, May, 2003

init:
  z = (1/pixel*0.91/pixel)/@scale
  c = cabs(1/pixel)/cotanh(1.099)
  
loop:
  z = fn1(fn2(fn3((sqr(conj(z*1/c))+(pixel)))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1111S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1112S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (1/pixel*0.91/pixel)/@scale
  c = cabs(1/pixel*1/pixel)/cotanh(1.099)
  
loop:
  z = fn1(fn2(fn3(((sqr(conj(z*1/c))+(pixel*pixel)))/(pixel-z*1/c))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1112S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1113S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (cabs(1/pixel))/@scale
  c = cabs(1/pixel)/tanh(1.099)
  
loop:
  z = fn1(fn2(fn3(((sqr(conj(z*1/c))+(pixel*pixel)))/(pixel-z/c))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1113S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1114S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = ((1/pixel)/(1.099,0))/@scale
  c = (pixel-0.5)/(1.099,0)
  
loop:
  z = fn1(fn2(fn3(sqr(z)+conj((pixel-c)-1))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1114S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1115S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = ((1/pixel)/(1.099,0))/@scale
  c = (pixel-0.5)/(1.099,0)
  
loop:
  z = fn1(fn2(fn3((sqr(z)+conj((pixel-c)-1))/(pixel-z/c))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1115S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1116S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = ((1/pixel)/(2.0,0))/@scale
  c = (pixel-0.5)/(2.0,0)
  
loop:
  z = fn1(fn2(fn3((sqr(conj(z*1/c))+conj((pixel-c)-1))/(pixel-z*z+c))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1116S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1117S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = ((2.0,0)/(1/pixel))/@scale
  c = (2.0,0)/(pixel-0.5)
  
loop:
  z = fn1(fn2(fn3((sqr(conj(z))+conj((pixel-c)-1))/(pixel-z*1/c))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1117S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1118S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = ((2.3,0)/(1/pixel))/@scale
  c = (2.3,0)/(pixel-0.67)
  
loop:
  z = fn1(fn2(fn3((sqr(conj(z-1/pixel))+conj((pixel-z/c)-1))/(pixel-z*1/c))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1118S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1119S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = ((2.3,0)/(4/pixel))/@scale
  c = (2.3,0)/(pixel-0.67)
  
loop:
  z = z*1/c 
  z = fn1(fn2(fn3((sqr(conj(z-1/pixel))+conj((pixel-z/c)-1))/(pixel-z*1/c))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1119S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1120S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = ((0.3,0)/(4/pixel))/@scale
  c = 1/(pixel-0.87)
  
loop:
  z = (z/c)/(pixel-c*c) 
  z = fn1(fn2(fn3((sqr(conj(z-1/pixel))+conj((pixel-z/c)-1))/(pixel-z*1/c))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1120S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1121S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = ((0.9,0)/(4/pixel))/@scale
  c = 1.23/(pixel-0.87)
  
loop:
  z = z*1/c
  z = fn1(fn2(fn3((pixel-z*z)/((pixel-c*c)+1/pixel))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1121S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1122S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = ((0.3,0.6)/(3/pixel))/@scale
  c = 1.63/(pixel-0.87)
  
loop:
  z = fn1(fn2(fn3((z*z+c)/1.34)))
  z = (pixel-z*z)/((pixel-c*c)+1/pixel)

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1122S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1123S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = ((1.099,0)/(pixel-(1.099,0)))/@scale
  c = 1/pixel
  
loop:
  z = fn1(fn2(fn3(pixel-((z-1)/z+exp(z))/(pixel-(z*1/c)))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1123S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1124S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = ((1.099,0)/(pixel-(1.099,0)))/@scale
  c = exp(1/pixel*0.91/pixel)
  
loop:
  z = fn1(fn2(fn3((z*1/c+1/pixel)/(pixel-conj(c*c)))))
  z = z*1/c

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1124S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1125S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (exp(1.099)/(pixel-(1.099,0)))/@scale
  c = exp(1/pixel*0.91/pixel)
  
loop:
  z = (z*1/c+1/pixel)/(pixel-conj(c*c))
  z = fn1(fn2(fn3(z*z*z+c)))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1125S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1126S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (exp(1.099)/((1.099,0)+pixel))/@scale
  c = (exp(1/pixel*0.91/pixel))/(0.3,0.6)
  
loop:
  z = fn1(fn2(fn3(z+c-abs(imag(z)))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1126S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1127S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (exp(1.099)/((1.099,0)+pixel))/@scale
  c = (exp(1/pixel*0.91/pixel))/(0.3,0.6)
  
loop:
  z = fn1(fn2(fn3((z+c-abs(imag(z)))/(pixel-c*c))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1127S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1128S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (exp(2.099)/((1.099,0)+pixel))/@scale
  c = (exp(1/pixel*0.91/pixel))/(1.099,0)
  
loop:
  z = fn1(fn2(fn3((z+c-abs(imag(z))))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1128S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1129S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (sqrt(2.099)/((1.099,0)+pixel))/@scale
  c = (exp(1/pixel*0.91/pixel))/(1.099,0)
  
loop:
  z = fn1(fn2(fn3((z+c-abs(imag(z))))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1129S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1130S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (sqrt((1.099)+pixel)/(1.099,0))/@scale
  c = (exp(1/pixel*0.91/pixel))/(1.099,0)
  
loop:
  z = fn1(fn2(fn3((z+c-abs(imag(z))))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1130S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1131S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (sqrt((1.099)+pixel)/(1.099,0))/@scale
  c = (1/pixel*0.91/pixel)/(1.099,0)
  
loop:
  z = fn1(fn2(fn3((z+c-abs(imag(conj(z))))/(1/pixel))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1131S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1132S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (cotanh((1.099)+pixel)/(1.099,0))/@scale
  c = (1/pixel*0.91/pixel)/(1.099,0)
  
loop:
  z = fn1(fn2(fn3((z+c-abs(imag(conj(z))))/(1/pixel))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1132S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1133S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (cotanh((1.099,0)+pixel)/(1.099,0))/@scale
  c = (1/pixel*0.91/pixel)/(1.099,0)
  
loop:
  z = (z+c-abs(imag(conj(z))))/(1/pixel)
  z = fn1(fn2(fn3((z+c-abs(imag(conj(z))))/(1/pixel))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1133S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1134S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (sqrt((1.099,0)+pixel)/sinh(1.099))/@scale
  c = exp(1/pixel*0.91/pixel)/sinh(1.099)
  
loop:
  z = (z+c-abs(imag(conj(z))))/(1/pixel)
  z = fn1(fn2(fn3((z+c-abs(imag(conj(z))))/(1/pixel))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1134S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1135S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (sqrt((1.099,0)+pixel)/(1.099,0))/@scale
  c = sqr(pixel)/sqr(1/(1.099,0))
  
loop:
  z = c-z*(1.099,0)
  z = fn1(fn2(fn3(c-z*pixel)))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1135S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1136S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (sqrt((1.099,0)+pixel)/(1.099,0))/@scale
  c = sqr(pixel)/sqr(1/(1.099,0))
  
loop:
  z = Fn1(fn2(fn3(pixel-(c-z*(1.099,0)))))
  z = (1.099,0)-(c-z*pixel)

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1136S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1137S (XAXIS_NOPARM) {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; FractalFenderC modified
; Edited for Fractint v.20 by George Martin, 10/98
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = ((pixel)/(1.099,0))/@scale
  x = |z|

loop:
  IF (x > 1)
    z = fn1(fn2(fn3(conj(cos(z))+pixel)))
  ENDIF
  
  z = fn1(fn2(fn3(sqr(z)+pixel)))
  x = |z|
  
bailout:  
  x <= @bailout 

default:
title = "Carr-1137S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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

Carr1138S (XAXIS_NOPARM) {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; FractalFenderC modified
; Edited for Fractint v.20 by George Martin, 10/98
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = ((pixel)/(2.099,0))/@scale
  x = |z|
  
loop:
  IF (|x| > 1)
    z = fn1(fn2(fn3(sinh(z)+pixel)))
  ENDIF
  
  z = fn1(fn2(fn3(sqr(z)+(pixel))))
  x = |z|
  
bailout:
  |x| <= @bailout 

default:
title = "Carr-1138S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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

Carr1139S (XAXIS_NOPARM) {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; FractalFenderC modified
; Edited for Fractint v.20 by George Martin, 10/98
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = ((pixel)/(2.099,0))/@scale
  x = |z|
  
loop:
  IF (x > 1)
    z = fn1(fn2(fn3(sinh(z)+pixel)))
  ENDIF
  
  z = fn1(fn2(fn3((z*z)+(pixel*pixel*pixel))))
  x = |z|
  
bailout:
  x <= @bailout 

default:
title = "Carr-1139S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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

Carr1140S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (pixel/((1.099,0)*(1/pixel)))/@scale
  c = pixel^(1/conj(cos(pixel)))
  
loop:
  z = fn1(fn2(fn3(sqr(1/pixel)+conj(z+c-abs(imag(|z|))))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1140S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1141S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (pixel/((1.099,0)*(1/pixel)))/@scale
  c = pixel^(1/conj(cos(pixel)))
  
loop:
  z = fn1(fn2(fn3(sqr(z*1/c)+conj(z+c-abs(imag(|z|))))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1141S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1142S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (pixel/((1.099,0)*(1/pixel)))/@scale
  c = pixel^(1/conj(cos(pixel)))
  
loop:
  z = fn1(fn2(fn3(sqr(z*1/c)+sqrt(z+c-abs(imag(|z|))))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1142S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1143S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (imag(pixel/((1.099,0)*(1/pixel))))
  c = pixel^(2/conj(cos(pixel)))
  
loop:
  z = fn1(fn2(fn3(sqr(z*1/c)+imag(z+c-abs(imag(|z|))))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1143S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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

Carr1144S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (imag(pixel/((2.099,0)*(1/pixel))))/@scale
  c = pixel^(2/conj(pixel))
  
loop:
  z = fn1(fn2(fn3(sqr(z/c)+imag(z+c-abs(imag(|z-0.002|))))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1144S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1145S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (imag(pixel/((2.099,0)*(1/pixel))))/@scale
  c = pixel^(2/conj(pixel))
  
loop:
  z = fn1(fn2(fn3(sqr(1/z^z*z+z)+imag(z+c-abs(imag(|z-0.002|))))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1145S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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

Carr1146S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = ((pixel/((2.099,0)*conj(cos(1/pixel)))))/@scale
  c = imag(pixel^(1/flip(pixel)))
  
loop:
  z = fn1(fn2(fn3((z*z+c)+imag(z+c-abs(imag(|z-0.002|))))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1146S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1147S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = ((pixel/((2.099,0)*conj(cos(1/pixel)))))/@scale
  c = imag(pixel^(1/sqr(pixel)))
  
loop:
  z = fn1(fn2(fn3((pixel-z*z)/(pixel-c*c))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1147S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1148S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (pixel^(sinh(pixel)/cosh(pixel)))/@scale
  c = pixel/((1.099,0)*1/z)
  
loop:
  z = fn1(fn2(fn3((sinh(z)/cosh(c)))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1148S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1149S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (pixel^(sinh(1.099)/cosh(pixel)))/@scale
  c = pixel/((2.099,0)*1/z)
  
loop:
  z = fn1(fn2(fn3((sinh(z*z))/(cosh(c*c)))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1149S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1150S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (pixel^(sinh(1.099)/cosh(pixel)))/@scale
  c = pixel/((2.099,0)*1/z)
  
loop:
  z = fn1(fn2(fn3(conj(cos(z))+c)))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1150S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1151S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (pixel/((1.099,0)^(pixel)))/@scale
  c = (pixel/((2.099,0)*1/z))
  
loop:
  z = fn1(fn2(fn3((z*z+c)/(z*1/c))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1151S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1152S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (pixel/((1.099,0)^(pixel)))/@scale
  c = (pixel/((2.099,0)*1/z))
  
loop:
  z = fn1(fn2(fn3(conj(cos((z*z+c)/(z*1/c))))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1152S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1153S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm


init:
  z = (1/pixel)/@scale
  c = (1.099,0)/(pixel-z)
  
loop:
  z = fn1(fn2(fn3((cotanh(z*z+(1/z*z)+pixel)/(pixel-c*c))/1.46)))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1153S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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



Carr1154S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

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

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1154S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1155S (XAXIS_NOPARM) {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; FractalFenderC modified
; Modified Lee Skinner frm.
; Edited for Fractint v. 20 by George Martin, 10/98
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = ((pixel)/(1.099,0))/@scale
  x = |z|
  
loop:
  IF (|x| > 1)
    z = fn1(fn2(fn3(conj(cos(z))+sqr(pixel))))
  ENDIF
  
  z = fn1(fn2(fn3(sqr(z)+(pixel))))
  x = |z|
  
bailout:
  x <= @bailout 

default:
title = "Carr-1155S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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

Carr1156S (XAXIS_NOPARM) {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; FractalFenderC modified
; Modified Lee Skinner frm.
; Edited for Fractint v. 20 by George Martin, 10/98
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = ((pixel)/(1.099,0))/@scale
  x = |z|
  
loop:
  IF (x > 1)
    z = fn1(fn2(fn3(conj(cos(z))+sqr(pixel))))
  ENDIF
  
  z = fn1(fn2(fn3(sqr(z)+(pixel/(1.099,0)))))
  x = |z|
  
bailout:
  x <= @bailout 

default:
title = "Carr-1156S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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

Carr1157S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Modified Wareman formula
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (1/pixel)/@scale
  root = (1.099,0)
  
loop:
  z3 = z*z*z
  z4 = z3*z
  z = fn1(fn2(fn3((3*z4+root)/(4*z3))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1157S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1158S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (1/pixel*0.91/pixel)/@scale
  c = pixel/(1.099,0)
  
loop:
  z = fn1(fn2(fn3((c*sqr(z)+pixel)/(pixel-z*1/c))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1158S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1159S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (1/pixel*0.91/pixel)/@scale
  c = pixel/(1.099,0)
  
loop:
  z = fn1(fn2(fn3(z-(c*sqr(z)+pixel)/(pixel-z*1/c))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1159S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1160S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (1/pixel*0.91/pixel)/@scale
  c = pixel/(1.099,0)
  
loop:
  z = fn1(fn2(fn3(z-conj(cos(c*sqr(z)+pixel))/(pixel-z*1/c))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1160S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1161S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (1/pixel*0.91/pixel)/@scale
  c = pixel/(1.099,0)
  
loop:
  z = fn1(fn2(fn3(cabs(z)-conj(cos(c*sqr(z)+pixel))/(pixel-z*1/c))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1161S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1162S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Forms Faberge' Eggs
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (1/pixel*0.91/pixel)/@scale
  c = pixel/(1.099,0)
  
loop:
  z = fn1(fn2(fn3(z-(cosh(z+pixel))/(z*1/c))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1162S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1163S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (1/pixel*0.91/pixel)/@scale
  c = pixel/(1.099,0)
  
loop:
  z = fn1(fn2(fn3(z-(conj(cos(z+pixel)))/(z*1/c))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1163S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1164S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (1/pixel*0.91/pixel)/@scale
  c = pixel/(1.099,0)
  
loop:
  z = fn1(fn2(fn3(z-(cotanh(z+pixel))/(z*1/c))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1164S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1165S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (1/pixel*0.91/pixel)/@scale
  c = pixel/(1.099,0)
  
loop:
  z = fn1(fn2(fn3(z-(conj(cos(z*z+c))+pixel)/(z*1/c))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1165S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1166S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (1/pixel*0.91/pixel)/@scale
  c = (1.099,0)/pixel
  
loop:
  z = fn1(fn2(fn3(z-(conj(cos(z*1/c+pixel)))/sqr(z/c))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1166S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1167S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (sqr(1/pixel*0.91/pixel))/@scale
  c = (1.099,0)/pixel
  
loop:
  z = fn1(fn2(fn3(z-1/(conj(cos(z/c+pixel)))/sqr(z/c))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1167S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1168S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (sqr(1/pixel*0.91/pixel))/@scale
  c = (1.099,0)/pixel
  
loop:
  z = fn1(fn2(fn3(z-1/(sinh(z/c-pixel))/sqr(z/c))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1168S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1169S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (pixel/(1.099,0))/@scale
  c = ((1/pixel)/2)/z-2.5^(pixel+2.324)/(1.099,0)
  
loop:
  z = fn1(fn2(fn3(pixel-(conj(cos(z))-z*z+1/c+1/pixel))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1169S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1170S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (pixel/(1.099,0))/@scale
  c = ((1/pixel)/2)/z-2.5^(pixel+2.324)/(1.099,0)
  
loop:
  z = fn1(fn2(fn3((pixel-z*z+c)/(pixel-(conj(cos(z))-z*z+1/c+1/pixel)))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1170S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1171S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = ((4/pixel)/(1.099,0))/@scale
  c = z-2.5^(pixel-2.324)/(1.099,0)
  
loop:
  z = fn1(fn2(fn3(z-(pixel-z*z+c))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1171S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1172S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Modified Noel Giffin formula
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (1/pixel)/@scale
  zp = (0,0)
  
loop:
  temp = z
  z = fn1(fn2(fn3(z*z-zp)))
  zp = sin(-temp)

bailout:
  |zp| <= @bailout
  
default:
title = "Carr-1172S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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

Carr1173S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Ditto above
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (1/pixel)/@scale
  zp = exp(1.099)
  
loop:
  temp = real(z)
  z = fn1(fn2(fn3(exp(z*z+zp))))
  zp = z-(conj(cos(1/temp)))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1173S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1174S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Modified Noel Giffin formula
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = pixel/@scale
  zp1 = zp2 = zp3 = (0,0)
  
loop:
  temp = z
  z = fn1(fn2(fn3(z*z-zp3)))
  zp3 = zp2
  zp2 = zp1
  zp1 = conj(temp)

bailout:
  |zp1| <= @bailout
  
default:
title = "Carr-1174S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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

Carr1175S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Modified Noel Giffin formula
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = pixel/@scale
  zp1 = zp2 = zp3 = (0,0)
  
loop:
  temp = z
  z = fn1(fn2(fn3(imag(z*z)-zp3)))
  zp3 = zp2
  zp2 = zp1
  zp1 = conj(temp)

bailout:
  |zp1| <= @bailout
  
default:
title = "Carr-1175S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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

Carr1176S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Ditto above
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (1/pixel)/@scale
  zp = (0,0)
  
loop:
  temp = z
  z = fn1(fn2(fn3(z*z-cos(zp))))
  zp = conj(temp)

bailout:
  |zp| <= @bailout
  
default:
title = "Carr-1176S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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

Carr1177S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Ditto above
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (conj(cos(1/pixel*1/pixel*1/pixel)))/@scale
  zp = (0,0)
  
loop:
  temp = z
  z = fn1(fn2(fn3(z*z-cos(zp))))
  zp = conj(temp)

bailout:
  |zp| <= @bailout
  
default:
title = "Carr-1177S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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

Carr1178S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Modified Noel Giffin formula
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (conj(cos(pixel)))/@scale
  zp1 = zp2 = zp3 = (0,0)
  
loop:
  temp = z
  z = fn1(fn2(fn3(z*z-zp3)))
  zp3 = zp2
  zp2 = zp1
  zp1 = conj(temp)

bailout:
  |zp1| <= @bailout
  
default:
title = "Carr-1178S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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

Carr1179S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Modified Noel Giffin formula
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (sqr(pixel*pixel+pixel))/@scale
  zp1 = zp2 = zp3 = (1/pixel)
  
loop:
  temp = z
  z = fn1(fn2(fn3(z*1/zp3)))
  zp3 = zp2
  zp2 = zp1
  zp1 = conj(temp)

bailout:
  |zp1| <= @bailout
  
default:
title = "Carr-1179S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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

Carr1180S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Modified Noel Giffin formula
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (sqr(pixel*pixel+pixel))/@scale
  zp1 = zp2 = zp3 = cotanh(1/-pixel)
  
loop:
  temp = z
  z = fn1(fn2(fn3(z*1/zp3)))
  zp3 = zp2
  zp2 = zp1
  zp1 = conj(temp)

bailout:
  |zp1| <= @bailout
  
default:
title = "Carr-1180S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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

Carr1181S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Modified Noel Giffin formula
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (sqr(pixel*pixel+pixel))/@scale
  zp1 = zp2 = zp3 = log(1/-pixel)
  
loop:
  temp = z
  z = fn1(fn2(fn3(z-(z*1/zp3))))
  zp3 = zp2
  zp2 = zp1
  zp1 = conj(temp)

bailout:
  |zp1| <= @bailout
  
default:
title = "Carr-1181S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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

Carr1182S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Modified Noel Giffin formula
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (sqr(pixel*pixel+pixel))/@scale
  zp1 = zp2 = zp3 = log(1/-pixel)
  
loop:
  temp = z
  z = fn1(fn2(fn3(z-(z*1/zp3+1/pixel))))
  zp3 = (zp2)
  zp2 = (zp1)
  zp1 = conj(temp)

bailout:
  |zp1| <= @bailout
  
default:
title = "Carr-1182S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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

Carr1183S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Modified Noel Giffin formula
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (sqr(pixel*pixel+pixel))/@scale
  zp1 = zp2 = zp3 = log(1/-pixel)
  
loop:
  temp = cabs(z)
  z = fn1(fn2(fn3(z-(z*1/zp3+conj(1/pixel)))))
  zp3 = (zp2)
  zp2 = (zp1)
  zp1 = conj(temp)

bailout:
  |zp1| <= @bailout
  
default:
title = "Carr-1183S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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

Carr1184S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Modified Noel Giffin formula
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (sqr(pixel*pixel+pixel))/@scale
  zp1 = zp2 = zp3 = sqr(1/-pixel)
  
loop:
  temp = cabs(z-0.5)
  z = fn1(fn2(fn3(z-(z*1/zp3+conj(1/pixel)))))
  zp3 = (zp2)
  zp2 = (zp1)
  zp1 = conj(temp)

bailout:
  |zp1| <= @bailout
  
default:
title = "Carr-1184S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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

Carr1185S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Modified Noel Giffin formula
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (sqr(pixel*pixel+pixel))/@scale
  zp1 = zp2 = zp3 = sqr(2*(1/-pixel))
  
loop:
  temp = cabs(z-0.25)
  z = fn1(fn2(fn3(z-(z*1/zp3+conj(1/pixel)))))
  zp3 = (zp2)
  zp2 = (zp1)
  zp1 = conj(temp)

bailout:
  |zp1| <= @bailout
  
default:
title = "Carr-1185S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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

Carr1186S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Modified Noel Giffin formula
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (sqr(pixel*pixel+pixel))/@scale
  zp1 = zp2 = zp3 = sqr(conj(cos(1/-pixel)))
  
loop:
  temp = cabs(z-1.25)
  z = fn1(fn2(fn3(z-(z*1/zp3+cabs(1/pixel)))))
  zp3 = (zp2)
  zp2 = (zp1)
  zp1 = conj(temp)

bailout:
  |zp1| <= @bailout
  
default:
title = "Carr-1186S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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

Carr1187S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Modified Noel Giffin formula
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = zp1 = pixel/@scale
  zp2 = (1.099,0)
  
loop:
  temp = z
  z = fn1(fn2(fn3(z-(z*zp2-zp1))))
  zp2 = zp1^.5
  zp1 = temp

bailout:
  |zp1| <= @bailout
  
default:
title = "Carr-1187S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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

Carr1188S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Modified Noel Giffin formula
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = zp1 = pixel/@scale
  zp2 = (1.099,0)
  zp3 = sqr(1/pixel*0.91/pixel)
  
loop:
  temp = z
  z = fn1(fn2(fn3(z-(z*zp2-zp1))))
  zp2 = zp1^z
  zp3 = 1/pixel
  zp1 = (temp)

bailout:
  |zp1| <= @bailout
  
default:
title = "Carr-1188S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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

Carr1189S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Modified Noel Giffin formula
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init;
  z = (pixel^2.34)/@scale
  zp1 = zp2 = zp3 = (1/pixel)*(1.099,0)
  c = z-(1/pixel)
  
loop:
  temp = cabs(z)
  z = fn1(fn2(fn3(z-(z*z+c)/(pixel-c*c))))
  zp3 = (zp2)
  zp2 = (zp1)
  zp1 = conj(temp)

bailout:
  |zp1| <= @bailout
  
default:
title = "Carr-1189S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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

Carr1190S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (1/pixel)/@scale
  c = conj(cos(1/pixel))
  
loop:
  z = fn1(fn2(fn3(sqr(sqr(z*c))+c+(1.099,0))))

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1190S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1191S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

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

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

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1191S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1192S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Modified (Modified Newton; Tim Wegner)
; from MISCBLB.FRM
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (1/pixel)/@scale
  z2 = z*z+c
  z3 = z*(conj(cos(z2)))
  c = conj(cos(1/pixel*0.91/pixel))
  
loop:
  z = fn1(fn2(fn3(z-(z3+p1*z2+1)/(6*z2+4*p1*z))))
  z2 = z*z/c*c
  z3 = z*z2
  
bailout:
  p2 <= |z3+p1*z2+1|*@bailout
  
default:
title = "Carr-1192S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

param scale
caption = "Scale"
default = 1
hint = "Select a value to scale the image."
endparam
param p1
caption = "Param 1"
default = (0.0,0.0)
hint = "Select a value for the first parameter of the formula."
endparam 
param p2
caption = "Param 2"
default = (0.0,0.0)
hint = "Select a value for the second parameter of the formula."
endparam 
param bailout
caption = "Bailout"
default = 1
hint = "Select a bailout value for the formula."
endparam 

heading
caption = "Functions"
endheading

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

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


Carr1193S {
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm
; Functionality added by Sharon S. Schultz, May, 2003

init:
  z = (conj(1/pixel*0.91/pixel))/@scale
  z2 = z+conj(conj(cos(1/pixel)))
  z3 = z*z2
  c = 1/conj(cos(sqr(pixel)))
  
loop:
  z = fn1(fn2(fn3(z*1/c)))
  z2 = z2*1/c
  z3 = z3*1/c

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1193S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1194S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Creates VERY nice images
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (conj(1/pixel*0.91/pixel))/@scale
  z2 = z+conj(conj(cos(1/pixel)))
  z3 = z*z2
  c = 1/conj(cos(sqr(pixel)))
  
loop:
  z = fn1(fn2(fn3(z-(z*z+c))))
  z2 = z2*1/c
  z3 = z3*1/c

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1194S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1195S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (conj(1/pixel*0.91/pixel))/@scale
  z2 = z+conj(conj(cos(1/pixel)))
  z3 = z*z2
  c = 1/conj(cos(sqr(pixel)))
  
loop:
  z = fn1(fn2(fn3((z*1/c)/(pixel-c*c))))
  z2 = z2*1/c
  z3 = z3*1/c

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1195S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1196S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (conj(1/pixel*0.91/pixel))/@scale
  z2 = z+conj(conj(cos(1/pixel)))
  z3 = z*z2
  c = (1/conj(cos(sqr(pixel))))/(1.099,0)
  
loop:
  z = fn1(fn2(fn3((z*1/c)/(pixel-c*c))))
  z2 = z2*1/c
  z3 = z3*1/c

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1196S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1197S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (conj(1/pixel*0.91/pixel))/@scale
  z2 = z+exp(conj(cos(1/pixel)))
  z3 = z*z2
  c = (1/conj(cos(sqr(pixel))))/(1.099,0)
  
loop:
  z = fn1(fn2(fn3((z*1/c))))
  z2 = z3-(z2+z/c)
  z3 = z2-(z3+z2)

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1197S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1198S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (conj(1/pixel*0.91/pixel))/@scale
  z2 = z+exp(conj(cos(1/pixel)))
  z3 = z*z2
  c = (1/conj(cos(sqr(pixel))))/(1.099,0)
  
loop:
  z = fn1(fn2(fn3((z/c)/(pixel-c*c))))
  z2 = z3-(z2+z/c)
  z3 = z2-(z3+z2)

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1198S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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


Carr1199S {
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Converted for UF by Erik Reckase, February 22, 2000
; SOURCE: 24Carr.frm

init:
  z = (exp(1/pixel*0.91/pixel))/@scale
  z2 = z+exp(conj(cos(1/pixel)))
  z3 = z*z2
  c = (1/conj(cos(sqr(pixel))))/(1.099,0)
  
loop:
  z = fn1(fn2(fn3((z-(z/c)/(pixel-c*c))/1.4)))
  z2 = z3-(z2+z/c)
  z3 = z2-(z3+z2)

bailout:
  |real(z)| <= @bailout
  
default:
title = "Carr-1199S"
method = multipass
periodicity = 0

heading
caption = "Parameters"
endheading

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

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