mandel1{
;martine.girard3@wanadoo.fr
;demo voir gmc.upr
init:
z=@mandel
c=#pixel

loop:

z=(@k1*@fn1(@k2*@fn2(@k3*@fn3(z^@p0))^@p3)^@p2)^@p1+(@k4*fn4(@k5*@fn5((@k6*@fn6(z^@p0))^@p6))^@p5)^@p4+c+(@k7*@fn7(@k8*@fn8(@k9*@fn9(z^@p0))^@p9)^@p8)^@p7+(@k10*@fn10(@k11*@fn11((@k12*@fn12(z^@p0))^@p12))^@p11)^@p10




if (@papillon==0)
if (abs(real(#z))>0.5*@coupure && abs(imag(#z))<@coupure)
z=0
endif
endif

if (@papillon==1)
t=((atan(imag(#z)/real(#z))))

if (abs(real(#z))>0.5*@coupure && abs(imag(#z))<@coupure)
if (abs(t)>0.085)&&(abs(t)<0.7)
z=0
endif

if (abs(t)<0.085)
z=z*1000
endif
endif
endif


bailout:
  ((@test==0) && (|z^@pui| < @bail) )|| (( @test==1) && ((abs(real(z^@pui))) < @bail && (abs(imag(z^@pui))) < @bail)) || \ 
  (@test == 2 && |z| <= @bail) ||                                         \
  (@test == 3 && sqr(real(z)) <= @bail) ||                                \
  (@test == 4 && sqr(imag(z)) <= @bail) ||                                \
  (@test == 5 && (sqr(real(z)) <= @bail && sqr(imag(z)) < @bail)) ||   \
  (@test == 6 && (sqr(real(z)) <= @bail || sqr(imag(z)) < @bail)) ||   \
  (@test == 7 && (sqr(abs(real(z)) + abs(imag(z))) <= @bail)) ||          \
  (@test == 8 && (sqr(real(z) + imag(z)) <= @bail))

 
  
default:
title="f1f2f3+f4f5f6+f7f8f9+f10f11f12-mandel"
maxiter=100
  periodicity=0
method=multipass
  


  param bail
    caption = "Bailout"
        default = 24.2
      endparam
  
 param coupure
    caption = "coupure"
        default = 9.9395
      endparam
  
   param test
    caption = "test"
       default = 1
      endparam
      
  param mandel
    caption = "valeur de c"
        default = (0.0,0.0)
      endparam

     param k1
    caption = "parametre k1"
        default = 1.0
   endparam
param k2
    caption = "parametre k2"
        default = 1.0
   endparam
param k3
    caption = "parametre k3"
        default = 1.0
   endparam
param k4
    caption = "parametre k4"
        default = 1.0
   endparam
param k5
    caption = "parametre k5"
        default = 1.0
   endparam
 param k6
    caption = "parametre k6"
        default = 1.0
   endparam
     param k7
    caption = "parametre k7"
        default = 1.0
   endparam
param k8
    caption = "parametre k8"
        default = 1.0
   endparam
param k9
    caption = "parametre k9"
        default = 1.0
   endparam
param k10
    caption = "parametre k10"
        default = 1.0
   endparam
param k11
    caption = "parametre k11"
        default = 1.0
   endparam
 param k12
    caption = "parametre k12"
        default = 1.0
   endparam
 

  param pui
    caption = "puissance test"
        default = 2
      endparam
 
   param p0
    caption = "puissance z"
       default = 2
     endparam
    param p1
    caption = "puissance fn1"
       default =-1
     endparam
      param p2
    caption = "puissance fn2"
       default = 1
     endparam
  param p3
    caption = "puissance fn3"
       default = 4
     endparam
      param p4
    caption = "puissance fn4"
       default = 2
     endparam
   param p5
    caption = "puissance fn5"
       default =2
     endparam
   param p6
    caption = "puissance fn6"
       default =-1
     endparam
 
   param p7
    caption = "puissance fn7"
       default =2
     endparam
      param p8
    caption = "puissance fn8"
       default = 2
     endparam
  param p9
    caption = "puissance fn9"
       default = 2
     endparam
      param p10
    caption = "puissance fn10"
       default = -2
     endparam
   param p11
    caption = "puissance fn11"
       default =2
     endparam
   param p12
    caption = "puissance fn12"
       default =1
     endparam
 

   param papillon
    caption = "papillon"
       default = 0
     endparam
func fn1
 caption="fonction 1"
 default=exp()
 endfunc

func fn2
 caption="fonction 2"
 default=ident()
 endfunc

func fn3
 caption="fonction 3"
 default=tan()
 endfunc

func fn4
 caption="fonction 4"
 default=tan()
 endfunc

func fn5
 caption="fonction 5"
 default=cos()
 endfunc
 
  func fn6
 caption="fonction 6"
 default=cos()
 endfunc
 
func fn7
 caption="fonction 7"
 default=cosh()
 endfunc

func fn8
 caption="fonction 8"
 default=tan()
 endfunc

func fn9
 caption="fonction 9"
 default=tan()
 endfunc

func fn10
 caption="fonction 10"
 default=cosh()
 endfunc

func fn11
 caption="fonction 11"
 default=cosh()
 endfunc
 
  func fn12
 caption="fonction 12"
 default=tan()
 endfunc

 
switch:
  type = "julia1"
  julia=#pixel
 bail = bail
coupure=coupure
 test=test
 pui=pui
p0=p0
p1=p1
p2=p2
p4=p4
fn1=fn1
fn2=fn2
fn4=fn4
p3=p3
p5=p5
p6=p6
fn3=fn3
fn5=fn5
fn6=fn6
p7=p7
p8=p8
p9=p9
fn7=fn7
fn8=fn8
fn9=fn9
fn10=fn10
fn11=fn11
fn12=fn12

p10=p10
p11=p11
p12=p12
parenth=parenth

papillon=papillon
k1=k1
k2=k2
k3=k3
k4=k4
;k5=k5
k6=k6
k7=k7
k8=k8
k9=k9
k10=k10
k11=k11
k12=k12

}

julia1{
init:
z=#pixel
c=@julia

loop:

z=(@k1*@fn1(@k2*@fn2(@k3*@fn3(z^@p0))^@p3)^@p2)^@p1+(@k4*fn4(@k5*@fn5((@k6*@fn6(z^@p0))^@p6))^@p5)^@p4+c+(@k7*@fn7(@k8*@fn8(@k9*@fn9(z^@p0))^@p9)^@p8)^@p7+(@k10*@fn10(@k11*@fn11((@k12*@fn12(z^@p0))^@p12))^@p11)^@p10

if (@papillon==0)
if (abs(real(#z))>0.5*@coupure && abs(imag(#z))<@coupure) 
z=0
endif
endif

if (@papillon==1)
t=((atan(imag(#z)/real(#z))))

if (abs(real(#z))>0.5*@coupure && abs(imag(#z))<@coupure)
if (abs(t)>0.085)&&(abs(t)<0.7)
z=0
endif

if (abs(t)<0.085)
z=z*1000
endif
endif
endif


bailout:
  ((@test==0) && (|z^@pui| < @bail) )|| (( @test==1) && ((abs(real(z^@pui))) < @bail && (abs(imag(z^@pui))) < @bail)) || \ 
  (@test == 2 && |z| <= @bail) ||                                         \
  (@test == 3 && sqr(real(z)) <= @bail) ||                                \
  (@test == 4 && sqr(imag(z)) <= @bail) ||                                \
  (@test == 5 && (sqr(real(z)) <= @bail && sqr(imag(z)) < @bail)) ||   \
  (@test == 6 && (sqr(real(z)) <= @bail || sqr(imag(z)) < @bail)) ||   \
  (@test == 7 && (sqr(abs(real(z)) + abs(imag(z))) <= @bail)) ||          \
  (@test == 8 && (sqr(real(z) + imag(z)) <= @bail))

 
  
default:
title="f1f2f3+f4f5f6+f7f8f9+f10f11f12-julia"
maxiter=10
  periodicity=0
method=multipass

  param bail
    caption = "Bailout"
        default = 5.2
      endparam
  
 param coupure
    caption = "coupure"
        default = 4.56
      endparam
  
   param test
    caption = "test"
        default = 1
      endparam
 
  param pui
    caption = "puissance test"
        default = 2
      endparam
     param k1
    caption = "parametre k1"
        default = 1.0
   endparam
param k2
    caption = "parametre k2"
        default = 1.0
   endparam
param k3
    caption = "parametre k3"
        default = 0.6 
   endparam
param k4
    caption = "parametre k4"
        default = 1.0
   endparam
param k5
    caption = "parametre k5"
        default = 1
   endparam

  param k6
    caption = "parametre k6"
        default = 0.6
   endparam

     param k7
    caption = "parametre k7"
        default = 1.0
   endparam
param k8
    caption = "parametre k8"
        default = 1.0
   endparam
param k9
    caption = "parametre k9"
        default = 1.0
   endparam
param k10
    caption = "parametre k10"
        default = 1.0
   endparam
param k11
    caption = "parametre k11"
        default = 1.0
   endparam
 param k12
    caption = "parametre k12"
        default = 1.0
   endparam

          
  param julia
    caption = "valeur de c"
        default = (0.0,0.0)
      endparam

 param p0
    caption = "puissance z"
        default = 2
      endparam
   param p1
    caption = "puissance fn1"
       default = 2
     endparam
      param p2
    caption = "puissance fn2"
       default = 2
     endparam
  param p3
    caption = "puissance fn3"
       default = -2
     endparam
      param p4
    caption = "puissance fn4"
       default = 2
     endparam
   param p5
    caption = "puissance fn5"
       default =2
     endparam
   param p6
    caption = "puissance fn6"
        default =-2
      endparam
 
 param p7
    caption = "puissance fn7"
       default =-2
     endparam
      param p8
    caption = "puissance fn8"
       default = 2
     endparam
  param p9
    caption = "puissance fn9"
       default = 2
     endparam
      param p10
    caption = "puissance fn10"
       default = 2
     endparam
   param p11
    caption = "puissance fn11"
       default =2
     endparam
   param p12
    caption = "puissance fn12"
       default =-1
     endparam
 

param papillon
    caption = "papillon"
        default = 0
      endparam
func fn1
 caption="fonction 1"
 default=sin()
 endfunc

func fn2
 caption="fonction 2"
 default=tan()
 endfunc

func fn3
 caption="fonction 3"
 default=log()
 endfunc

func fn4
 caption="fonction 4"
 default=tan()
 endfunc

func fn5
 caption="fonction 5"
 default=sin()
 endfunc
 
func fn6
 caption="fonction 6"
 default=log()
 endfunc
func fn7
 caption="fonction 7"
 default=exp()
 endfunc

func fn8
 caption="fonction 8"
 default=cos()
 endfunc

func fn9
 caption="fonction 9"
 default=tan()
 endfunc

func fn10
 caption="fonction 10"
 default=tan()
 endfunc

func fn11
 caption="fonction 11"
 default=cos()
 endfunc
 
  func fn12
 caption="fonction 12"
 default=cos()
 endfunc


 
switch:
  type = "mandel1"
 bail = bail
coupure=coupure
 test=test
 pui=pui
p0=p0
p1=p1
p2=p2
p4=p4
fn1=fn1
fn2=fn2
fn4=fn4
p3=p3
p5=p5
p6=p6
fn3=fn3
fn5=fn5
fn6=fn6
p7=p7
p8=p8
p9=p9
fn7=fn7
fn8=fn8
fn9=fn9
fn10=fn10
fn11=fn11
fn12=fn12

p10=p10
p11=p11
p12=p12
parenth=parenth

papillon=papillon
k=k
k1=k1
k2=k2
k3=k3
k4=k4
k5=k5
k6=k6
k7=k7
k8=k8
k9=k9
k10=k10
k11=k11
k12=k12

}

mandel2{
;martine.girard3@wanadoo.fr
;demo voir gmc.upr

init:
z=@mandel
c=#pixel
complex z=(0.e0,0.e0)
complex oldz=(0e0,0e0)
loop:
if |z|<1e4900 
oldz=z

if (@parenth==0)
z=(@k1*@fn1(@k2*@fn2((@k3*@fn3(z^@p0))^@p3))^@p2)^@p1+(@k4*@fn4((@k5*@fn5(z^@p0))^@p5))^@p4+((@k6*@fn6(z^@p0))^@p6)+c

elseif (@parenth==1)
z=(@k1*@fn1(@k2*@fn2((@k3*@fn3(z^@p0))^@p3))^@p2)^@p1+(@k4*@fn4(@k5*@fn5(z^@p0))^@p5)^@p4+((@k6*@fn6(z^@p0))^@p6)+c

elseif (@parenth==2)
z=(@k1*@fn1(@k2*@fn2(@k3*@fn3(z^@p0))^@p3)^@p2)^@p1+(@k4*@fn4((@k5*@fn5(z^@p0))^@p5))^@p4+((@k6*@fn6(z^@p0))^@p6)+c

elseif (@parenth==3)
z=(@k1*@fn1(@k2*@fn2(@k3*@fn3(z^@p0))^@p3)^@p2)^@p1+(@k4*@fn4(@k5*@fn5(z^@p0))^@p5)^@p4+((@k6*@fn6(z^@p0))^@p6)+c
elseif (@parenth==4)
z=(@k1*@fn1((@k2*@fn2(@k3*@fn3(z^@p0))^@p3))^@p2)^@p1+@k4*@fn4((@k5*@fn5(z^@p0))^@p5)^@p4+((@k6*@fn6(z^@p0))^@p6)+c

elseif (@parenth==5)
z=(@k1*@fn1((@k2*@fn2(@k3/@fn3(z^@p0))^@p3))^@p2)^@p1+@k4*@fn4((@k5/@fn5(z^@p0))^@p5)^@p4+((@k6*@fn6(z^@p0))^@p6)+c

elseif (@parenth==6)
z=(@k1*@fn1(@k2*@fn2((@k3*@fn3(z^@p0))^@p3)^@p2))^@p1+@k4*@fn4((@k5*@fn5(z^@p0))^@p5)^@p4+((@k6*@fn6(z^@p0))^@p6)+c

elseif (@parenth==7)
z=(@k1/@fn1((@k2/@fn2(@k3*@fn3(z^@p0))^@p3))^@p2)^@p1+@k4*@fn4((@k5/@fn5(z^@p0))^@p5)^@p4+((@k6*@fn6(z^@p0))^@p6)+c

elseif (@parenth==8)
z=(@k1/@fn1((@k2*@fn2(@k3/@fn3(z^@p0))^@p3))^@p2)^@p1+@k4*@fn4((@k5*@fn5(z^@p0))^@p5)^@p4+((@k6*@fn6(z^@p0))^@p6)+c

elseif (@parenth==9)
z=(@k1*@fn1(@k2*@fn2((@k3/@fn3(z^@p0))^@p3)^@p2))^@p1+(@k4/@fn4((@k5/@fn5(z^@p0))^@p5))^@p4+((@k6*@fn6(z^@p0))^@p6)+c
;z=(@fn1(@fn2((@k/@fn4(z^@p0))^@p4)^@p2))^@p1+cmodif k4/fn4

elseif (@parenth==10)
z=(@k1*@fn1(@k2*@fn2((@k3/@fn3(z^@p0))^@p3)^@p2))^@p1+@k4*@fn4((@k5/@fn5(z^@p0))^@p5)^@p4+((@k6*@fn6(z^@p0))^@p6)+c

elseif (@parenth==11)
z=@k1*@fn1(@k2/@fn2(((@k3/@fn3(z^@p0))^@p3))^@p2)^@p1+(@k4*@fn4((@k5/@fn5(z^@p0))^@p5)^@p4)+((@k6*@fn6(z^@p0))^@p6)+c


endif

if (@papillon==0)
if (abs(real(#z))>0.5*@coupure && abs(imag(#z))<@coupure)
z=0
endif
endif

if (@papillon==1)
t=((atan(imag(#z)/real(#z))))

if (abs(real(#z))>0.5*@coupure && abs(imag(#z))<@coupure)
if (abs(t)>0.085)&&(abs(t)<0.7)
z=0
endif

if (abs(t)<0.085)
z=z*1000
endif
endif
endif



endif
 



bailout:
 

  ((@test==0) && (|z^@pui| < @bail) )|| (( @test==1) && ((abs(real(z^@pui))) < @bail && (abs(imag(z^@pui))) < @bail)) || \ 
  (@test == 2 && |z| <= @bail) ||                                         \
  (@test == 3 && sqr(real(z)) <= @bail) ||                                \
  (@test == 4 && sqr(imag(z)) <= @bail) ||                                \
  (@test == 5 && (sqr(real(z)) <= @bail && sqr(imag(z)) < @bail)) ||   \
  (@test == 6 && (sqr(real(z)) <= @bail || sqr(imag(z)) < @bail)) ||   \
  (@test == 7 && (sqr(abs(real(z)) + abs(imag(z))) <= @bail)) ||          \
  (@test == 8 && (sqr(real(z) + imag(z)) <= @bail))

 
  
default:
title="f1f2f3+f4f5+f6-mandel"
maxiter=100
  periodicity=0
method=multipass

  param bail
    caption = "Bailout"
        default = 129.2
      endparam
  
 param coupure
    caption = "coupure"
        default = 6.62
      endparam
  
   param test
    caption = "test"
       default = 0
      endparam
      
  param mandel
    caption = "valeur de c"
        default = (0.0,0.0)
      endparam
 
 param k1
    caption = "parametre k1"
        default = 1.0e0
   endparam

param k2
    caption = "parametre k2"
        default = 1.0e0
   endparam

param k3
    caption = "parametre k3"
        default = 1.0
   endparam
param k4
    caption = "parametre k4"
        default = 1.0
   endparam
param k5
    caption = "parametre k5"
        default = 1.0
   endparam


 param k6
    caption = "parametre k6"
        default = 1.0

   endparam

  param pui
    caption = "puissance test"
        default = 2
      endparam
 param parenth
    caption = "parenthese"
       default = 2
      endparam
   param p0
    caption = "puissance z"
       default = 2
     endparam
  
   param p1
    caption = "puissance fn1"
       default =-1
     endparam
 
   param p2
    caption = "puissance fn2"
       default = 2
     endparam


  param p3
    caption = "puissance fn3"
       default = 4
     endparam
      param p4
    caption = "puissance fn4"
       default = 2
     endparam
   param p5
    caption = "puissance fn5"
       default = -2
     endparam

  
   param p6
    caption = "puissance fn6"
        default =1
      endparam
 

   param papillon
    caption = "papillon"
       default = 0
     endparam
     
  func fn1
 caption="fonction 1"
 default=exp()
 endfunc
 
func fn2
 caption="fonction 2"
 default=tan()
 endfunc

func fn3
 caption="fonction 3"
 default=sin()
 endfunc

func fn4
 caption="fonction 4"
 default=sin()
 endfunc


func fn5
 caption="fonction 5"
 default=cos()
 endfunc
 
      
func fn6
 caption="fonction 6"
 default=zero()
 endfunc



 
  
   
     
switch:
  type = "julia2"
  julia=#pixel
  bail = bail
coupure=coupure
 test=test
 pui=pui
 p0=p0
p1=p1
p2=p2
p3=p3
p4=p4
p5=p5
p6=p6
p7=p7
fn1=fn1
fn2=fn2
fn3=fn3
fn4=fn4
fn5=fn5
fn6=fn6
fn7=fn7
parenth=parenth

papillon=papillon
k1=k1
k2=k2
k3=k3
k4=k4
k5=k5
k6=k6
k7=k7


}


julia2{
;martine.girard3@wanadoo.fr
;demo voir gmc.upr

init:
z=#pixel
c=@julia

loop:

if (@parenth==0)
z=(@k1*@fn1(@k2*@fn2((@k3*@fn3(z^@p0))^@p3))^@p2)^@p1+(@k4*@fn4((@k5*@fn5(z^@p0))^@p5))^@p4+((@k6*@fn6(z^@p0))^@p6)+c

elseif (@parenth==1)
z=(@k1*@fn1(@k2*@fn2((@k3*@fn3(z^@p0))^@p3))^@p2)^@p1+(@k4*@fn4(@k5*@fn5(z^@p0))^@p5)^@p4+((@k6*@fn6(z^@p0))^@p6)+c

elseif (@parenth==2)
z=(@k1*@fn1(@k2*@fn2(@k3*@fn3(z^@p0))^@p3)^@p2)^@p1+(@k4*@fn4((@k5*@fn5(z^@p0))^@p5))^@p4+((@k6*@fn6(z^@p0))^@p6)+c

elseif (@parenth==3)
z=(@k1*@fn1(@k2*@fn2(@k3*@fn3(z^@p0))^@p3)^@p2)^@p1+(@k4*@fn4(@k5*@fn5(z^@p0))^@p5)^@p4+((@k6*@fn6(z^@p0))^@p6)+c

elseif (@parenth==4)
z=(@k1*@fn1((@k2*@fn2(@k3*@fn3(z^@p0))^@p3))^@p2)^@p1+@k4*@fn4((@k5*@fn5(z^@p0))^@p5)^@p4+((@k6*@fn6(z^@p0))^@p6)+c

elseif (@parenth==5)
z=(@k1*@fn1((@k2*@fn2(@k3/@fn3(z^@p0))^@p3))^@p2)^@p1+@k4*@fn4((@k5/@fn5(z^@p0))^@p5)^@p4+((@k6*@fn6(z^@p0))^@p6)+c

elseif (@parenth==6)
z=(@k1*@fn1(@k2*@fn2((@k3*@fn3(z^@p0))^@p3)^@p2))^@p1+@k4*@fn4((@k5*@fn5(z^@p0))^@p5)^@p4+((@k6*@fn6(z^@p0))^@p6)+c

elseif (@parenth==7)
z=(@k1/@fn1((@k2/@fn2(@k3*@fn3(z^@p0))^@p3))^@p2)^@p1+@k4*@fn4((@k5/@fn5(z^@p0))^@p5)^@p4+((@k6*@fn6(z^@p0))^@p6)+c

elseif (@parenth==8)
z=(@k1/@fn1((@k2*@fn2(@k3/@fn3(z^@p0))^@p3))^@p2)^@p1+@k4*@fn4((@k5*@fn5(z^@p0))^@p5)^@p4+((@k6*@fn6(z^@p0))^@p6)+c

elseif (@parenth==9)
z=(@k1*@fn1(@k2*@fn2((@k3/@fn3(z^@p0))^@p3)^@p2))^@p1+@k4*@fn4((@k5/@fn5(z^@p0))^@p5)^@p4+((@k6*@fn6(z^@p0))^@p6)+c

elseif (@parenth==10)
z=(@k1*@fn1(@k2*@fn2((@k3/@fn3(z^@p0))^@p3)^@p2))^@p1+@k4*@fn4((@k5/@fn5(z^@p0))^@p5)^@p4+((@k6*@fn6(z^@p0))^@p6)+c
elseif (@parenth==11)
z=@k1*@fn1(@k2/@fn2(((@k3/@fn3(z^@p0))^@p3))^@p2)^@p1+(@k4*@fn4((@k5/@fn5(z^@p0))^@p5)^@p4)+((@k6*@fn6(z^@p0))^@p6)+c


endif





if (@papillon==0)
if (abs(real(#z))>0.5*@coupure && abs(imag(#z))<@coupure) 
z=0
endif
endif

if (@papillon==1)
t=((atan(imag(#z)/real(#z))))

if (abs(real(#z))>0.5*@coupure && abs(imag(#z))<@coupure)
if (abs(t)>0.085)&&(abs(t)<0.7)
z=0
endif

if (abs(t)<0.085)
z=z*1000
endif
endif
endif


bailout:
  ((@test==0) && (|z^@pui| < @bail) )|| (( @test==1) && ((abs(real(z^@pui))) < @bail && (abs(imag(z^@pui))) < @bail)) || \ 
  (@test == 2 && |z| <= @bail) ||                                         \
  (@test == 3 && sqr(real(z)) <= @bail) ||                                \
  (@test == 4 && sqr(imag(z)) <= @bail) ||                                \
  (@test == 5 && (sqr(real(z)) <= @bail && sqr(imag(z)) < @bail)) ||   \
  (@test == 6 && (sqr(real(z)) <= @bail || sqr(imag(z)) < @bail)) ||   \
  (@test == 7 && (sqr(abs(real(z)) + abs(imag(z))) <= @bail)) ||          \
  (@test == 8 && (sqr(real(z) + imag(z)) <= @bail))

 
  
default:
title="f1f2f3+f4f5+f6-julia"
maxiter=10
  periodicity=0
method=multipass

  param bail
    caption = "Bailout"
        default = 14.2
      endparam
  
 param coupure
    caption = "coupure"
        default = 6.2
      endparam
  
   param test
    caption = "test"
        default = 1
      endparam
 
  param pui
    caption = "puissance test"
        default = 2
      endparam
      
  param julia
    caption = "valeur de c"
        default = (0.0,0.0)
      endparam
param k1
    caption = "parametre k1"
        default = 1.0
   endparam

param k2
    caption = "parametre k2"
        default = 1.0
   endparam
param k3
    caption = "parametre k3"
        default = 1.0
   endparam
param k4
    caption = "parametre k4"
        default = 1.0
   endparam
param k5
    caption = "parametre k5"

        default = 0.475
   endparam


 param k6
    caption = "parametre k6"
        default = 1.0
   endparam
param parenth
    caption = "parenthese"
       default = 0
      endparam

 param p0
    caption = "puissance z"
        default = 2
      endparam
  
   param p1
    caption = "puissance fn1"
        default = 1
      endparam
 
 param p2
    caption = "puissance fn2"
        default = 1
      endparam

  param p3
    caption = "puissance fn3"
       default = 1
     endparam
      param p4
    caption = "puissance fn4"
       default =4
     endparam
   param p5
    caption = "puissance fn5"
       default =-1
     endparam

  
   param p6
    caption = "puissance fn6"
        default =1
      endparam
 

param papillon
    caption = "papillon"
        default = 0
      endparam
      
func fn1
 caption="fonction 1"
 default=zero()
 endfunc

func fn2
 caption="fonction 2"
 default=zero()

 endfunc
func fn3
 caption="fonction 3"
 default=zero()
 endfunc

func fn4
 caption="fonction 4"
 default=sin()
 endfunc


func fn5
 caption="fonction 5"
 default=log()
 endfunc
 
      
func fn6
 caption="fonction 6"
 default=zero()
 endfunc


 
switch:
  type = "mandel2"
  bail = bail
coupure=coupure
test=test
pui=pui
p0=p0
p1=p1
p2=p2
p3=p3
p4=p4
p5=p5
p6=p6


p7=p7
fn1=fn1
fn2=fn2
fn3=fn3
fn4=fn4
fn5=fn5
fn6=fn6
fn7=fn7
parenth=parenth

papillon=papillon
k1=k1
k2=k2


k3=k3
k4=k4
k5=k5
k6=k6
k7=k7


}

mandel3{
;martine.girard3@wanadoo.fr
;demo voir gmc.upr

init:
z=@mandel
c=#pixel

loop:


if (@parenth==0)
z=(@k1*@fn1(@k2*@fn2((@k3*@fn3(z^@p0))^@p3))^@p2)^@p1+(@k4*@fn4((@k5*@fn5(z^@p0))^@p5))^@p4+@k6*@fn6((@k7*@fn7(z^@p0))^@p7)^@p6+c

elseif (@parenth==1)
z=(@k1*@fn1(@k2*@fn2((@k3*@fn3(z^@p0))^@p3))^@p2)^@p1+(@k4*@fn4((@k5*@fn5(z^@p0))^@p5))^@p4+(@k6*@fn6(@k7*@fn7(z^@p0))^@p7)^@p6+c

elseif (@parenth==2)
z=(@k1*@fn1(@k2*@fn2(@k3*@fn3(z^@p0))^@p3)^@p2)^@p1+(@k4*@fn4((@k5*@fn5(z^@p0))^@p5))^@p4+(@k6*@fn6(@k7*@fn7(z^@p0))^@p7)^@p6+c

elseif (@parenth==3)
z=(@k1*@fn1(@k2*@fn2(@k3*@fn3(z^@p0))^@p3)^@p2)^@p1+(@k4*@fn4(@k5*@fn5(z^@p0))^@p5)^@p4+(@k6*@fn6(@k7*@fn7(z^@p0))^@p7)^@p6+c

elseif (@parenth==4)
z=(@k1*@fn1((@k2*@fn2(@k3*@fn3(z^@p0))^@p3)^@p2))^@p1+(@k4*@fn4((@k5*@fn5(z^@p0))^@p5))^@p4+(@k6*@fn6(@k7*@fn7(z^@p0))^@p7)^@p6+c


endif
if (@papillon==0)
if (abs(real(#z))>0.5*@coupure && abs(imag(#z))<@coupure)
z=0
endif
endif

if (@papillon==1)
t=((atan(imag(#z)/real(#z))))

if (abs(real(#z))>0.5*@coupure && abs(imag(#z))<@coupure)
if (abs(t)>0.085)&&(abs(t)<0.7)
z=0
endif

if (abs(t)<0.085)
z=z*1000
endif
endif
endif


bailout:
  ((@test==0) && (|z^@pui| < @bail) )|| (( @test==1) && ((abs(real(z^@pui))) < @bail && (abs(imag(z^@pui))) < @bail)) || \ 
  (@test == 2 && |z| <= @bail) ||                                         \
  (@test == 3 && sqr(real(z)) <= @bail) ||                                \
  (@test == 4 && sqr(imag(z)) <= @bail) ||                                \
  (@test == 5 && (sqr(real(z)) <= @bail && sqr(imag(z)) < @bail)) ||   \
  (@test == 6 && (sqr(real(z)) <= @bail || sqr(imag(z)) < @bail)) ||   \
  (@test == 7 && (sqr(abs(real(z)) + abs(imag(z))) <= @bail)) ||          \
  (@test == 8 && (sqr(real(z) + imag(z)) <= @bail))

 
  
default:
title="f1f2f3+f4f5+f6f7-mandel"
maxiter=100
  periodicity=0
method=multipass

  param bail
    caption = "Bailout"
        default = 19.2
      endparam
  
 param coupure
    caption = "coupure"
        default = 8.13
      endparam
  
   param test
    caption = "test"
       default = 1
      endparam
      
  param mandel
    caption = "valeur de c"
        default = (0.0,0.0)

      endparam
 
  param pui
    caption = "puissance test"
        default = 2
      endparam
 
 param k1
    caption = "parametre k1"
        default = 1.0
   endparam

 param k2
    caption = "parametre k2"
        default = 1.0
   endparam

param k3
    caption = "parametre k3"
        default = 1.0
   endparam

param k4
    caption = "parametre k4"
        default = 1.0
   endparam
param k5
    caption = "parametre k5"
        default = 0.750
   endparam

param k6
    caption = "parametre k6"
        default = 1.0
   endparam
param k7
    caption = "parametre k7"
        default = 1.0
   endparam

param parenth
    caption = "parenthese"
       default = 1
      endparam
   param p0
    caption = "puissance z"
       default = 2
     endparam
  
   param p1
    caption = "puissance fn1"
       default =1
     endparam
 
  
    param p2
    caption = "puissance fn2"
       default =2
     endparam

 param p3
    caption = "puissance fn3"
       default =-1
     endparam

  param p4
    caption = "puissance fn4"
       default =-2
     endparam
   param p5
    caption = "puissance fn5"
       default =4
     endparam
param p6
    caption = "puissance fn6"
       default = -2
     endparam
      param p7
    caption = "puissance fn7"
       default = 2
     endparam

   param papillon
    caption = "papillon"
       default = 0
     endparam
     
  func fn1
 caption="fonction 1"
 default=sin()
 endfunc
 
func fn2
 caption="fonction 2"
 default=tan()
 endfunc
 
 func fn3
 caption="fonction 3"
 default=cos()
 endfunc
func fn4
 caption="fonction 4"
 default=exp()
 endfunc


func fn5
 caption="fonction 5"
 default=tan()
 endfunc
 
 func fn6
 caption="fonction 6"
 default=cosh()
 endfunc
 func fn7

 caption="fonction 7"
 default=tan()

 endfunc

switch:
  type = "julia3"
  julia=#pixel
  bail = bail
coupure=coupure
 test=test
 pui=pui
p0=p0
p1=p1
p2=p2
p3=p3
p4=p4
p5=p5
p6=p6
p7=p7
fn1=fn1
fn2=fn2
fn3=fn3
fn4=fn4
fn5=fn5
fn6=fn6
fn7=fn7
parenth=parenth

papillon=papillon
k1=k1
k2=k2
k3=k3
k4=k4
k5=k5
k6=k6
k7=k7

}


julia3{
;martine.girard3@wanadoo.fr
;demo voir gmc.upr

init:
z=#pixel
c=@julia

loop:

if (@parenth==0)
z=(@k1*@fn1(@k2*@fn2((@k3*@fn3(z^@p0))^@p3))^@p2)^@p1+(@k4*@fn4((@k5*@fn5(z^@p0))^@p5))^@p4+@k6*@fn6((@k7*@fn7(z^@p0))^@p7)^@p6+c

elseif (@parenth==1)
z=(@k1*@fn1(@k2*@fn2((@k3*@fn3(z^@p0))^@p3))^@p2)^@p1+(@k4*@fn4((@k5*@fn5(z^@p0))^@p5))^@p4+(@k6*@fn6(@k7*@fn7(z^@p0))^@p7)^@p6+c

elseif (@parenth==2)
z=(@k1*@fn1(@k2*@fn2(@k3*@fn3(z^@p0))^@p3)^@p2)^@p1+(@k4*@fn4((@k5*@fn5(z^@p0))^@p5))^@p4+@k6*@fn6((@k7*@fn7(z^@p0))^@p7)^@p6+c

elseif (@parenth==3)
z=(@k1*@fn1(@k2*@fn2(@k3*@fn3(z^@p0))^@p3)^@p2)^@p1+(@k4*@fn4(@k5*@fn5(z^@p0))^@p5)^@p4+(@k6*@fn6(@k7*@fn7(z^@p0))^@p7)^@p6+c

elseif (@parenth==4)
z=(@k1*@fn1((@k2*@fn2(@k3*@fn3(z^@p0))^@p3))^@p2)^@p1+(@k4*@fn4((@k5*@fn5(z^@p0))^@p5))^@p4+(@k6*@fn6(@k7*@fn7(z^@p0))^@p7)^@p6+c

elseif (@parenth==5)
z=(@k1/@fn1((@k2*@fn2(@k3/@fn3(z^@p0))^@p3))^@p2)^@p1+(@k4*@fn4((@k5/@fn5(z^@p0))^@p5))^@p4+(@k6*@fn6(@k7/@fn7(z^@p0))^@p7)^@p6+c


endif




if (@papillon==0)
if (abs(real(#z))>0.5*@coupure && abs(imag(#z))<@coupure) 
z=0
endif
endif

if (@papillon==1)

t=((atan(imag(#z)/real(#z))))


if (abs(real(#z))>0.5*@coupure && abs(imag(#z))<@coupure)
if (abs(t)>0.085)&&(abs(t)<0.7)
z=0
endif

if (abs(t)<0.085)
z=z*1000
endif
endif
endif






bailout:
  ((@test==0) && (|z^@pui| < @bail) )|| (( @test==1) && ((abs(real(z^@pui))) < @bail && (abs(imag(z^@pui))) < @bail)) || \ 
  (@test == 2 && |z| <= @bail) ||                                         \
  (@test == 3 && sqr(real(z)) <= @bail) ||                                \
  (@test == 4 && sqr(imag(z)) <= @bail) ||                                \
  (@test == 5 && (sqr(real(z)) <= @bail && sqr(imag(z)) < @bail)) ||   \
  (@test == 6 && (sqr(real(z)) <= @bail || sqr(imag(z)) < @bail)) ||   \
  (@test == 7 && (sqr(abs(real(z)) + abs(imag(z))) <= @bail)) ||          \
  (@test == 8 && (sqr(real(z) + imag(z)) <= @bail))

 
  
default:
title="f1f2f3+f4f5+f6f7-julia"
maxiter=10
  periodicity=0

method=multipass

  param bail
    caption = "Bailout"
        default = 5.2
      endparam
  
 param coupure
    caption = "coupure"
        default = 4.5
      endparam
  
   param test
    caption = "test"
        default = 1
      endparam
 
  param pui
    caption = "puissance test"
        default = 2
      endparam
      
  param julia
    caption = "valeur de c"
        default = (0.0,0.0)
      endparam

param k1
    caption = "parametre k1"
        default = 1.0
   endparam
param k2
    caption = "parametre k2"
        default = 1.0
   endparam
param k3
    caption = "parametre k3"
        default = 0.540
   endparam

param k4
    caption = "parametre k4"
        default = 1.0
   endparam
param k5
    caption = "parametre k5"
        default = 0.750
   endparam

param k6
    caption = "parametre k6"
        default = 1.0
   endparam
param k7
    caption = "parametre k7"
        default = 1.0
   endparam
param parenth
    caption = "parenthese"
       default = 0
      endparam
 param p0
    caption = "puissance z"
        default = 4
      endparam
  
   param p1
    caption = "puissance fn1"
        default =-2
      endparam
 
  param p2
      caption = "puissance fn2"
        default = 2
      endparam
 
 param p3
     caption = "puissance fn3"
        default =-1
      endparam
 

  param p4
    caption = "puissance fn4"
       default = 2
     endparam
   param p5
    caption = "puissance fn5"
       default =-2
     endparam
param p6
    caption = "puissance fn6"
       default = 2
     endparam
      param p7
    caption = "puissance fn7"
       default = 2

     endparam

 

param papillon
    caption = "papillon"
        default = 0
      endparam
      
func fn1
 caption="fonction 1"
 default=log()
 endfunc

func fn2
 caption="fonction 2"
 default=sin()
 endfunc
 
 func fn3
  caption="fonction 3"
 default=log()
 endfunc
 
func fn4
 caption="fonction 4"
 default=tan()
 endfunc


func fn5
 caption="fonction 5"
 default=log()
 endfunc
 
 func fn6
 caption="fonction 6"
 default=cos()
 endfunc
 func fn7
 caption="fonction 7"
 default=tan()
 endfunc


switch:
  type = "mandel3"
  bail = bail
coupure=coupure
test=test
pui=pui
p0=p0
p1=p1
p2=p2
p3=p3
p4=p4
p5=p5
p6=p6
p7=p7
fn1=fn1
fn2=fn2
fn3=fn3
fn4=fn4
fn5=fn5
fn6=fn6
fn7=fn7
parenth=parenth

papillon=papillon
k1=k1
k2=k2
k3=k3
k4=k4
k5=k5
k6=k6
k7=k7
}

mandel4{
init:
z=@mandel
c=#pixel

loop:
if (@parenth==0)
z=(@k1*@fn1((@k2*@fn2(z^@p0))^@p2)^@p1)+(@k3*@fn3((@k4*@fn4(z^@p0))^@p4)^@p3)+(@k5*@fn5(z^@p0))^@p5+c
elseif (@parenth==1)
z=(@k1*@fn1((@k2*@fn2(z^@p0))^@p2)^@p1)+(@k3*@fn3(@k4*@fn4(z^@p0))^@p4)^@p3+(@k5*@fn5(z^@p0))^@p5+c

elseif (@parenth==2)
z=(@k1*@fn1(@k2*@fn2(z^@p0))^@p2)^@p1+(@k3*@fn3(@k4*@fn4(z^@p0))^@p4)^@p3+(@k5*@fn5(z^@p0))^@p5+c

elseif (@parenth==3)
z=(@k1*@fn1((@k2*@fn2(z^@p0))^@p2)^@p1)+(@k3*@fn3(@k4*@fn4(z^@p0))^@p4)^@p3+(@k5*@fn5(z^@p0))^@p5+c

elseif (@parenth==4)
z=((@k1/@fn1((@k2*@fn2(z^@p0))^@p2))^@p1)+(@k3/@fn3(@k4*@fn4(z^@p0))^@p4)^@p3+(@k5*@fn5(z^@p0))^@p5+c
;z=((@k/@fn1((@fn2(z^@p0))^@p2))^@p1)+(@k/@fn3(@fn4(z^@p0))^@p4)^@p3+c

elseif (@parenth==5)
z=((@k1*@fn1((@k2/@fn2(z^@p0))^@p2))^@p1)+(@k3*@fn3(@k4/@fn4(z^@p0))^@p4)^@p3+(@k5*@fn5(z^@p0))^@p5+c

elseif (@parenth==6)
z=((@k1*@fn1((@k2/@fn2(z^@p0))^@p2))^@p1)+(@k3*@fn3(@k4/@fn4(z^@p0))^@p4)^@p3+(@k5*@fn5(z^@p0))^@p5+c


endif

if (@papillon==0)
if (abs(real(#z))>0.5*@coupure && abs(imag(#z))<@coupure)
z=0
endif
endif

if (@papillon==1)
t=((atan(imag(#z)/real(#z))))

if (abs(real(#z))>0.5*@coupure && abs(imag(#z))<@coupure)
if (abs(t)>0.085)&&(abs(t)<0.7)
z=0
endif

if (abs(t)<0.085)
z=z*1000
endif
endif
endif


bailout:
  ((@test==0) && (|z^@pui| < @bail) )|| (( @test==1) && ((abs(real(z^@pui))) < @bail && (abs(imag(z^@pui))) < @bail)) || \ 
  (@test == 2 && |z| <= @bail) ||                                         \
  (@test == 3 && sqr(real(z)) <= @bail) ||                                \
  (@test == 4 && sqr(imag(z)) <= @bail) ||                                \
  (@test == 5 && (sqr(real(z)) <= @bail && sqr(imag(z)) < @bail)) ||   \
  (@test == 6 && (sqr(real(z)) <= @bail || sqr(imag(z)) < @bail)) ||   \
  (@test == 7 && (sqr(abs(real(z)) + abs(imag(z))) <= @bail)) ||          \
  (@test == 8 && (sqr(real(z) + imag(z)) <= @bail))

 
  
default:
title="f1f2+f3f4+f5-mandel"
maxiter=100
  periodicity=0
method=multipass

  param bail
    caption = "Bailout"
        default = 9.2
      endparam
  
 param coupure
    caption = "coupure"
        default = 5.92
      endparam
  
   param test
    caption = "test"
       default = 1
      endparam
      
    
  param mandel
    caption = "valeur de c"
        default = (0.0,0.0)
      endparam
 
  param pui
    caption = "puissance test"
        default = 2
      endparam
 param k1
    caption = "parametre k1"
        default = 1.0
   endparam
param k2
    caption = "parametre k2"

        default = 1.0
   endparam

param k3
    caption = "parametre k3"
        default = 1.0
   endparam

param k4
    caption = "parametre k4"
        default = 1.0
   endparam

param k5
    caption = "parametre k5"
        default = 1.0
   endparam

 param parenth
    caption = "parenthese"
       default = 0
      endparam    
      

   param p0
    caption = "puissance z"
       default = 2
     endparam
  
   param p1
    caption = "puissance fn1"
       default =4
     endparam
 
  param p2
      caption = "puissance fn2"
        default = 2
      endparam
 
 param p3
     caption = "puissance fn3"
        default =-1
      endparam
  
   param p4
    caption = "puissance fn4"
       default = 4
     endparam
     
  param p5
    caption = "puissance fn5"
       default = 2
     endparam



   param papillon
    caption = "papillon"

       default = 0
     endparam
     
  func fn1
 caption="fonction 1"
 default=cos()
 endfunc
 
 func fn2
 caption="fonction 2"
 default=tan()
 endfunc
 
 func fn3
 caption="fonction 3"
 default=exp()
 endfunc
 

  func fn4
 caption="fonction 4"
 default=tan()

 endfunc
 
 func fn5
 caption="fonction 5"
 default=tan()
 endfunc
 

switch:
  type = "julia4"
  julia=#pixel
  bail = bail
coupure=coupure
 test=test
 pui=pui
p0=p0
p1=p1
p2=p2
p3=p3
p4=p4
p5=p5
fn1=fn1
fn2=fn2
fn3=fn3
fn4=fn4
fn5=fn5
parenth=parenth

papillon=papillon
k1=k1
k2=k2
k3=k3
k4=k4
k5=k5
}


julia4{
;martine.girard3@wanadoo.fr
;demo voir gmc.upr

init:
z=#pixel
c=@julia

loop:


if (@parenth==0)
z=(@k1*@fn1((@k2*@fn2(z^@p0))^@p2)^@p1)+(@k3*@fn3((@k4*@fn4(z^@p0))^@p4)^@p3)+(@k5*@fn5(z^@p0))^@p5+c
elseif (@parenth==1)
z=(@k1*@fn1((@k2*@fn2(z^@p0))^@p2)^@p1)+(@k3*@fn3(@k4*@fn4(z^@p0))^@p4)^@p3+(@k5*@fn5(z^@p0))^@p5+c
elseif (@parenth==2)
z=(@k1*@fn1(@k2*@fn2(z^@p0))^@p2)^@p1+(@k3*@fn3(@k4*@fn4(z^@p0))^@p4)^@p3+(@k5*@fn5(z^@p0))^@p5+c
elseif (@parenth==3)
z=(@k1*@fn1((@k2*@fn2(z^@p0))^@p2)^@p1)+(@k3*@fn3(@k4*@fn4(z^@p0))^@p4)^@p3+(@k5*@fn5(z^@p0))^@p5+c
elseif (@parenth==4)
z=((@k1/@fn1((@k2*@fn2(z^@p0))^@p2))^@p1)+(@k3/fn3(@k4*@fn4(z^@p0))^@p4)^@p3+(@k5*@fn5(z^@p0))^@p5+c
elseif (@parenth==5)
z=((@k1*@fn1((@k2/@fn2(z^@p0))^@p2))^@p1)+(@k3*@fn3(@k4/@fn4(z^@p0))^@p4)^@p3+(@k5*@fn5(z^@p0))^@p5+c
elseif (@parenth==6)
z=((@k1*@fn1((@k2/@fn2(z^@p0))^@p2))^@p1)+(@k3*@fn3(@k4/@fn4(z^@p0))^@p4)^@p3+(@k5*@fn5(z^@p0))^@p5+c



endif



if (@papillon==0)
if (abs(real(#z))>0.5*@coupure && abs(imag(#z))<@coupure) 
z=0
endif
endif

if (@papillon==1)
t=((atan(imag(#z)/real(#z))))

if (abs(real(#z))>0.5*@coupure && abs(imag(#z))<@coupure)
if (abs(t)>0.085)&&(abs(t)<0.7)
z=0
endif

if (abs(t)<0.085)
z=z*1000
endif
endif
endif


bailout:
  ((@test==0) && (|z^@pui| < @bail) )|| (( @test==1) && ((abs(real(z^@pui))) < @bail && (abs(imag(z^@pui))) < @bail)) || \ 
  (@test == 2 && |z| <= @bail) ||                                         \
  (@test == 3 && sqr(real(z)) <= @bail) ||                                \
  (@test == 4 && sqr(imag(z)) <= @bail) ||                                \
  (@test == 5 && (sqr(real(z)) <= @bail && sqr(imag(z)) < @bail)) ||   \
  (@test == 6 && (sqr(real(z)) <= @bail || sqr(imag(z)) < @bail)) ||   \
  (@test == 7 && (sqr(abs(real(z)) + abs(imag(z))) <= @bail)) ||          \
  (@test == 8 && (sqr(real(z) + imag(z)) <= @bail))

 
  
default:
title="f1f2+f3f4+f5-julia"
maxiter=10


  periodicity=0
method=multipass

  param bail
    caption = "Bailout"
        default = 24.2
      endparam
  
 param coupure
    caption = "coupure"
        default = 9.2
      endparam
  
   param test
    caption = "test"
        default = 1
      endparam
       

  param pui

    caption = "puissance test"
        default = 2
      endparam
      
  param julia
    caption = "valeur de c"
        default = (0.0,0.0)
      endparam

param k1
    caption = "parametre k1"
        default = 1.0
   endparam

param k2
    caption = "parametre k2"
        default = 0.58
   endparam

param k3
    caption = "parametre k3"
        default = 1.75
   endparam

param k4
    caption = "parametre k4"
        default = 0.58
   endparam
param k5
    caption = "parametre k5"
        default = 1.0
   endparam

 param parenth
    caption = "parenthese"
       default = 0
      endparam    
      


 param p0
    caption = "puissance z"
        default = 4
      endparam
  
   param p1
    caption = "puissance fn1"
        default = 2
      endparam
    param p2
    caption = "puissance fn2"
        default = -2
      endparam
 
   param p3
    caption = "puissance fn3"

        default = 2
      endparam
 

 param p4
    caption = "puissance fn4"
        default = -2
      endparam

param p5
    caption = "puissance fn5"
        default = 1
      endparam

param papillon
    caption = "papillon"
        default = 0
      endparam
      
func fn1
 caption="fonction 1"
 default=tanh()
 endfunc

func fn2
 caption="fonction 2"
 default=log()
 endfunc

func fn3
 caption="fonction 3"
 default=sinh()
 endfunc


func fn4
 caption="fonction 4"
 default=log()
 endfunc

func fn5
 caption="fonction 5"
 default=zero()
 endfunc
 
 
switch:
  type = "mandel4"
  bail = bail
coupure=coupure
test=test
pui=pui
p0=p0
p1=p1
p2=p2
p3=p3
p4=p4
p5=p5
fn1=fn1
fn2=fn2
fn3=fn3
fn4=fn4
fn5=fn5
parenth=parenth

papillon=papillon
k1=k1
k2=k2
k3=k3
k4=k4
k5=k5
}

mandel5{
;martine.girard3@wanadoo.fr
;demo voir gmc.upr

init:
z=@mandel
c=#pixel

loop:




if (@parenth==0)
z=@k1*@fn1(@k2*@fn2((@k3*@fn3(z^@p0))^@p3)^@p2)^@p1+(@k4*@fn4((@k5*@fn5(z^@p0))^@p5))^@p4+(@k6*@fn6(@k7*@fn7((@k8*@fn8(z^@p0))^@p8))^@p7)^@p6+c

elseif (@parenth==1)
z=(@k1*@fn1(@k2*@fn2(@k3*@fn3(z^@p0))^@p3)^@p2)^@p1+(@k4*@fn4((@k5*@fn5(z^@p0))^@p5))^@p4+(@k6*@fn6(@k7*@fn7((@k8*@fn8(z^@p0))^@p8))^@p7)^@p6+c

elseif (@parenth==2)
z=(@k1*@fn1(@k2*@fn2((@k3*@fn3(z^@p0))^@p3)^@p2))^@p1+(@k4*@fn4((@k5*@fn5(z^@p0))^@p5))^@p4+(@k6*@fn6(@k7*@fn7((@k8*@fn8(z^@p0))^@p8))^@p7)^@p6+c

elseif (@parenth==3)
z=(@k1/@fn1(@k2*@fn2(@k3*@fn3(z^@p0))^@p3)^@p2)^@p1+(@k4*@fn4((@k5/@fn5(z^@p0))^@p5))^@p4+(@k6*@fn6(@k7*@fn7((@k8/@fn8(z^@p0))^@p8))^@p7)^@p6+c

elseif (@parenth==4)
z=(@k1/@fn1((@k2*@fn2(@k3*@fn3(z^@p0))^@p3))^@p2)^@p1+(@k6*@fn6(@k7*@fn7(@k8/@fn8(z^@p0))^@p8)^@p7)^@p6+c+(@k4*@fn4((@k5*@fn5(z^@p0))^@p5))^@p4

elseif (@parenth==5)
z=(@k1/@fn1(@k2*@fn2(@k3/@fn3(z^@p0))^@p3)^@p2)^@p1+(@k4*@fn4((@k5*@fn5(z^@p0))^@p5))^@p4+(@k6*@fn6(@k7/@fn7(@k8*@fn8(z^@p0))^@p8)^@p7)^@p6+c

elseif (@parenth==6)
z=(@k1/@fn1(@k2*@fn2(@k3*@fn3(z^@p0))^@p3)^@p2)^@p1+(@k4*@fn4((@k5*@fn5(z^@p0))^@p5))^@p4+(@k6*@fn6(@k7/@fn7((@k8*@fn8(z^@p0))^@p8)^@p7))^@p6+c


;z=(@k/@fn1(@fn2(@fn3(z^@p0))^@p3)^@p2)^@p1+(@k*@fn4(1/@fn5((@fn6(z^@p0))^@p4)^@p5))^@p6+c


endif




if (@papillon==0)
if (abs(real(#z))>0.5*@coupure && abs(imag(#z))<@coupure)
z=0
endif
endif

if (@papillon==1)
t=((atan(imag(#z)/real(#z))))

if (abs(real(#z))>0.5*@coupure && abs(imag(#z))<@coupure)
if (abs(t)>0.085)&&(abs(t)<0.7)
z=0
endif

if (abs(t)<0.085)
z=z*1000
endif
endif
endif


bailout:
  ((@test==0) && (|z^@pui| < @bail) )|| (( @test==1) && ((abs(real(z^@pui))) < @bail && (abs(imag(z^@pui))) < @bail)) || \ 
  (@test == 2 && |z| <= @bail) ||                                         \

  (@test == 3 && sqr(real(z)) <= @bail) ||                                \
  (@test == 4 && sqr(imag(z)) <= @bail) ||                                \
  (@test == 5 && (sqr(real(z)) <= @bail && sqr(imag(z)) < @bail)) ||   \
  (@test == 6 && (sqr(real(z)) <= @bail || sqr(imag(z)) < @bail)) ||   \
  (@test == 7 && (sqr(abs(real(z)) + abs(imag(z))) <= @bail)) ||          \
  (@test == 8 && (sqr(real(z) + imag(z)) <= @bail))

 
  
default:
title="f1f2f3+f4f5+f6f7f8-mandel"
maxiter=100
  periodicity=0
method=multipass

  param bail
    caption = "Bailout"
        default = 24.2
      endparam
  
 param coupure
    caption = "coupure"
        default = 9.34
      endparam
  
   param test
    caption = "test"
       default = 1
      endparam
     
      
  param mandel
    caption = "valeur de c"
        default = (0.0,0.0)
      endparam
 
 
 param k1
    caption = "parametre k1"
        default = 1.0
   endparam
param k2
    caption = "parametre k2"
        default = 1.0
   endparam
param k3
    caption = "parametre k3"
        default = 1.0
   endparam
param k4
    caption = "parametre k4"
        default = 1.0
   endparam
param k5
    caption = "parametre k5"
        default = 1.0
   endparam
param k6
    caption = "parametre k6"
        default = 1.0
   endparam
param k7
    caption = "parametre k7"



        default = 1.0
   endparam
param k8
    caption = "parametre k8"
        default = 1.0
   endparam

  param pui
    caption = "puissance test"
        default = 2
      endparam
   param parenth
    caption = "parenthese"
       default = 4
      endparam 
   param p0
    caption = "puissance z"
       default = 2
     endparam
  
  
    param p1
    caption = "puissance fn1"
       default = 2
     endparam
      param p2
    caption = "puissance fn2"
       default = 2
     endparam
  param p3
    caption = "puissance fn3"
       default = 2

     endparam
      param p4
    caption = "puissance fn4"
       default = 1
     endparam
   param p5
    caption = "puissance fn5"
       default = 1
     endparam
   param p6
    caption = "puissance fn6"
       default = 2
     endparam
      param p7
    caption = "puissance fn7"
       default = 2
     endparam
   param p8
    caption = "puissance fn8"
       default = 1
     endparam

   param papillon
    caption = "papillon"
       default = 0
     endparam
     
 
func fn1
 caption="fonction 1"
 default=exp()
 endfunc
 func fn2
 caption="fonction 2"
 default=cos()
 endfunc
 func fn3
 caption="fonction 3"
 default=tan()
 endfunc
 func fn4
 caption="fonction 4"
 default=zero()
 endfunc
func fn5
 caption="fonction 5"
 default=zero()
 endfunc
func fn6
 caption="fonction 6"
 default=tan()
 endfunc
 func fn7
 caption="fonction 7"
 default=cos()
 endfunc
func fn8
 caption="fonction 8"
 default=cos()
 endfunc
 
switch:
  type = "julia5"
  julia=#pixel
 bail = bail
coupure=coupure
 test=test
 pui=pui
p0=p0
p1=p1
p2=p2
p4=p4
fn1=fn1
fn2=fn2
fn4=fn4
p3=p3
p5=p5
p6=p6
fn3=fn3
fn5=fn5
fn6=fn6
p7=p7
p8=p8
p9=p9
fn7=fn7
fn8=fn8
fn9=fn9
fn10=fn10
fn11=fn11
fn12=fn12

p10=p10
p11=p11
p12=p12
parenth=parenth

papillon=papillon
k1=k1
k2=k2
k3=k3
k4=k4
k5=k5
k6=k6
k7=k7
k8=k8
k9=k9
k10=k10

k11=k11
k12=k12



}


julia5{
;martine.girard3@wanadoo.fr
;demo voir gmc.upr

init:

z=#pixel
c=@julia

loop:


if (@parenth==0)
z=(@k4*@fn4((@k5*@fn5(z^@p0))^@p5))^@p4+@k1*@fn1(@k2*@fn2((@k3*@fn3(z^@p0))^@p3)^@p2)^@p1+(@k6*@fn6(@k7*@fn7((@k8*@fn8(z^@p0))^@p8))^@p7)^@p6+c

elseif (@parenth==1)
z=(@k1*@fn1(@k2*@fn2(@k3*@fn3(z^@p0))^@p3)^@p2)^@p1+(@k4*@fn4((@k5*@fn5(z^@p0))^@p5))^@p4+(@k6*@fn6(@k7*@fn7((@k8*@fn8(z^@p0))^@p8))^@p7)^@p6+c

elseif (@parenth==2)
z=(@k1*@fn1(@k2*@fn2((@k3*@fn3(z^@p0))^@p3)^@p2))^@p1+(@k4*@fn4((@k5*@fn5(z^@p0))^@p5))^@p4+(@k6*@fn6(@k7*@fn7((@k8*@fn8(z^@p0))^@p8))^@p7)^@p6+c

elseif (@parenth==3)
z=(@k1*@fn1((@k2*@fn2(@k3*@fn3(z^@p0))^@p3))^@p2)^@p1+(@k4*@fn4((@k5*@fn5(z^@p0))^@p5))^@p4+(@k6*@fn6(@k7*@fn7((@k8*@fn8(z^@p0))^@p8))^@p7)^@p6+c

elseif (@parenth==4)
z=(@k1*fn1(@k2*@fn2((@k3*@fn3(z^@p0))^@p3))^@p2)^@p1+(@k4*@fn4((@k5*@fn5(z^@p0))^@p5))^@p4+(@k6*@fn6(@k7*@fn7((@k8*@fn8(z^@p0))^@p8))^@p7)^@p6+c
elseif (@parenth==5)
z=(@k1/@fn1(@k2*@fn2(@k3/@fn3(z^@p0))^@p3)^@p2)^@p1+(@k4*@fn4((@k5*@fn5(z^@p0))^@p5))^@p4+(@k6*@fn6(@k7/@fn7(@k8*@fn8(z^@p0))^@p8)^@p7)^@p6+c


endif


if (@papillon==0)
if (abs(real(#z))>0.5*@coupure && abs(imag(#z))<@coupure) 
z=0
endif
endif

if (@papillon==1)
t=((atan(imag(#z)/real(#z))))

if (abs(real(#z))>0.5*@coupure && abs(imag(#z))<@coupure)
if (abs(t)>0.085)&&(abs(t)<0.7)
z=0
endif

if (abs(t)<0.085)
z=z*1000
endif
endif
endif


bailout:
  ((@test==0) && (|z^@pui| < @bail) )|| (( @test==1) && ((abs(real(z^@pui))) < @bail && (abs(imag(z^@pui))) < @bail)) || \ 
  (@test == 2 && |z| <= @bail) ||                                         \
  (@test == 3 && sqr(real(z)) <= @bail) ||                                \
  (@test == 4 && sqr(imag(z)) <= @bail) ||                                \
  (@test == 5 && (sqr(real(z)) <= @bail && sqr(imag(z)) < @bail)) ||   \
  (@test == 6 && (sqr(real(z)) <= @bail || sqr(imag(z)) < @bail)) ||   \
  (@test == 7 && (sqr(abs(real(z)) + abs(imag(z))) <= @bail)) ||          \
  (@test == 8 && (sqr(real(z) + imag(z)) <= @bail))

default:
title="f1f2f3+f4f5+f6f7f8-julia"
maxiter=10
  periodicity=0
method=multipass

  param bail
    caption = "Bailout"
        default = 404.2
      endparam
  
 param coupure
    caption = "coupure"
        default = 38.34
      endparam
  
   param test
    caption = "test 0à8"
        default = 1
      endparam
 
 
  param pui
    caption = "puissance test"
        default = 2
      endparam
      
  param julia
    caption = "valeur de c"
        default = (0.0,0.0)
      endparam
      
      param k1
    caption = "parametre k1"
        default = 0.36
   endparam
param k2
    caption = "parametre k2"
        default = 1.0
   endparam
param k3
    caption = "parametre k3"
        default = 0.36
   endparam
param k4
    caption = "parametre k4"
        default = 1.0
   endparam
param k5
    caption = "parametre k5"
        default = 1.0
   endparam

param k6
    caption = "parametre k6"
        default = 1.0
   endparam
param k7
    caption = "parametre k7"
        default = 1.0
   endparam
param k8
    caption = "parametre k8"
        default = 1.0
   endparam

  param parenth
    caption = "parenthese"
       default = 4
      endparam 
 param p0
    caption = "puissance z"
        default = 2
      endparam
 
    param p1
    caption = "puissance fn1"

       default = -2
         endparam
      param p2
    caption = "puissance fn2"
       default = 5
     endparam
  param p3
    caption = "puissance fn3"
       default = -2
     endparam
      param p4
    caption = "puissance fn4"
       default = 1
     endparam
   param p5
    caption = "puissance fn5"
       default =1
     endparam
param p6
    caption = "puissance fn6"
       default = 1
            endparam
      param p7
    caption = "puissance fn7"
       default = 1
     endparam
   param p8
    caption = "puissance fn8"
       default = 1
     endparam

 
  param papillon
    caption = "papillon"
        default = 0
      endparam
      

func fn1
 caption="fonction 1"
 default=log()
 endfunc

func fn2
 caption="fonction 2"
 default=tanh()
 endfunc

func fn3
 caption="fonction 3"
 default=log()
 endfunc

func fn4
 caption="fonction 4"
 default=zero()
 endfunc


func fn5
 caption="fonction 5"
 default=zero()
 endfunc
 
 func fn6
 caption="fonction 6"
 default=zero()
 endfunc
 func fn7
 caption="fonction 7"
 default=zero()
 endfunc
func fn8

 caption="fonction 8"
 default=zero()
 endfunc
 

switch:
  type = "mandel5"
  bail = bail
coupure=coupure
test=test
pui=pui
p0=p0
p1=p1
p2=p2
p3=p3
p4=p4
p5=p5
p6=p6
p7=p7
fn1=fn1
fn2=fn2
fn3=fn3
fn4=fn4
fn5=fn5
fn6=fn6
fn7=fn7
fn8=fn8
parenth=parenth

papillon=papillon
k1=k1
k2=k2
k3=k3
k4=k4
k5=k5
k6=k6
k7=k7

k8=k8
}


mandel6{
;martine.girard3@wanadoo.fr
;demo voir gmc.upr

init:
z=@mandel
c=#pixel

loop:
if (@parenth==0)
z=(@k1*@fn1(@k2*@fn2(@k3*@fn3(z^@p0))^@p3)^@p2)^@p1+(@k4*fn4(@k5*@fn5((@k6*@fn6(z^@p0))^@p6))^@p5)^@p4+c+(@k7*@fn7(@k8*@fn8(@k9*@fn9(z^@p0))^@p9)^@p8)^@p7

elseif (@parenth==1)
z=(@k1*@fn1(@k2*@fn2((@k3*@fn3(z^@p0))^@p3))^@p2)^@p1+@k4*@fn4(@k5*@fn5((@k6*@fn6(z^@p0))^@p6)^@p5)^@p4+c+(@k7*@fn7(@k8*@fn8(@k9*@fn9(z^@p0))^@p9)^@p8)^@p7

elseif (@parenth==2)
z=(@k1*@fn1(@k2*@fn2((@k3*@fn3(z^@p0)))^@p3)^@p2)^@p1+(@k4*fn4(@k5*@fn5((@k6*@fn6(z^@p0))^@p6))^@p5)^@p4+c+(@k7*@fn7(@k8*@fn8((@k9*@fn9(z^@p0))^@p9))^@p8)^@p7

elseif (@parenth==3)
z=(@k1*@fn1(@k2*@fn2((@k3*@fn3(z^@p0)))^@p3)^@p2)^@p1+@k4*@fn4(@k5*@fn5((@k6*@fn6(z^@p0))^@p6)^@p5)^@p4+@k7*@fn7(@k8*@fn8((@k9*@fn9(z^@p0))^@p9)^@p8)^@p7+c

elseif (@parenth==4)
z=(@fn1(@fn2((@k1/@fn3(z^@p0)))^@p3)^@p2)^@p1+@k1/@fn4(@fn5((@fn6(z^@p0))^@p6)^@p5)^@p4+@fn7(@k1/@fn8((@fn9(z^@p0))^@p9)^@p8)^@p7+c

elseif (@parenth==5)
z=(@k1/@fn1((@k2*@fn2(@k3/@fn3(z^@p0))^@p3))^@p2)^@p1+(@k4*@fn4((@k5/@fn5(@k6*@fn6(z^@p0))^@p6))^@p5)^@p4+c+(@k7*@fn7(@k8*@fn8(@k9*@fn9(z^@p0))^@p9)^@p8)^@p7

;z=(@k/@fn1((@fn2(@k/@fn3(z^@p0))^@p3))^@p2)^@p1+(@fn4((@k/@fn5(@fn6(z^@p0))^@p6))^@p5)^@p4+c




endif

if (@papillon==0)
if (abs(real(#z))>0.5*@coupure && abs(imag(#z))<@coupure)
z=0
endif
endif

if (@papillon==1)
t=((atan(imag(#z)/real(#z))))

if (abs(real(#z))>0.5*@coupure && abs(imag(#z))<@coupure)
if (abs(t)>0.085)&&(abs(t)<0.7)
z=0
endif

if (abs(t)<0.085)
z=z*1000
endif
endif
endif


bailout:
  ((@test==0) && (|z^@pui| < @bail) )|| (( @test==1) && ((abs(real(z^@pui))) < @bail && (abs(imag(z^@pui))) < @bail)) || \ 
  (@test == 2 && |z| <= @bail) ||                                         \
  (@test == 3 && sqr(real(z)) <= @bail) ||                                \
  (@test == 4 && sqr(imag(z)) <= @bail) ||                                \
  (@test == 5 && (sqr(real(z)) <= @bail && sqr(imag(z)) < @bail)) ||   \
  (@test == 6 && (sqr(real(z)) <= @bail || sqr(imag(z)) < @bail)) ||   \
  (@test == 7 && (sqr(abs(real(z)) + abs(imag(z))) <= @bail)) ||          \
  (@test == 8 && (sqr(real(z) + imag(z)) <= @bail))

 
  
default:
title="f1f2f3+f4f5f6+f7f8f9-mandel"
maxiter=100
  periodicity=0
method=multipass
  



  param bail
    caption = "Bailout"
        default = 220.2
      endparam
  
 param coupure
    caption = "coupure"
        default = 7.395
      endparam
  
   param test
    caption = "test"
       default = 0
      endparam
      
  param mandel
    caption = "valeur de c"
        default = (0.0,0.0)
      endparam

     param k1
    caption = "parametre k1"
        default = 1.0
   endparam
param k2
    caption = "parametre k2"
        default = 1.0
   endparam
param k3
    caption = "parametre k3"
        default = 1.0
   endparam
param k4
    caption = "parametre k4"
        default = 1.0
   endparam
param k5
    caption = "parametre k5"
        default = 1.0
          endparam
 param k6
    caption = "parametre k6"
        default = 1.0
   endparam
     param k7
    caption = "parametre k7"
        default = 1.0
   endparam
param k8
    caption = "parametre k8"
        default = 1.0
   endparam
param k9
    caption = "parametre k9"
        default = 1.0
   endparam

 

  param pui

    caption = "puissance test"
        default = 2
      endparam
      
 param parenth
    caption = "parenthese"
       default = 4
      endparam 
      
   param p0
    caption = "puissance z"
       default = 2
     endparam
    param p1
    caption = "puissance fn1"
       default =2
     endparam
      param p2
    caption = "puissance fn2"
       default = 2
     endparam
  param p3
    caption = "puissance fn3"
       default = 2
     endparam
      param p4
    caption = "puissance fn4"
       default = 2
     endparam
   param p5
    caption = "puissance fn5"
       default =4
     endparam
   param p6
    caption = "puissance fn6"
       default =1
     endparam
 
   param p7
    caption = "puissance fn7"
       default =1
     endparam
      param p8
    caption = "puissance fn8"
       default = 2
     endparam
  param p9
    caption = "puissance fn9"
       default = 1
     endparam
 
 

   param papillon
    caption = "papillon"
       default = 0
     endparam
func fn1
 caption="fonction 1"
 default=sin()
 endfunc

func fn2
 caption="fonction 2"
 default=tanh()
 endfunc

func fn3
 caption="fonction 3"
 default=cos()
 endfunc

func fn4
 caption="fonction 4"
 default=exp()
 endfunc

func fn5
 caption="fonction 5"
 default=ident()
 endfunc
 
  func fn6
 caption="fonction 6"
 default=tan()
 endfunc
 
func fn7
 caption="fonction 7"
 default=sin()
 endfunc

func fn8
 caption="fonction 8"
 default=cos()
 endfunc

func fn9
 caption="fonction 9"
 default=tan()
 endfunc



 
switch:
  type = "julia6"
  julia=#pixel
 bail = bail
coupure=coupure
 test=test
 pui=pui
p0=p0
p1=p1
p2=p2
p4=p4
fn1=fn1
fn2=fn2
fn4=fn4
p3=p3
p5=p5
p6=p6
fn3=fn3
fn5=fn5
fn6=fn6
p7=p7
p8=p8
p9=p9
fn7=fn7
fn8=fn8
fn9=fn9
fn10=fn10
fn11=fn11
fn12=fn12

p10=p10
p11=p11
p12=p12
parenth=parenth
papillon=papillon
;k=k

k1=k1
k2=k2
k3=k3
k4=k4
;k5=k5
k6=k6
k7=k7
k8=k8
k9=k9

;k5=k5
}

julia6{
;martine.girard3@wanadoo.fr
;demo voir gmc.upr

init:
z=#pixel
c=@julia

loop:

if (@parenth==0)
z=(@k1*@fn1(@k2*@fn2(@k3*@fn3(z^@p0))^@p3)^@p2)^@p1+(@k4*fn4(@k5*@fn5((@k6*@fn6(z^@p0))^@p6))^@p5)^@p4+c+(@k7*@fn7(@k8*@fn8(@k9*@fn9(z^@p0))^@p9)^@p8)^@p7

elseif (@parenth==1)
z=(@k1*@fn1(@k2*@fn2((@k3*@fn3(z^@p0))^@p3))^@p2)^@p1+@k4*@fn4(@k5*@fn5((@k6*@fn6(z^@p0))^@p6)^@p5)^@p4+c+(@k7*@fn7(@k8*@fn8(@k9*@fn9(z^@p0))^@p9)^@p8)^@p7


elseif (@parenth==2)
z=(@k1*@fn1(@k2*@fn2((@k3*@fn3(z^@p0)))^@p3)^@p2)^@p1+(@k4*fn4(@k5*@fn5((@k6*@fn6(z^@p0))^@p6))^@p5)^@p4+c+(@k7*@fn7(@k8*@fn8((@k9*@fn9(z^@p0))^@p9))^@p8)^@p7

elseif (@parenth==3)
z=(@k1*@fn1(@k2*@fn2((@k3*@fn3(z^@p0)))^@p3)^@p2)^@p1+@k4*@fn4(@k5*@fn5((@k6*@fn6(z^@p0))^@p6)^@p5)^@p4+@k7*@fn7(@k8*@fn8((@k9*@fn9(z^@p0))^@p9)^@p8)^@p7+c

elseif (@parenth==4)
z=(@fn1(@fn2((@k1/@fn3(z^@p0)))^@p3)^@p2)^@p1+@k1/@fn4(@fn5((@fn6(z^@p0))^@p6)^@p5)^@p4+@fn7(@k1/@fn8((@fn9(z^@p0))^@p9)^@p8)^@p7+c
elseif (@parenth==5)
z=(@k1/@fn1((@k2*@fn2(@k3/@fn3(z^@p0))^@p3))^@p2)^@p1+(@k4*@fn4((@k5/@fn5(@k6*@fn6(z^@p0))^@p6))^@p5)^@p4+c+(@k7*@fn7(@k8*@fn8(@k9*@fn9(z^@p0))^@p9)^@p8)^@p7


endif



if (@papillon==0)
if (abs(real(#z))>0.5*@coupure && abs(imag(#z))<@coupure) 
z=0
endif
endif

if (@papillon==1)
t=((atan(imag(#z)/real(#z))))

if (abs(real(#z))>0.5*@coupure && abs(imag(#z))<@coupure)
if (abs(t)>0.085)&&(abs(t)<0.7)

z=0
endif

if (abs(t)<0.085)
z=z*1000
endif
endif
endif


bailout:
  ((@test==0) && (|z^@pui| < @bail) )|| (( @test==1) && ((abs(real(z^@pui))) < @bail && (abs(imag(z^@pui))) < @bail)) || \ 
  (@test == 2 && |z| <= @bail) ||                                         \
  (@test == 3 && sqr(real(z)) <= @bail) ||                                \
  (@test == 4 && sqr(imag(z)) <= @bail) ||                                \
  (@test == 5 && (sqr(real(z)) <= @bail && sqr(imag(z)) < @bail)) ||   \
  (@test == 6 && (sqr(real(z)) <= @bail || sqr(imag(z)) < @bail)) ||   \
  (@test == 7 && (sqr(abs(real(z)) + abs(imag(z))) <= @bail)) ||          \
  (@test == 8 && (sqr(real(z) + imag(z)) <= @bail))

 
  
default:
title="f1f2f3+f4f5f6+f7f8f9-julia"
maxiter=10
  periodicity=0
method=multipass

  param bail
    caption = "Bailout"
        default = 5.2
      endparam
  
 param coupure
    caption = "coupure"
        default = 4.56
      endparam
  
   param test
    caption = "test"
        default = 1
      endparam
 
  param pui
    caption = "puissance test"
        default = 2
      endparam
     param k1
    caption = "parametre k1"
        default = 1.0
   endparam
param k2
    caption = "parametre k2"
        default = 1.0
   endparam
param k3
    caption = "parametre k3"
        default = 0.6 
   endparam
param k4
    caption = "parametre k4"
        default = 1.0
   endparam
param k5
    caption = "parametre k5"
        default = 1
   endparam

  param k6
    caption = "parametre k6"
        default = 0.6
   endparam

     param k7
    caption = "parametre k7"
        default = 1.0
   endparam
param k8
    caption = "parametre k8"
        default = 1.0
   endparam
param k9
    caption = "parametre k9"
        default = 1.0
   endparam

          
  param julia
    caption = "valeur de c"
        default = (0.0,0.0)
      endparam
 param parenth
    caption = "parenthese"
       default = 0
      endparam

 param p0
    caption = "puissance z"
        default = 2
      endparam
   param p1
    caption = "puissance fn1"
       default = 2
     endparam
      param p2
    caption = "puissance fn2"
       default = 2
     endparam
  param p3
    caption = "puissance fn3"
       default = -2
     endparam
      param p4
    caption = "puissance fn4"
       default = 2
     endparam
   param p5
    caption = "puissance fn5"
       default =2
     endparam
   param p6
    caption = "puissance fn6"
        default =-2
      endparam
 
 param p7
    caption = "puissance fn7"
       default =-2
     endparam
      param p8
    caption = "puissance fn8"
       default = 2
     endparam
  param p9
    caption = "puissance fn9"
       default = 2
     endparam
  
 

param papillon
    caption = "papillon"
        default = 0
      endparam
func fn1
 caption="fonction 1"
 default=sin()
 endfunc

func fn2
 caption="fonction 2"
 default=tan()
 endfunc

func fn3
 caption="fonction 3"
 default=log()
 endfunc

func fn4
 caption="fonction 4"
 default=tan()
 endfunc

func fn5

 caption="fonction 5"
 default=sin()
 endfunc
 
func fn6
 caption="fonction 6"
 default=log()
 endfunc
func fn7
 caption="fonction 7"
 default=exp()
 endfunc

func fn8
 caption="fonction 8"

 default=cos()
 endfunc

func fn9
 caption="fonction 9"
 default=tan()
 endfunc

 
switch:
  type = "mandel6"
 bail = bail
coupure=coupure
 test=test
 pui=pui
p0=p0
p1=p1
p2=p2
p4=p4
fn1=fn1
fn2=fn2
fn4=fn4
p3=p3
p5=p5
p6=p6
fn3=fn3
fn5=fn5
fn6=fn6
p7=p7
p8=p8
p9=p9
fn7=fn7
fn8=fn8
fn9=fn9
fn10=fn10
fn11=fn11
fn12=fn12

p10=p10
p11=p11
p12=p12
parenth=parenth

papillon=papillon
k1=k1
k2=k2
k3=k3
k4=k4
k5=k5
k6=k6
k7=k7
k8=k8
k9=k9
k10=k10
k11=k11
k12=k12


}



mandel7{
;martine.girard3@wanadoo.fr
;demo voir gmc.upr

init:
z=@mandel
c=#pixel

loop:
if (@parenth==0)
z=(@k1*@fn1(@k2*@fn2(z^@p0))^@p2)^@p1+(@k3*@fn3((@k4*@fn4(z^@p0))^@p4))^@p3+c+(@k5*@fn5(@k6*@fn6(z^@p0))^@p6)^@p5

elseif (@parenth==1)
z=(@k1*@fn1((@k2*@fn2(z^@p0))^@p2))^@p1+@k3*@fn3((@k4*@fn4(z^@p0))^@p4)^@p3+c+(@k5*@fn5(@k6*@fn6(z^@p0))^@p6)^@p5


elseif (@parenth==2)
z=(@k1*@fn1((@k2*@fn2(z^@p0)))^@p2)^@p1+(@k3*@fn3((@k4*@fn4(z^@p0))^@p4))^@p3+c+(@k5*@fn5((@k6*@fn6(z^@p0))^@p6))^@p5

elseif (@parenth==3)
z=(@k1*@fn1((@k2*@fn2(z^@p0)))^@p2)^@p1+@k3*@fn3((@k4*@fn4(z^@p0))^@p4)^@p3+@k5*@fn5((@k6*@fn6(z^@p0))^@p6)^@p5+c

elseif (@parenth==4)
z=(@fn1((@k1/@fn2(z^@p0)))^@p2)^@p1+@k1/@fn3((@fn4(z^@p0))^@p4)^@p3+@k1/@fn5((@fn6(z^@p0))^@p6)^@p5+c

elseif (@parenth==5)
z=(@k1/@fn1((@k2*@fn2(z^@p0))^@p2))^@p1+@k3*@fn3((@k4*@fn4(z^@p0))^@p4)^@p3+c+(@k5*@fn5(@k6*@fn6(z^@p0))^@p6)^@p5
elseif (@parenth==6)
z=(@k1*@fn1((@k2*@fn2(z^@p0))^@p2))^@p1+(@k3*@fn3((@k4*@fn4(z^@p0))^@p4))^@p3+(@k5*@fn5((@k6*@fn6(z^@p0))^@p6))^@p5+c



endif

if (@papillon==0)
if (abs(real(#z))>0.5*@coupure && abs(imag(#z))<@coupure)
z=0
endif
endif

if (@papillon==1)
t=((atan(imag(#z)/real(#z))))


if (abs(real(#z))>0.5*@coupure && abs(imag(#z))<@coupure)
if (abs(t)>0.085)&&(abs(t)<0.7)
z=0
endif

if (abs(t)<0.085)
z=z*1000
endif
endif
endif


bailout:
  ((@test==0) && (|z^@pui| < @bail) )|| (( @test==1) && ((abs(real(z^@pui))) < @bail && (abs(imag(z^@pui))) < @bail)) || \ 
  (@test == 2 && |z| <= @bail) ||                                         \
  (@test == 3 && sqr(real(z)) <= @bail) ||                                \
  (@test == 4 && sqr(imag(z)) <= @bail) ||                                \
  (@test == 5 && (sqr(real(z)) <= @bail && sqr(imag(z)) < @bail)) ||   \
  (@test == 6 && (sqr(real(z)) <= @bail || sqr(imag(z)) < @bail)) ||   \
  (@test == 7 && (sqr(abs(real(z)) + abs(imag(z))) <= @bail)) ||          \
  (@test == 8 && (sqr(real(z) + imag(z)) <= @bail))

 
  
default:
title="f1f2+f3f4+f5f6-mandel"
maxiter=100
  periodicity=0
method=multipass
  


  param bail
    caption = "Bailout"
        default = 10.2
      endparam
  
 param coupure
    caption = "coupure"
        default = 6.395
      endparam
  
   param test
    caption = "test"
       default = 1
      endparam
      
  param mandel
    caption = "valeur de c"
        default = (0.0,0.0)
      endparam

     param k1
    caption = "parametre k1"
        default = 1.0
   endparam
param k2
    caption = "parametre k2"
        default = 1.0
   endparam
param k3
    caption = "parametre k3"
        default = 1.0
   endparam
param k4
    caption = "parametre k4"
        default = 1.0
   endparam

param k5
    caption = "parametre k5"
        default = 1.0
          endparam
 param k6
    caption = "parametre k6"
        default = 1.0
   endparam

  
 

  param pui
    caption = "puissance test"
        default = 2
      endparam
      
 param parenth
    caption = "parenthese"
       default = 0
      endparam 
      
   param p0
    caption = "puissance z"
       default = 2
     endparam
    param p1
    caption = "puissance fn1"
       default =2
     endparam
      param p2
    caption = "puissance fn2"
       default = -2
     endparam
  param p3
    caption = "puissance fn3"
       default = -1
     endparam
      param p4
    caption = "puissance fn4"
       default = 4
     endparam
   param p5
    caption = "puissance fn5"
       default =-2
     endparam
   param p6
    caption = "puissance fn6"
       default =2
     endparam
 
     param papillon
    caption = "papillon"
       default = 0
     endparam
func fn1
 caption="fonction 1"
 default=sinh()
 endfunc

func fn2
 caption="fonction 2"
 default=cos()
 endfunc

func fn3
 caption="fonction 3"
 default=exp()
 endfunc

func fn4
 caption="fonction 4"
 default=tan()
 endfunc

func fn5
 caption="fonction 5"
 default=cosh()
 endfunc
 
  func fn6
 caption="fonction 6"
 default=tan()
 endfunc
 




 
switch:
  type = "julia7"
  julia=#pixel
 bail = bail
coupure=coupure
 test=test
 pui=pui
p0=p0
p1=p1
p2=p2
p4=p4
fn1=fn1
fn2=fn2
fn4=fn4
p3=p3
p5=p5
p6=p6
fn3=fn3
fn5=fn5
fn6=fn6
p7=p7
p8=p8
p9=p9
fn7=fn7
fn8=fn8
fn9=fn9
fn10=fn10
fn11=fn11
fn12=fn12

p10=p10
p11=p11
p12=p12
parenth=parenth
papillon=papillon
;k=k
k1=k1
k2=k2
k3=k3
k4=k4
;k5=k5
k6=k6
k7=k7
k8=k8
k9=k9

;k5=k5
}


julia7{
;martine.girard3@wanadoo.fr
;demo voir gmc.upr

init:
z=#pixel
c=@julia

loop:

if (@parenth==0)
z=(@k1*@fn1(@k2*@fn2(z^@p0))^@p2)^@p1+(@k3*@fn3((@k4*@fn4(z^@p0))^@p4))^@p3+c+(@k5*@fn5(@k6*@fn6(z^@p0))^@p6)^@p5

elseif (@parenth==1)
z=(@k1*@fn1((@k2*@fn2(z^@p0))^@p2))^@p1+@k3*@fn3((@k4*@fn4(z^@p0))^@p4)^@p3+c+(@k5*@fn5(@k6*@fn6(z^@p0))^@p6)^@p5


elseif (@parenth==2)
z=(@k1*@fn1((@k2*@fn2(z^@p0)))^@p2)^@p1+(@k3*@fn3((@k4*@fn4(z^@p0))^@p4))^@p3+c+(@k5*@fn5((@k6*@fn6(z^@p0))^@p6))^@p5

elseif (@parenth==3)
z=(@k1*@fn1((@k2*@fn2(z^@p0)))^@p2)^@p1+@k3*@fn3((@k4*@fn4(z^@p0))^@p4)^@p3+@k5*@fn5((@k6*@fn6(z^@p0))^@p6)^@p5+c

elseif (@parenth==4)
z=(@fn1((@k1/@fn2(z^@p0)))^@p2)^@p1+@k1/@fn3((@fn4(z^@p0))^@p4)^@p3+@k1/@fn5((@fn6(z^@p0))^@p6)^@p5+c

elseif (@parenth==5)
z=(@k1/@fn1((@k2*@fn2(z^@p0))^@p2))^@p1+@k3*@fn3((@k4*@fn4(z^@p0))^@p4)^@p3+c+(@k5*@fn5(@k6*@fn6(z^@p0))^@p6)^@p5

elseif (@parenth==6)
z=(@k1*@fn1((@k2*@fn2(z^@p0))^@p2))^@p1+(@k3*@fn3((@k4*@fn4(z^@p0))^@p4))^@p3+(@k5*@fn5((@k6*@fn6(z^@p0))^@p6))^@p5+c


endif


if (@papillon==0)
if (abs(real(#z))>0.5*@coupure && abs(imag(#z))<@coupure) 
z=0
endif
endif

if (@papillon==1)
t=((atan(imag(#z)/real(#z))))

if (abs(real(#z))>0.5*@coupure && abs(imag(#z))<@coupure)
if (abs(t)>0.085)&&(abs(t)<0.7)
z=0
endif

if (abs(t)<0.085)
z=z*1000
endif
endif
endif



bailout:
  ((@test==0) && (|z^@pui| < @bail) )|| (( @test==1) && ((abs(real(z^@pui))) < @bail && (abs(imag(z^@pui))) < @bail)) || \ 
  (@test == 2 && |z| <= @bail) ||                                         \
  (@test == 3 && sqr(real(z)) <= @bail) ||                                \
  (@test == 4 && sqr(imag(z)) <= @bail) ||                                \
  (@test == 5 && (sqr(real(z)) <= @bail && sqr(imag(z)) < @bail)) ||   \
  (@test == 6 && (sqr(real(z)) <= @bail || sqr(imag(z)) < @bail)) ||   \
  (@test == 7 && (sqr(abs(real(z)) + abs(imag(z))) <= @bail)) ||          \
  (@test == 8 && (sqr(real(z) + imag(z)) <= @bail))

 
  
default:
title="f1f2+f3f4+f5f6-julia"
maxiter=10
  periodicity=0
method=multipass

  param bail
    caption = "Bailout"
        default = 5.2
      endparam
  
 param coupure
    caption = "coupure"
        default = 4.56
      endparam
  
   param test
    caption = "test"
        default = 1
      endparam
 

  param pui
    caption = "puissance test"
        default = 2
      endparam
     param k1
    caption = "parametre k1"
        default = 1.0
   endparam
param k2
    caption = "parametre k2"
        default = 0.5
   endparam
param k3
    caption = "parametre k3"
        default = 0.6 
   endparam

param k4
    caption = "parametre k4"
        default = 1.0
   endparam
param k5
    caption = "parametre k5"
        default = 1
   endparam

  param k6
    caption = "parametre k6"
        default = 0.6
   endparam

           
  param julia
    caption = "valeur de c"
        default = (0.0,0.0)
      endparam
 param parenth
    caption = "parenthese"
       default = 1
      endparam

 param p0
    caption = "puissance z"
        default = 4
      endparam
   param p1
    caption = "puissance fn1"
       default = 2
     endparam

      param p2
    caption = "puissance fn2"
       default = -1
     endparam
  param p3
    caption = "puissance fn3"
       default = 1
     endparam
      param p4
    caption = "puissance fn4"
       default = 1
     endparam
   param p5
    caption = "puissance fn5"
       default =1
     endparam
   param p6
    caption = "puissance fn6"
        default =1
      endparam
 
 param papillon
    caption = "papillon"
        default = 0
      endparam
func fn1
 caption="fonction 1"
 default=sin()
 endfunc

func fn2
 caption="fonction 2"
 default=log()
 endfunc

func fn3
 caption="fonction 3"
 default=zero()
 endfunc

func fn4
 caption="fonction 4"
 default=zero()
 endfunc

func fn5
 caption="fonction 5"
 default=zero()
 endfunc
 
func fn6
 caption="fonction 6"
 default=zero()
 endfunc


 
switch:
  type = "mandel7"
 bail = bail
coupure=coupure
 test=test
 pui=pui
p0=p0
p1=p1
p2=p2
p4=p4
fn1=fn1
fn2=fn2
fn4=fn4
p3=p3
p5=p5
p6=p6
fn3=fn3
fn5=fn5
fn6=fn6
p7=p7
p8=p8
p9=p9
fn7=fn7
fn8=fn8
fn9=fn9
fn10=fn10
fn11=fn11
fn12=fn12

p10=p10
p11=p11
p12=p12
parenth=parenth

papillon=papillon
k1=k1
k2=k2
k3=k3
k4=k4
k5=k5
k6=k6
k7=k7
k8=k8
k9=k9
k10=k10
k11=k11
k12=k12


}