comment {
 Mandelbrot 1/z, exp(z) and log(z) by José Climent./
 I wrote the first versions with a computer MSX 80k/
 in the early 80's, using the BASIC language/
 With  UF3 is much easier. I use now a modified UF3 Mandelbrot. 
Some of the fractals are seen better with the default.map of Fractint
}

Mandelbrotbis {
;
; Generic Mandelbrot set modified for z=1/z.
;
init:
  z = @start, c=0
loop:
  z = z^@power + #pixel*c
  c=@function(z)
  
bailout:
  |z| > @bailout
default:
  title = "Mandelbrotbis"
  center = (0,0)
  
  param start
   caption = "Starting point"
   default = (-1,0)
   endparam
  
  param power
    caption = "Power"
    default = (-1,0)
    endparam
 
 param function
 caption="Function"
 endparam
 
  float param bailout
    caption = "Bailout value"
    default =.01
    min = 0.1
    endparam
 switch:
  type = "Juliabis"
  seed = #pixel
  power = power
  function=function
  bailout = bailout
}

Juliabis {
;
; Generic Julia set.
;
init:
  z = #pixel
loop:
  z = z^@power + @seed*@function(z)
bailout:
  |z| > @bailout
default:
  title = "Juliabis"
  center=(0,0)  
  
  param seed
    caption = "Julia seed"
    default = (-1, 0)
   endparam
  param power
    caption = "Power"
    default = (-1,0)
   endparam 
   
   param bailout
    caption = "Bailout value"
    default = .01
    min = 0.1
   endparam
switch:
  type = "Mandelbrotbis"
   function=function
   power = power
   bailout = bailout
}
   
Mandelbrotter {
;
; Generic Mandelbrot set modified for z=1/z.
;
init:
  z = @start, c=0
loop:
  z = z^@power + #pixel*c
  c=exp(@function(z))
  
bailout:
  |z| > @bailout
default:
  title = "Mandelbrotter"
  center = (0,0)
  
  param start
      caption = "Starting point"
   default = (-1,0)
   endparam

  param power
    caption = "Power"
    default = (-1,0)
    endparam
 
 param function
 caption="Function"
 endparam
 
   float param bailout
    caption = "Bailout value"
    default =.01
    min = 0.1
    endparam
 switch:
  type = "Juliabisa"
  seed = #pixel
  power = power
  function=function
  bailout = bailout
}

Juliabisa {
;
; Generic Julia set.
;
init:
  z = #pixel
loop:
  z = z^@power + @seed*@function(z)
bailout:
  |z| > @bailout
default:
  title = "Juliabisa"
  center=(0,0)  
  
  param seed
    caption = "Julia seed"
    default = (-1, 0)
   endparam
  param power
    caption = "Power"
    default = (-1,0)
   endparam 
   
   param bailout
    caption = "Bailout value"
    default = .01
    min = 0.1
   endparam
switch:
  type = "Mandelbrotter"
   power = power
  function=function
   bailout = bailout
}

Mandelbrotsex {
;
; Generic Mandelbrot set modified for z=log(z+c).
;
init:
  z = @start, c=0
loop:
  z = log(z+c) + #pixel*c
  c=@function(z)^@power
  bailout:
  |z| > @bailout
default:
  title = "Mandelbrotsex"
  center = (0,0)
  maxiter=1000
  param start
   caption = "Starting point"
   default = (1000000,0)
   endparam
   
   param power
    caption = "Power"
    default = (2,0)
   endparam 
  param function
    caption = "Function"
    endparam 

 float param bailout
  caption = "Bailout value"
   default =1e-7
   min=1e-8
   endparam
  
   switch:
  type = "Juliabiso2"
  seed = #pixel
  power = power
  function=function
  bailout = bailout
 }
 
 Juliabiso2 {
;
; Generic Julia set.
;
init:
  z = #pixel
 loop:
  z = z^@power + @seed*@function(z)
 bailout:
  |z| > @bailout
 default:
  title = "Juliabiso2"
  center=(0,0)  
  
  param seed
    caption = "Julia seed"
    default = (-1, 0)
   endparam
  
  param power
    caption = "Power"
    default = (2,0)
   endparam 
   
    param bailout
    caption = "Bailout value"
    default = 1e-7
    endparam
switch:
  type = "Mandelbrotsex"
  function=function
  power = power
  bailout = bailout
}
  
  
Mandelbrotseptem {
;
; Generic Mandelbrot set modified for z=z-log(z).
;
init:
  z = @start, c=0
loop:
  z =z-log(z) + #pixel*c*@function(z)
  c=cos(z)
  bailout:
  |z| > @bailout
default:
  title = "Mandelbrotseptem"
  center = (0,0)
  maxiter=1000
  magn=0.5
   param start
   hint= "c= sin(z)is valid too and the sqr of both"
  caption = "Starting point"
   hint="change starting point for some functions"
   default = (1e7,0)
   endparam
  
   param function
    caption = "Function"
    endparam 

         
  float param bailout
    caption = "Bailout value"
    default =.0000001
    min = 10e-8
    endparam
  
   switch:
  type = "Juliabiso3"
  seed = #pixel
  power = power
  function=function
  bailout = bailout
}

Juliabiso3 {
;
; Generic Julia set.
;
init:
  z = #pixel
 loop:
  z = z^@power + @seed*@function(z)
 bailout:
  |z| > @bailout
 default:
  title = "Juliabiso3"
  center=(0,0)  
  
  param seed
    caption = "Julia seed"
    default = (-1, 0)
   endparam
  
  param power
    caption = "Power"
    default = (2,0)
   endparam 
   
    param bailout
    caption = "Bailout value"
    default = 1e-7
    endparam
switch:
  type = "Mandelbrotseptem"
  power = power
  function=function 
  bailout = bailout
}


Mandescorpio {
;
; Generic Mandelbrot set modified for z=exp(z)+c
;
init:
  z = @start
  c=(-1,0)
loop:
  z =exp(z)+c+ #pixel*c
  c=z^@power
  bailout:
  |z| < @bailout
default:
  title = "Mandescorpio"
  center = (0,0)
  maxiter=1000
  magn=.7
  param start
   caption = "Starting point"
   default = (0,0)
   endparam
  param power
  caption="Power"
  default= (-1,0)
  endparam
 
  float param bailout
    caption = "Bailout value"
    default =10e6
    min = 1
    endparam
}

Mandelexpo2 {
;
; Generic Mandelbrot set modified for z=exp(z)+c
;
init:
  z = @start
  c=(-1,0)
loop:
  z =exp(z)+c+ #pixel*c
  c=z^@power+c
  bailout:
  |z| < @bailout
default:
  title = "Mandelexpo2"
  center = (0,0)
  maxiter=1000
  magn=1.5
  angle=-90
  
  param start
   caption = "Starting point"
   default = (-.03,0)
   endparam
   
  param power
  caption="power"
  default= (2,0)
  hint= "small changes in power, big changes in fractal"
  endparam
  
  float param bailout
    caption = "Bailout value"
    default =10e6
    min = 1
    endparam
}

Mandelexpo1 {
;
; Generic Mandelbrot set modified for z=exp(z)+c
;
init:
  z = @start
  c=(-1,0)
loop:
  z =exp(z)+c+ #pixel*c
  c=z*@constant
    bailout:
  |z| < @bailout
default:
  title = "Mandelexpo1"
  center = (0,0)
  maxiter=1000
  magn=2
  
  param constant
  caption="Constant"
  hint="Constant better <1"
  endparam
  
  param start
   caption = "Starting point"
   default = (0,0)
   endparam
  
 
  float param bailout
    caption = "Bailout value"
    default =10e6
    min = 1
    endparam
}

Mandelbrotquat {
;
; Generic Mandelbrot set modified for z=exp(z)
;
init:
  z = @start
loop:
  z =exp(z)+c+ #pixel*c
  c=cos(z)
  
  bailout:
  |z| < @bailout
default:
  title = "Mandelbrotquat"
  center = (-1,0)
  maxiter=1000
  magn=.5
  param start
   hint= "c= sin(z)is valid too and the sqr of both"
   caption = "Starting point"
   default = (-1,0)
   endparam
   
  float param bailout
    caption = "Bailout value"
    default =10e3
    min = 1
    endparam
}
 

Mandelbrotex {
;
; Generic Mandelbrot set. Modified for exp(z) +c
;
init:
  z = @start 
loop:
  c=-(-1,0)
  z =exp(z)+#pixel*c
  bailout:
  |z| < @bailout
default:
  title = "Mandelbrotex"
  center = (0,0)
  magn=.5
  angle=90
    param start
   caption = "Starting point"
   default = (-1,0)
   endparam
   
   param constant
   caption="Constant"
   endparam
     
   param bailout 
   caption = "Bailout value"
    default =10e8
    min = 1
   endparam
 
 switch:
  type="Juliaex"
  seed=#pixel
}

Juliaex {
;
; Generic Julia set.
;
init:
  z = #pixel
loop:
  z = z^@power + @seed*sin(z)
bailout:
  |z| < @bailout
default:
  title = "Juliaex"
  center=(0,0)  
  magn=1
  param seed
    caption = "Julia seed"
    default = (-1, 0)
   endparam
  param power
    caption = "Power"
    default = (6,0)
   endparam 
    param bailout
    caption = "Bailout value"
    default = 4
    endparam
switch:
  type = "Mandelbrotex"
    bailout = bailout
}

Juliaprueba {
;
; Generic Julia set.
;
init:
  z = #pixel
loop:
  z = @function1(z)+@seed^@power*@function2(z)
bailout:
  |z| > @bailout
default:
  title = "Juliaprueba"
  center=(0,0)  
  magn=.5
  maxiter=1000
  param seed
    caption = "Julia seed"
    default = (-1, 0)
   hint="Do: outside , orbit traps"
   endparam
  param function1
  caption="Function1"
  endparam
  
  param function2
  caption="Function2"
  endparam
  
  param power
    caption = "Power"
    default = (-2,0)
   endparam 
    param bailout
    caption = "Bailout value"
    default = 1
    endparam
}


Juliasnowflakes {
;
; Generic Julia set.
;
init:
  z = #pixel
loop:
  z = (z+ @seed)^@power
bailout:
  |z| < @bailout
default:
  title = "Juliasnowflakes"
  center=(0,0)  
  magn=.5
  maxiter=500
  param seed
    caption = "Julia seed"
    default = (-1.128, 0)
   hint="Do: outside , orbit traps"
   endparam
  
  param power
    caption = "Power"
    default = (6,0)
    hint="try power(6.01,0);(6.02,0);(3.979,0);(4.06,0)"
   endparam 
    param bailout
    caption = "Bailout value"
    default = 100
    endparam
}

Mandelbrotlog {
;
; Generic Mandelbrot set modified for z=log(z)).
;
init:
  z = @start, c=0
  loop:
  z = log(z)+c*#pixel 
  c=(@function(z))^@power
  bailout:
  |z| < @bailout
  default:
  title = "Mandelbrotlog"
  center = (1,0)
  maxiter=1000
  magn=.5
   param start
   caption = "Starting point"
   default = (2,0)
   hint= " Change starting point"
   endparam
  param power
    caption = "Power"
    default = (2,0)
   endparam 
param function
    caption = "Function"
    endparam 

  float param bailout
  caption = "Bailout value"
   default =1e4
   endparam
  
   switch:
  type = "Juliabiso"
  seed = #pixel
  power = power
  function=function
  bailout = bailout
}

Juliabiso {
;
; Generic Julia set.
;
init:
  z = #pixel
loop:
  z = z^@power + @seed*@function(z)
bailout:
  |z| < @bailout
default:
  title = "Juliabiso"
  center=(0,0)  
  param seed
    caption = "Julia seed"
    default = (-1, 0)
   endparam
  param power
    caption = "Power"
    default = (-2,0)
   endparam 
    param bailout
    caption = "Bailout value"
    default = 1e4
    endparam
switch:
  type = "Mandelbrotlog"
  function=function
  power = power
  bailout = bailout
}

Mandelbrotlog2 {
;
; Generic Mandelbrot set modified for z=log(z)).
;
init:
  z = @start, c=0
  loop:
  z = log(@function(z))+c*#pixel 
  c=(@function(z))^@power
  bailout:
  |z| < @bailout
  default:
  title = "Mandelbrotlog2"
  center = (0,0)
  maxiter=1000
  magn=2
   param start
   caption = "Starting point"
   default = (4,0)
   hint= " Change starting point"
   endparam
  param power
    caption = "Power"
    default = (2,0)
   endparam 
param function
    caption = "Function"
    endparam 

  float param bailout
  caption = "Bailout value"
   default =1e4
   endparam
  
   switch:
  type = "Juliabiso4"
  seed = #pixel
  power = power
  function=function
  bailout = bailout
}

Juliabiso4 {
;
; Generic Julia set.
;
init:
  z = #pixel
loop:
  z = z^@power + @seed*@function(z)
bailout:
  |z| < @bailout
default:
  title = "Juliabiso4"
  center=(0,0)  
  param seed
    caption = "Julia seed"
    default = (-1, 0)
   endparam
  param power
    caption = "Power"
    default = (-2,0)
   endparam 
    param bailout
    caption = "Bailout value"
    default = 1e4
    endparam
switch:
  type = "Mandelbrotlog2"
  function=function
  power = power
  bailout = bailout
}

Mandelbrotnou {
;
; Generic Mandelbrot set modified for z=log(z)).
;
init:
  z = @start, c=0
  loop:
  z = log(z)^@power+c*#pixel 
  c=(@function(z))^@power
  bailout:
  |z| < @bailout
  default:
  title = "Mandelbrotnou"
  center = (0,0)
  maxiter=1000
  magn=2
   param start
   caption = "Starting point"
   default = (4,0)
      endparam
  param power
    caption = "Power"
    default = (2,0)
   endparam 
param function
    caption = "Function"
    endparam 

  float param bailout
  caption = "Bailout value"
   default =1e4
   endparam
 }

Juliaclim1 {
;
; Generic Julia set.
;
init:
  z = #pixel
loop:
  z = z^@power + @seed*@function(z)
bailout:
  |z| > @bailout
default:
  title = "Juliaclim1"
  center=(0,0)  
  maxiter=1000
  param seed
    caption = "Julia seed"
    default = (-1, 0)
   endparam
  param power
    caption = "Power"
    hint="change power"
    default = (2,0)
   endparam 
    param bailout
    caption = "Bailout value"
    default = 1e-7
    endparam
switch:
  type = "Clim1"
  function=function
  power = power
  bailout = bailout
}

Clim1 {
;
; Generic Mandelbrot set modified for z=func(log(z+c)).
;
init:
  z = @start, c=0
loop:
  z = @function(log(z+c)) + #pixel*c
  c=sin(z)^@power
  bailout:
  |z| > @bailout
default:
  title = "Clim1"
  center = (2,0)
  maxiter=1000
  magn=.8
  
  param power
    caption = "Power"
    default = (2,0)
    hint="Change power.Try hight figures"
   endparam 

  
  param start
   hint= "c= cos(z)is valid too and the sqr of both"
   caption = "Starting point"
   default = (1000000,0)
   endparam
  
  param function
    caption = "Function"
    endparam 

  float param bailout
    caption = "Bailout value"
    default =.0000001
    min = 1e-8
    endparam
    
    switch:
  type = "Juliaclim1"
  seed = #pixel
  power = power
  function=function
  bailout = bailout
 
}