MightyAtom {
;Toby Marshall, Nov. 2001

;This formula has been updated to carry over
;values in the Julia switch. Mighty Atom Mk II
;is the same formula with added parameters.

;Choose your parameter and function values 
;then explore the resulting figure with 
;the Julia switch.

;Special thanks to Ken Childress,  
;Jos Leys, Erik Nathan Reckase, 
;Mark Townsend and Frederik Slijkerman  
;for their suggestions and advice.

;Please see tma.txt for help and hints.

;Have fun!

init:
  z = @start
loop:
  z = fn1(fn2(#pixel)*fn3(z*@power))/fn4(real(#pixel))^imag(#pixel)
bailout:
  |z|<real(@bailout)
switch:
  type = "MightyAtomJulia"
  seed = #pixel
  bailout = bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  power = @power
  
    
default:
  title = "Mighty Atom"
  param start
  default = (2.0,0)
  endparam
  param bailout
  default = (2.0,0)
  endparam
  param power 
  default = (1.0,0)
  endparam
  
  func fn1
  caption = "Function 1"
  default = atan()
  endfunc
  func fn2
  caption = "Function 2"
  default = abs()
  endfunc
  func fn3
  caption = "Function 3"
  default = tan()
  endfunc
  func fn4
  caption = "Function 4"
  default = ident()
  endfunc
  periodicity = 0
  method = multipass
}


MightyAtomJulia {
;Toby Marshall, Nov./Dec. 2001 

;Special thanks to Ken Childress,  
;Jos Leys, Erik Nathan Reckase, 
;Mark Townsend and Frederik Slijkerman  
;for their suggestions and advice.

;Please see tma.txt for help and hints.

;Have fun!


init:
  z = #pixel
loop:
  z = fn1(fn2(@seed)*fn3(z*@power))/fn4(real(@seed))^imag(@seed)
bailout:
  |z| < real(@bailout)
switch:
  type = "MightyAtom"
  bailout = bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  power = @power

default:
  title = "Mighty Atom Julia"
  param seed
  default = (.85,-.7875)
  endparam
  param bailout
  default = (2.0,0)
  endparam
  param power 
  default = (1.0,0)
  endparam

  
  func fn1
  caption = "Function 1"
  default = atan()
  endfunc
  func fn2
  caption = "Function 2"
  default = abs()
  endfunc
  func fn3
  caption = "Function 3"
  default = tan()
  endfunc
  func fn4
  caption = "Function 4"
  default = ident()
  endfunc
  
  periodicity = 0
  method = multipass
  }


*********************************************************************************************************

MightyAtomMkII{
;Toby Marshall, Dec. 2001, rev.1
;A new version of "Mighty Atom" with
;improved functionality in the power
;parameter, five added parameters, 
;and an extra enumeration in the 
;"grouping" parameter.

;Choose your parameter and function values 
;then explore the resulting figure with 
;the Julia switch.

;Special thanks to Ken Childress,  
;Jos Leys, Erik Nathan Reckase, 
;Mark Townsend and Frederik Slijkerman  
;for their suggestions and advice.

;Please see tma.txt for help and hints.

;Have fun!

init:
  z = @start
loop:
aa = #pixel^@exp1-@power
qq = fn3(z-@budge)
ww = fn4(real(#pixel^@exp2*@power))
yy = @fn5(imag(#pixel^@exp3/@power))-@nudge
IF (@op3 == 0)
IF (@group == 0); inner
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)/ww/yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)/ww/yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)/ww/yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)/ww/yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)/ww/yy
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa)/qq)*ww/yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)*ww/yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)*ww/yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)*ww/yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)*ww/yy
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)-ww/yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)-ww/yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)-ww/yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)-ww/yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)-ww/yy
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)+ww/yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)+ww/yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)+ww/yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)+ww/yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)+ww/yy
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)^ww/yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)^ww/yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)^ww/yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)^ww/yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)^ww/yy
  ENDIF
ENDIF
ELSEIF (@group == 1); outer
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))/ww/yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))/ww/yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))/ww/yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))/ww/yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))/ww/yy
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa/qq))*ww/yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))*ww/yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))*ww/yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))*ww/yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))*ww/yy
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))-ww/yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))-ww/yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))-ww/yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))-ww/yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))-ww/yy
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))+ww/yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))+ww/yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))+ww/yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))+ww/yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))+ww/yy
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))^ww/yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))^ww/yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))^ww/yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))^ww/yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))^ww/yy
  ENDIF
  ENDIF
  ELSEIF (@group == 2); middle
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))/ww/yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))/ww/yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))/ww/yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))/ww/yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))/ww/yy
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2((aa)/qq))*ww/yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))*ww/yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))*ww/yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))*ww/yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))*ww/yy
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))-ww/yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))-ww/yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))-ww/yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))-ww/yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))-ww/yy
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))+ww/yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))+ww/yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))+ww/yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))+ww/yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))+ww/yy
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))^ww/yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))^ww/yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))^ww/yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))^ww/yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))^ww/yy
  ENDIF
ENDIF
ENDIF
ELSEIF (@op3 == 1)
IF (@group == 0); inner
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)/ww*yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)/ww*yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)/ww*yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)/ww*yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)/ww*yy
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa)/qq)*ww*yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)*ww*yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)*ww*yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)*ww*yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)*ww*yy
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)-ww*yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)-ww*yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)-ww*yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)-ww*yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)-ww*yy
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)+ww*yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)+ww*yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)+ww*yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)+ww*yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)+ww*yy
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)^ww*yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)^ww*yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)^ww*yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)^ww*yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)^ww*yy
  ENDIF
ENDIF
ELSEIF (@group == 1); outer
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))/ww*yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))/ww*yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))/ww*yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))/ww*yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))/ww*yy
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa/qq))*ww*yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))*ww*yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))*ww*yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))*ww*yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))*ww*yy
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))-ww*yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))-ww*yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))-ww*yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))-ww*yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))-ww*yy
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))+ww*yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))+ww*yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))+ww*yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))+ww*yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))+ww*yy
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))^ww*yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))^ww*yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))^ww*yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))^ww*yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))^ww*yy
  ENDIF
  ENDIF
  ELSEIF (@group == 2); middle
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))/ww*yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))/ww*yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))/ww*yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))/ww*yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))/ww*yy
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2((aa)/qq))*ww*yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))*ww*yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))*ww*yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))*ww*yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))*ww*yy
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))-ww*yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))-ww*yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))-ww*yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))-ww*yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))-ww*yy
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))+ww*yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))+ww*yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))+ww*yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))+ww*yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))+ww*yy
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))^ww*yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))^ww*yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))^ww*yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))^ww*yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))^ww*yy
  ENDIF
ENDIF
ENDIF
ELSEIF (@op3 == 2)
IF (@group == 0); inner
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)/ww-yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)/ww-yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)/ww-yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)/ww-yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)/ww-yy
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa)/qq)*ww-yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)*ww-yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)*ww-yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)*ww-yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)*ww-yy
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)-ww-yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)-ww-yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)-ww-yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)-ww-yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)-ww-yy
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)+ww-yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)+ww-yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)+ww-yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)+ww-yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)+ww-yy
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)^ww-yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)^ww-yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)^ww-yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)^ww-yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)^ww-yy
  ENDIF
ENDIF
ELSEIF (@group == 1); outer
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))/ww-yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))/ww-yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))/ww-yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))/ww-yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))/ww-yy
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa/qq))*ww-yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))*ww-yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))*ww-yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))*ww-yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))*ww-yy
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))-ww-yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))-ww-yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))-ww-yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))-ww-yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))-ww-yy
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))+ww-yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))+ww-yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))+ww-yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))+ww-yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))+ww-yy
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))^ww-yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))^ww-yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))^ww-yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))^ww-yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))^ww-yy
  ENDIF
  ENDIF
  ELSEIF (@group == 2); middle
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))/ww-yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))/ww-yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))/ww-yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))/ww-yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))/ww-yy
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2((aa)/qq))*ww-yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))*ww-yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))*ww-yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))*ww-yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))*ww-yy
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))-ww-yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))-ww-yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))-ww-yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))-ww-yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))-ww-yy
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))+ww-yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))+ww-yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))+ww-yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))+ww-yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))+ww-yy
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))^ww-yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))^ww-yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))^ww-yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))^ww-yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))^ww-yy
  ENDIF
ENDIF
ENDIF
ELSEIF (@op3 == 3)
IF (@group == 0); inner
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)/ww+yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)/ww+yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)/ww+yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)/ww+yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)/ww+yy
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa)/qq)*ww+yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)*ww+yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)*ww+yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)*ww+yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)*ww+yy
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)-ww+yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)-ww+yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)-ww+yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)-ww+yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)-ww+yy
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)+ww+yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)+ww+yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)+ww+yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)+ww+yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)+ww+yy
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)^ww+yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)^ww+yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)^ww+yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)^ww+yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)^ww+yy
  ENDIF
ENDIF
ELSEIF (@group == 1); outer
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))/ww+yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))/ww+yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))/ww+yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))/ww+yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))/ww+yy
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa/qq))*ww+yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))*ww+yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))*ww+yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))*ww+yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))*ww+yy
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))-ww+yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))-ww+yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))-ww+yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))-ww+yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))-ww+yy
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))+ww+yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))+ww+yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))+ww+yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))+ww+yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))+ww+yy
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))^ww+yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))^ww+yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))^ww+yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))^ww+yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))^ww+yy
  ENDIF
  ENDIF
  ELSEIF (@group == 2); middle
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))/ww+yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))/ww+yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))/ww+yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))/ww+yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))/ww+yy
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2((aa)/qq))*ww+yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))*ww+yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))*ww+yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))*ww+yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))*ww+yy
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))-ww+yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))-ww+yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))-ww+yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))-ww+yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))-ww+yy
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))+ww+yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))+ww+yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))+ww+yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))+ww+yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))+ww+yy
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))^ww+yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))^ww+yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))^ww+yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))^ww+yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))^ww+yy
  ENDIF
ENDIF
ENDIF
ELSEIF (@op3 == 4)
IF (@group == 0); inner
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)/ww^yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)/ww^yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)/ww^yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)/ww^yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)/ww^yy
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa)/qq)*ww^yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)*ww^yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)*ww^yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)*ww^yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)*ww^yy
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)-ww^yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)-ww^yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)-ww^yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)-ww^yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)-ww^yy
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)+ww^yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)+ww^yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)+ww^yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)+ww^yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)+ww^yy
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)^ww^yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)^ww^yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)^ww^yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)^ww^yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)^ww^yy
  ENDIF
ENDIF
ELSEIF (@group == 1); outer
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))/ww^yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))/ww^yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))/ww^yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))/ww^yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))/ww^yy
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa/qq))*ww^yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))*ww^yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))*ww^yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))*ww^yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))*ww^yy
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))-ww^yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))-ww^yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))-ww^yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))-ww^yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))-ww^yy
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))+ww^yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))+ww^yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))+ww^yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))+ww^yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))+ww^yy
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))^ww^yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))^ww^yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))^ww^yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))^ww^yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))^ww^yy
  ENDIF
  ENDIF
  ELSEIF (@group == 2); middle
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))/ww^yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))/ww^yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))/ww^yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))/ww^yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))/ww^yy
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2((aa)/qq))*ww^yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))*ww^yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))*ww^yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))*ww^yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))*ww^yy
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))-ww^yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))-ww^yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))-ww^yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))-ww^yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))-ww^yy
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))+ww^yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))+ww^yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))+ww^yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))+ww^yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))+ww^yy
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))^ww^yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))^ww^yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))^ww^yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))^ww^yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))^ww^yy
  ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < real(@bailout)
switch:
  type = "MightyAtomMkIIJulia"
  seed = #pixel
  bailout = bailout
  power = @power
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  budge = @budge
  nudge = @nudge
  op1 = @op1
  op2 = @op2
  op3 = @op3
  group = @group  
  
default:
  title = "Mighty Atom Mk II"
  param start
  default = (2.0,0)
  endparam
  param bailout
  default = (2.0,0)
  endparam
  param power 
  default = (1.0,0)
  endparam
  param op1 
  caption = "operator 1"
  default = 1
  enum = "/""*""-""+""^"
  endparam
   param op2 
  caption = "operator 2"
  default = 0
  enum = "/""*""-""+""^"
  endparam

  param group
  caption = "grouping"
  default = 0
  enum = "inner""outer""middle"
  endparam
  param op3 
  caption = "operator 3"
  default = 4
  enum = "/""*""-""+""^"
  endparam
  param exp1
  caption = "exponent 1"
  default = (1.0,0)
  endparam
  param exp2
  caption = "exponent 2"
  default = (1.0,0)
  endparam
  param exp3
  caption = "exponent 3"
  default = (1.0,0)
  endparam


  func fn1
  caption = "Function 1"
  default = atan()
  endfunc
  func fn2
  caption = "Function 2"
  default = abs()
  endfunc
  func fn3
  caption = "Function 3"
  default = tan()
  endfunc
  func fn4
  caption = "Function 4"
  default = ident()
  endfunc
  func fn5  
  caption = "Function 5"
  default = ident()
  endfunc
  periodicity = 0
}
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

MightyAtomMkIIJulia {
;Toby Marshall, Dec. 2001, rev.1 

;Special thanks to Ken Childress,  
;Jos Leys, Erik Nathan Reckase, 
;Mark Townsend and Frederik Slijkerman  
;for their suggestions and advice.

;Please see tma.txt for help and hints.

;Have fun!



init:
  z = #pixel
loop:
aa = @seed^@exp1-@power
qq = fn3(z-@budge)
ww = fn4(real(@seed^@exp2*@power))
yy = @fn5(imag(@seed^@exp3/@power))-@nudge 
IF (@op3 == 0)
IF (@group == 0); inner
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)/ww/yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)/ww/yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)/ww/yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)/ww/yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)/ww/yy
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa)/qq)*ww/yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)*ww/yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)*ww/yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)*ww/yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)*ww/yy
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)-ww/yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)-ww/yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)-ww/yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)-ww/yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)-ww/yy
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)+ww/yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)+ww/yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)+ww/yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)+ww/yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)+ww/yy
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)^ww/yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)^ww/yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)^ww/yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)^ww/yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)^ww/yy
  ENDIF
ENDIF
ELSEIF (@group == 1); outer
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))/ww/yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))/ww/yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))/ww/yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))/ww/yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))/ww/yy
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa/qq))*ww/yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))*ww/yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))*ww/yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))*ww/yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))*ww/yy
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))-ww/yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))-ww/yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))-ww/yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))-ww/yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))-ww/yy
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))+ww/yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))+ww/yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))+ww/yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))+ww/yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))+ww/yy
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))^ww/yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))^ww/yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))^ww/yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))^ww/yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))^ww/yy
  ENDIF
  ENDIF
  ELSEIF (@group == 2); middle
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))/ww/yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))/ww/yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))/ww/yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))/ww/yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))/ww/yy
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2((aa)/qq))*ww/yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))*ww/yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))*ww/yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))*ww/yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))*ww/yy
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))-ww/yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))-ww/yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))-ww/yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))-ww/yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))-ww/yy
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))+ww/yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))+ww/yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))+ww/yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))+ww/yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))+ww/yy
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))^ww/yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))^ww/yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))^ww/yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))^ww/yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))^ww/yy
  ENDIF
ENDIF
ENDIF
ELSEIF (@op3 == 1)
IF (@group == 0); inner
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)/ww*yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)/ww*yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)/ww*yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)/ww*yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)/ww*yy
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa)/qq)*ww*yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)*ww*yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)*ww*yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)*ww*yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)*ww*yy
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)-ww*yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)-ww*yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)-ww*yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)-ww*yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)-ww*yy
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)+ww*yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)+ww*yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)+ww*yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)+ww*yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)+ww*yy
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)^ww*yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)^ww*yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)^ww*yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)^ww*yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)^ww*yy
  ENDIF
ENDIF
ELSEIF (@group == 1); outer
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))/ww*yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))/ww*yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))/ww*yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))/ww*yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))/ww*yy
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa/qq))*ww*yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))*ww*yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))*ww*yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))*ww*yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))*ww*yy
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))-ww*yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))-ww*yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))-ww*yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))-ww*yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))-ww*yy
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))+ww*yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))+ww*yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))+ww*yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))+ww*yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))+ww*yy
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))^ww*yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))^ww*yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))^ww*yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))^ww*yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))^ww*yy
  ENDIF
  ENDIF
  ELSEIF (@group == 2); middle
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))/ww*yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))/ww*yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))/ww*yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))/ww*yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))/ww*yy
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2((aa)/qq))*ww*yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))*ww*yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))*ww*yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))*ww*yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))*ww*yy
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))-ww*yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))-ww*yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))-ww*yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))-ww*yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))-ww*yy
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))+ww*yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))+ww*yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))+ww*yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))+ww*yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))+ww*yy
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))^ww*yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))^ww*yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))^ww*yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))^ww*yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))^ww*yy
  ENDIF
ENDIF
ENDIF
ELSEIF (@op3 == 2)
IF (@group == 0); inner
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)/ww-yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)/ww-yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)/ww-yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)/ww-yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)/ww-yy
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa)/qq)*ww-yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)*ww-yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)*ww-yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)*ww-yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)*ww-yy
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)-ww-yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)-ww-yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)-ww-yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)-ww-yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)-ww-yy
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)+ww-yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)+ww-yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)+ww-yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)+ww-yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)+ww-yy
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)^ww-yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)^ww-yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)^ww-yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)^ww-yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)^ww-yy
  ENDIF
ENDIF
ELSEIF (@group == 1); outer
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))/ww-yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))/ww-yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))/ww-yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))/ww-yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))/ww-yy
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa/qq))*ww-yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))*ww-yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))*ww-yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))*ww-yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))*ww-yy
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))-ww-yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))-ww-yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))-ww-yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))-ww-yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))-ww-yy
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))+ww-yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))+ww-yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))+ww-yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))+ww-yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))+ww-yy
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))^ww-yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))^ww-yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))^ww-yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))^ww-yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))^ww-yy
  ENDIF
  ENDIF
  ELSEIF (@group == 2); middle
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))/ww-yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))/ww-yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))/ww-yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))/ww-yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))/ww-yy
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2((aa)/qq))*ww-yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))*ww-yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))*ww-yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))*ww-yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))*ww-yy
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))-ww-yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))-ww-yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))-ww-yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))-ww-yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))-ww-yy
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))+ww-yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))+ww-yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))+ww-yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))+ww-yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))+ww-yy
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))^ww-yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))^ww-yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))^ww-yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))^ww-yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))^ww-yy
  ENDIF
ENDIF
ENDIF
ELSEIF (@op3 == 3)
IF (@group == 0); inner
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)/ww+yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)/ww+yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)/ww+yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)/ww+yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)/ww+yy
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa)/qq)*ww+yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)*ww+yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)*ww+yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)*ww+yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)*ww+yy
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)-ww+yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)-ww+yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)-ww+yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)-ww+yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)-ww+yy
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)+ww+yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)+ww+yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)+ww+yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)+ww+yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)+ww+yy
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)^ww+yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)^ww+yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)^ww+yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)^ww+yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)^ww+yy
  ENDIF
ENDIF
ELSEIF (@group == 1); outer
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))/ww+yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))/ww+yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))/ww+yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))/ww+yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))/ww+yy
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa/qq))*ww+yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))*ww+yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))*ww+yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))*ww+yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))*ww+yy
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))-ww+yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))-ww+yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))-ww+yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))-ww+yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))-ww+yy
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))+ww+yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))+ww+yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))+ww+yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))+ww+yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))+ww+yy
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))^ww+yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))^ww+yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))^ww+yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))^ww+yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))^ww+yy
  ENDIF
  ENDIF
  ELSEIF (@group == 2); middle
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))/ww+yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))/ww+yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))/ww+yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))/ww+yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))/ww+yy
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2((aa)/qq))*ww+yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))*ww+yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))*ww+yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))*ww+yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))*ww+yy
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))-ww+yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))-ww+yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))-ww+yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))-ww+yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))-ww+yy
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))+ww+yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))+ww+yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))+ww+yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))+ww+yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))+ww+yy
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))^ww+yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))^ww+yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))^ww+yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))^ww+yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))^ww+yy
  ENDIF
ENDIF
ENDIF
ELSEIF (@op3 == 4)
IF (@group == 0); inner
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)/ww^yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)/ww^yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)/ww^yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)/ww^yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)/ww^yy
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa)/qq)*ww^yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)*ww^yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)*ww^yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)*ww^yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)*ww^yy
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)-ww^yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)-ww^yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)-ww^yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)-ww^yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)-ww^yy
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)+ww^yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)+ww^yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)+ww^yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)+ww^yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)+ww^yy
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)^ww^yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)^ww^yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)^ww^yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)^ww^yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)^ww^yy
  ENDIF
ENDIF
ELSEIF (@group == 1); outer
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))/ww^yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))/ww^yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))/ww^yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))/ww^yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))/ww^yy
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa/qq))*ww^yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))*ww^yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))*ww^yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))*ww^yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))*ww^yy
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))-ww^yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))-ww^yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))-ww^yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))-ww^yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))-ww^yy
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))+ww^yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))+ww^yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))+ww^yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))+ww^yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))+ww^yy
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))^ww^yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))^ww^yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))^ww^yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))^ww^yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))^ww^yy
  ENDIF
  ENDIF
  ELSEIF (@group == 2); middle
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))/ww^yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))/ww^yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))/ww^yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))/ww^yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))/ww^yy
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2((aa)/qq))*ww^yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))*ww^yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))*ww^yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))*ww^yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))*ww^yy
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))-ww^yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))-ww^yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))-ww^yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))-ww^yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))-ww^yy
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))+ww^yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))+ww^yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))+ww^yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))+ww^yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))+ww^yy
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))^ww^yy
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))^ww^yy
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))^ww^yy
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))^ww^yy
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))^ww^yy
  ENDIF

ENDIF
ENDIF
ENDIF

bailout:
  |z| < real(@bailout)
switch:
  type = "MightyAtomMkII"
  bailout = bailout
  power = @power
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  budge = @budge
  nudge = @nudge
  op1 = @op1
  op2 = @op2
  op3 = @op3
  group = @group 
default:
  title = "Mighty Atom Mk II Julia"
  param seed
  default = (1.05,-1)
  endparam
  param bailout
  default = (2.0,0)
  endparam
  param power 
  default = (1.0,0)
  endparam
  param op1 
  caption = "operator 1"
  default = 1
  enum = "/""*""-""+""^"
  endparam
   param op2 
  caption = "operator 2"
  default = 0
  enum = "/""*""-""+""^"
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "inner""outer""middle"
  endparam
  param op3 
  caption = "operator 3"
  default = 4
  enum = "/""*""-""+""^"
  endparam
  param exp1
  caption = "exponent 1"
  default = (1.0,0)
  endparam
  param exp2
  caption = "exponent 2"
  default = (1.0,0)
  endparam
  param exp3
  caption = "exponent 3"
  default = (1.0,0)
  endparam
  func fn1
  caption = "Function 1"
  default = atan()
  endfunc
  func fn2
  caption = "Function 2"
  default = abs()
  endfunc
  func fn3
  caption = "Function 3"
  default = tan()
  endfunc
  func fn4
  caption = "Function 4"
  default = ident()
  endfunc
  func fn5  
  caption = "Function 5"
  default = ident()
  endfunc
  periodicity = 0
}
**************************************************************************************
GrandAtom01 {
;Toby Marshall, Dec. 2001, rev.1

;Choose your parameter and function values 
;then explore the resulting figure with 
;the Julia switch.

;Special thanks to Ken Childress,  
;Jos Leys, Erik Nathan Reckase, 
;Mark Townsend and Frederik Slijkerman  
;for their suggestions and advice.

;Please see tma.txt for help and hints.

;Have fun!

init:
  z = @start
loop:
aa = #pixel^@exp1-@power
qq = fn3(z-@budge)
yy = fn4(#pixel^@exp4)
ww = @fn5(real(#pixel^@exp2+@power))
xx = @fn6(imag(#pixel^@exp3-@power))-@nudge

IF (@group == 0); inner
IF (@op3 == 0)
IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)/yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)/yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)/yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)/qq)/yy^ww^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)/yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)/yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)/yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)/yy^ww^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)/yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)-qq)/yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)-qq)/yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)/yy^ww^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)/yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)/yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)/yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)/yy^ww^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)/yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)^qq)/yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)/yy+ww^xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)/yy^ww^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)*yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)*yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)*yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)/qq)*yy^ww^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)*yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*yy*ww^xx
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)*yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)*yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)*yy^ww^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)*yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)-qq)*yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)-qq)*yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)*yy^ww^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)*yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)*yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)*yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)*yy^ww^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)*yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)^qq)*yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)*yy+ww^xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)*yy^ww^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 2)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)-yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)-yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)-yy+ww^xx
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)-yy^ww^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)-yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)-yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)-yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)-yy^ww^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)-yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)-yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)-qq)-yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)-qq)-yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)-yy^ww^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)-yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)-yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)-yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)-yy^ww^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)-yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)-yy*ww^xx
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)^qq)-yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)-yy+ww^xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)-yy^ww^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 3)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)+yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)+yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)+yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)/qq)+yy^ww^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)+yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)+yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)+yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)+yy^ww^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)+yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)+yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)-qq)+yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)-qq)+yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)+yy^ww^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)+yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)+yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)+yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)+yy^ww^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)+yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)+yy*ww^xx
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)^qq)+yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+yy+ww^xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)+yy^ww^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 4)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)^yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)^yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)^yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)^yy+ww^xx
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^yy^ww^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)^yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)^yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)^yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)^yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^yy^ww^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)^yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)^yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)-qq)^yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)-qq)^yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^yy^ww^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)^yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)^yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)^yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)^yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^yy^ww^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)^yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)^yy*ww^xx
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)^qq)^yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)^yy+ww^xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^yy^ww^xx
 ENDIF
 ENDIF
 ENDIF
ELSEIF (@group == 1); outer
IF (@op3 == 0)
IF (@op == 0)
IF (@op2 == 0)
 z = fn1((fn2(aa)/qq)/yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)/qq)/yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)/qq)/yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2((aa)/qq)/yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)/qq)/yy)^ww^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1((fn2(aa)*qq)/yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2((aa)*qq)/yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)*qq)/yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)*qq)/yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)*qq)/yy)^ww^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1((fn2(aa)-qq)/yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)-qq)/yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)-qq)/yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)-qq)/yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)-qq)/yy)^ww^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1((fn2(aa)+qq)/yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)+qq)/yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)+qq)/yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)+qq)/yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)+qq)/yy)^ww^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1((fn2(aa)^qq)/yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)^qq)/yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)^qq)/yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)^qq)/yy)+ww^xx
 ELSEIF (@op == 4)
 z = fn1((fn2(aa)^qq)/yy)^ww^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1((fn2(aa)/qq)*yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)/qq)*yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)/qq)*yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)/qq)*yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)/qq)*yy)^ww^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1((fn2(aa)*qq)*yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)*qq)*yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)*qq)*yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)*qq)*yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)*qq)*yy)^ww^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1((fn2(aa)-qq)*yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)-qq)*yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)-qq)*yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)-qq)*yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)-qq)*yy)^ww^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1((fn2(aa)+qq)*yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)+qq)*yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)+qq)*yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)+qq)*yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)+qq)*yy)^ww^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1((fn2(aa)^qq)*yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)^qq)*yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)^qq)*yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)^qq)*yy)+ww^xx
 ELSEIF (@op == 4)
 z = fn1((fn2(aa)^qq)*yy)^ww^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 2)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1((fn2(aa)/qq)-yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)/qq)-yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)/qq)-yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)/qq)-yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)/qq)-yy)^ww^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1((fn2(aa)*qq)-yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)*qq)-yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)*qq)-yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)*qq)-yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)*qq)-yy)^ww^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1((fn2(aa)-qq)-yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)-qq)-yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)-qq)-yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)-qq)-yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)-qq)-yy)^ww^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1((fn2(aa)+qq)-yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)+qq)-yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)+qq)-yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)+qq)-yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)+qq)-yy)^ww^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1((fn2(aa)^qq)-yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)^qq)-yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)^qq)-yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)^qq)-yy)+ww^xx
 ELSEIF (@op == 4)
 z = fn1((fn2(aa)^qq)-yy)^ww^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 3)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1((fn2(aa)/qq)+yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)/qq)+yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)/qq)+yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)/qq)+yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)/qq)+yy)^ww^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1((fn2(aa)*qq)+yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)*qq)+yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)*qq)+yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)*qq)+yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)*qq)+yy)^ww^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1((fn2(aa)-qq)+yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)-qq)+yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)-qq)+yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)-qq)+yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)-qq)+yy)^ww^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1((fn2(aa)+qq)+yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)+qq)+yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)+qq)+yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)+qq)+yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)+qq)+yy)^ww^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1((fn2(aa)^qq)+yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)^qq)+yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)^qq)+yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)^qq)+yy)+ww^xx
 ELSEIF (@op == 4)
 z = fn1((fn2(aa)^qq)+yy)^ww^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 4)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1((fn2(aa)/qq)^yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)/qq)^yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)/qq)^yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)/qq)^yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)/qq)^yy)^ww^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1((fn2(aa)*qq)^yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)*qq)^yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)*qq)^yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)*qq)^yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)*qq)^yy)^ww^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1((fn2(aa)-qq)^yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)-qq)^yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)-qq)^yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)-qq)^yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)-qq)^yy)^ww^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1((fn2(aa)+qq)^yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)+qq)^yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)+qq)^yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)+qq)^yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)+qq)^yy)^ww^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1((fn2(aa)^qq)^yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)^qq)^yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)^qq)^yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)^qq)^yy)+ww^xx
 ELSEIF (@op == 4)
 z = fn1((fn2(aa)^qq)^yy)^ww^xx
 ENDIF
 ENDIF
 ENDIF
 ENDIF

bailout:
  |z| < real(@bailout)
switch:
  type = "GrandAtom01Julia"
  seed = #pixel
  bailout = bailout
  power = @power
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  budge = @budge
  nudge = @nudge
  op = @op
  op2 = @op2
  op3 = @op3
  group = @group
  exp1 = @exp1
  exp2 = @exp2  
  exp3 = @exp3
  exp4 = @exp4  

  
default:
  title = "Grand Atom 01"
  param start
  default = (2.0,0)
  endparam
  param bailout
  default = (2.0,0)
  endparam
  param power 
  default = (0,0)
  endparam
  param op 
  caption = "operator 1"
  default = 1
  enum = "/""*""-""+""^"
  endparam
  param op2 
  caption = "operator 2"
  default = 0
  enum = "/""*""-""+""^"
  endparam
  param op3
  caption = "operator 3"
  default = 1
  enum = "/""*""-""+""^"
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "inner""outer"
  endparam
  param exp1
  caption = "exponent 1"
  default = (1.0,0)
  endparam
  param exp2
  caption = "exponent 2"
  default = (1.0,0)
  endparam
  param exp3
  caption = "exponent 3"
  default = (1.0,0)
  endparam
  param exp4
  caption = "exponent 4"
  default = (1.0,0)
  endparam

  
 func fn1
  caption = "Function 1"
  default = atan()
  endfunc
  func fn2
  caption = "Function 2"
  default = abs()
  endfunc
  func fn3
  caption = "Function 3"
  default = tan()
  endfunc
  func fn4
  caption = "Function 4"
  default = ident()
  endfunc
    func fn5
  caption = "Function 5"
  default = ident()
  endfunc
  func fn6
  caption = "Function 6"
  default = ident()
  endfunc
  periodicity = 0
  }
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
GrandAtom01Julia {
;Toby Marshall, Dec. 2001, rev.1 

;Special thanks to Ken Childress,  
;Jos Leys, Erik Nathan Reckase, 
;Mark Townsend and Frederik Slijkerman  
;for their suggestions and advice.

;Please see tma.txt for help and hints.

;Have fun!

init:
  z = #pixel
loop:
aa = @seed^@exp1-@power
qq = fn3(z-@budge)
yy = fn4(@seed^@exp4)
ww = @fn5(real(@seed^@exp2+@power))
xx = @fn6(imag(@seed^@exp3-@power))-@nudge
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)/yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)/yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)/yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)/qq)/yy^ww^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)/yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)/yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)/yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)/yy^ww^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)/yy*ww^xx
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)/yy-ww^xx
 ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)/yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)/yy^ww^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)/yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)/yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)/yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)/yy^ww^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)/yy*ww^xx
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)^qq)/yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)/yy+ww^xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)/yy^ww^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)*yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)*yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)*yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)/qq)*yy^ww^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)*yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)*yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)*yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)*yy^ww^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)*yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)-qq)*yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)-qq)*yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)*yy^ww^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)*yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)*yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)*yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)*yy^ww^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)*yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)^qq)*yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)*yy+ww^xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)*yy^ww^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 2)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)-yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)-yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)-yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)/qq)-yy^ww^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)-yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)-yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)-yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)-yy^ww^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)-yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)-yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)-qq)-yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)-qq)-yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)-yy^ww^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)-yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)-yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)-yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)-yy^ww^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)-yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)-yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)^qq)-yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)-yy+ww^xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)-yy^ww^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 3)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)+yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)+yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)+yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)/qq)+yy^ww^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)+yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)+yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)+yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)+yy^ww^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)+yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)+yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)-qq)+yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)-qq)+yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)+yy^ww^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)+yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)+yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)+yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)+yy^ww^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)+yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)+yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)^qq)+yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+yy+ww^xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)+yy^ww^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 4)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)^yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)^yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)^yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)^yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)/qq)^yy^ww^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)^yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)^yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)^yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)^yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^yy^ww^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)^yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)^yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)-qq)^yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)-qq)^yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^yy^ww^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)^yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)^yy*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)^yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)^yy+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^yy^ww^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)^yy/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)^yy*ww^xx
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)^qq)^yy-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)^yy+ww^xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^yy^ww^xx
 ENDIF
 ENDIF
 ENDIF
ELSEIF (@group == 1); outer
IF (@op3 == 0)
IF (@op == 0)
IF (@op2 == 0)
 z = fn1((fn2(aa)/qq)/yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)/qq)/yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)/qq)/yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)/qq)/yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)/qq)/yy)^ww^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1((fn2(aa)*qq)/yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)*qq)/yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)*qq)/yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)*qq)/yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)*qq)/yy)^ww^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1((fn2(aa)-qq)/yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)-qq)/yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)-qq)/yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)-qq)/yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)-qq)/yy)^ww^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1((fn2(aa)+qq)/yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)+qq)/yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)+qq)/yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)+qq)/yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)+qq)/yy)^ww^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1((fn2(aa)^qq)/yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)^qq)/yy)*ww^xx
 ELSEIF (@op2 == 2)
  z = fn1((fn2(aa)^qq)/yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)^qq)/yy)+ww^xx
 ELSEIF (@op == 4)
 z = fn1((fn2(aa)^qq)/yy)^ww^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1((fn2(aa)/qq)*yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)/qq)*yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)/qq)*yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)/qq)*yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)/qq)*yy)^ww^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1((fn2(aa)*qq)*yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)*qq)*yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)*qq)*yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)*qq)*yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)*qq)*yy)^ww^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1((fn2(aa)-qq)*yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)-qq)*yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)-qq)*yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)-qq)*yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)-qq)*yy)^ww^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1((fn2(aa)+qq)*yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)+qq)*yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)+qq)*yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)+qq)*yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)+qq)*yy)^ww^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1((fn2(aa)^qq)*yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)^qq)*yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)^qq)*yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)^qq)*yy)+ww^xx
 ELSEIF (@op == 4)
 z = fn1((fn2(aa)^qq)*yy)^ww^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 2)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1((fn2(aa)/qq)-yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)/qq)-yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)/qq)-yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)/qq)-yy)+ww^xx
 ELSEIF (@op2 == 4)
  z = fn1((fn2(aa)/qq)-yy)^ww^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1((fn2(aa)*qq)-yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)*qq)-yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)*qq)-yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)*qq)-yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)*qq)-yy)^ww^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1((fn2(aa)-qq)-yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)-qq)-yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)-qq)-yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)-qq)-yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)-qq)-yy)^ww^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1((fn2(aa)+qq)-yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)+qq)-yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)+qq)-yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)+qq)-yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)+qq)-yy)^ww^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1((fn2(aa)^qq)-yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)^qq)-yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)^qq)-yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)^qq)-yy)+ww^xx
 ELSEIF (@op == 4)
 z = fn1((fn2(aa)^qq)-yy)^ww^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 3)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1((fn2(aa)/qq)+yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)/qq)+yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)/qq)+yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)/qq)+yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)/qq)+yy)^ww^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1((fn2(aa)*qq)+yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)*qq)+yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)*qq)+yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)*qq)+yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)*qq)+yy)^ww^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1((fn2(aa)-qq)+yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)-qq)+yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)-qq)+yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)-qq)+yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)-qq)+yy)^ww^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1((fn2(aa)+qq)+yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)+qq)+yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)+qq)+yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)+qq)+yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)+qq)+yy)^ww^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1((fn2(aa)^qq)+yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)^qq)+yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)^qq)+yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)^qq)+yy)+ww^xx
 ELSEIF (@op == 4)
 z = fn1((fn2(aa)^qq)+yy)^ww^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 4)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1((fn2(aa)/qq)^yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)/qq)^yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)/qq)^yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)/qq)^yy)+ww^xx
 ELSEIF (@op2 == 4)
  z = fn1((fn2(aa)/qq)^yy)^ww^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1((fn2(aa)*qq)^yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)*qq)^yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)*qq)^yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)*qq)^yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)*qq)^yy)^ww^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1((fn2(aa)-qq)^yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)-qq)^yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)-qq)^yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)-qq)^yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)-qq)^yy)^ww^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1((fn2(aa)+qq)^yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)+qq)^yy)*ww^xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)+qq)^yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)+qq)^yy)+ww^xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)+qq)^yy)^ww^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1((fn2(aa)^qq)^yy)/ww^xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)^qq)^yy)*ww^xx
 ELSEIF (@op2 == 2)
  z = fn1((fn2(aa)^qq)^yy)-ww^xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)^qq)^yy)+ww^xx
 ELSEIF (@op == 4)
 z = fn1((fn2(aa)^qq)^yy)^ww^xx
 ENDIF
 ENDIF
 ENDIF
 ENDIF
 

bailout:
  |z| < real(@bailout)
switch:
  type = "GrandAtom01"
  bailout = bailout
  power = @power
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  budge = @budge
  nudge = @nudge
  op = @op
  op2 = @op2
  op3 = @op3
  group = @group
  exp1 = @exp1
  exp2 = @exp2  
  exp3 = @exp3
  exp4 = @exp4  

default:
  title = "Grand Atom 01 Julia"
  param seed
  default = (-1,-.1875)
  endparam
  param bailout
  default = (2.0,0)
  endparam
  param power 
  default = (0,0)
  endparam
  param op 
  caption = "operator 1"
  default = 1
  enum = "/""*""-""+""^"
  endparam
  param op2 
  caption = "operator 2"
  default = 0
  enum = "/""*""-""+""^"
  endparam
  param op3
  caption = "operator 3"
  default = 1
   enum = "/""*""-""+""^"
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "inner""outer"
  endparam
    param exp1
  caption = "exponent 1"
  default = (1.0,0)
  endparam
  param exp2
  caption = "exponent 2"
  default = (1.0,0)
  endparam
  param exp3
  caption = "exponent 3"
  default = (1.0,0)
  endparam
  param exp4
  caption = "exponent 4"
  default = (1.0,0)
  endparam

  func fn1
  caption = "Function 1"
  default = atan()
  endfunc
  func fn2
  caption = "Function 2"
  default = abs()
  endfunc
  func fn3
  caption = "Function 3"
  default = tan()
  endfunc
  func fn4
  caption = "Function 4"
  default = ident()
  endfunc
  func fn5
  caption = "Function 5"
  default = ident()
  endfunc
  func fn6
  caption = "Function 6"
  default = ident()
  endfunc
  periodicity = 0
}
**************************************************************************************
GrandAtom02{
;Toby Marshall, Dec. 2001, rev.1 

;Choose your parameter and function values 
;then explore the resulting figure with 
;the Julia switch.

;Special thanks to Ken Childress,  
;Jos Leys, Erik Nathan Reckase, 
;Mark Townsend and Frederik Slijkerman  
;for their suggestions and advice.

;Please see tma.txt for help and hints.

;Have fun!

init:
  z = @start
loop:
aa = #pixel^@exp1-@power
qq = fn3(z-@budge)
ww = @fn5(real(#pixel^@exp2+@power))
yy = @fn6(imag(#pixel^@exp3-@power))
xx = fn4(#pixel^@exp4)-@nudge
IF (@group2 == 0); inner
IF (@group == 0); inner
IF (@op3 == 0)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/ww^yy/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*ww^yy/xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-ww^yy/xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+ww^yy/xx
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^ww^yy/xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/ww^yy/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*ww^yy/xx
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-ww^yy/xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+ww^yy/xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^ww^yy/xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/ww^yy/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*ww^yy/xx
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-ww^yy/xx
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+ww^yy/xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^ww^yy/xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/ww^yy/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*ww^yy/xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-ww^yy/xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+ww^yy/xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^ww^yy/xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/ww^yy/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*ww^yy/xx
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-ww^yy/xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+ww^yy/xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^ww^yy/xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/ww^yy*xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*ww^yy*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-ww^yy*xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+ww^yy*xx
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^ww^yy*xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/ww^yy*xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*ww^yy*xx
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-ww^yy*xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+ww^yy*xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^ww^yy*xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/ww^yy*xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*ww^yy*xx
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-ww^yy*xx
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+ww^yy*xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^ww^yy*xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/ww^yy*xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*ww^yy*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-ww^yy*xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+ww^yy*xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^ww^yy*xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/ww^yy*xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*ww^yy*xx
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-ww^yy*xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+ww^yy*xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^ww^yy*xx
 ENDIF
 ENDIF

ELSEIF (@op3 == 2)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/ww^yy-xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*ww^yy-xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-ww^yy-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+ww^yy-xx
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^ww^yy-xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/ww^yy-xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*ww^yy-xx
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-ww^yy-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+ww^yy-xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^ww^yy-xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/ww^yy-xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*ww^yy-xx
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-ww^yy-xx
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+ww^yy-xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^ww^yy-xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/ww^yy-xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*ww^yy-xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-ww^yy-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+ww^yy-xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^ww^yy-xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/ww^yy-xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*ww^yy-xx
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-ww^yy-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+ww^yy-xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^ww^yy-xx
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/ww^yy+xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*ww^yy+xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-ww^yy+xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+ww^yy+xx
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^ww^yy+xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/ww^yy+xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*ww^yy+xx
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-ww^yy+xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+ww^yy+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^ww^yy+xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/ww^yy+xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*ww^yy+xx
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-ww^yy+xx
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+ww^yy+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^ww^yy+xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/ww^yy+xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*ww^yy+xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-ww^yy+xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+ww^yy+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^ww^yy+xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/ww^yy+xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*ww^yy+xx
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-ww^yy+xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+ww^yy+xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^ww^yy+xx
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/ww^yy^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*ww^yy^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-ww^yy^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+ww^yy^xx
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^ww^yy^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/ww^yy^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*ww^yy^xx
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-ww^yy^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+ww^yy^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^ww^yy^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/ww^yy^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*ww^yy^xx
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-ww^yy^xx
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+ww^yy^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^ww^yy^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/ww^yy^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*ww^yy^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-ww^yy^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+ww^yy^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^ww^yy^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/ww^yy^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*ww^yy^xx
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-ww^yy^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+ww^yy^xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^ww^yy^xx
 ENDIF
 ENDIF
 ENDIF
 ELSEIF (@group == 1); outer
IF (@op3 == 0)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/ww^(yy/xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*ww^(yy/xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-ww^(yy/xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+ww^(yy/xx)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^ww^(yy/xx)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/ww^(yy/xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*ww^(yy/xx)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-ww^(yy/xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+ww^(yy/xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^ww^(yy/xx)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/ww^(yy/xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*ww^(yy/xx)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-ww^(yy/xx)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+ww^(yy/xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^ww^(yy/xx)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/ww^(yy/xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*ww^(yy/xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-ww^(yy/xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+ww^(yy/xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^ww^(yy/xx)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/ww^(yy/xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*ww^(yy/xx)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-ww^(yy/xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+ww^(yy/xx)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^ww^(yy/xx)
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/ww^(yy*xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*ww^(yy*xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-ww^(yy*xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+ww^(yy*xx)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^ww^(yy*xx)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/ww^(yy*xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*ww^(yy*xx)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-ww^(yy*xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+ww^(yy*xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^ww^(yy*xx)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/ww^(yy*xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*ww^(yy*xx)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-ww^(yy*xx)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+ww^(yy*xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^ww^(yy*xx)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/ww^(yy*xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*ww^(yy*xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-ww^(yy*xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+ww^(yy*xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^ww^(yy*xx)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/ww^(yy*xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*ww^(yy*xx)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-ww^(yy*xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+ww^(yy*xx)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^ww^(yy*xx)
 ENDIF
 ENDIF
ELSEIF (@op3 == 2)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/ww^(yy-xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*ww^(yy-xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-ww^(yy-xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+ww^(yy-xx)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^ww^(yy-xx)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/ww^(yy-xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*ww^(yy-xx)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-ww^(yy-xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+ww^(yy-xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^ww^(yy-xx)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/ww^(yy-xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*ww^(yy-xx)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-ww^(yy-xx)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+ww^(yy-xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^ww^(yy-xx)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/ww^(yy-xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*ww^(yy-xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-ww^(yy-xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+ww^(yy-xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^ww^(yy-xx)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/ww^(yy-xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*ww^(yy-xx)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-ww^(yy-xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+ww^(yy-xx)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^ww^(yy-xx)
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/ww^(yy+xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*ww^(yy+xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-ww^(yy+xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+ww^(yy+xx)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^ww^(yy+xx)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/ww^(yy+xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*ww^(yy+xx)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-ww^(yy+xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+ww^(yy+xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^ww^(yy+xx)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/ww^(yy+xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*ww^(yy+xx)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-ww^(yy+xx)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+ww^(yy+xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^ww^(yy+xx)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/ww^(yy+xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*ww^(yy+xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-ww^(yy+xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+ww^(yy+xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^ww^(yy+xx)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/ww^(yy+xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*ww^(yy+xx)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-ww^(yy+xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+ww^(yy+xx)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^ww^(yy+xx)
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/ww^(yy^xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*ww^(yy^xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-ww^(yy^xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+ww^(yy^xx)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^ww^(yy^xx)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/ww^(yy^xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*ww^(yy^xx)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-ww^(yy^xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+ww^(yy^xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^ww^(yy^xx)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/ww^(yy^xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*ww^(yy^xx)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-ww^(yy^xx)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+ww^(yy^xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^ww^(yy^xx)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/ww^(yy^xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*ww^(yy^xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-ww^(yy^xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+ww^(yy^xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^ww^(yy^xx)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/ww^(yy^xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*ww^(yy^xx)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-ww^(yy^xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+ww^(yy^xx)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^ww^(yy^xx)
 ENDIF
 ENDIF
 ENDIF
 ENDIF
ELSEIF (@group2 == 1); outer
IF (@group == 0); inner
IF (@op3 == 0)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/ww^yy/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*ww^yy/xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-ww^yy/xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+ww^yy/xx
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^ww^yy/xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/ww^yy/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*ww^yy/xx
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-ww^yy/xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+ww^yy/xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^ww^yy/xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/ww^yy/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*ww^yy/xx
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-ww^yy/xx
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+ww^yy/xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^ww^yy/xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/ww^yy/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*ww^yy/xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-ww^yy/xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+ww^yy/xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^ww^yy/xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/ww^yy/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*ww^yy/xx
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-ww^yy/xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+ww^yy/xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^ww^yy/xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/ww^yy*xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*ww^yy*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-ww^yy*xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+ww^yy*xx
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^ww^yy*xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/ww^yy*xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*ww^yy*xx
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-ww^yy*xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+ww^yy*xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^ww^yy*xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/ww^yy*xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*ww^yy*xx
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-ww^yy*xx
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+ww^yy*xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^ww^yy*xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/ww^yy*xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*ww^yy*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-ww^yy*xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+ww^yy*xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^ww^yy*xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/ww^yy*xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*ww^yy*xx
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-ww^yy*xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+ww^yy*xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^ww^yy*xx
 ENDIF
 ENDIF
ELSEIF (@op3 == 2)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/ww^yy-xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*ww^yy-xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-ww^yy-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+ww^yy-xx
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^ww^yy-xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/ww^yy-xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*ww^yy-xx
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-ww^yy-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+ww^yy-xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^ww^yy-xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/ww^yy-xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*ww^yy-xx
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-ww^yy-xx
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+ww^yy-xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^ww^yy-xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/ww^yy-xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*ww^yy-xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-ww^yy-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+ww^yy-xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^ww^yy-xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/ww^yy-xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*ww^yy-xx
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-ww^yy-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+ww^yy-xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^ww^yy-xx
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/ww^yy+xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*ww^yy+xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-ww^yy+xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+ww^yy+xx
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^ww^yy+xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/ww^yy+xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*ww^yy+xx
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-ww^yy+xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+ww^yy+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^ww^yy+xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/ww^yy+xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*ww^yy+xx
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-ww^yy+xx
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+ww^yy+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^ww^yy+xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/ww^yy+xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*ww^yy+xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-ww^yy+xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+ww^yy+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^ww^yy+xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/ww^yy+xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*ww^yy+xx
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-ww^yy+xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+ww^yy+xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^ww^yy+xx
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/ww^yy^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*ww^yy^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-ww^yy^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+ww^yy^xx
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^ww^yy^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/ww^yy^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*ww^yy^xx
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-ww^yy^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+ww^yy^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^ww^yy^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/ww^yy^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*ww^yy^xx
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-ww^yy^xx
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+ww^yy^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^ww^yy^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/ww^yy^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*ww^yy^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-ww^yy^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+ww^yy^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^ww^yy^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/ww^yy^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*ww^yy^xx
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-ww^yy^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+ww^yy^xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^ww^yy^xx
 ENDIF
 ENDIF
 ENDIF
 ELSEIF (@group == 1); outer
IF (@op3 == 0)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/ww^(yy/xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*ww^(yy/xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-ww^(yy/xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+ww^(yy/xx)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^ww^(yy/xx)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/ww^(yy/xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*ww^(yy/xx)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-ww^(yy/xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+ww^(yy/xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^ww^(yy/xx)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/ww^(yy/xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*ww^(yy/xx)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-ww^(yy/xx)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+ww^(yy/xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^ww^(yy/xx)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/ww^(yy/xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*ww^(yy/xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-ww^(yy/xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+ww^(yy/xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^ww^(yy/xx)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/ww^(yy/xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*ww^(yy/xx)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-ww^(yy/xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+ww^(yy/xx)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^ww^(yy/xx)
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/ww^(yy*xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*ww^(yy*xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-ww^(yy*xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+ww^(yy*xx)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^ww^(yy*xx)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/ww^(yy*xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*ww^(yy*xx)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-ww^(yy*xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+ww^(yy*xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^ww^(yy*xx)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/ww^(yy*xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*ww^(yy*xx)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-ww^(yy*xx)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+ww^(yy*xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^ww^(yy*xx)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/ww^(yy*xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*ww^(yy*xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-ww^(yy*xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+ww^(yy*xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^ww^(yy*xx)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/ww^(yy*xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*ww^(yy*xx)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-ww^(yy*xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+ww^(yy*xx)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^ww^(yy*xx)
 ENDIF
 ENDIF
ELSEIF (@op3 == 2)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/ww^(yy-xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*ww^(yy-xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-ww^(yy-xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+ww^(yy-xx)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^ww^(yy-xx)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/ww^(yy-xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*ww^(yy-xx)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-ww^(yy-xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+ww^(yy-xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^ww^(yy-xx)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/ww^(yy-xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*ww^(yy-xx)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-ww^(yy-xx)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+ww^(yy-xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^ww^(yy-xx)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/ww^(yy-xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*ww^(yy-xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-ww^(yy-xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+ww^(yy-xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^ww^(yy-xx)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/ww^(yy-xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*ww^(yy-xx)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-ww^(yy-xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+ww^(yy-xx)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^ww^(yy-xx)
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/ww^(yy+xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*ww^(yy+xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-ww^(yy+xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+ww^(yy+xx)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^ww^(yy+xx)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/ww^(yy+xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*ww^(yy+xx)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-ww^(yy+xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+ww^(yy+xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^ww^(yy+xx)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)

 z = fn1(fn2(aa)-qq)/ww^(yy+xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*ww^(yy+xx)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-ww^(yy+xx)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+ww^(yy+xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^ww^(yy+xx)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/ww^(yy+xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*ww^(yy+xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-ww^(yy+xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+ww^(yy+xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^ww^(yy+xx)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/ww^(yy+xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*ww^(yy+xx)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-ww^(yy+xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+ww^(yy+xx)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^ww^(yy+xx)
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/ww^(yy^xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*ww^(yy^xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-ww^(yy^xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+ww^(yy^xx)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^ww^(yy^xx)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/ww^(yy^xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*ww^(yy^xx)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-ww^(yy^xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+ww^(yy^xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^ww^(yy^xx)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/ww^(yy^xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*ww^(yy^xx)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-ww^(yy^xx)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+ww^(yy^xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^ww^(yy^xx)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/ww^(yy^xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*ww^(yy^xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-ww^(yy^xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+ww^(yy^xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^ww^(yy^xx)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/ww^(yy^xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*ww^(yy^xx)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-ww^(yy^xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+ww^(yy^xx)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^ww^(yy^xx)
 ENDIF
 ENDIF
 ENDIF
 ENDIF
 ENDIF

bailout:
  |z| < real(@bailout)
switch:
  type = "GrandAtom02Julia"
  seed = #pixel
  bailout = bailout
  power = @power
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  budge = @budge
  nudge = @nudge
  op = @op
  op2 = @op2
  op3 = @op3
  group = @group 
  group2 = @group2
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4 
  
default:
  title = "Grand Atom 02"
  param start
  default = (2.0,0)
  endparam
  param bailout
  default = (2.0,0)
  endparam
  param power 
  default = (0,0)
  endparam
  param op 
  caption = "operator 1"
  default = 1
  enum = "/""*""-""+""^"
  endparam
  param op2 
  caption = "operator 2"
  default = 0
  enum = "/""*""-""+""^"
  endparam
  param op3
  caption = "operator 3"
  default = 1
  enum = "/""*""-""+""^"
  endparam
  param group
  caption = "grouping 1"
  default = 0
  enum = "inner""outer"
  endparam
  param group2
  caption = "grouping 2"
  default = 0
  enum = "inner""outer"
  endparam
  param exp1
  caption = "exponent 1"
  default = (1.0,0)
  endparam
  param exp2
  caption = "exponent 2"
  default = (1.0,0)
  endparam
  param exp3
  caption = "exponent 3"
  default = (1.0,0)
  endparam
  param exp4
  caption = "exponent 4"
  default = (1.0,0)
  endparam

  func fn1
  caption = "Function 1"
  default = atan()
  endfunc
  func fn2
  caption = "Function 2"
  default = abs()
  endfunc
  func fn3
  caption = "Function 3"
  default = tan()
  endfunc
  func fn4
  caption = "Function 4"
  default = ident()
  endfunc
  func fn5
  caption = "Function 5"
  default = ident()
  endfunc
  func fn6
  caption = "Function 6"
  default = ident()
  endfunc
  periodicity = 0
  }

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
GrandAtom02Julia {
;Toby Marshall, Dec. 2001, rev.1 

;Special thanks to Ken Childress,  
;Jos Leys, Erik Nathan Reckase, 
;Mark Townsend and Frederik Slijkerman  
;for their suggestions and advice.

;Please see tma.txt for help and hints.

;Have fun!

init:
  z = #pixel
loop:
aa = @seed^@exp1-@power
qq = fn3(z-@budge)
ww = @fn5(real(@seed^@exp2+@power))
yy = @fn6(imag(@seed^@exp3-@power))
xx = fn4(@seed^@exp4)-@nudge
IF (@group2 == 0); inner
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/ww^yy/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*ww^yy/xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-ww^yy/xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+ww^yy/xx
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^ww^yy/xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/ww^yy/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*ww^yy/xx
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-ww^yy/xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+ww^yy/xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^ww^yy/xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/ww^yy/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*ww^yy/xx
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-ww^yy/xx
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+ww^yy/xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^ww^yy/xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/ww^yy/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*ww^yy/xx

 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-ww^yy/xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+ww^yy/xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^ww^yy/xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/ww^yy/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*ww^yy/xx
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-ww^yy/xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+ww^yy/xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^ww^yy/xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/ww^yy*xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*ww^yy*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-ww^yy*xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+ww^yy*xx
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^ww^yy*xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/ww^yy*xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*ww^yy*xx
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-ww^yy*xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+ww^yy*xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^ww^yy*xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/ww^yy*xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*ww^yy*xx
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-ww^yy*xx
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+ww^yy*xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^ww^yy*xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/ww^yy*xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*ww^yy*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-ww^yy*xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+ww^yy*xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^ww^yy*xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/ww^yy*xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*ww^yy*xx
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-ww^yy*xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+ww^yy*xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^ww^yy*xx
 ENDIF
 ENDIF
ELSEIF (@op3 == 2)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/ww^yy-xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*ww^yy-xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-ww^yy-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+ww^yy-xx
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^ww^yy-xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/ww^yy-xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*ww^yy-xx
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-ww^yy-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+ww^yy-xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^ww^yy-xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/ww^yy-xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*ww^yy-xx
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-ww^yy-xx
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+ww^yy-xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^ww^yy-xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/ww^yy-xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*ww^yy-xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-ww^yy-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+ww^yy-xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^ww^yy-xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/ww^yy-xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*ww^yy-xx
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-ww^yy-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+ww^yy-xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^ww^yy-xx
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/ww^yy+xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*ww^yy+xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-ww^yy+xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+ww^yy+xx
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^ww^yy+xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/ww^yy+xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*ww^yy+xx
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-ww^yy+xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+ww^yy+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^ww^yy+xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/ww^yy+xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*ww^yy+xx
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-ww^yy+xx
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+ww^yy+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^ww^yy+xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/ww^yy+xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*ww^yy+xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-ww^yy+xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+ww^yy+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^ww^yy+xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/ww^yy+xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*ww^yy+xx
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-ww^yy+xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+ww^yy+xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^ww^yy+xx
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/ww^yy^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*ww^yy^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-ww^yy^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+ww^yy^xx
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^ww^yy^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/ww^yy^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*ww^yy^xx
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-ww^yy^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+ww^yy^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^ww^yy^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/ww^yy^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*ww^yy^xx
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-ww^yy^xx
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+ww^yy^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^ww^yy^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/ww^yy^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*ww^yy^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-ww^yy^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+ww^yy^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^ww^yy^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/ww^yy^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*ww^yy^xx
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-ww^yy^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+ww^yy^xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^ww^yy^xx
 ENDIF
 ENDIF
 ENDIF
 ELSEIF (@group == 1); outer
IF (@op3 == 0)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/ww^(yy/xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*ww^(yy/xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-ww^(yy/xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+ww^(yy/xx)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^ww^(yy/xx)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/ww^(yy/xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*ww^(yy/xx)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-ww^(yy/xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+ww^(yy/xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^ww^(yy/xx)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/ww^(yy/xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*ww^(yy/xx)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-ww^(yy/xx)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+ww^(yy/xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^ww^(yy/xx)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/ww^(yy/xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*ww^(yy/xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-ww^(yy/xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+ww^(yy/xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^ww^(yy/xx)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/ww^(yy/xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*ww^(yy/xx)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-ww^(yy/xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+ww^(yy/xx)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^ww^(yy/xx)
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/ww^(yy*xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*ww^(yy*xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-ww^(yy*xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+ww^(yy*xx)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^ww^(yy*xx)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/ww^(yy*xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*ww^(yy*xx)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-ww^(yy*xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+ww^(yy*xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^ww^(yy*xx)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/ww^(yy*xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*ww^(yy*xx)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-ww^(yy*xx)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+ww^(yy*xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^ww^(yy*xx)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/ww^(yy*xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*ww^(yy*xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-ww^(yy*xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+ww^(yy*xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^ww^(yy*xx)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/ww^(yy*xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*ww^(yy*xx)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-ww^(yy*xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+ww^(yy*xx)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^ww^(yy*xx)
 ENDIF
 ENDIF
ELSEIF (@op3 == 2)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/ww^(yy-xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*ww^(yy-xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-ww^(yy-xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+ww^(yy-xx)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^ww^(yy-xx)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/ww^(yy-xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*ww^(yy-xx)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-ww^(yy-xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+ww^(yy-xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^ww^(yy-xx)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/ww^(yy-xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*ww^(yy-xx)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-ww^(yy-xx)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+ww^(yy-xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^ww^(yy-xx)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/ww^(yy-xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*ww^(yy-xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-ww^(yy-xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+ww^(yy-xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^ww^(yy-xx)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/ww^(yy-xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*ww^(yy-xx)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-ww^(yy-xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+ww^(yy-xx)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^ww^(yy-xx)
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/ww^(yy+xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*ww^(yy+xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-ww^(yy+xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+ww^(yy+xx)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^ww^(yy+xx)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/ww^(yy+xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*ww^(yy+xx)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-ww^(yy+xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+ww^(yy+xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^ww^(yy+xx)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/ww^(yy+xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*ww^(yy+xx)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-ww^(yy+xx)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+ww^(yy+xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^ww^(yy+xx)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/ww^(yy+xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*ww^(yy+xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-ww^(yy+xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+ww^(yy+xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^ww^(yy+xx)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/ww^(yy+xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*ww^(yy+xx)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-ww^(yy+xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+ww^(yy+xx)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^ww^(yy+xx)
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/ww^(yy^xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*ww^(yy^xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-ww^(yy^xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+ww^(yy^xx)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^ww^(yy^xx)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/ww^(yy^xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*ww^(yy^xx)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-ww^(yy^xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+ww^(yy^xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^ww^(yy^xx)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/ww^(yy^xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*ww^(yy^xx)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-ww^(yy^xx)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+ww^(yy^xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^ww^(yy^xx)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/ww^(yy^xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*ww^(yy^xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-ww^(yy^xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+ww^(yy^xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^ww^(yy^xx)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/ww^(yy^xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*ww^(yy^xx)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-ww^(yy^xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+ww^(yy^xx)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^ww^(yy^xx)
 ENDIF
 ENDIF
 ENDIF
 ENDIF
ELSEIF (@group2 == 1); outer
IF (@group == 0); inner
IF (@op3 == 0)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/ww^yy/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*ww^yy/xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-ww^yy/xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+ww^yy/xx
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^ww^yy/xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/ww^yy/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*ww^yy/xx
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-ww^yy/xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+ww^yy/xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^ww^yy/xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/ww^yy/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*ww^yy/xx
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-ww^yy/xx
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+ww^yy/xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^ww^yy/xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/ww^yy/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*ww^yy/xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-ww^yy/xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+ww^yy/xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^ww^yy/xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/ww^yy/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*ww^yy/xx
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-ww^yy/xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+ww^yy/xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^ww^yy/xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/ww^yy*xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*ww^yy*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-ww^yy*xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+ww^yy*xx
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^ww^yy*xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/ww^yy*xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*ww^yy*xx
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-ww^yy*xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+ww^yy*xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^ww^yy*xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/ww^yy*xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*ww^yy*xx
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-ww^yy*xx
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+ww^yy*xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^ww^yy*xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/ww^yy*xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*ww^yy*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-ww^yy*xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+ww^yy*xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^ww^yy*xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/ww^yy*xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*ww^yy*xx
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-ww^yy*xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+ww^yy*xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^ww^yy*xx
 ENDIF
 ENDIF
ELSEIF (@op3 == 2)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/ww^yy-xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*ww^yy-xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-ww^yy-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+ww^yy-xx
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^ww^yy-xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/ww^yy-xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*ww^yy-xx
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-ww^yy-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+ww^yy-xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^ww^yy-xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/ww^yy-xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*ww^yy-xx
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-ww^yy-xx
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+ww^yy-xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^ww^yy-xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/ww^yy-xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*ww^yy-xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-ww^yy-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+ww^yy-xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^ww^yy-xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/ww^yy-xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*ww^yy-xx
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-ww^yy-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+ww^yy-xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^ww^yy-xx
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/ww^yy+xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*ww^yy+xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-ww^yy+xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+ww^yy+xx
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^ww^yy+xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/ww^yy+xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*ww^yy+xx
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-ww^yy+xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+ww^yy+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^ww^yy+xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/ww^yy+xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*ww^yy+xx
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-ww^yy+xx
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+ww^yy+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^ww^yy+xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/ww^yy+xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*ww^yy+xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-ww^yy+xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+ww^yy+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^ww^yy+xx
 ENDIF
 ELSEIF (@op == 4)

 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/ww^yy+xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*ww^yy+xx
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-ww^yy+xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+ww^yy+xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^ww^yy+xx
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/ww^yy^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*ww^yy^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-ww^yy^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+ww^yy^xx
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^ww^yy^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/ww^yy^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*ww^yy^xx
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-ww^yy^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+ww^yy^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^ww^yy^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/ww^yy^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*ww^yy^xx
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-ww^yy^xx
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+ww^yy^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^ww^yy^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/ww^yy^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*ww^yy^xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-ww^yy^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+ww^yy^xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^ww^yy^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/ww^yy^xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*ww^yy^xx
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-ww^yy^xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+ww^yy^xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^ww^yy^xx
 ENDIF
 ENDIF
 ENDIF
 ELSEIF (@group == 1); outer
IF (@op3 == 0)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/ww^(yy/xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*ww^(yy/xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-ww^(yy/xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+ww^(yy/xx)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^ww^(yy/xx)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/ww^(yy/xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*ww^(yy/xx)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-ww^(yy/xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+ww^(yy/xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^ww^(yy/xx)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/ww^(yy/xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*ww^(yy/xx)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-ww^(yy/xx)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+ww^(yy/xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^ww^(yy/xx)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/ww^(yy/xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*ww^(yy/xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-ww^(yy/xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+ww^(yy/xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^ww^(yy/xx)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/ww^(yy/xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*ww^(yy/xx)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-ww^(yy/xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+ww^(yy/xx)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^ww^(yy/xx)
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/ww^(yy*xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*ww^(yy*xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-ww^(yy*xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+ww^(yy*xx)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^ww^(yy*xx)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/ww^(yy*xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*ww^(yy*xx)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-ww^(yy*xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+ww^(yy*xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^ww^(yy*xx)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/ww^(yy*xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*ww^(yy*xx)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-ww^(yy*xx)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+ww^(yy*xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^ww^(yy*xx)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/ww^(yy*xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*ww^(yy*xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-ww^(yy*xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+ww^(yy*xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^ww^(yy*xx)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/ww^(yy*xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*ww^(yy*xx)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-ww^(yy*xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+ww^(yy*xx)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^ww^(yy*xx)
 ENDIF
 ENDIF
ELSEIF (@op3 == 2)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/ww^(yy-xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*ww^(yy-xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-ww^(yy-xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+ww^(yy-xx)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^ww^(yy-xx)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/ww^(yy-xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*ww^(yy-xx)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-ww^(yy-xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+ww^(yy-xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^ww^(yy-xx)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/ww^(yy-xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*ww^(yy-xx)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-ww^(yy-xx)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+ww^(yy-xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^ww^(yy-xx)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/ww^(yy-xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*ww^(yy-xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-ww^(yy-xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+ww^(yy-xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^ww^(yy-xx)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/ww^(yy-xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*ww^(yy-xx)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-ww^(yy-xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+ww^(yy-xx)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^ww^(yy-xx)
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/ww^(yy+xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*ww^(yy+xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-ww^(yy+xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+ww^(yy+xx)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^ww^(yy+xx)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/ww^(yy+xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*ww^(yy+xx)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-ww^(yy+xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+ww^(yy+xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^ww^(yy+xx)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/ww^(yy+xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*ww^(yy+xx)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-ww^(yy+xx)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+ww^(yy+xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^ww^(yy+xx)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/ww^(yy+xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*ww^(yy+xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-ww^(yy+xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+ww^(yy+xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^ww^(yy+xx)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/ww^(yy+xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*ww^(yy+xx)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-ww^(yy+xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+ww^(yy+xx)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^ww^(yy+xx)
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/ww^(yy^xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*ww^(yy^xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-ww^(yy^xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+ww^(yy^xx)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^ww^(yy^xx)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/ww^(yy^xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*ww^(yy^xx)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-ww^(yy^xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+ww^(yy^xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^ww^(yy^xx)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/ww^(yy^xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*ww^(yy^xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)-qq)-ww^(yy^xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)-qq)+ww^(yy^xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^ww^(yy^xx)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/ww^(yy^xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*ww^(yy^xx)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-ww^(yy^xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+ww^(yy^xx)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^ww^(yy^xx)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/ww^(yy^xx)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*ww^(yy^xx)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-ww^(yy^xx)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+ww^(yy^xx)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^ww^(yy^xx)
 ENDIF
 ENDIF
 ENDIF
 ENDIF
 ENDIF

bailout:
  |z| < real(@bailout)
switch:
  type = "GrandAtom02"
  bailout = bailout
  power = @power
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  budge = @budge
  nudge = @nudge
  op = @op
  op2 = @op2
  op3 = @op3
  group = @group 
  group2 = @group2
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4 

default:
  title = "Grand Atom 02 Julia"
  param seed
  default = (-1.05,-.4625)
  endparam
  param bailout
  default = (2.0,0)
  endparam
  param power 
  default = (0,0)
  endparam
  param op 
  caption = "operator 1"
  default = 1
  enum = "/""*""-""+""^"
  endparam
  param op2 
  caption = "operator 2"
  default = 0
  enum = "/""*""-""+""^"
  endparam
  param op3
  caption = "operator 3"
  default = 1
   enum = "/""*""-""+""^"
  endparam
  param group
  caption = "grouping 1"
  default = 0
  enum = "inner""outer"
  endparam
  param group2
  caption = "grouping 2"
  default = 0
  enum = "inner""outer"
  endparam
    param exp1
  caption = "exponent 1"
  default = (1.0,0)
  endparam
  param exp2
  caption = "exponent 2"
  default = (1.0,0)
  endparam
  param exp3
  caption = "exponent 3"
  default = (1.0,0)
  endparam
  param exp4
  caption = "exponent 4"
  default = (1.0,0)
  endparam

  func fn1
  caption = "Function 1"
  default = atan()
  endfunc
  func fn2
  caption = "Function 2"
  default = abs()
  endfunc
  func fn3
  caption = "Function 3"
  default = tan()
  endfunc
  func fn4
  caption = "Function 4"
  default = ident()
  endfunc
  func fn5
  caption = "Function 5"
  default = ident()
  endfunc
  func fn6
  caption = "Function 6"
  default = ident()
  endfunc
  periodicity = 0
}

******************************************************************************************
DragonAtom01 {
;Toby Marshall, Dec. 2001, rev.1
;Choose your parameter and function values 
;then explore the resulting figure with 
;the Julia switch.

;Special thanks to Ken Childress,  
;Jos Leys, Erik Nathan Reckase, 
;Mark Townsend and Frederik Slijkerman  
;for their suggestions and advice.

;Please see tma.txt for help and hints.

;Have fun!

init:
  z = @start
loop:
aa = #pixel^@exp4/(z-@kludge)/fn2(#pixel^@exp1-@power)
ww = @fn5(real(#pixel^@exp2+@power))
xx = @fn6(imag(#pixel^@exp3-@power))
yy = fn3(z-@budge)
qq = fn4(#pixel^@exp4)-@nudge
IF (@group2 == 0); inner
IF (@group == 0); inner
IF (@op3 == 0)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^xx/qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^xx/qq
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^xx/qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^xx/qq
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^xx/qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^xx/qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^xx/qq
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^xx/qq
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^xx/qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^xx/qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^xx/qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^xx/qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^xx/qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^xx/qq
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa)^yy-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^xx/qq
 ELSEIF (@op == 4)

 z = fn1(aa)^yy^ww^xx/qq
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^xx*qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^xx*qq
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^xx*qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^xx*qq
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^xx*qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^xx*qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^xx*qq
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^xx*qq
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^xx*qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^xx*qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^xx*qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^xx*qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^xx*qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^xx*qq
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa)^yy-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^xx*qq
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^xx*qq
 ENDIF
 ENDIF
ELSEIF (@op3 == 2)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^xx-qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^xx-qq
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^xx-qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^xx-qq
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^xx-qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^xx-qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^xx-qq
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^xx-qq
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^xx-qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^xx-qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^xx-qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^xx-qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^xx-qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^xx-qq
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa)^yy-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^xx-qq
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^xx-qq
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^xx+qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^xx+qq
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^xx+qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^xx+qq
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^xx+qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^xx+qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^xx+qq
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^xx+qq
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^xx+qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^xx+qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^xx+qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^xx+qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^xx+qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^xx+qq
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa)^yy-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^xx+qq
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^xx+qq
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^xx^qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^xx^qq
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^xx^qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^xx^qq
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^xx^qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^xx^qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^xx^qq
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^xx^qq
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^xx^qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^xx^qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^xx^qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^xx^qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^xx^qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^xx^qq
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa)^yy-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^xx^qq
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^xx^qq
 ENDIF
 ENDIF
 ENDIF
 ELSEIF (@group == 1); outer
IF (@op3 == 0)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^(xx/qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^(xx/qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^(xx/qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^(xx/qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^(xx/qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^(xx/qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^(xx/qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^(xx/qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^(xx/qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^(xx/qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^(xx/qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^(xx/qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^(xx/qq)
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa)^yy-ww^(xx/qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^(xx/qq)
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^(xx/qq)
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^(xx*qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^(xx*qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^(xx*qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^(xx*qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^(xx*qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^(xx*qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^(xx*qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^(xx*qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^(xx*qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^(xx*qq)
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa)^yy-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^(xx*qq)
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^(xx*qq)
 ENDIF
 ENDIF
ELSEIF (@op3 == 2)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^(xx-qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^(xx-qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^(xx-qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^(xx-qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^(xx-qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^(xx-qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^(xx-qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^(xx-qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^(xx-qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^(xx-qq)
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa)^yy-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^(xx-qq)
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^(xx-qq)
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^(xx+qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^(xx+qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^(xx+qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^(xx+qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^(xx+qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^(xx+qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^(xx+qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^(xx+qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^(xx+qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^(xx+qq)
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa)^yy-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^(xx+qq)
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^(xx+qq)
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^(xx^qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^(xx^qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^(xx^qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^(xx^qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^(xx^qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^(xx^qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^(xx^qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^(xx^qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^(xx^qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^(xx^qq)
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa)^yy-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^(xx^qq)
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^(xx^qq)
 ENDIF
 ENDIF
 ENDIF
 ENDIF
ELSEIF (@group2 == 1); outer
IF (@group == 0); inner
IF (@op3 == 0)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^xx/qq
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^xx/qq
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^xx/qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^xx/qq
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^xx/qq
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^xx/qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^xx/qq
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^xx/qq
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^xx/qq
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^xx/qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^xx/qq
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^xx/qq
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^xx/qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^xx/qq
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa^yy)-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^xx/qq
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^xx/qq
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^xx*qq
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^xx*qq
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^xx*qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^xx*qq
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^xx*qq
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^xx*qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^xx*qq
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^xx*qq
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^xx*qq
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^xx*qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^xx*qq
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^xx*qq
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^xx*qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^xx*qq
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa^yy)-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^xx*qq
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^xx*qq
 ENDIF
 ENDIF
ELSEIF (@op3 == 2)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^xx-qq
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^xx-qq
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^xx-qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^xx-qq
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^xx-qq
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^xx-qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^xx-qq
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^xx-qq
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^xx-qq
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^xx-qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^xx-qq
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^xx-qq
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^xx-qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^xx-qq
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa^yy)-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^xx-qq
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^xx-qq
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^xx+qq
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^xx+qq
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^xx+qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^xx+qq
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^xx+qq
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^xx+qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^xx+qq
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^xx+qq
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^xx+qq
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^xx+qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^xx+qq
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^xx+qq
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^xx+qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^xx+qq
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa^yy)-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^xx+qq
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^xx+qq
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^xx^qq
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^xx^qq
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^xx^qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^xx^qq
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^xx^qq
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^xx^qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^xx^qq
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^xx^qq
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^xx^qq
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^xx^qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^xx^qq
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^xx^qq
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^xx^qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^xx^qq
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa^yy)-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^xx^qq
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^xx^qq
 ENDIF
 ENDIF
 ENDIF
 ELSEIF (@group == 1); outer
IF (@op3 == 0)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^(xx/qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^(xx/qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^(xx/qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^(xx/qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^(xx/qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^(xx/qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^(xx/qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^(xx/qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^(xx/qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^(xx/qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^(xx/qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^(xx/qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^(xx/qq)
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa^yy)-ww^(xx/qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^(xx/qq)
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^(xx/qq)
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^(xx*qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^(xx*qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^(xx*qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^(xx*qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^(xx*qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^(xx*qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^(xx*qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^(xx*qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^(xx*qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^(xx*qq)
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa^yy)-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^(xx*qq)
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^(xx*qq)
 ENDIF
 ENDIF
ELSEIF (@op3 == 2)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^(xx-qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^(xx-qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^(xx-qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^(xx-qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^(xx-qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^(xx-qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^(xx-qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^(xx-qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^(xx-qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^(xx-qq)
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa^yy)-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^(xx-qq)
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^(xx-qq)
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^(xx+qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^(xx+qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^(xx+qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^(xx+qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)

 z = fn1(aa-yy)/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^(xx+qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^(xx+qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^(xx+qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^(xx+qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^(xx+qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^(xx+qq)
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa^yy)-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^(xx+qq)
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^(xx+qq)
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^(xx^qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^(xx^qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^(xx^qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^(xx^qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^(xx^qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^(xx^qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^(xx^qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^(xx^qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^(xx^qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^(xx^qq)
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa^yy)-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^(xx^qq)
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^(xx^qq)
 ENDIF
 ENDIF
 ENDIF
 ENDIF
 ENDIF

bailout:
  |z| < real(@bailout)
switch:
  type = "DragonAtom01Julia"
  seed = #pixel
  bailout = bailout
  power = @power
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  budge = @budge
  nudge = @nudge
  op = @op
  op2 = @op2
  op3 = @op3
  group = @group 
  group2 = @group2
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4 
  
default:
  title = "Dragon Atom 01"
  param start
  default = (2.0,0)
  endparam
  param bailout
  default = (2.0,0)
  endparam
  param power 
  default = (0,0)
  endparam
  param op 
  caption = "operator 1"
  default = 1
  enum = "/""*""-""+""^"
  endparam
  param op2 
  caption = "operator 2"
  default = 0
  enum = "/""*""-""+""^"
  endparam
  param op3
  caption = "operator 3"
  default = 1
  enum = "/""*""-""+""^"
  endparam
  param group
  caption = "grouping 1"
  default = 0
  enum = "inner""outer"
  endparam
  param group2
  caption = "grouping 2"
  default = 0
  enum = "inner""outer"
  endparam
    param exp1
  caption = "exponent 1"
  default = (1.0,0)
  endparam
  param exp2
  caption = "exponent 2"
  default = (1.0,0)
  endparam
  param exp3
  caption = "exponent 3"
  default = (1.0,0)
  endparam
  param exp4
  caption = "exponent 4"
  default = (1.0,0)
  endparam

  func fn1
  caption = "Function 1"
  default = atan()
  endfunc
  func fn2
  caption = "Function 2"
  default = abs()
  endfunc
  func fn3
  caption = "Function 3"
  default = tan()
  endfunc
  func fn4
  caption = "Function 4"
  default = ident()
  endfunc
  func fn5
  caption = "Function 5"
  default = ident()
  endfunc
  func fn6
  caption = "Function 6"
  default = ident()
  endfunc
  periodicity = 0
  }

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
DragonAtom01Julia {

;Toby Marshall, Dec. 2001, rev.1 

;Special thanks to Ken Childress,  
;Jos Leys, Erik Nathan Reckase, 
;Mark Townsend and Frederik Slijkerman  
;for their suggestions and advice.

;Please see tma.txt for help and hints.

;Have fun!

init:
  z = #pixel
loop:
aa = @seed^@exp4/(z-@kludge)/fn2(@seed^@exp1-@power)
ww = @fn5(real(@seed^@exp2+@power))
xx = @fn6(imag(@seed^@exp3-@power))
yy = fn3(z-@budge)
qq = fn4(@seed^@exp4)-@nudge
IF (@group2 == 0); inner
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^xx/qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^xx/qq
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^xx/qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^xx/qq
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^xx/qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^xx/qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^xx/qq
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^xx/qq
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^xx/qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^xx/qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^xx/qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^xx/qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^xx/qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^xx/qq
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa)^yy-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^xx/qq
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^xx/qq
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^xx*qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^xx*qq
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^xx*qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^xx*qq
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^xx*qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^xx*qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^xx*qq
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^xx*qq
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^xx*qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^xx*qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^xx*qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^xx*qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^xx*qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^xx*qq
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa)^yy-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^xx*qq
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^xx*qq
 ENDIF
 ENDIF
ELSEIF (@op3 == 2)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^xx-qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^xx-qq
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^xx-qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^xx-qq
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^xx-qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^xx-qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^xx-qq
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^xx-qq
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^xx-qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^xx-qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^xx-qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^xx-qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^xx-qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^xx-qq
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa)^yy-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^xx-qq
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^xx-qq
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^xx+qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^xx+qq
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^xx+qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^xx+qq
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^xx+qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^xx+qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^xx+qq
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^xx+qq
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^xx+qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^xx+qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^xx+qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^xx+qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^xx+qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^xx+qq
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa)^yy-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^xx+qq
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^xx+qq
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^xx^qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^xx^qq
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^xx^qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^xx^qq
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^xx^qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^xx^qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^xx^qq
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^xx^qq
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^xx^qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^xx^qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^xx^qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^xx^qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^xx^qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^xx^qq
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa)^yy-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^xx^qq
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^xx^qq
 ENDIF
 ENDIF
 ENDIF
 ELSEIF (@group == 1); outer
IF (@op3 == 0)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^(xx/qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^(xx/qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^(xx/qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^(xx/qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^(xx/qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^(xx/qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^(xx/qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^(xx/qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^(xx/qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^(xx/qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^(xx/qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^(xx/qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^(xx/qq)
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa)^yy-ww^(xx/qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^(xx/qq)
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^(xx/qq)
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^(xx*qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^(xx*qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^(xx*qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^(xx*qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^(xx*qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^(xx*qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^(xx*qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^(xx*qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^(xx*qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^(xx*qq)
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa)^yy-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^(xx*qq)
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^(xx*qq)
 ENDIF
 ENDIF
ELSEIF (@op3 == 2)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^(xx-qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^(xx-qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^(xx-qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^(xx-qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^(xx-qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^(xx-qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^(xx-qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^(xx-qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^(xx-qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^(xx-qq)
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa)^yy-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^(xx-qq)
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^(xx-qq)
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^(xx+qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^(xx+qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^(xx+qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^(xx+qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^(xx+qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^(xx+qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^(xx+qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^(xx+qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^(xx+qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^(xx+qq)
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa)^yy-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^(xx+qq)
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^(xx+qq)
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^(xx^qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^(xx^qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^(xx^qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^(xx^qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^(xx^qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^(xx^qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^(xx^qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^(xx^qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^(xx^qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^(xx^qq)
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa)^yy-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^(xx^qq)
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^(xx^qq)
 ENDIF
 ENDIF
 ENDIF
 ENDIF
ELSEIF (@group2 == 1); outer
IF (@group == 0); inner
IF (@op3 == 0)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^xx/qq
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^xx/qq
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^xx/qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^xx/qq
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^xx/qq
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^xx/qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^xx/qq
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^xx/qq
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^xx/qq
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^xx/qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^xx/qq
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^xx/qq
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^xx/qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^xx/qq
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa^yy)-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^xx/qq
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^xx/qq
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^xx*qq
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^xx*qq
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^xx*qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^xx*qq
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^xx*qq
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^xx*qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^xx*qq
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^xx*qq
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^xx*qq
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^xx*qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^xx*qq
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^xx*qq
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^xx*qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^xx*qq
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa^yy)-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^xx*qq
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^xx*qq
 ENDIF
 ENDIF
ELSEIF (@op3 == 2)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^xx-qq
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^xx-qq
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^xx-qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^xx-qq
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^xx-qq
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^xx-qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^xx-qq
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^xx-qq
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^xx-qq
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^xx-qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^xx-qq
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^xx-qq
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^xx-qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^xx-qq
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa^yy)-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^xx-qq
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^xx-qq
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^xx+qq
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^xx+qq
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^xx+qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^xx+qq
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^xx+qq
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^xx+qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^xx+qq
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^xx+qq
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^xx+qq
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^xx+qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^xx+qq
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^xx+qq
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^xx+qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^xx+qq
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa^yy)-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^xx+qq
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^xx+qq
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^xx^qq
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^xx^qq
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^xx^qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^xx^qq
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^xx^qq
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^xx^qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^xx^qq
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^xx^qq
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^xx^qq
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^xx^qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^xx^qq
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^xx^qq
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^xx^qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^xx^qq
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa^yy)-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^xx^qq
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^xx^qq
 ENDIF
 ENDIF
 ENDIF
 ELSEIF (@group == 1); outer
IF (@op3 == 0)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^(xx/qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^(xx/qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^(xx/qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^(xx/qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^(xx/qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^(xx/qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^(xx/qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^(xx/qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^(xx/qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^(xx/qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^(xx/qq)
 ELSEIF (@op2 == 3)

 z = fn1(aa+yy)+ww^(xx/qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^(xx/qq)
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa^yy)-ww^(xx/qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^(xx/qq)
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^(xx/qq)
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^(xx*qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^(xx*qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^(xx*qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^(xx*qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^(xx*qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^(xx*qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^(xx*qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^(xx*qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^(xx*qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^(xx*qq)
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa^yy)-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^(xx*qq)
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^(xx*qq)
 ENDIF
 ENDIF
ELSEIF (@op3 == 2)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^(xx-qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^(xx-qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^(xx-qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^(xx-qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^(xx-qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^(xx-qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^(xx-qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^(xx-qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^(xx-qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^(xx-qq)
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa^yy)-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^(xx-qq)
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^(xx-qq)
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^(xx+qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^(xx+qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^(xx+qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^(xx+qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^(xx+qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^(xx+qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^(xx+qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^(xx+qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^(xx+qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^(xx+qq)
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa^yy)-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^(xx+qq)
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^(xx+qq)
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^(xx^qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^(xx^qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^(xx^qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^(xx^qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^(xx^qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa-yy)-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa-yy)+ww^(xx^qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^(xx^qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^(xx^qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^(xx^qq)
 ELSEIF (@op2 == 2);subtract
  z = fn1(aa^yy)-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^(xx^qq)
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^(xx^qq)
 ENDIF
 ENDIF
 ENDIF
 ENDIF
 ENDIF

bailout:
  |z| < real(@bailout)
switch:
  type = "DragonAtom01"
  bailout = bailout
  power = @power
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  budge = @budge
  nudge = @nudge
  op = @op
  op2 = @op2
  op3 = @op3
  group = @group 
  group2 = @group2
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4 

default:
  title = "Dragon Atom 01 Julia"
  magn = 1.79
  param seed
  default = (-2.345,1.26)
  endparam
  param bailout
  default = (2.0,0)
  endparam
  param power 
  default = (0,0)
  endparam
  param op 
  caption = "operator 1"
  default = 1
  enum = "/""*""-""+""^"
  endparam
  param op2 
  caption = "operator 2"
  default = 0
  enum = "/""*""-""+""^"
  endparam
  param op3
  caption = "operator 3"
  default = 1
   enum = "/""*""-""+""^"
  endparam
  param group
  caption = "grouping 1"
  default = 0
  enum = "inner""outer"
  endparam
  param group2
  caption = "grouping 2"
  default = 0
  enum = "inner""outer"
  endparam
    param exp1
  caption = "exponent 1"
  default = (1.0,0)
  endparam
  param exp2
  caption = "exponent 2"
  default = (1.0,0)
  endparam
  param exp3
  caption = "exponent 3"
  default = (1.0,0)
  endparam
  param exp4
  caption = "exponent 4"
  default = (1.0,0)
  endparam

  func fn1
  caption = "Function 1"
  default = atan()
  endfunc
  func fn2
  caption = "Function 2"
  default = abs()
  endfunc
  func fn3
  caption = "Function 3"
  default = tan()
  endfunc
  func fn4
  caption = "Function 4"
  default = ident()
  endfunc
  func fn5
  caption = "Function 5"
  default = ident()
  endfunc
  func fn6
  caption = "Function 6"
  default = ident()
  endfunc
  periodicity = 0
}
*****************************************************************************************
DragonAtom02 {
;Toby Marshall, Dec. 2001, rev.1

;Choose your parameter and function values 
;then explore the resulting figure with 
;the Julia switch.

;Special thanks to Ken Childress,  
;Jos Leys, Erik Nathan Reckase, 
;Mark Townsend and Frederik Slijkerman  
;for their suggestions and advice.

;Please see tma.txt for help and hints.

;Have fun!

init:
  z = @start
loop:
aa = fn1(#pixel^@exp4/fn4(z-@kludge))
bb = fn1(#pixel^@exp4*fn4(z-@kludge))
cc = fn1(#pixel^@exp4-fn4(z-@kludge))
dd = fn1(#pixel^@exp4+fn4(z-@kludge))
ff = fn1(#pixel^@exp4^fn4(z-@kludge))
qq = (fn2(#pixel^@exp1-@power)*fn3(z-@budge))
ww = @fn5(real(#pixel^@exp2*@power))
xx = @fn6(imag(#pixel^@exp3/@power))-@nudge

IF (@op4 == 0)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq/ww/xx
   ELSEIF (@op1 == 1)
   z = bb/qq/ww/xx
   ELSEIF (@op1 == 2)
   z = cc/qq/ww/xx
   ELSEIF (@op1 == 3)
   z = dd/qq/ww/xx
   ELSEIF (@op1 == 4)
   z = ff/qq/ww/xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq/ww/xx
   ELSEIF (@op1 == 1)
   z = bb*qq/ww/xx
   ELSEIF (@op1 == 2)
   z = cc*qq/ww/xx
   ELSEIF (@op1 == 3)
   z = dd*qq/ww/xx
   ELSEIF (@op1 == 4)
   z = ff*qq/ww/xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq/ww/xx
   ELSEIF (@op1 == 1)
   z = bb-qq/ww/xx
   ELSEIF (@op1 == 2)
   z = cc-qq/ww/xx
   ELSEIF (@op1 == 3)
   z = dd-qq/ww/xx
   ELSEIF (@op1 == 4)
   z = ff-qq/ww/xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq/ww/xx
   ELSEIF (@op1 == 1)
   z = bb+qq/ww/xx
   ELSEIF (@op1 == 2)
   z = cc+qq/ww/xx
   ELSEIF (@op1 == 3)
   z = dd+qq/ww/xx
   ELSEIF (@op1 == 4)
   z = ff+qq/ww/xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq/ww/xx
   ELSEIF (@op1 == 1)
   z = bb^qq/ww/xx
   ELSEIF (@op1 == 2)
   z = cc^qq/ww/xx
   ELSEIF (@op1 == 3)
   z = dd^qq/ww/xx
   ELSEIF (@op1 == 4)
   z = ff^qq/ww/xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq*ww/xx
   ELSEIF (@op1 == 1)
   z = bb/qq*ww/xx
   ELSEIF (@op1 == 2)
   z = cc/qq*ww/xx
   ELSEIF (@op1 == 3)
   z = dd/qq*ww/xx
   ELSEIF (@op1 == 4)
   z = ff/qq*ww/xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq*ww/xx
   ELSEIF (@op1 == 1)
   z = bb*qq*ww/xx
   ELSEIF (@op1 == 2)
   z = cc*qq*ww/xx
   ELSEIF (@op1 == 3)
   z = dd*qq*ww/xx
   ELSEIF (@op1 == 4)
   z = ff*qq*ww/xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq*ww/xx
   ELSEIF (@op1 == 1)
   z = bb-qq*ww/xx
   ELSEIF (@op1 == 2)
   z = cc-qq*ww/xx
   ELSEIF (@op1 == 3)
   z = dd-qq*ww/xx
   ELSEIF (@op1 == 4)
   z = ff-qq*ww/xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq*ww/xx
   ELSEIF (@op1 == 1)
   z = bb+qq*ww/xx
   ELSEIF (@op1 == 2)
   z = cc+qq*ww/xx
   ELSEIF (@op1 == 3)
   z = dd+qq*ww/xx
   ELSEIF (@op1 == 4)
   z = ff+qq*ww/xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq*ww/xx
   ELSEIF (@op1 == 1)
   z = bb^qq*ww/xx
   ELSEIF (@op1 == 2)
   z = cc^qq*ww/xx
   ELSEIF (@op1 == 3)
   z = dd^qq*ww/xx
   ELSEIF (@op1 == 4)
   z = ff^qq*ww/xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq-ww/xx
   ELSEIF (@op1 == 1)
   z = bb/qq-ww/xx
   ELSEIF (@op1 == 2)
   z = cc/qq-ww/xx
   ELSEIF (@op1 == 3)
   z = dd/qq-ww/xx
   ELSEIF (@op1 == 4)
   z = ff/qq-ww/xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq-ww/xx
   ELSEIF (@op1 == 1)
   z = bb*qq-ww/xx
   ELSEIF (@op1 == 2)
   z = cc*qq-ww/xx
   ELSEIF (@op1 == 3)
   z = dd*qq-ww/xx
   ELSEIF (@op1 == 4)
   z = ff*qq-ww/xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq-ww/xx
   ELSEIF (@op1 == 1)
   z = bb-qq-ww/xx
   ELSEIF (@op1 == 2)
   z = cc-qq-ww/xx
   ELSEIF (@op1 == 3)
   z = dd-qq-ww/xx
   ELSEIF (@op1 == 4)
   z = ff-qq-ww/xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq-ww/xx
   ELSEIF (@op1 == 1)
   z = bb+qq-ww/xx
   ELSEIF (@op1 == 2)
   z = cc+qq-ww/xx
   ELSEIF (@op1 == 3)
   z = dd+qq-ww/xx
   ELSEIF (@op1 == 4)
   z = ff+qq-ww/xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq-ww/xx
   ELSEIF (@op1 == 1)
   z = bb^qq-ww/xx
   ELSEIF (@op1 == 2)
   z = cc^qq-ww/xx
   ELSEIF (@op1 == 3)
   z = dd^qq-ww/xx
   ELSEIF (@op1 == 4)
   z = ff^qq-ww/xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq+ww/xx
   ELSEIF (@op1 == 1)
   z = bb/qq+ww/xx
   ELSEIF (@op1 == 2)
   z = cc/qq+ww/xx
   ELSEIF (@op1 == 3)
   z = dd/qq+ww/xx
   ELSEIF (@op1 == 4)
   z = ff/qq+ww/xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq+ww/xx
   ELSEIF (@op1 == 1)
   z = bb*qq+ww/xx
   ELSEIF (@op1 == 2)
   z = cc*qq+ww/xx
   ELSEIF (@op1 == 3)
   z = dd*qq+ww/xx
   ELSEIF (@op1 == 4)
   z = ff*qq+ww/xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq+ww/xx
   ELSEIF (@op1 == 1)
   z = bb-qq+ww/xx
   ELSEIF (@op1 == 2)
   z = cc-qq+ww/xx
   ELSEIF (@op1 == 3)
   z = dd-qq+ww/xx
   ELSEIF (@op1 == 4)
   z = ff-qq+ww/xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq+ww/xx
   ELSEIF (@op1 == 1)
   z = bb+qq+ww/xx
   ELSEIF (@op1 == 2)
   z = cc+qq+ww/xx
   ELSEIF (@op1 == 3)
   z = dd+qq+ww/xx
   ELSEIF (@op1 == 4)
   z = ff+qq+ww/xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq+ww/xx
   ELSEIF (@op1 == 1)
   z = bb^qq+ww/xx
   ELSEIF (@op1 == 2)
   z = cc^qq+ww/xx
   ELSEIF (@op1 == 3)
   z = dd^qq+ww/xx
   ELSEIF (@op1 == 4)
   z = ff^qq+ww/xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq^ww/xx
   ELSEIF (@op1 == 1)
   z = bb/qq^ww/xx
   ELSEIF (@op1 == 2)
   z = cc/qq^ww/xx
   ELSEIF (@op1 == 3)
   z = dd/qq^ww/xx
   ELSEIF (@op1 == 4)
   z = ff/qq^ww/xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq^ww/xx
   ELSEIF (@op1 == 1)
   z = bb*qq^ww/xx
   ELSEIF (@op1 == 2)
   z = cc*qq^ww/xx
   ELSEIF (@op1 == 3)
   z = dd*qq^ww/xx
   ELSEIF (@op1 == 4)
   z = ff*qq^ww/xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq^ww/xx
   ELSEIF (@op1 == 1)
   z = bb-qq^ww/xx
   ELSEIF (@op1 == 2)
   z = cc-qq^ww/xx
   ELSEIF (@op1 == 3)
   z = dd-qq^ww/xx
   ELSEIF (@op1 == 4)
   z = ff-qq^ww/xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq^ww/xx
   ELSEIF (@op1 == 1)
   z = bb+qq^ww/xx
   ELSEIF (@op1 == 2)
   z = cc+qq^ww/xx
   ELSEIF (@op1 == 3)
   z = dd+qq^ww/xx
   ELSEIF (@op1 == 4)
   z = ff+qq^ww/xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq^ww/xx
   ELSEIF (@op1 == 1)
   z = bb^qq^ww/xx
   ELSEIF (@op1 == 2)
   z = cc^qq^ww/xx
   ELSEIF (@op1 == 3)
   z = dd^qq^ww/xx
   ELSEIF (@op1 == 4)
   z = ff^qq^ww/xx
   ENDIF

   ENDIF
   ENDIF
ELSEIF (@op4 == 1)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq/ww*xx
   ELSEIF (@op1 == 1)
   z = bb/qq/ww*xx
   ELSEIF (@op1 == 2)
   z = cc/qq/ww*xx
   ELSEIF (@op1 == 3)
   z = dd/qq/ww*xx
   ELSEIF (@op1 == 4)
   z = ff/qq/ww*xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq/ww*xx
   ELSEIF (@op1 == 1)
   z = bb*qq/ww*xx
   ELSEIF (@op1 == 2)
   z = cc*qq/ww*xx
   ELSEIF (@op1 == 3)
   z = dd*qq/ww*xx
   ELSEIF (@op1 == 4)
   z = ff*qq/ww*xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq/ww*xx
   ELSEIF (@op1 == 1)
   z = bb-qq/ww*xx
   ELSEIF (@op1 == 2)
   z = cc-qq/ww*xx
   ELSEIF (@op1 == 3)
   z = dd-qq/ww*xx
   ELSEIF (@op1 == 4)
   z = ff-qq/ww*xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq/ww*xx
   ELSEIF (@op1 == 1)
   z = bb+qq/ww*xx
   ELSEIF (@op1 == 2)
   z = cc+qq/ww*xx
   ELSEIF (@op1 == 3)
   z = dd+qq/ww*xx
   ELSEIF (@op1 == 4)
   z = ff+qq/ww*xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq/ww*xx
   ELSEIF (@op1 == 1)
   z = bb^qq/ww*xx
   ELSEIF (@op1 == 2)
   z = cc^qq/ww*xx
   ELSEIF (@op1 == 3)
   z = dd^qq/ww*xx
   ELSEIF (@op1 == 4)
   z = ff^qq/ww*xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq*ww*xx
   ELSEIF (@op1 == 1)
   z = bb/qq*ww*xx
   ELSEIF (@op1 == 2)
   z = cc/qq*ww*xx
   ELSEIF (@op1 == 3)
   z = dd/qq*ww*xx
   ELSEIF (@op1 == 4)
   z = ff/qq*ww*xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq*ww*xx
   ELSEIF (@op1 == 1)
   z = bb*qq*ww*xx
   ELSEIF (@op1 == 2)
   z = cc*qq*ww*xx
   ELSEIF (@op1 == 3)
   z = dd*qq*ww*xx
   ELSEIF (@op1 == 4)
   z = ff*qq*ww*xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq*ww*xx
   ELSEIF (@op1 == 1)
   z = bb-qq*ww*xx
   ELSEIF (@op1 == 2)
   z = cc-qq*ww*xx
   ELSEIF (@op1 == 3)
   z = dd-qq*ww*xx
   ELSEIF (@op1 == 4)
   z = ff-qq*ww*xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq*ww*xx
   ELSEIF (@op1 == 1)
   z = bb+qq*ww*xx
   ELSEIF (@op1 == 2)
   z = cc+qq*ww*xx
   ELSEIF (@op1 == 3)
   z = dd+qq*ww*xx
   ELSEIF (@op1 == 4)
   z = ff+qq*ww*xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq*ww*xx
   ELSEIF (@op1 == 1)
   z = bb^qq*ww*xx
   ELSEIF (@op1 == 2)
   z = cc^qq*ww*xx
   ELSEIF (@op1 == 3)
   z = dd^qq*ww*xx
   ELSEIF (@op1 == 4)
   z = ff^qq*ww*xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq-ww*xx
   ELSEIF (@op1 == 1)
   z = bb/qq-ww*xx
   ELSEIF (@op1 == 2)
   z = cc/qq-ww*xx
   ELSEIF (@op1 == 3)
   z = dd/qq-ww*xx
   ELSEIF (@op1 == 4)
   z = ff/qq-ww*xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq-ww*xx
   ELSEIF (@op1 == 1)
   z = bb*qq-ww*xx
   ELSEIF (@op1 == 2)
   z = cc*qq-ww*xx
   ELSEIF (@op1 == 3)
   z = dd*qq-ww*xx
   ELSEIF (@op1 == 4)
   z = ff*qq-ww*xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq-ww*xx
   ELSEIF (@op1 == 1)
   z = bb-qq-ww*xx
   ELSEIF (@op1 == 2)
   z = cc-qq-ww*xx
   ELSEIF (@op1 == 3)
   z = dd-qq-ww*xx
   ELSEIF (@op1 == 4)
   z = ff-qq-ww*xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq-ww*xx
   ELSEIF (@op1 == 1)
   z = bb+qq-ww*xx
   ELSEIF (@op1 == 2)
   z = cc+qq-ww*xx
   ELSEIF (@op1 == 3)
   z = dd+qq-ww*xx
   ELSEIF (@op1 == 4)
   z = ff+qq-ww*xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq-ww*xx
   ELSEIF (@op1 == 1)
   z = bb^qq-ww*xx
   ELSEIF (@op1 == 2)
   z = cc^qq-ww*xx
   ELSEIF (@op1 == 3)
   z = dd^qq-ww*xx
   ELSEIF (@op1 == 4)
   z = ff^qq-ww*xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq+ww*xx
   ELSEIF (@op1 == 1)
   z = bb/qq+ww*xx
   ELSEIF (@op1 == 2)
   z = cc/qq+ww*xx
   ELSEIF (@op1 == 3)
   z = dd/qq+ww*xx
   ELSEIF (@op1 == 4)
   z = ff/qq+ww*xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq+ww*xx
   ELSEIF (@op1 == 1)
   z = bb*qq+ww*xx
   ELSEIF (@op1 == 2)
   z = cc*qq+ww*xx
   ELSEIF (@op1 == 3)
   z = dd*qq+ww*xx
   ELSEIF (@op1 == 4)
   z = ff*qq+ww*xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq+ww*xx
   ELSEIF (@op1 == 1)
   z = bb-qq+ww*xx
   ELSEIF (@op1 == 2)
   z = cc-qq+ww*xx
   ELSEIF (@op1 == 3)
   z = dd-qq+ww*xx
   ELSEIF (@op1 == 4)
   z = ff-qq+ww*xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq+ww*xx
   ELSEIF (@op1 == 1)
   z = bb+qq+ww*xx
   ELSEIF (@op1 == 2)
   z = cc+qq+ww*xx
   ELSEIF (@op1 == 3)
   z = dd+qq+ww*xx
   ELSEIF (@op1 == 4)
   z = ff+qq+ww*xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq+ww*xx
   ELSEIF (@op1 == 1)
   z = bb^qq+ww*xx
   ELSEIF (@op1 == 2)
   z = cc^qq+ww*xx
   ELSEIF (@op1 == 3)
   z = dd^qq+ww*xx
   ELSEIF (@op1 == 4)
   z = ff^qq+ww*xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq^ww*xx
   ELSEIF (@op1 == 1)
   z = bb/qq^ww*xx
   ELSEIF (@op1 == 2)
   z = cc/qq^ww*xx
   ELSEIF (@op1 == 3)
   z = dd/qq^ww*xx
   ELSEIF (@op1 == 4)
   z = ff/qq^ww*xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq^ww*xx
   ELSEIF (@op1 == 1)
   z = bb*qq^ww*xx
   ELSEIF (@op1 == 2)
   z = cc*qq^ww*xx
   ELSEIF (@op1 == 3)
   z = dd*qq^ww*xx
   ELSEIF (@op1 == 4)
   z = ff*qq^ww*xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq^ww*xx
   ELSEIF (@op1 == 1)
   z = bb-qq^ww*xx
   ELSEIF (@op1 == 2)
   z = cc-qq^ww*xx
   ELSEIF (@op1 == 3)
   z = dd-qq^ww*xx
   ELSEIF (@op1 == 4)
   z = ff-qq^ww*xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq^ww*xx
   ELSEIF (@op1 == 1)
   z = bb+qq^ww*xx
   ELSEIF (@op1 == 2)
   z = cc+qq^ww*xx
   ELSEIF (@op1 == 3)
   z = dd+qq^ww*xx
   ELSEIF (@op1 == 4)
   z = ff+qq^ww*xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq^ww*xx
   ELSEIF (@op1 == 1)
   z = bb^qq^ww*xx
   ELSEIF (@op1 == 2)
   z = cc^qq^ww*xx
   ELSEIF (@op1 == 3)
   z = dd^qq^ww*xx
   ELSEIF (@op1 == 4)
   z = ff^qq^ww*xx
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 2)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq/ww-xx
   ELSEIF (@op1 == 1)
   z = bb/qq/ww-xx
   ELSEIF (@op1 == 2)
   z = cc/qq/ww-xx
   ELSEIF (@op1 == 3)
   z = dd/qq/ww-xx
   ELSEIF (@op1 == 4)
   z = ff/qq/ww-xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq/ww-xx
   ELSEIF (@op1 == 1)
   z = bb*qq/ww-xx
   ELSEIF (@op1 == 2)
   z = cc*qq/ww-xx
   ELSEIF (@op1 == 3)
   z = dd*qq/ww-xx
   ELSEIF (@op1 == 4)
   z = ff*qq/ww-xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq/ww-xx
   ELSEIF (@op1 == 1)
   z = bb-qq/ww-xx
   ELSEIF (@op1 == 2)
   z = cc-qq/ww-xx
   ELSEIF (@op1 == 3)
   z = dd-qq/ww-xx
   ELSEIF (@op1 == 4)
   z = ff-qq/ww-xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq/ww-xx
   ELSEIF (@op1 == 1)
   z = bb+qq/ww-xx
   ELSEIF (@op1 == 2)
   z = cc+qq/ww-xx
   ELSEIF (@op1 == 3)
   z = dd+qq/ww-xx
   ELSEIF (@op1 == 4)
   z = ff+qq/ww-xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq/ww-xx
   ELSEIF (@op1 == 1)
   z = bb^qq/ww-xx
   ELSEIF (@op1 == 2)
   z = cc^qq/ww-xx
   ELSEIF (@op1 == 3)
   z = dd^qq/ww-xx
   ELSEIF (@op1 == 4)
   z = ff^qq/ww-xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq*ww-xx
   ELSEIF (@op1 == 1)
   z = bb/qq*ww-xx
   ELSEIF (@op1 == 2)
   z = cc/qq*ww-xx
   ELSEIF (@op1 == 3)
   z = dd/qq*ww-xx
   ELSEIF (@op1 == 4)
   z = ff/qq*ww-xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq*ww-xx
   ELSEIF (@op1 == 1)
   z = bb*qq*ww-xx
   ELSEIF (@op1 == 2)
   z = cc*qq*ww-xx
   ELSEIF (@op1 == 3)
   z = dd*qq*ww-xx
   ELSEIF (@op1 == 4)
   z = ff*qq*ww-xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq*ww-xx
   ELSEIF (@op1 == 1)
   z = bb-qq*ww-xx
   ELSEIF (@op1 == 2)
   z = cc-qq*ww-xx
   ELSEIF (@op1 == 3)
   z = dd-qq*ww-xx
   ELSEIF (@op1 == 4)
   z = ff-qq*ww-xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq*ww-xx
   ELSEIF (@op1 == 1)
   z = bb+qq*ww-xx
   ELSEIF (@op1 == 2)
   z = cc+qq*ww-xx
   ELSEIF (@op1 == 3)
   z = dd+qq*ww-xx
   ELSEIF (@op1 == 4)
   z = ff+qq*ww-xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq*ww-xx
   ELSEIF (@op1 == 1)
   z = bb^qq*ww-xx
   ELSEIF (@op1 == 2)
   z = cc^qq*ww-xx
   ELSEIF (@op1 == 3)
   z = dd^qq*ww-xx
   ELSEIF (@op1 == 4)
   z = ff^qq*ww-xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq-ww-xx

   ELSEIF (@op1 == 1)
   z = bb/qq-ww-xx
   ELSEIF (@op1 == 2)
   z = cc/qq-ww-xx
   ELSEIF (@op1 == 3)
   z = dd/qq-ww-xx
   ELSEIF (@op1 == 4)
   z = ff/qq-ww-xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq-ww-xx
   ELSEIF (@op1 == 1)
   z = bb*qq-ww-xx
   ELSEIF (@op1 == 2)
   z = cc*qq-ww-xx
   ELSEIF (@op1 == 3)
   z = dd*qq-ww-xx
   ELSEIF (@op1 == 4)
   z = ff*qq-ww-xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq-ww-xx
   ELSEIF (@op1 == 1)
   z = bb-qq-ww-xx
   ELSEIF (@op1 == 2)
   z = cc-qq-ww-xx
   ELSEIF (@op1 == 3)
   z = dd-qq-ww-xx
   ELSEIF (@op1 == 4)
   z = ff-qq-ww-xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq-ww-xx
   ELSEIF (@op1 == 1)
   z = bb+qq-ww-xx
   ELSEIF (@op1 == 2)
   z = cc+qq-ww-xx
   ELSEIF (@op1 == 3)
   z = dd+qq-ww-xx
   ELSEIF (@op1 == 4)
   z = ff+qq-ww-xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq-ww-xx
   ELSEIF (@op1 == 1)
   z = bb^qq-ww-xx
   ELSEIF (@op1 == 2)
   z = cc^qq-ww-xx
   ELSEIF (@op1 == 3)
   z = dd^qq-ww-xx
   ELSEIF (@op1 == 4)
   z = ff^qq-ww-xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq+ww-xx
   ELSEIF (@op1 == 1)
   z = bb/qq+ww-xx
   ELSEIF (@op1 == 2)
   z = cc/qq+ww-xx
   ELSEIF (@op1 == 3)
   z = dd/qq+ww-xx
   ELSEIF (@op1 == 4)
   z = ff/qq+ww-xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq+ww-xx
   ELSEIF (@op1 == 1)
   z = bb*qq+ww-xx
   ELSEIF (@op1 == 2)
   z = cc*qq+ww-xx
   ELSEIF (@op1 == 3)
   z = dd*qq+ww-xx
   ELSEIF (@op1 == 4)
   z = ff*qq+ww-xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq+ww-xx
   ELSEIF (@op1 == 1)
   z = bb-qq+ww-xx
   ELSEIF (@op1 == 2)
   z = cc-qq+ww-xx
   ELSEIF (@op1 == 3)
   z = dd-qq+ww-xx
   ELSEIF (@op1 == 4)
   z = ff-qq+ww-xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq+ww-xx
   ELSEIF (@op1 == 1)
   z = bb+qq+ww-xx
   ELSEIF (@op1 == 2)
   z = cc+qq+ww-xx
   ELSEIF (@op1 == 3)
   z = dd+qq+ww-xx
   ELSEIF (@op1 == 4)
   z = ff+qq+ww-xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq+ww-xx
   ELSEIF (@op1 == 1)
   z = bb^qq+ww-xx
   ELSEIF (@op1 == 2)
   z = cc^qq+ww-xx
   ELSEIF (@op1 == 3)
   z = dd^qq+ww-xx
   ELSEIF (@op1 == 4)
   z = ff^qq+ww-xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq^ww-xx
   ELSEIF (@op1 == 1)
   z = bb/qq^ww-xx
   ELSEIF (@op1 == 2)
   z = cc/qq^ww-xx
   ELSEIF (@op1 == 3)
   z = dd/qq^ww-xx
   ELSEIF (@op1 == 4)
   z = ff/qq^ww-xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq^ww-xx
   ELSEIF (@op1 == 1)
   z = bb*qq^ww-xx
   ELSEIF (@op1 == 2)
   z = cc*qq^ww-xx
   ELSEIF (@op1 == 3)
   z = dd*qq^ww-xx
   ELSEIF (@op1 == 4)
   z = ff*qq^ww-xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq^ww-xx
   ELSEIF (@op1 == 1)
   z = bb-qq^ww-xx
   ELSEIF (@op1 == 2)
   z = cc-qq^ww-xx
   ELSEIF (@op1 == 3)
   z = dd-qq^ww-xx
   ELSEIF (@op1 == 4)
   z = ff-qq^ww-xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq^ww-xx
   ELSEIF (@op1 == 1)
   z = bb+qq^ww-xx
   ELSEIF (@op1 == 2)
   z = cc+qq^ww-xx
   ELSEIF (@op1 == 3)
   z = dd+qq^ww-xx
   ELSEIF (@op1 == 4)
   z = ff+qq^ww-xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq^ww-xx
   ELSEIF (@op1 == 1)
   z = bb^qq^ww-xx
   ELSEIF (@op1 == 2)
   z = cc^qq^ww-xx
   ELSEIF (@op1 == 3)
   z = dd^qq^ww-xx
   ELSEIF (@op1 == 4)
   z = ff^qq^ww-xx
   ENDIF
   ENDIF
   ENDIF
   ELSEIF (@op4 == 3)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq/ww+xx
   ELSEIF (@op1 == 1)
   z = bb/qq/ww+xx
   ELSEIF (@op1 == 2)
   z = cc/qq/ww+xx
   ELSEIF (@op1 == 3)
   z = dd/qq/ww+xx
   ELSEIF (@op1 == 4)
   z = ff/qq/ww+xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq/ww+xx
   ELSEIF (@op1 == 1)
   z = bb*qq/ww+xx
   ELSEIF (@op1 == 2)
   z = cc*qq/ww+xx
   ELSEIF (@op1 == 3)
   z = dd*qq/ww+xx
   ELSEIF (@op1 == 4)
   z = ff*qq/ww+xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq/ww+xx
   ELSEIF (@op1 == 1)
   z = bb-qq/ww+xx
   ELSEIF (@op1 == 2)
   z = cc-qq/ww+xx
   ELSEIF (@op1 == 3)
   z = dd-qq/ww+xx
   ELSEIF (@op1 == 4)
   z = ff-qq/ww+xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq/ww+xx
   ELSEIF (@op1 == 1)
   z = bb+qq/ww+xx
   ELSEIF (@op1 == 2)
   z = cc+qq/ww+xx
   ELSEIF (@op1 == 3)
   z = dd+qq/ww+xx
   ELSEIF (@op1 == 4)
   z = ff+qq/ww+xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq/ww+xx
   ELSEIF (@op1 == 1)
   z = bb^qq/ww+xx
   ELSEIF (@op1 == 2)
   z = cc^qq/ww+xx
   ELSEIF (@op1 == 3)
   z = dd^qq/ww+xx
   ELSEIF (@op1 == 4)
   z = ff^qq/ww+xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq*ww+xx
   ELSEIF (@op1 == 1)
   z = bb/qq*ww+xx
   ELSEIF (@op1 == 2)
   z = cc/qq*ww+xx
   ELSEIF (@op1 == 3)
   z = dd/qq*ww+xx
   ELSEIF (@op1 == 4)
   z = ff/qq*ww+xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq*ww+xx
   ELSEIF (@op1 == 1)
   z = bb*qq*ww+xx
   ELSEIF (@op1 == 2)
   z = cc*qq*ww+xx
   ELSEIF (@op1 == 3)
   z = dd*qq*ww+xx
   ELSEIF (@op1 == 4)
   z = ff*qq*ww+xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq*ww+xx
   ELSEIF (@op1 == 1)
   z = bb-qq*ww+xx
   ELSEIF (@op1 == 2)
   z = cc-qq*ww+xx
   ELSEIF (@op1 == 3)
   z = dd-qq*ww+xx
   ELSEIF (@op1 == 4)
   z = ff-qq*ww+xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq*ww+xx
   ELSEIF (@op1 == 1)
   z = bb+qq*ww+xx
   ELSEIF (@op1 == 2)
   z = cc+qq*ww+xx
   ELSEIF (@op1 == 3)
   z = dd+qq*ww+xx
   ELSEIF (@op1 == 4)
   z = ff+qq*ww+xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq*ww+xx
   ELSEIF (@op1 == 1)
   z = bb^qq*ww+xx
   ELSEIF (@op1 == 2)
   z = cc^qq*ww+xx
   ELSEIF (@op1 == 3)
   z = dd^qq*ww+xx
   ELSEIF (@op1 == 4)
   z = ff^qq*ww+xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq-ww+xx

   ELSEIF (@op1 == 1)
   z = bb/qq-ww+xx
   ELSEIF (@op1 == 2)
   z = cc/qq-ww+xx
   ELSEIF (@op1 == 3)
   z = dd/qq-ww+xx
   ELSEIF (@op1 == 4)
   z = ff/qq-ww+xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq-ww+xx
   ELSEIF (@op1 == 1)
   z = bb*qq-ww+xx
   ELSEIF (@op1 == 2)
   z = cc*qq-ww+xx
   ELSEIF (@op1 == 3)
   z = dd*qq-ww+xx
   ELSEIF (@op1 == 4)
   z = ff*qq-ww+xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq-ww+xx
   ELSEIF (@op1 == 1)
   z = bb-qq-ww+xx
   ELSEIF (@op1 == 2)
   z = cc-qq-ww+xx
   ELSEIF (@op1 == 3)
   z = dd-qq-ww+xx
   ELSEIF (@op1 == 4)
   z = ff-qq-ww+xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq-ww+xx
   ELSEIF (@op1 == 1)
   z = bb+qq-ww+xx
   ELSEIF (@op1 == 2)
   z = cc+qq-ww+xx
   ELSEIF (@op1 == 3)
   z = dd+qq-ww+xx
   ELSEIF (@op1 == 4)
   z = ff+qq-ww+xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq-ww+xx
   ELSEIF (@op1 == 1)
   z = bb^qq-ww+xx
   ELSEIF (@op1 == 2)
   z = cc^qq-ww+xx
   ELSEIF (@op1 == 3)
   z = dd^qq-ww+xx
   ELSEIF (@op1 == 4)
   z = ff^qq-ww+xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq+ww+xx
   ELSEIF (@op1 == 1)
   z = bb/qq+ww+xx
   ELSEIF (@op1 == 2)
   z = cc/qq+ww+xx
   ELSEIF (@op1 == 3)
   z = dd/qq+ww+xx
   ELSEIF (@op1 == 4)
   z = ff/qq+ww+xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq+ww+xx
   ELSEIF (@op1 == 1)
   z = bb*qq+ww+xx
   ELSEIF (@op1 == 2)
   z = cc*qq+ww+xx
   ELSEIF (@op1 == 3)
   z = dd*qq+ww+xx
   ELSEIF (@op1 == 4)
   z = ff*qq+ww+xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq+ww+xx
   ELSEIF (@op1 == 1)
   z = bb-qq+ww+xx
   ELSEIF (@op1 == 2)
   z = cc-qq+ww+xx
   ELSEIF (@op1 == 3)
   z = dd-qq+ww+xx
   ELSEIF (@op1 == 4)
   z = ff-qq+ww+xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq+ww+xx
   ELSEIF (@op1 == 1)
   z = bb+qq+ww+xx
   ELSEIF (@op1 == 2)
   z = cc+qq+ww+xx
   ELSEIF (@op1 == 3)
   z = dd+qq+ww+xx
   ELSEIF (@op1 == 4)
   z = ff+qq+ww+xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq+ww+xx
   ELSEIF (@op1 == 1)
   z = bb^qq+ww+xx
   ELSEIF (@op1 == 2)
   z = cc^qq+ww+xx
   ELSEIF (@op1 == 3)
   z = dd^qq+ww+xx
   ELSEIF (@op1 == 4)
   z = ff^qq+ww+xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq^ww+xx
   ELSEIF (@op1 == 1)
   z = bb/qq^ww+xx
   ELSEIF (@op1 == 2)
   z = cc/qq^ww+xx
   ELSEIF (@op1 == 3)
   z = dd/qq^ww+xx
   ELSEIF (@op1 == 4)
   z = ff/qq^ww+xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq^ww+xx
   ELSEIF (@op1 == 1)
   z = bb*qq^ww+xx
   ELSEIF (@op1 == 2)
   z = cc*qq^ww+xx
   ELSEIF (@op1 == 3)
   z = dd*qq^ww+xx
   ELSEIF (@op1 == 4)
   z = ff*qq^ww+xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq^ww+xx
   ELSEIF (@op1 == 1)
   z = bb-qq^ww+xx
   ELSEIF (@op1 == 2)
   z = cc-qq^ww+xx
   ELSEIF (@op1 == 3)
   z = dd-qq^ww+xx
   ELSEIF (@op1 == 4)
   z = ff-qq^ww+xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq^ww+xx
   ELSEIF (@op1 == 1)
   z = bb+qq^ww+xx
   ELSEIF (@op1 == 2)
   z = cc+qq^ww+xx
   ELSEIF (@op1 == 3)
   z = dd+qq^ww+xx
   ELSEIF (@op1 == 4)
   z = ff+qq^ww+xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq^ww+xx
   ELSEIF (@op1 == 1)
   z = bb^qq^ww+xx
   ELSEIF (@op1 == 2)
   z = cc^qq^ww+xx
   ELSEIF (@op1 == 3)
   z = dd^qq^ww+xx
   ELSEIF (@op1 == 4)
   z = ff^qq^ww+xx
   ENDIF
   ENDIF
   ENDIF
   ELSEIF (@op4 == 4)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq/ww^xx
   ELSEIF (@op1 == 1)
   z = bb/qq/ww^xx
   ELSEIF (@op1 == 2)
   z = cc/qq/ww^xx
   ELSEIF (@op1 == 3)
   z = dd/qq/ww^xx
   ELSEIF (@op1 == 4)
   z = ff/qq/ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq/ww^xx
   ELSEIF (@op1 == 1)
   z = bb*qq/ww^xx
   ELSEIF (@op1 == 2)
   z = cc*qq/ww^xx
   ELSEIF (@op1 == 3)
   z = dd*qq/ww^xx
   ELSEIF (@op1 == 4)
   z = ff*qq/ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq/ww^xx
   ELSEIF (@op1 == 1)
   z = bb-qq/ww^xx
   ELSEIF (@op1 == 2)
   z = cc-qq/ww^xx
   ELSEIF (@op1 == 3)
   z = dd-qq/ww^xx
   ELSEIF (@op1 == 4)
   z = ff-qq/ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq/ww^xx
   ELSEIF (@op1 == 1)
   z = bb+qq/ww^xx
   ELSEIF (@op1 == 2)
   z = cc+qq/ww^xx
   ELSEIF (@op1 == 3)
   z = dd+qq/ww^xx
   ELSEIF (@op1 == 4)
   z = ff+qq/ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq/ww^xx
   ELSEIF (@op1 == 1)
   z = bb^qq/ww^xx
   ELSEIF (@op1 == 2)
   z = cc^qq/ww^xx
   ELSEIF (@op1 == 3)
   z = dd^qq/ww^xx
   ELSEIF (@op1 == 4)
   z = ff^qq/ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq*ww^xx
   ELSEIF (@op1 == 1)
   z = bb/qq*ww^xx
   ELSEIF (@op1 == 2)
   z = cc/qq*ww^xx
   ELSEIF (@op1 == 3)
   z = dd/qq*ww^xx
   ELSEIF (@op1 == 4)
   z = ff/qq*ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq*ww^xx
   ELSEIF (@op1 == 1)
   z = bb*qq*ww^xx
   ELSEIF (@op1 == 2)
   z = cc*qq*ww^xx
   ELSEIF (@op1 == 3)
   z = dd*qq*ww^xx
   ELSEIF (@op1 == 4)
   z = ff*qq*ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq*ww^xx
   ELSEIF (@op1 == 1)
   z = bb-qq*ww^xx
   ELSEIF (@op1 == 2)
   z = cc-qq*ww^xx
   ELSEIF (@op1 == 3)
   z = dd-qq*ww^xx
   ELSEIF (@op1 == 4)
   z = ff-qq*ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq*ww^xx
   ELSEIF (@op1 == 1)
   z = bb+qq*ww^xx
   ELSEIF (@op1 == 2)
   z = cc+qq*ww^xx
   ELSEIF (@op1 == 3)
   z = dd+qq*ww^xx
   ELSEIF (@op1 == 4)
   z = ff+qq*ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq*ww^xx
   ELSEIF (@op1 == 1)
   z = bb^qq*ww^xx
   ELSEIF (@op1 == 2)
   z = cc^qq*ww^xx
   ELSEIF (@op1 == 3)
   z = dd^qq*ww^xx
   ELSEIF (@op1 == 4)
   z = ff^qq*ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq-ww^xx

   ELSEIF (@op1 == 1)
   z = bb/qq-ww^xx
   ELSEIF (@op1 == 2)
   z = cc/qq-ww^xx
   ELSEIF (@op1 == 3)
   z = dd/qq-ww^xx
   ELSEIF (@op1 == 4)
   z = ff/qq-ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq-ww^xx
   ELSEIF (@op1 == 1)
   z = bb*qq-ww^xx
   ELSEIF (@op1 == 2)
   z = cc*qq-ww^xx
   ELSEIF (@op1 == 3)
   z = dd*qq-ww^xx
   ELSEIF (@op1 == 4)
   z = ff*qq-ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq-ww^xx
   ELSEIF (@op1 == 1)
   z = bb-qq-ww^xx
   ELSEIF (@op1 == 2)
   z = cc-qq-ww^xx
   ELSEIF (@op1 == 3)
   z = dd-qq-ww^xx
   ELSEIF (@op1 == 4)
   z = ff-qq-ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq-ww^xx
   ELSEIF (@op1 == 1)
   z = bb+qq-ww^xx
   ELSEIF (@op1 == 2)
   z = cc+qq-ww^xx
   ELSEIF (@op1 == 3)
   z = dd+qq-ww^xx
   ELSEIF (@op1 == 4)
   z = ff+qq-ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq-ww^xx
   ELSEIF (@op1 == 1)
   z = bb^qq-ww^xx
   ELSEIF (@op1 == 2)
   z = cc^qq-ww^xx
   ELSEIF (@op1 == 3)
   z = dd^qq-ww^xx
   ELSEIF (@op1 == 4)
   z = ff^qq-ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq+ww^xx
   ELSEIF (@op1 == 1)
   z = bb/qq+ww^xx
   ELSEIF (@op1 == 2)
   z = cc/qq+ww^xx
   ELSEIF (@op1 == 3)
   z = dd/qq+ww^xx
   ELSEIF (@op1 == 4)
   z = ff/qq+ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq+ww^xx
   ELSEIF (@op1 == 1)
   z = bb*qq+ww^xx
   ELSEIF (@op1 == 2)
   z = cc*qq+ww^xx
   ELSEIF (@op1 == 3)
   z = dd*qq+ww^xx
   ELSEIF (@op1 == 4)
   z = ff*qq+ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq+ww^xx
   ELSEIF (@op1 == 1)
   z = bb-qq+ww^xx
   ELSEIF (@op1 == 2)
   z = cc-qq+ww^xx
   ELSEIF (@op1 == 3)
   z = dd-qq+ww^xx
   ELSEIF (@op1 == 4)
   z = ff-qq+ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq+ww^xx
   ELSEIF (@op1 == 1)
   z = bb+qq+ww^xx
   ELSEIF (@op1 == 2)
   z = cc+qq+ww^xx
   ELSEIF (@op1 == 3)
   z = dd+qq+ww^xx
   ELSEIF (@op1 == 4)
   z = ff+qq+ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq+ww^xx
   ELSEIF (@op1 == 1)
   z = bb^qq+ww^xx
   ELSEIF (@op1 == 2)
   z = cc^qq+ww^xx
   ELSEIF (@op1 == 3)
   z = dd^qq+ww^xx
   ELSEIF (@op1 == 4)
   z = ff^qq+ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq^ww^xx
   ELSEIF (@op1 == 1)
   z = bb/qq^ww^xx
   ELSEIF (@op1 == 2)
   z = cc/qq^ww^xx
   ELSEIF (@op1 == 3)
   z = dd/qq^ww^xx
   ELSEIF (@op1 == 4)
   z = ff/qq^ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq^ww^xx
   ELSEIF (@op1 == 1)
   z = bb*qq^ww^xx
   ELSEIF (@op1 == 2)
   z = cc*qq^ww^xx
   ELSEIF (@op1 == 3)
   z = dd*qq^ww^xx
   ELSEIF (@op1 == 4)
   z = ff*qq^ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq^ww^xx
   ELSEIF (@op1 == 1)
   z = bb-qq^ww^xx
   ELSEIF (@op1 == 2)
   z = cc-qq^ww^xx
   ELSEIF (@op1 == 3)
   z = dd-qq^ww^xx
   ELSEIF (@op1 == 4)
   z = ff-qq^ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq^ww^xx
   ELSEIF (@op1 == 1)
   z = bb+qq^ww^xx
   ELSEIF (@op1 == 2)
   z = cc+qq^ww^xx
   ELSEIF (@op1 == 3)
   z = dd+qq^ww^xx
   ELSEIF (@op1 == 4)
   z = ff+qq^ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq^ww^xx
   ELSEIF (@op1 == 1)
   z = bb^qq^ww^xx
   ELSEIF (@op1 == 2)
   z = cc^qq^ww^xx
   ELSEIF (@op1 == 3)
   z = dd^qq^ww^xx
   ELSEIF (@op1 == 4)
   z = ff^qq^ww^xx
   ENDIF
   ENDIF
   ENDIF
   ENDIF
  bailout:
  |z| < real(@bailout)
  switch:
  type = "DragonAtom02Julia"
  seed = #pixel
  bailout = bailout
  power = @power
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  budge = @budge
  nudge = @nudge
  kludge = @kludge
  op1 = @op1 
  op2 = @op2
  op3 = @op3
  op4 = @op4
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4   
default:
  title = "Dragon Atom 02"
  param start
  default = (2.2,0)
  endparam
  param bailout
  default = (2.0,0)
  endparam
  param power 
  default = (1.0,0)
  endparam
  param op1
  caption = "operator 1"
  default = 0
  enum = "/""*""-""+""^"
  endparam
  param op2
  caption = "operator 2"
  default = 2
  enum = "/""*""-""+""^"
  endparam
  param op3
  caption = "operator 3"
  default = 1
  enum = "/""*""-""+""^"
  endparam
  param op4
  caption = "operator 4"
  default = 4
  enum = "/""*""-""+""^"
  endparam
  param exp1
  caption = "exponent 1"
  default = (1.0,0)
  endparam
  param exp2
  caption = "exponent 2"
  default = (1.0,0)
  endparam
  param exp3
  caption = "exponent 3"
  default = (1.0,0)
  endparam
  param exp4
  caption = "exponent 4"
  default = (1.0,0)
  endparam

  func fn1
  caption = "Function 1"
  default = atan()
  endfunc
  func fn2
  caption = "Function 2"
  default = abs()
  endfunc
  func fn3
  caption = "Function 3"
  default = tan()
  endfunc
  func fn4
  caption = "Function 4"
  default = ident()
  endfunc
    func fn5
  caption = "Function 5"
  default = ident()
  endfunc
  func fn6
  caption = "Function 6"
  default = ident()
  endfunc
  periodicity = 0
}
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
DragonAtom02Julia {
;Toby Marshall, Dec. 2001, rev.1 

;Special thanks to Ken Childress,  
;Jos Leys, Erik Nathan Reckase, 
;Mark Townsend and Frederik Slijkerman  
;for their suggestions and advice.

;Please see tma.txt for help and hints.

;Have fun!

init:
  z = #pixel
loop:
aa = fn1(@seed^@exp4/fn4(z-@kludge))
bb = fn1(@seed^@exp4*fn4(z-@kludge))
cc = fn1(@seed^@exp4-fn4(z-@kludge))
dd = fn1(@seed^@exp4+fn4(z-@kludge))
ff = fn1(@seed^@exp4^fn4(z-@kludge))
qq = fn2(@seed^@exp1-@power)*fn3(z-@budge)
ww = @fn5(real(@seed^@exp2*@power))
xx = @fn6(imag(@seed^@exp3/@power))-@nudge
IF (@op4 == 0)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq/ww/xx
   ELSEIF (@op1 == 1)
   z = bb/qq/ww/xx
   ELSEIF (@op1 == 2)
   z = cc/qq/ww/xx
   ELSEIF (@op1 == 3)
   z = dd/qq/ww/xx
   ELSEIF (@op1 == 4)
   z = ff/qq/ww/xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq/ww/xx
   ELSEIF (@op1 == 1)
   z = bb*qq/ww/xx
   ELSEIF (@op1 == 2)
   z = cc*qq/ww/xx
   ELSEIF (@op1 == 3)
   z = dd*qq/ww/xx
   ELSEIF (@op1 == 4)
   z = ff*qq/ww/xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq/ww/xx
   ELSEIF (@op1 == 1)
   z = bb-qq/ww/xx
   ELSEIF (@op1 == 2)
   z = cc-qq/ww/xx
   ELSEIF (@op1 == 3)
   z = dd-qq/ww/xx
   ELSEIF (@op1 == 4)
   z = ff-qq/ww/xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq/ww/xx
   ELSEIF (@op1 == 1)
   z = bb+qq/ww/xx
   ELSEIF (@op1 == 2)
   z = cc+qq/ww/xx
   ELSEIF (@op1 == 3)
   z = dd+qq/ww/xx
   ELSEIF (@op1 == 4)
   z = ff+qq/ww/xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq/ww/xx
   ELSEIF (@op1 == 1)
   z = bb^qq/ww/xx
   ELSEIF (@op1 == 2)
   z = cc^qq/ww/xx
   ELSEIF (@op1 == 3)
   z = dd^qq/ww/xx
   ELSEIF (@op1 == 4)
   z = ff^qq/ww/xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq*ww/xx
   ELSEIF (@op1 == 1)
   z = bb/qq*ww/xx
   ELSEIF (@op1 == 2)
   z = cc/qq*ww/xx
   ELSEIF (@op1 == 3)
   z = dd/qq*ww/xx
   ELSEIF (@op1 == 4)
   z = ff/qq*ww/xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq*ww/xx
   ELSEIF (@op1 == 1)
   z = bb*qq*ww/xx
   ELSEIF (@op1 == 2)
   z = cc*qq*ww/xx
   ELSEIF (@op1 == 3)
   z = dd*qq*ww/xx
   ELSEIF (@op1 == 4)
   z = ff*qq*ww/xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq*ww/xx
   ELSEIF (@op1 == 1)
   z = bb-qq*ww/xx
   ELSEIF (@op1 == 2)
   z = cc-qq*ww/xx
   ELSEIF (@op1 == 3)
   z = dd-qq*ww/xx
   ELSEIF (@op1 == 4)
   z = ff-qq*ww/xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq*ww/xx
   ELSEIF (@op1 == 1)
   z = bb+qq*ww/xx
   ELSEIF (@op1 == 2)
   z = cc+qq*ww/xx
   ELSEIF (@op1 == 3)
   z = dd+qq*ww/xx
   ELSEIF (@op1 == 4)
   z = ff+qq*ww/xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq*ww/xx
   ELSEIF (@op1 == 1)
   z = bb^qq*ww/xx
   ELSEIF (@op1 == 2)
   z = cc^qq*ww/xx
   ELSEIF (@op1 == 3)
   z = dd^qq*ww/xx
   ELSEIF (@op1 == 4)
   z = ff^qq*ww/xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq-ww/xx
   ELSEIF (@op1 == 1)
   z = bb/qq-ww/xx
   ELSEIF (@op1 == 2)
   z = cc/qq-ww/xx
   ELSEIF (@op1 == 3)
   z = dd/qq-ww/xx
   ELSEIF (@op1 == 4)
   z = ff/qq-ww/xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq-ww/xx
   ELSEIF (@op1 == 1)
   z = bb*qq-ww/xx
   ELSEIF (@op1 == 2)
   z = cc*qq-ww/xx
   ELSEIF (@op1 == 3)
   z = dd*qq-ww/xx
   ELSEIF (@op1 == 4)
   z = ff*qq-ww/xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq-ww/xx
   ELSEIF (@op1 == 1)
   z = bb-qq-ww/xx
   ELSEIF (@op1 == 2)
   z = cc-qq-ww/xx
   ELSEIF (@op1 == 3)
   z = dd-qq-ww/xx
   ELSEIF (@op1 == 4)
   z = ff-qq-ww/xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq-ww/xx
   ELSEIF (@op1 == 1)
   z = bb+qq-ww/xx
   ELSEIF (@op1 == 2)
   z = cc+qq-ww/xx
   ELSEIF (@op1 == 3)
   z = dd+qq-ww/xx
   ELSEIF (@op1 == 4)
   z = ff+qq-ww/xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq-ww/xx
   ELSEIF (@op1 == 1)
   z = bb^qq-ww/xx
   ELSEIF (@op1 == 2)
   z = cc^qq-ww/xx
   ELSEIF (@op1 == 3)
   z = dd^qq-ww/xx
   ELSEIF (@op1 == 4)
   z = ff^qq-ww/xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq+ww/xx
   ELSEIF (@op1 == 1)
   z = bb/qq+ww/xx
   ELSEIF (@op1 == 2)
   z = cc/qq+ww/xx
   ELSEIF (@op1 == 3)
   z = dd/qq+ww/xx
   ELSEIF (@op1 == 4)
   z = ff/qq+ww/xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq+ww/xx
   ELSEIF (@op1 == 1)
   z = bb*qq+ww/xx
   ELSEIF (@op1 == 2)
   z = cc*qq+ww/xx
   ELSEIF (@op1 == 3)
   z = dd*qq+ww/xx
   ELSEIF (@op1 == 4)
   z = ff*qq+ww/xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq+ww/xx
   ELSEIF (@op1 == 1)
   z = bb-qq+ww/xx
   ELSEIF (@op1 == 2)
   z = cc-qq+ww/xx
   ELSEIF (@op1 == 3)
   z = dd-qq+ww/xx
   ELSEIF (@op1 == 4)
   z = ff-qq+ww/xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq+ww/xx
   ELSEIF (@op1 == 1)
   z = bb+qq+ww/xx
   ELSEIF (@op1 == 2)
   z = cc+qq+ww/xx
   ELSEIF (@op1 == 3)
   z = dd+qq+ww/xx
   ELSEIF (@op1 == 4)
   z = ff+qq+ww/xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq+ww/xx
   ELSEIF (@op1 == 1)
   z = bb^qq+ww/xx
   ELSEIF (@op1 == 2)
   z = cc^qq+ww/xx
   ELSEIF (@op1 == 3)
   z = dd^qq+ww/xx
   ELSEIF (@op1 == 4)
   z = ff^qq+ww/xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq^ww/xx
   ELSEIF (@op1 == 1)
   z = bb/qq^ww/xx
   ELSEIF (@op1 == 2)
   z = cc/qq^ww/xx
   ELSEIF (@op1 == 3)
   z = dd/qq^ww/xx
   ELSEIF (@op1 == 4)
   z = ff/qq^ww/xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq^ww/xx
   ELSEIF (@op1 == 1)
   z = bb*qq^ww/xx
   ELSEIF (@op1 == 2)
   z = cc*qq^ww/xx
   ELSEIF (@op1 == 3)
   z = dd*qq^ww/xx
   ELSEIF (@op1 == 4)
   z = ff*qq^ww/xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq^ww/xx
   ELSEIF (@op1 == 1)
   z = bb-qq^ww/xx
   ELSEIF (@op1 == 2)
   z = cc-qq^ww/xx
   ELSEIF (@op1 == 3)
   z = dd-qq^ww/xx
   ELSEIF (@op1 == 4)
   z = ff-qq^ww/xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq^ww/xx
   ELSEIF (@op1 == 1)
   z = bb+qq^ww/xx
   ELSEIF (@op1 == 2)
   z = cc+qq^ww/xx
   ELSEIF (@op1 == 3)
   z = dd+qq^ww/xx
   ELSEIF (@op1 == 4)
   z = ff+qq^ww/xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq^ww/xx
   ELSEIF (@op1 == 1)
   z = bb^qq^ww/xx
   ELSEIF (@op1 == 2)
   z = cc^qq^ww/xx
   ELSEIF (@op1 == 3)
   z = dd^qq^ww/xx
   ELSEIF (@op1 == 4)
   z = ff^qq^ww/xx
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 1)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq/ww*xx
   ELSEIF (@op1 == 1)
   z = bb/qq/ww*xx
   ELSEIF (@op1 == 2)
   z = cc/qq/ww*xx
   ELSEIF (@op1 == 3)
   z = dd/qq/ww*xx
   ELSEIF (@op1 == 4)
   z = ff/qq/ww*xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq/ww*xx
   ELSEIF (@op1 == 1)
   z = bb*qq/ww*xx
   ELSEIF (@op1 == 2)
   z = cc*qq/ww*xx
   ELSEIF (@op1 == 3)
   z = dd*qq/ww*xx
   ELSEIF (@op1 == 4)
   z = ff*qq/ww*xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq/ww*xx
   ELSEIF (@op1 == 1)
   z = bb-qq/ww*xx
   ELSEIF (@op1 == 2)
   z = cc-qq/ww*xx
   ELSEIF (@op1 == 3)
   z = dd-qq/ww*xx
   ELSEIF (@op1 == 4)
   z = ff-qq/ww*xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq/ww*xx
   ELSEIF (@op1 == 1)
   z = bb+qq/ww*xx
   ELSEIF (@op1 == 2)
   z = cc+qq/ww*xx
   ELSEIF (@op1 == 3)
   z = dd+qq/ww*xx
   ELSEIF (@op1 == 4)
   z = ff+qq/ww*xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq/ww*xx
   ELSEIF (@op1 == 1)
   z = bb^qq/ww*xx
   ELSEIF (@op1 == 2)
   z = cc^qq/ww*xx
   ELSEIF (@op1 == 3)
   z = dd^qq/ww*xx
   ELSEIF (@op1 == 4)
   z = ff^qq/ww*xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq*ww*xx
   ELSEIF (@op1 == 1)
   z = bb/qq*ww*xx
   ELSEIF (@op1 == 2)
   z = cc/qq*ww*xx
   ELSEIF (@op1 == 3)
   z = dd/qq*ww*xx
   ELSEIF (@op1 == 4)
   z = ff/qq*ww*xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq*ww*xx
   ELSEIF (@op1 == 1)
   z = bb*qq*ww*xx
   ELSEIF (@op1 == 2)
   z = cc*qq*ww*xx
   ELSEIF (@op1 == 3)
   z = dd*qq*ww*xx
   ELSEIF (@op1 == 4)
   z = ff*qq*ww*xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq*ww*xx
   ELSEIF (@op1 == 1)
   z = bb-qq*ww*xx
   ELSEIF (@op1 == 2)
   z = cc-qq*ww*xx
   ELSEIF (@op1 == 3)
   z = dd-qq*ww*xx
   ELSEIF (@op1 == 4)
   z = ff-qq*ww*xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq*ww*xx
   ELSEIF (@op1 == 1)
   z = bb+qq*ww*xx
   ELSEIF (@op1 == 2)
   z = cc+qq*ww*xx
   ELSEIF (@op1 == 3)
   z = dd+qq*ww*xx
   ELSEIF (@op1 == 4)
   z = ff+qq*ww*xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq*ww*xx
   ELSEIF (@op1 == 1)
   z = bb^qq*ww*xx
   ELSEIF (@op1 == 2)
   z = cc^qq*ww*xx
   ELSEIF (@op1 == 3)
   z = dd^qq*ww*xx
   ELSEIF (@op1 == 4)
   z = ff^qq*ww*xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq-ww*xx
   ELSEIF (@op1 == 1)
   z = bb/qq-ww*xx
   ELSEIF (@op1 == 2)
   z = cc/qq-ww*xx
   ELSEIF (@op1 == 3)
   z = dd/qq-ww*xx
   ELSEIF (@op1 == 4)
   z = ff/qq-ww*xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq-ww*xx
   ELSEIF (@op1 == 1)
   z = bb*qq-ww*xx
   ELSEIF (@op1 == 2)
   z = cc*qq-ww*xx
   ELSEIF (@op1 == 3)
   z = dd*qq-ww*xx
   ELSEIF (@op1 == 4)
   z = ff*qq-ww*xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq-ww*xx
   ELSEIF (@op1 == 1)
   z = bb-qq-ww*xx
   ELSEIF (@op1 == 2)
   z = cc-qq-ww*xx
   ELSEIF (@op1 == 3)
   z = dd-qq-ww*xx
   ELSEIF (@op1 == 4)
   z = ff-qq-ww*xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq-ww*xx
   ELSEIF (@op1 == 1)
   z = bb+qq-ww*xx
   ELSEIF (@op1 == 2)
   z = cc+qq-ww*xx
   ELSEIF (@op1 == 3)
   z = dd+qq-ww*xx
   ELSEIF (@op1 == 4)
   z = ff+qq-ww*xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq-ww*xx
   ELSEIF (@op1 == 1)
   z = bb^qq-ww*xx
   ELSEIF (@op1 == 2)
   z = cc^qq-ww*xx
   ELSEIF (@op1 == 3)
   z = dd^qq-ww*xx
   ELSEIF (@op1 == 4)
   z = ff^qq-ww*xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq+ww*xx
   ELSEIF (@op1 == 1)
   z = bb/qq+ww*xx
   ELSEIF (@op1 == 2)
   z = cc/qq+ww*xx
   ELSEIF (@op1 == 3)
   z = dd/qq+ww*xx
   ELSEIF (@op1 == 4)
   z = ff/qq+ww*xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq+ww*xx
   ELSEIF (@op1 == 1)
   z = bb*qq+ww*xx
   ELSEIF (@op1 == 2)
   z = cc*qq+ww*xx
   ELSEIF (@op1 == 3)
   z = dd*qq+ww*xx
   ELSEIF (@op1 == 4)
   z = ff*qq+ww*xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq+ww*xx
   ELSEIF (@op1 == 1)
   z = bb-qq+ww*xx
   ELSEIF (@op1 == 2)
   z = cc-qq+ww*xx
   ELSEIF (@op1 == 3)
   z = dd-qq+ww*xx
   ELSEIF (@op1 == 4)
   z = ff-qq+ww*xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq+ww*xx
   ELSEIF (@op1 == 1)
   z = bb+qq+ww*xx
   ELSEIF (@op1 == 2)
   z = cc+qq+ww*xx
   ELSEIF (@op1 == 3)
   z = dd+qq+ww*xx
   ELSEIF (@op1 == 4)
   z = ff+qq+ww*xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq+ww*xx
   ELSEIF (@op1 == 1)
   z = bb^qq+ww*xx
   ELSEIF (@op1 == 2)
   z = cc^qq+ww*xx
   ELSEIF (@op1 == 3)
   z = dd^qq+ww*xx
   ELSEIF (@op1 == 4)
   z = ff^qq+ww*xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq^ww*xx
   ELSEIF (@op1 == 1)
   z = bb/qq^ww*xx
   ELSEIF (@op1 == 2)
   z = cc/qq^ww*xx
   ELSEIF (@op1 == 3)
   z = dd/qq^ww*xx
   ELSEIF (@op1 == 4)
   z = ff/qq^ww*xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq^ww*xx
   ELSEIF (@op1 == 1)
   z = bb*qq^ww*xx
   ELSEIF (@op1 == 2)
   z = cc*qq^ww*xx
   ELSEIF (@op1 == 3)
   z = dd*qq^ww*xx
   ELSEIF (@op1 == 4)
   z = ff*qq^ww*xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq^ww*xx
   ELSEIF (@op1 == 1)
   z = bb-qq^ww*xx
   ELSEIF (@op1 == 2)
   z = cc-qq^ww*xx
   ELSEIF (@op1 == 3)
   z = dd-qq^ww*xx
   ELSEIF (@op1 == 4)
   z = ff-qq^ww*xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq^ww*xx
   ELSEIF (@op1 == 1)
   z = bb+qq^ww*xx
   ELSEIF (@op1 == 2)
   z = cc+qq^ww*xx
   ELSEIF (@op1 == 3)
   z = dd+qq^ww*xx
   ELSEIF (@op1 == 4)
   z = ff+qq^ww*xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq^ww*xx
   ELSEIF (@op1 == 1)
   z = bb^qq^ww*xx
   ELSEIF (@op1 == 2)
   z = cc^qq^ww*xx
   ELSEIF (@op1 == 3)
   z = dd^qq^ww*xx
   ELSEIF (@op1 == 4)
   z = ff^qq^ww*xx
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 2)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq/ww-xx
   ELSEIF (@op1 == 1)
   z = bb/qq/ww-xx
   ELSEIF (@op1 == 2)
   z = cc/qq/ww-xx
   ELSEIF (@op1 == 3)
   z = dd/qq/ww-xx
   ELSEIF (@op1 == 4)
   z = ff/qq/ww-xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq/ww-xx
   ELSEIF (@op1 == 1)
   z = bb*qq/ww-xx
   ELSEIF (@op1 == 2)
   z = cc*qq/ww-xx
   ELSEIF (@op1 == 3)
   z = dd*qq/ww-xx
   ELSEIF (@op1 == 4)
   z = ff*qq/ww-xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq/ww-xx
   ELSEIF (@op1 == 1)
   z = bb-qq/ww-xx
   ELSEIF (@op1 == 2)
   z = cc-qq/ww-xx
   ELSEIF (@op1 == 3)
   z = dd-qq/ww-xx
   ELSEIF (@op1 == 4)
   z = ff-qq/ww-xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq/ww-xx
   ELSEIF (@op1 == 1)
   z = bb+qq/ww-xx
   ELSEIF (@op1 == 2)
   z = cc+qq/ww-xx
   ELSEIF (@op1 == 3)
   z = dd+qq/ww-xx
   ELSEIF (@op1 == 4)
   z = ff+qq/ww-xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq/ww-xx
   ELSEIF (@op1 == 1)
   z = bb^qq/ww-xx
   ELSEIF (@op1 == 2)
   z = cc^qq/ww-xx
   ELSEIF (@op1 == 3)
   z = dd^qq/ww-xx
   ELSEIF (@op1 == 4)
   z = ff^qq/ww-xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq*ww-xx
   ELSEIF (@op1 == 1)
   z = bb/qq*ww-xx
   ELSEIF (@op1 == 2)
   z = cc/qq*ww-xx
   ELSEIF (@op1 == 3)
   z = dd/qq*ww-xx
   ELSEIF (@op1 == 4)
   z = ff/qq*ww-xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq*ww-xx
   ELSEIF (@op1 == 1)
   z = bb*qq*ww-xx

   ELSEIF (@op1 == 2)
   z = cc*qq*ww-xx
   ELSEIF (@op1 == 3)
   z = dd*qq*ww-xx
   ELSEIF (@op1 == 4)
   z = ff*qq*ww-xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq*ww-xx
   ELSEIF (@op1 == 1)
   z = bb-qq*ww-xx
   ELSEIF (@op1 == 2)
   z = cc-qq*ww-xx
   ELSEIF (@op1 == 3)
   z = dd-qq*ww-xx
   ELSEIF (@op1 == 4)
   z = ff-qq*ww-xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq*ww-xx
   ELSEIF (@op1 == 1)
   z = bb+qq*ww-xx
   ELSEIF (@op1 == 2)
   z = cc+qq*ww-xx
   ELSEIF (@op1 == 3)
   z = dd+qq*ww-xx
   ELSEIF (@op1 == 4)
   z = ff+qq*ww-xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq*ww-xx
   ELSEIF (@op1 == 1)
   z = bb^qq*ww-xx
   ELSEIF (@op1 == 2)
   z = cc^qq*ww-xx
   ELSEIF (@op1 == 3)
   z = dd^qq*ww-xx
   ELSEIF (@op1 == 4)
   z = ff^qq*ww-xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq-ww-xx

   ELSEIF (@op1 == 1)
   z = bb/qq-ww-xx
   ELSEIF (@op1 == 2)
   z = cc/qq-ww-xx
   ELSEIF (@op1 == 3)
   z = dd/qq-ww-xx
   ELSEIF (@op1 == 4)
   z = ff/qq-ww-xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq-ww-xx
   ELSEIF (@op1 == 1)
   z = bb*qq-ww-xx
   ELSEIF (@op1 == 2)
   z = cc*qq-ww-xx
   ELSEIF (@op1 == 3)
   z = dd*qq-ww-xx
   ELSEIF (@op1 == 4)
   z = ff*qq-ww-xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq-ww-xx
   ELSEIF (@op1 == 1)
   z = bb-qq-ww-xx
   ELSEIF (@op1 == 2)
   z = cc-qq-ww-xx
   ELSEIF (@op1 == 3)
   z = dd-qq-ww-xx
   ELSEIF (@op1 == 4)
   z = ff-qq-ww-xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq-ww-xx
   ELSEIF (@op1 == 1)
   z = bb+qq-ww-xx
   ELSEIF (@op1 == 2)
   z = cc+qq-ww-xx
   ELSEIF (@op1 == 3)
   z = dd+qq-ww-xx
   ELSEIF (@op1 == 4)
   z = ff+qq-ww-xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq-ww-xx
   ELSEIF (@op1 == 1)
   z = bb^qq-ww-xx
   ELSEIF (@op1 == 2)
   z = cc^qq-ww-xx
   ELSEIF (@op1 == 3)
   z = dd^qq-ww-xx
   ELSEIF (@op1 == 4)
   z = ff^qq-ww-xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq+ww-xx
   ELSEIF (@op1 == 1)
   z = bb/qq+ww-xx
   ELSEIF (@op1 == 2)
   z = cc/qq+ww-xx
   ELSEIF (@op1 == 3)
   z = dd/qq+ww-xx
   ELSEIF (@op1 == 4)
   z = ff/qq+ww-xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq+ww-xx
   ELSEIF (@op1 == 1)
   z = bb*qq+ww-xx
   ELSEIF (@op1 == 2)
   z = cc*qq+ww-xx
   ELSEIF (@op1 == 3)
   z = dd*qq+ww-xx
   ELSEIF (@op1 == 4)
   z = ff*qq+ww-xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq+ww-xx
   ELSEIF (@op1 == 1)
   z = bb-qq+ww-xx
   ELSEIF (@op1 == 2)
   z = cc-qq+ww-xx
   ELSEIF (@op1 == 3)
   z = dd-qq+ww-xx
   ELSEIF (@op1 == 4)
   z = ff-qq+ww-xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq+ww-xx
   ELSEIF (@op1 == 1)
   z = bb+qq+ww-xx
   ELSEIF (@op1 == 2)
   z = cc+qq+ww-xx
   ELSEIF (@op1 == 3)
   z = dd+qq+ww-xx
   ELSEIF (@op1 == 4)
   z = ff+qq+ww-xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq+ww-xx
   ELSEIF (@op1 == 1)
   z = bb^qq+ww-xx
   ELSEIF (@op1 == 2)
   z = cc^qq+ww-xx
   ELSEIF (@op1 == 3)
   z = dd^qq+ww-xx
   ELSEIF (@op1 == 4)
   z = ff^qq+ww-xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq^ww-xx
   ELSEIF (@op1 == 1)
   z = bb/qq^ww-xx
   ELSEIF (@op1 == 2)
   z = cc/qq^ww-xx
   ELSEIF (@op1 == 3)
   z = dd/qq^ww-xx
   ELSEIF (@op1 == 4)
   z = ff/qq^ww-xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq^ww-xx
   ELSEIF (@op1 == 1)
   z = bb*qq^ww-xx
   ELSEIF (@op1 == 2)
   z = cc*qq^ww-xx
   ELSEIF (@op1 == 3)
   z = dd*qq^ww-xx
   ELSEIF (@op1 == 4)
   z = ff*qq^ww-xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq^ww-xx
   ELSEIF (@op1 == 1)
   z = bb-qq^ww-xx
   ELSEIF (@op1 == 2)
   z = cc-qq^ww-xx
   ELSEIF (@op1 == 3)
   z = dd-qq^ww-xx
   ELSEIF (@op1 == 4)
   z = ff-qq^ww-xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq^ww-xx
   ELSEIF (@op1 == 1)
   z = bb+qq^ww-xx
   ELSEIF (@op1 == 2)
   z = cc+qq^ww-xx
   ELSEIF (@op1 == 3)
   z = dd+qq^ww-xx
   ELSEIF (@op1 == 4)
   z = ff+qq^ww-xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq^ww-xx
   ELSEIF (@op1 == 1)
   z = bb^qq^ww-xx
   ELSEIF (@op1 == 2)
   z = cc^qq^ww-xx
   ELSEIF (@op1 == 3)
   z = dd^qq^ww-xx
   ELSEIF (@op1 == 4)
   z = ff^qq^ww-xx
   ENDIF
   ENDIF
   ENDIF
   ELSEIF (@op4 == 3)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq/ww+xx
   ELSEIF (@op1 == 1)
   z = bb/qq/ww+xx
   ELSEIF (@op1 == 2)
   z = cc/qq/ww+xx
   ELSEIF (@op1 == 3)
   z = dd/qq/ww+xx
   ELSEIF (@op1 == 4)
   z = ff/qq/ww+xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq/ww+xx
   ELSEIF (@op1 == 1)
   z = bb*qq/ww+xx
   ELSEIF (@op1 == 2)
   z = cc*qq/ww+xx
   ELSEIF (@op1 == 3)
   z = dd*qq/ww+xx
   ELSEIF (@op1 == 4)
   z = ff*qq/ww+xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq/ww+xx
   ELSEIF (@op1 == 1)
   z = bb-qq/ww+xx
   ELSEIF (@op1 == 2)
   z = cc-qq/ww+xx
   ELSEIF (@op1 == 3)
   z = dd-qq/ww+xx
   ELSEIF (@op1 == 4)
   z = ff-qq/ww+xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq/ww+xx
   ELSEIF (@op1 == 1)
   z = bb+qq/ww+xx
   ELSEIF (@op1 == 2)
   z = cc+qq/ww+xx
   ELSEIF (@op1 == 3)
   z = dd+qq/ww+xx
   ELSEIF (@op1 == 4)
   z = ff+qq/ww+xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq/ww+xx
   ELSEIF (@op1 == 1)
   z = bb^qq/ww+xx
   ELSEIF (@op1 == 2)
   z = cc^qq/ww+xx
   ELSEIF (@op1 == 3)
   z = dd^qq/ww+xx
   ELSEIF (@op1 == 4)
   z = ff^qq/ww+xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq*ww+xx
   ELSEIF (@op1 == 1)
   z = bb/qq*ww+xx
   ELSEIF (@op1 == 2)
   z = cc/qq*ww+xx
   ELSEIF (@op1 == 3)
   z = dd/qq*ww+xx
   ELSEIF (@op1 == 4)
   z = ff/qq*ww+xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq*ww+xx
   ELSEIF (@op1 == 1)
   z = bb*qq*ww+xx
   ELSEIF (@op1 == 2)
   z = cc*qq*ww+xx
   ELSEIF (@op1 == 3)
   z = dd*qq*ww+xx
   ELSEIF (@op1 == 4)
   z = ff*qq*ww+xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq*ww+xx
   ELSEIF (@op1 == 1)
   z = bb-qq*ww+xx
   ELSEIF (@op1 == 2)
   z = cc-qq*ww+xx
   ELSEIF (@op1 == 3)
   z = dd-qq*ww+xx
   ELSEIF (@op1 == 4)
   z = ff-qq*ww+xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq*ww+xx
   ELSEIF (@op1 == 1)
   z = bb+qq*ww+xx
   ELSEIF (@op1 == 2)
   z = cc+qq*ww+xx
   ELSEIF (@op1 == 3)
   z = dd+qq*ww+xx
   ELSEIF (@op1 == 4)
   z = ff+qq*ww+xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq*ww+xx
   ELSEIF (@op1 == 1)
   z = bb^qq*ww+xx
   ELSEIF (@op1 == 2)
   z = cc^qq*ww+xx
   ELSEIF (@op1 == 3)
   z = dd^qq*ww+xx
   ELSEIF (@op1 == 4)
   z = ff^qq*ww+xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq-ww+xx

   ELSEIF (@op1 == 1)
   z = bb/qq-ww+xx
   ELSEIF (@op1 == 2)
   z = cc/qq-ww+xx
   ELSEIF (@op1 == 3)
   z = dd/qq-ww+xx
   ELSEIF (@op1 == 4)
   z = ff/qq-ww+xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq-ww+xx
   ELSEIF (@op1 == 1)
   z = bb*qq-ww+xx
   ELSEIF (@op1 == 2)
   z = cc*qq-ww+xx
   ELSEIF (@op1 == 3)
   z = dd*qq-ww+xx
   ELSEIF (@op1 == 4)
   z = ff*qq-ww+xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq-ww+xx
   ELSEIF (@op1 == 1)
   z = bb-qq-ww+xx
   ELSEIF (@op1 == 2)
   z = cc-qq-ww+xx
   ELSEIF (@op1 == 3)
   z = dd-qq-ww+xx
   ELSEIF (@op1 == 4)
   z = ff-qq-ww+xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq-ww+xx
   ELSEIF (@op1 == 1)
   z = bb+qq-ww+xx
   ELSEIF (@op1 == 2)
   z = cc+qq-ww+xx
   ELSEIF (@op1 == 3)
   z = dd+qq-ww+xx
   ELSEIF (@op1 == 4)
   z = ff+qq-ww+xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq-ww+xx
   ELSEIF (@op1 == 1)
   z = bb^qq-ww+xx
   ELSEIF (@op1 == 2)
   z = cc^qq-ww+xx
   ELSEIF (@op1 == 3)
   z = dd^qq-ww+xx
   ELSEIF (@op1 == 4)
   z = ff^qq-ww+xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq+ww+xx
   ELSEIF (@op1 == 1)
   z = bb/qq+ww+xx
   ELSEIF (@op1 == 2)
   z = cc/qq+ww+xx
   ELSEIF (@op1 == 3)
   z = dd/qq+ww+xx
   ELSEIF (@op1 == 4)
   z = ff/qq+ww+xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq+ww+xx
   ELSEIF (@op1 == 1)
   z = bb*qq+ww+xx
   ELSEIF (@op1 == 2)
   z = cc*qq+ww+xx
   ELSEIF (@op1 == 3)
   z = dd*qq+ww+xx
   ELSEIF (@op1 == 4)
   z = ff*qq+ww+xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq+ww+xx
   ELSEIF (@op1 == 1)
   z = bb-qq+ww+xx
   ELSEIF (@op1 == 2)
   z = cc-qq+ww+xx
   ELSEIF (@op1 == 3)
   z = dd-qq+ww+xx
   ELSEIF (@op1 == 4)
   z = ff-qq+ww+xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq+ww+xx
   ELSEIF (@op1 == 1)
   z = bb+qq+ww+xx
   ELSEIF (@op1 == 2)
   z = cc+qq+ww+xx
   ELSEIF (@op1 == 3)
   z = dd+qq+ww+xx
   ELSEIF (@op1 == 4)
   z = ff+qq+ww+xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq+ww+xx
   ELSEIF (@op1 == 1)
   z = bb^qq+ww+xx
   ELSEIF (@op1 == 2)
   z = cc^qq+ww+xx
   ELSEIF (@op1 == 3)
   z = dd^qq+ww+xx
   ELSEIF (@op1 == 4)
   z = ff^qq+ww+xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq^ww+xx
   ELSEIF (@op1 == 1)
   z = bb/qq^ww+xx
   ELSEIF (@op1 == 2)
   z = cc/qq^ww+xx
   ELSEIF (@op1 == 3)
   z = dd/qq^ww+xx
   ELSEIF (@op1 == 4)
   z = ff/qq^ww+xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq^ww+xx
   ELSEIF (@op1 == 1)
   z = bb*qq^ww+xx
   ELSEIF (@op1 == 2)
   z = cc*qq^ww+xx
   ELSEIF (@op1 == 3)
   z = dd*qq^ww+xx
   ELSEIF (@op1 == 4)
   z = ff*qq^ww+xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq^ww+xx
   ELSEIF (@op1 == 1)
   z = bb-qq^ww+xx
   ELSEIF (@op1 == 2)
   z = cc-qq^ww+xx
   ELSEIF (@op1 == 3)
   z = dd-qq^ww+xx
   ELSEIF (@op1 == 4)
   z = ff-qq^ww+xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq^ww+xx
   ELSEIF (@op1 == 1)
   z = bb+qq^ww+xx
   ELSEIF (@op1 == 2)
   z = cc+qq^ww+xx
   ELSEIF (@op1 == 3)
   z = dd+qq^ww+xx
   ELSEIF (@op1 == 4)
   z = ff+qq^ww+xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq^ww+xx
   ELSEIF (@op1 == 1)
   z = bb^qq^ww+xx
   ELSEIF (@op1 == 2)
   z = cc^qq^ww+xx
   ELSEIF (@op1 == 3)
   z = dd^qq^ww+xx
   ELSEIF (@op1 == 4)
   z = ff^qq^ww+xx
   ENDIF
   ENDIF
   ENDIF
   ELSEIF (@op4 == 4)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq/ww^xx
   ELSEIF (@op1 == 1)
   z = bb/qq/ww^xx
   ELSEIF (@op1 == 2)
   z = cc/qq/ww^xx
   ELSEIF (@op1 == 3)
   z = dd/qq/ww^xx
   ELSEIF (@op1 == 4)
   z = ff/qq/ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq/ww^xx
   ELSEIF (@op1 == 1)
   z = bb*qq/ww^xx
   ELSEIF (@op1 == 2)
   z = cc*qq/ww^xx
   ELSEIF (@op1 == 3)
   z = dd*qq/ww^xx
   ELSEIF (@op1 == 4)
   z = ff*qq/ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq/ww^xx
   ELSEIF (@op1 == 1)
   z = bb-qq/ww^xx
   ELSEIF (@op1 == 2)
   z = cc-qq/ww^xx
   ELSEIF (@op1 == 3)
   z = dd-qq/ww^xx
   ELSEIF (@op1 == 4)
   z = ff-qq/ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq/ww^xx
   ELSEIF (@op1 == 1)
   z = bb+qq/ww^xx
   ELSEIF (@op1 == 2)
   z = cc+qq/ww^xx
   ELSEIF (@op1 == 3)
   z = dd+qq/ww^xx
   ELSEIF (@op1 == 4)
   z = ff+qq/ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq/ww^xx
   ELSEIF (@op1 == 1)
   z = bb^qq/ww^xx
   ELSEIF (@op1 == 2)
   z = cc^qq/ww^xx
   ELSEIF (@op1 == 3)
   z = dd^qq/ww^xx
   ELSEIF (@op1 == 4)
   z = ff^qq/ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq*ww^xx
   ELSEIF (@op1 == 1)
   z = bb/qq*ww^xx
   ELSEIF (@op1 == 2)
   z = cc/qq*ww^xx
   ELSEIF (@op1 == 3)
   z = dd/qq*ww^xx
   ELSEIF (@op1 == 4)
   z = ff/qq*ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq*ww^xx
   ELSEIF (@op1 == 1)
   z = bb*qq*ww^xx
   ELSEIF (@op1 == 2)
   z = cc*qq*ww^xx
   ELSEIF (@op1 == 3)
   z = dd*qq*ww^xx
   ELSEIF (@op1 == 4)
   z = ff*qq*ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq*ww^xx
   ELSEIF (@op1 == 1)
   z = bb-qq*ww^xx
   ELSEIF (@op1 == 2)
   z = cc-qq*ww^xx
   ELSEIF (@op1 == 3)
   z = dd-qq*ww^xx
   ELSEIF (@op1 == 4)
   z = ff-qq*ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq*ww^xx
   ELSEIF (@op1 == 1)
   z = bb+qq*ww^xx
   ELSEIF (@op1 == 2)
   z = cc+qq*ww^xx
   ELSEIF (@op1 == 3)
   z = dd+qq*ww^xx
   ELSEIF (@op1 == 4)
   z = ff+qq*ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq*ww^xx
   ELSEIF (@op1 == 1)
   z = bb^qq*ww^xx
   ELSEIF (@op1 == 2)
   z = cc^qq*ww^xx
   ELSEIF (@op1 == 3)
   z = dd^qq*ww^xx
   ELSEIF (@op1 == 4)
   z = ff^qq*ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq-ww^xx

   ELSEIF (@op1 == 1)
   z = bb/qq-ww^xx
   ELSEIF (@op1 == 2)
   z = cc/qq-ww^xx
   ELSEIF (@op1 == 3)
   z = dd/qq-ww^xx
   ELSEIF (@op1 == 4)
   z = ff/qq-ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq-ww^xx
   ELSEIF (@op1 == 1)
   z = bb*qq-ww^xx
   ELSEIF (@op1 == 2)
   z = cc*qq-ww^xx
   ELSEIF (@op1 == 3)
   z = dd*qq-ww^xx
   ELSEIF (@op1 == 4)
   z = ff*qq-ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq-ww^xx
   ELSEIF (@op1 == 1)
   z = bb-qq-ww^xx
   ELSEIF (@op1 == 2)
   z = cc-qq-ww^xx
   ELSEIF (@op1 == 3)
   z = dd-qq-ww^xx
   ELSEIF (@op1 == 4)
   z = ff-qq-ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq-ww^xx
   ELSEIF (@op1 == 1)
   z = bb+qq-ww^xx
   ELSEIF (@op1 == 2)
   z = cc+qq-ww^xx
   ELSEIF (@op1 == 3)
   z = dd+qq-ww^xx
   ELSEIF (@op1 == 4)
   z = ff+qq-ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq-ww^xx
   ELSEIF (@op1 == 1)
   z = bb^qq-ww^xx
   ELSEIF (@op1 == 2)
   z = cc^qq-ww^xx
   ELSEIF (@op1 == 3)
   z = dd^qq-ww^xx
   ELSEIF (@op1 == 4)
   z = ff^qq-ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq+ww^xx
   ELSEIF (@op1 == 1)
   z = bb/qq+ww^xx
   ELSEIF (@op1 == 2)
   z = cc/qq+ww^xx
   ELSEIF (@op1 == 3)
   z = dd/qq+ww^xx
   ELSEIF (@op1 == 4)
   z = ff/qq+ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq+ww^xx
   ELSEIF (@op1 == 1)
   z = bb*qq+ww^xx
   ELSEIF (@op1 == 2)
   z = cc*qq+ww^xx
   ELSEIF (@op1 == 3)
   z = dd*qq+ww^xx
   ELSEIF (@op1 == 4)
   z = ff*qq+ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq+ww^xx
   ELSEIF (@op1 == 1)
   z = bb-qq+ww^xx
   ELSEIF (@op1 == 2)
   z = cc-qq+ww^xx
   ELSEIF (@op1 == 3)
   z = dd-qq+ww^xx
   ELSEIF (@op1 == 4)
   z = ff-qq+ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq+ww^xx
   ELSEIF (@op1 == 1)
   z = bb+qq+ww^xx
   ELSEIF (@op1 == 2)
   z = cc+qq+ww^xx
   ELSEIF (@op1 == 3)
   z = dd+qq+ww^xx
   ELSEIF (@op1 == 4)
   z = ff+qq+ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq+ww^xx
   ELSEIF (@op1 == 1)
   z = bb^qq+ww^xx
   ELSEIF (@op1 == 2)
   z = cc^qq+ww^xx
   ELSEIF (@op1 == 3)
   z = dd^qq+ww^xx
   ELSEIF (@op1 == 4)
   z = ff^qq+ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/qq^ww^xx
   ELSEIF (@op1 == 1)
   z = bb/qq^ww^xx
   ELSEIF (@op1 == 2)
   z = cc/qq^ww^xx
   ELSEIF (@op1 == 3)
   z = dd/qq^ww^xx
   ELSEIF (@op1 == 4)
   z = ff/qq^ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*qq^ww^xx
   ELSEIF (@op1 == 1)
   z = bb*qq^ww^xx
   ELSEIF (@op1 == 2)
   z = cc*qq^ww^xx
   ELSEIF (@op1 == 3)
   z = dd*qq^ww^xx
   ELSEIF (@op1 == 4)
   z = ff*qq^ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-qq^ww^xx
   ELSEIF (@op1 == 1)
   z = bb-qq^ww^xx
   ELSEIF (@op1 == 2)
   z = cc-qq^ww^xx
   ELSEIF (@op1 == 3)
   z = dd-qq^ww^xx
   ELSEIF (@op1 == 4)
   z = ff-qq^ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+qq^ww^xx
   ELSEIF (@op1 == 1)
   z = bb+qq^ww^xx
   ELSEIF (@op1 == 2)
   z = cc+qq^ww^xx
   ELSEIF (@op1 == 3)
   z = dd+qq^ww^xx
   ELSEIF (@op1 == 4)
   z = ff+qq^ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^qq^ww^xx
   ELSEIF (@op1 == 1)
   z = bb^qq^ww^xx
   ELSEIF (@op1 == 2)
   z = cc^qq^ww^xx
   ELSEIF (@op1 == 3)
   z = dd^qq^ww^xx
   ELSEIF (@op1 == 4)
   z = ff^qq^ww^xx
   ENDIF
   ENDIF
   ENDIF
   ENDIF
   bailout:
  |z| < real(@bailout)
  switch:
  type = "DragonAtom02"
  bailout = bailout
  power = @power
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  budge = @budge
  nudge = @nudge
  kludge = @kludge
  op1 = @op1 
  op2 = @op2
  op3 = @op3
  op4 = @op4
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4   

  default:
  title = "Dragon Atom 02 Julia"
  center = (0.39, -0.145)
  magn = 1.56
  param seed
  default = (1.0393,.0462)
  endparam
  param bailout
  default = (2.0,0)
  endparam
  param power 
  default = (1.0,0)
  endparam
  param op1
  caption = "operator 1"
  default = 2
  enum = "/""*""-""+""^"
  endparam
  param op2
  caption = "operator 2"
  default = 1
  enum = "/""*""-""+""^"
  endparam
  param op3
  caption = "operator 3"
  default = 1
  enum = "/""*""-""+""^"
  endparam
  param op4
  caption = "operator 4"
  default = 0
  enum = "/""*""-""+""^"
  endparam
  param exp1
  caption = "exponent 1"
  default = (1.0,0)
  endparam
  param exp2
  caption = "exponent 2"
  default = (1.0,0)
  endparam
  param exp3
  caption = "exponent 3"
  default = (1.0,0)
  endparam
  param exp4
  caption = "exponent 4"
  default = (1.0,0)
  endparam

  func fn1
  caption = "Function 1"
  default = atan()
  endfunc
  func fn2
  caption = "Function 2"
  default = abs()
  endfunc
  func fn3
  caption = "Function 3"
  default = tan()
  endfunc
  func fn4
  caption = "Function 4"
  default = ident()
  endfunc
  func fn5
  caption = "Function 5"
  default = ident()
  endfunc
  func fn6
  caption = "Function 6"
  default = ident()
  endfunc
  periodicity = 0
}

*********************************************************************************************************
DragonAtom03 {
;Toby Marshall, Dec. 2001, rev.1

;Differs from Dragon Atom 2 in that 
;"operator 4" modifies a different term
;in the equation. Adds a "grouping" 
;function.

;Choose your parameter and function values 
;then explore the resulting figure with 
;the Julia switch.

;Special thanks to Ken Childress,  
;Jos Leys, Erik Nathan Reckase, 
;Mark Townsend and Frederik Slijkerman  
;for their suggestions and advice.

;Please see tma.txt for help and hints.

;Have fun!

init:
  z = @start
loop:
aa = fn1(#pixel^@exp4/fn4(z-@kludge))
bb = fn1(#pixel^@exp4*fn4(z-@kludge))
cc = fn1(#pixel^@exp4-fn4(z-@kludge))
dd = fn1(#pixel^@exp4+fn4(z-@kludge))
ff = fn1(#pixel^@exp4^fn4(z-@kludge))
za = (fn2(#pixel^@exp1-@power)/fn3(z-@budge))
zb = (fn2(#pixel^@exp1-@power)*fn3(z-@budge))
zc = (fn2(#pixel^@exp1-@power)-fn3(z-@budge))
zd = (fn2(#pixel^@exp1-@power)+fn3(z-@budge))
zf = (fn2(#pixel^@exp1-@power)^fn3(z-@budge))
qq = (@fn5(real(#pixel^@exp2*@power)))
ww = @fn6(imag(#pixel^@exp3/@power))-@nudge
IF (@op5 == 0); group 1
IF (@op4 == 0)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/za/qq^ww
   ELSEIF (@op1 == 1)
   z = bb/za/qq^ww
   ELSEIF (@op1 == 2)
   z = cc/za/qq^ww
   ELSEIF (@op1 == 3)
   z = dd/za/qq^ww
   ELSEIF (@op1 == 4)
   z = ff/za/qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*za/qq^ww
   ELSEIF (@op1 == 1)
   z = bb*za/qq^ww
   ELSEIF (@op1 == 2)
   z = cc*za/qq^ww
   ELSEIF (@op1 == 3)
   z = dd*za/qq^ww
   ELSEIF (@op1 == 4)
   z = ff*za/qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-za/qq^ww
   ELSEIF (@op1 == 1)
   z = bb-za/qq^ww
   ELSEIF (@op1 == 2)
   z = cc-za/qq^ww
   ELSEIF (@op1 == 3)
   z = dd-za/qq^ww
   ELSEIF (@op1 == 4)
   z = ff-za/qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+za/qq^ww
   ELSEIF (@op1 == 1)
   z = bb+za/qq^ww
   ELSEIF (@op1 == 2)
   z = cc+za/qq^ww
   ELSEIF (@op1 == 3)
   z = dd+za/qq^ww
   ELSEIF (@op1 == 4)
   z = ff+za/qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^za/qq^ww
   ELSEIF (@op1 == 1)
   z = bb^za/qq^ww
   ELSEIF (@op1 == 2)
   z = cc^za/qq^ww
   ELSEIF (@op1 == 3)
   z = dd^za/qq^ww
   ELSEIF (@op1 == 4)
   z = ff^za/qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/za*qq^ww
   ELSEIF (@op1 == 1)
   z = bb/za*qq^ww
   ELSEIF (@op1 == 2)
   z = cc/za*qq^ww
   ELSEIF (@op1 == 3)
   z = dd/za*qq^ww
   ELSEIF (@op1 == 4)
   z = ff/za*qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*za*qq^ww
   ELSEIF (@op1 == 1)
   z = bb*za*qq^ww
   ELSEIF (@op1 == 2)
   z = cc*za*qq^ww
   ELSEIF (@op1 == 3)
   z = dd*za*qq^ww
   ELSEIF (@op1 == 4)
   z = ff*za*qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-za*qq^ww
   ELSEIF (@op1 == 1)
   z = bb-za*qq^ww
   ELSEIF (@op1 == 2)
   z = cc-za*qq^ww
   ELSEIF (@op1 == 3)
   z = dd-za*qq^ww
   ELSEIF (@op1 == 4)
   z = ff-za*qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+za*qq^ww
   ELSEIF (@op1 == 1)
   z = bb+za*qq^ww
   ELSEIF (@op1 == 2)
   z = cc+za*qq^ww
   ELSEIF (@op1 == 3)
   z = dd+za*qq^ww
   ELSEIF (@op1 == 4)
   z = ff+za*qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^za*qq^ww
   ELSEIF (@op1 == 1)
   z = bb^za*qq^ww
   ELSEIF (@op1 == 2)
   z = cc^za*qq^ww
   ELSEIF (@op1 == 3)
   z = dd^za*qq^ww
   ELSEIF (@op1 == 4)
   z = ff^za*qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/za-qq^ww
   ELSEIF (@op1 == 1)
   z = bb/za-qq^ww
   ELSEIF (@op1 == 2)
   z = cc/za-qq^ww
   ELSEIF (@op1 == 3)
   z = dd/za-qq^ww
   ELSEIF (@op1 == 4)
   z = ff/za-qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*za-qq^ww
   ELSEIF (@op1 == 1)
   z = bb*za-qq^ww
   ELSEIF (@op1 == 2)
   z = cc*za-qq^ww
   ELSEIF (@op1 == 3)
   z = dd*za-qq^ww
   ELSEIF (@op1 == 4)
   z = ff*za-qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-za-qq^ww
   ELSEIF (@op1 == 1)
   z = bb-za-qq^ww
   ELSEIF (@op1 == 2)
   z = cc-za-qq^ww
   ELSEIF (@op1 == 3)
   z = dd-za-qq^ww
   ELSEIF (@op1 == 4)
   z = ff-za-qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+za-qq^ww
   ELSEIF (@op1 == 1)
   z = bb+za-qq^ww
   ELSEIF (@op1 == 2)
   z = cc+za-qq^ww
   ELSEIF (@op1 == 3)
   z = dd+za-qq^ww
   ELSEIF (@op1 == 4)
   z = ff+za-qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^za-qq^ww
   ELSEIF (@op1 == 1)
   z = bb^za-qq^ww
   ELSEIF (@op1 == 2)
   z = cc^za-qq^ww
   ELSEIF (@op1 == 3)
   z = dd^za-qq^ww
   ELSEIF (@op1 == 4)
   z = ff^za-qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/za+qq^ww
   ELSEIF (@op1 == 1)
   z = bb/za+qq^ww
   ELSEIF (@op1 == 2)
   z = cc/za+qq^ww
   ELSEIF (@op1 == 3)
   z = dd/za+qq^ww
   ELSEIF (@op1 == 4)
   z = ff/za+qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*za+qq^ww
   ELSEIF (@op1 == 1)
   z = bb*za+qq^ww
   ELSEIF (@op1 == 2)
   z = cc*za+qq^ww
   ELSEIF (@op1 == 3)
   z = dd*za+qq^ww
   ELSEIF (@op1 == 4)
   z = ff*za+qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-za+qq^ww
   ELSEIF (@op1 == 1)
   z = bb-za+qq^ww
   ELSEIF (@op1 == 2)
   z = cc-za+qq^ww
   ELSEIF (@op1 == 3)
   z = dd-za+qq^ww
   ELSEIF (@op1 == 4)
   z = ff-za+qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+za+qq^ww
   ELSEIF (@op1 == 1)
   z = bb+za+qq^ww
   ELSEIF (@op1 == 2)
   z = cc+za+qq^ww
   ELSEIF (@op1 == 3)
   z = dd+za+qq^ww
   ELSEIF (@op1 == 4)
   z = ff+za+qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^za+qq^ww
   ELSEIF (@op1 == 1)
   z = bb^za+qq^ww
   ELSEIF (@op1 == 2)
   z = cc^za+qq^ww
   ELSEIF (@op1 == 3)
   z = dd^za+qq^ww
   ELSEIF (@op1 == 4)
   z = ff^za+qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/za^qq^ww
   ELSEIF (@op1 == 1)
   z = bb/za^qq^ww
   ELSEIF (@op1 == 2)
   z = cc/za^qq^ww
   ELSEIF (@op1 == 3)
   z = dd/za^qq^ww
   ELSEIF (@op1 == 4)
   z = ff/za^qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*za^qq^ww
   ELSEIF (@op1 == 1)
   z = bb*za^qq^ww
   ELSEIF (@op1 == 2)
   z = cc*za^qq^ww
   ELSEIF (@op1 == 3)
   z = dd*za^qq^ww
   ELSEIF (@op1 == 4)
   z = ff*za^qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-za^qq^ww
   ELSEIF (@op1 == 1)
   z = bb-za^qq^ww
   ELSEIF (@op1 == 2)
   z = cc-za^qq^ww
   ELSEIF (@op1 == 3)
   z = dd-za^qq^ww
   ELSEIF (@op1 == 4)
   z = ff-za^qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+za^qq^ww
   ELSEIF (@op1 == 1)
   z = bb+za^qq^ww
   ELSEIF (@op1 == 2)
   z = cc+za^qq^ww
   ELSEIF (@op1 == 3)
   z = dd+za^qq^ww
   ELSEIF (@op1 == 4)
   z = ff+za^qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^za^qq^ww
   ELSEIF (@op1 == 1)
   z = bb^za^qq^ww
   ELSEIF (@op1 == 2)
   z = cc^za^qq^ww
   ELSEIF (@op1 == 3)
   z = dd^za^qq^ww
   ELSEIF (@op1 == 4)
   z = ff^za^qq^ww
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 1)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zb/qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zb/qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zb/qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zb/qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zb/qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zb/qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zb/qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zb/qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zb/qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zb/qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zb/qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zb/qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zb/qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zb/qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zb/qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zb/qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zb/qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zb/qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zb/qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zb/qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zb/qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zb/qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zb/qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zb/qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zb/qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zb*qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zb*qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zb*qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zb*qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zb*qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zb*qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zb*qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zb*qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zb*qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zb*qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zb*qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zb*qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zb*qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zb*qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zb*qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zb*qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zb*qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zb*qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zb*qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zb*qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zb*qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zb*qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zb*qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zb*qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zb*qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zb-qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zb-qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zb-qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zb-qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zb-qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zb-qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zb-qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zb-qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zb-qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zb-qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zb-qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zb-qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zb-qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zb-qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zb-qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zb-qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zb-qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zb-qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zb-qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zb-qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zb-qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zb-qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zb-qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zb-qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zb-qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zb+qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zb+qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zb+qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zb+qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zb+qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zb+qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zb+qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zb+qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zb+qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zb+qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zb+qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zb+qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zb+qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zb+qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zb+qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zb+qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zb+qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zb+qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zb+qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zb+qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zb+qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zb+qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zb+qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zb+qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zb+qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zb^qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zb^qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zb^qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zb^qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zb^qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zb^qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zb^qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zb^qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zb^qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zb^qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zb^qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zb^qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zb^qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zb^qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zb^qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zb^qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zb^qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zb^qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zb^qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zb^qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zb^qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zb^qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zb^qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zb^qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zb^qq^ww
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 2)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zc/qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zc/qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zc/qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zc/qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zc/qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zc/qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zc/qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zc/qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zc/qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zc/qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zc/qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zc/qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zc/qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zc/qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zc/qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zc/qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zc/qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zc/qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zc/qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zc/qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zc/qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zc/qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zc/qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zc/qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zc/qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zc*qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zc*qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zc*qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zc*qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zc*qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zc*qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zc*qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zc*qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zc*qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zc*qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zc*qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zc*qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zc*qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zc*qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zc*qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zc*qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zc*qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zc*qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zc*qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zc*qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zc*qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zc*qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zc*qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zc*qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zc*qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zc-qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zc-qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zc-qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zc-qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zc-qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zc-qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zc-qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zc-qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zc-qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zc-qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zc-qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zc-qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zc-qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zc-qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zc-qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zc-qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zc-qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zc-qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zc-qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zc-qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zc-qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zc-qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zc-qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zc-qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zc-qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zc+qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zc+qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zc+qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zc+qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zc+qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zc+qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zc+qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zc+qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zc+qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zc+qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zc+qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zc+qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zc+qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zc+qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zc+qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zc+qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zc+qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zc+qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zc+qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zc+qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zc+qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zc+qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zc+qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zc+qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zc+qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zc^qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zc^qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zc^qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zc^qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zc^qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zc^qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zc^qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zc^qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zc^qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zc^qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zc^qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zc^qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zc^qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zc^qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zc^qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zc^qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zc^qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zc^qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zc^qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zc^qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zc^qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zc^qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zc^qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zc^qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zc^qq^ww
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 3)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zd/qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zd/qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zd/qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zd/qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zd/qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zd/qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zd/qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zd/qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zd/qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zd/qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zd/qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zd/qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zd/qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zd/qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zd/qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zd/qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zd/qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zd/qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zd/qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zd/qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zd/qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zd/qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zd/qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zd/qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zd/qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zd*qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zd*qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zd*qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zd*qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zd*qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zd*qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zd*qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zd*qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zd*qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zd*qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zd*qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zd*qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zd*qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zd*qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zd*qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zd*qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zd*qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zd*qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zd*qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zd*qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zd*qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zd*qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zd*qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zd*qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zd*qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zd-qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zd-qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zd-qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zd-qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zd-qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zd-qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zd-qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zd-qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zd-qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zd-qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zd-qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zd-qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zd-qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zd-qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zd-qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zd-qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zd-qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zd-qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zd-qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zd-qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zd-qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zd-qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zd-qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zd-qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zd-qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zd+qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zd+qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zd+qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zd+qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zd+qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zd+qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zd+qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zd+qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zd+qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zd+qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zd+qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zd+qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zd+qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zd+qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zd+qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zd+qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zd+qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zd+qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zd+qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zd+qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zd+qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zd+qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zd+qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zd+qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zd+qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zd^qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zd^qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zd^qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zd^qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zd^qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zd^qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zd^qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zd^qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zd^qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zd^qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zd^qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zd^qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zd^qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zd^qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zd^qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zd^qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zd^qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zd^qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zd^qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zd^qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zd^qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zd^qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zd^qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zd^qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zd^qq^ww
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 4)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zf/qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zf/qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zf/qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zf/qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zf/qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zf/qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zf/qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zf/qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zf/qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zf/qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zf/qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zf/qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zf/qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zf/qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zf/qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zf/qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zf/qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zf/qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zf/qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zf/qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zf/qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zf/qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zf/qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zf/qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zf/qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zf*qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zf*qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zf*qq^ww

   ELSEIF (@op1 == 3)
   z = dd/zf*qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zf*qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zf*qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zf*qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zf*qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zf*qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zf*qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zf*qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zf*qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zf*qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zf*qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zf*qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zf*qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zf*qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zf*qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zf*qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zf*qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zf*qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zf*qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zf*qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zf*qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zf*qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zf-qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zf-qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zf-qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zf-qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zf-qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zf-qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zf-qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zf-qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zf-qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zf-qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zf-qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zf-qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zf-qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zf-qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zf-qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zf-qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zf-qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zf-qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zf-qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zf-qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zf-qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zf-qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zf-qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zf-qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zf-qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zf+qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zf+qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zf+qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zf+qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zf+qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zf+qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zf+qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zf+qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zf+qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zf+qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zf+qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zf+qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zf+qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zf+qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zf+qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zf+qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zf+qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zf+qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zf+qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zf+qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zf+qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zf+qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zf+qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zf+qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zf+qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zf^qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zf^qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zf^qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zf^qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zf^qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zf^qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zf^qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zf^qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zf^qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zf^qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zf^qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zf^qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zf^qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zf^qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zf^qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zf^qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zf^qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zf^qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zf^qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zf^qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zf^qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zf^qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zf^qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zf^qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zf^qq^ww
   ENDIF
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op5 == 1); group 2
IF (@op4 == 0)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(za/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(za/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(za/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(za/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(za/qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(za/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(za/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(za/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(za/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(za/qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(za/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(za/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(za/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(za/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(za/qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(za/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(za/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(za/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(za/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(za/qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(za/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(za/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(za/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(za/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(za/qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(za*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(za*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(za*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(za*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(za*qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(za*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(za*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(za*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(za*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(za*qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(za*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(za*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(za*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(za*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(za*qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(za*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(za*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(za*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(za*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(za*qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(za*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(za*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(za*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(za*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(za*qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(za-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(za-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(za-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(za-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(za-qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(za-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(za-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(za-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(za-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(za-qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(za-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(za-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(za-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(za-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(za-qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(za-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(za-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(za-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(za-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(za-qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(za-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(za-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(za-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(za-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(za-qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(za+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(za+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(za+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(za+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(za+qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(za+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(za+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(za+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(za+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(za+qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(za+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(za+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(za+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(za+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(za+qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(za+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(za+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(za+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(za+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(za+qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(za+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(za+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(za+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(za+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(za+qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(za^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(za^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(za^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(za^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(za^qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(za^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(za^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(za^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(za^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(za^qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(za^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(za^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(za^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(za^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(za^qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(za^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(za^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(za^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(za^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(za^qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(za^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(za^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(za^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(za^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(za^qq)^ww
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 1)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zb/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zb/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zb/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zb/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zb/qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zb/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zb/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zb/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zb/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zb/qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zb/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zb/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zb/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zb/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zb/qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zb/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zb/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zb/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zb/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zb/qq)^ww
   ENDIF

   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zb/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zb/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zb/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zb/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zb/qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zb*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zb*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zb*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zb*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zb*qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zb*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zb*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zb*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zb*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zb*qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zb*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zb*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zb*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zb*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zb*qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zb*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zb*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zb*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zb*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zb*qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zb*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zb*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zb*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zb*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zb*qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zb-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zb-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zb-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zb-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zb-qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zb-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zb-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zb-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zb-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zb-qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zb-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zb-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zb-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zb-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zb-qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zb-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zb-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zb-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zb-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zb-qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zb-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zb-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zb-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zb-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zb-qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zb+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zb+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zb+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zb+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zb+qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zb+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zb+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zb+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zb+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zb+qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zb+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zb+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zb+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zb+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zb+qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zb+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zb+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zb+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zb+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zb+qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zb+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zb+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zb+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zb+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zb+qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zb^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zb^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zb^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zb^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zb^qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zb^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zb^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zb^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zb^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zb^qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zb^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zb^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zb^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zb^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zb^qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zb^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zb^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zb^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zb^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zb^qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zb^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zb^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zb^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zb^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zb^qq)^ww
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 2)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zc/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zc/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zc/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zc/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zc/qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zc/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zc/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zc/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zc/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zc/qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zc/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zc/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zc/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zc/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zc/qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zc/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zc/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zc/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zc/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zc/qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zc/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zc/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zc/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zc/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zc/qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zc*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zc*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zc*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zc*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zc*qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zc*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zc*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zc*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zc*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zc*qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zc*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zc*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zc*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zc*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zc*qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zc*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zc*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zc*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zc*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zc*qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zc*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zc*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zc*qq)^ww
   ELSEIF (@op1 == 3)

   z = dd^(zc*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zc*qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zc-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zc-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zc-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zc-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zc-qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zc-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zc-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zc-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zc-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zc-qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zc-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zc-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zc-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zc-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zc-qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zc-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zc-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zc-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zc-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zc-qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zc-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zc-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zc-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zc-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zc-qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zc+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zc+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zc+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zc+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zc+qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zc+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zc+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zc+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zc+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zc+qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zc+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zc+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zc+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zc+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zc+qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zc+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zc+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zc+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zc+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zc+qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zc+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zc+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zc+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zc+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zc+qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zc^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zc^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zc^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zc^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zc^qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zc^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zc^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zc^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zc^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zc^qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zc^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zc^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zc^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zc^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zc^qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zc^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zc^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zc^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zc^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zc^qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zc^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zc^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zc^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zc^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zc^qq)^ww
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 3)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zd/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zd/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zd/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zd/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zd/qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zd/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zd/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zd/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zd/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zd/qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zd/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zd/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zd/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zd/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zd/qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zd/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zd/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zd/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zd/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zd/qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zd/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zd/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zd/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zd/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zd/qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zd*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zd*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zd*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zd*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zd*qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zd*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zd*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zd*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zd*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zd*qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zd*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zd*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zd*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zd*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zd*qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zd*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zd*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zd*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zd*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zd*qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zd*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zd*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zd*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zd*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zd*qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zd-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zd-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zd-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zd-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zd-qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zd-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zd-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zd-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zd-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zd-qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zd-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zd-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zd-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zd-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zd-qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zd-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zd-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zd-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zd-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zd-qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zd-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zd-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zd-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zd-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zd-qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zd+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zd+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zd+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zd+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zd+qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zd+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zd+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zd+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zd+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zd+qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zd+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zd+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zd+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zd+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zd+qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zd+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zd+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zd+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zd+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zd+qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zd+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zd+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zd+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zd+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zd+qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zd^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zd^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zd^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zd^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zd^qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zd^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zd^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zd^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zd^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zd^qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zd^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zd^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zd^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zd^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zd^qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zd^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zd^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zd^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zd^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zd^qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zd^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zd^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zd^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zd^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zd^qq)^ww
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 4)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zf/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zf/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zf/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zf/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zf/qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zf/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zf/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zf/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zf/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zf/qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zf/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zf/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zf/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zf/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zf/qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zf/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zf/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zf/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zf/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zf/qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zf/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zf/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zf/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zf/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zf/qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zf*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zf*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zf*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zf*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zf*qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zf*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zf*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zf*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zf*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zf*qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zf*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zf*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zf*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zf*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zf*qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zf*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zf*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zf*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zf*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zf*qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zf*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zf*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zf*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zf*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zf*qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zf-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zf-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zf-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zf-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zf-qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zf-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zf-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zf-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zf-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zf-qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zf-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zf-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zf-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zf-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zf-qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zf-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zf-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zf-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zf-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zf-qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zf-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zf-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zf-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zf-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zf-qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zf+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zf+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zf+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zf+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zf+qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zf+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zf+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zf+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zf+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zf+qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zf+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zf+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zf+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zf+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zf+qq)^ww
   ENDIF

   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zf+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zf+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zf+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zf+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zf+qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zf+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zf+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zf+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zf+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zf+qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zf^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zf^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zf^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zf^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zf^qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zf^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zf^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zf^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zf^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zf^qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zf^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zf^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zf^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zf^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zf^qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zf^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zf^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zf^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zf^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zf^qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zf^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zf^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zf^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zf^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zf^qq)^ww
   ENDIF
   ENDIF
   ENDIF
   ENDIF
   ENDIF


  bailout:
  |z| < real(@bailout)
  switch:
  type = "DragonAtom03Julia"
  seed = #pixel
  bailout = bailout
  power = @power
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  budge = @budge
  nudge = @nudge
  kludge = @kludge
  op1 = @op1 
  op2 = @op2
  op3 = @op3
  op4 = @op4 
  op5 = @op5
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4  
default:
  title = "Dragon Atom 03"
  param start
  default = (2.2,0)
  endparam
  param bailout
  default = (2.0,0)
  endparam
  param power 
  default = (1.0,0)
  endparam
  param op1
  caption = "operator 1"
  default = 0
  enum = "/""*""-""+""^"
  endparam
  param op2
  caption = "operator 2"
  default = 2
  enum = "/""*""-""+""^"
  endparam
  param op3
  caption = "operator 3"
  default = 1
  enum = "/""*""-""+""^"
  endparam
  param op4
  caption = "operator 4"
  default = 4
  enum = "/""*""-""+""^"
  endparam
  param op5
  caption = "grouping"
  default = 0
  enum = "inner""outer"
  endparam
    param exp1
  caption = "exponent 1"
  default = (1.0,0)
  endparam
  param exp2
  caption = "exponent 2"
  default = (1.0,0)
  endparam
  param exp3
  caption = "exponent 3"
  default = (1.0,0)
  endparam
  param exp4
  caption = "exponent 4"
  default = (1.0,0)
  endparam


  func fn1
  caption = "Function 1"
  default = atan()
  endfunc
  func fn2
  caption = "Function 2"
  default = abs()
  endfunc
  func fn3
  caption = "Function 3"
  default = tan()
  endfunc
  func fn4
  caption = "Function 4"
  default = ident()
  endfunc
    func fn5
  caption = "Function 5"
  default = ident()
  endfunc
  func fn6
  caption = "Function 6"
  default = ident()
  endfunc
  periodicity = 0
}
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
DragonAtom03Julia {
;Toby Marshall, Dec. 2001, rev.1 

;Special thanks to Ken Childress,  
;Jos Leys, Erik Nathan Reckase, 
;Mark Townsend and Frederik Slijkerman  
;for their suggestions and advice.

;Please see tma.txt for help and hints.

;Have fun!

init:
  z = #pixel
loop:
aa = fn1(@seed^@exp4/fn4(z-@kludge))
bb = fn1(@seed^@exp4*fn4(z-@kludge))
cc = fn1(@seed^@exp4-fn4(z-@kludge))
dd = fn1(@seed^@exp4+fn4(z-@kludge))
ff = fn1(@seed^@exp4^fn4(z-@kludge))
za = (fn2(@seed^@exp1-@power)/fn3(z-@budge))
zb = (fn2(@seed^@exp1-@power)*fn3(z-@budge))
zc = (fn2(@seed^@exp1-@power)-fn3(z-@budge))
zd = (fn2(@seed^@exp1-@power)+fn3(z-@budge))
zf = (fn2(@seed^@exp1-@power)^fn3(z-@budge))
qq = (@fn5(real(@seed^@exp2*@power)))
ww = @fn6(imag(@seed^@exp3/@power))-@nudge
IF (@op5 == 0); group 1
IF (@op4 == 0)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/za/qq^ww
   ELSEIF (@op1 == 1)
   z = bb/za/qq^ww
   ELSEIF (@op1 == 2)
   z = cc/za/qq^ww
   ELSEIF (@op1 == 3)
   z = dd/za/qq^ww
   ELSEIF (@op1 == 4)
   z = ff/za/qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*za/qq^ww
   ELSEIF (@op1 == 1)
   z = bb*za/qq^ww
   ELSEIF (@op1 == 2)
   z = cc*za/qq^ww
   ELSEIF (@op1 == 3)
   z = dd*za/qq^ww
   ELSEIF (@op1 == 4)
   z = ff*za/qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-za/qq^ww
   ELSEIF (@op1 == 1)
   z = bb-za/qq^ww
   ELSEIF (@op1 == 2)
   z = cc-za/qq^ww
   ELSEIF (@op1 == 3)
   z = dd-za/qq^ww
   ELSEIF (@op1 == 4)
   z = ff-za/qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+za/qq^ww
   ELSEIF (@op1 == 1)
   z = bb+za/qq^ww
   ELSEIF (@op1 == 2)
   z = cc+za/qq^ww
   ELSEIF (@op1 == 3)
   z = dd+za/qq^ww
   ELSEIF (@op1 == 4)
   z = ff+za/qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^za/qq^ww
   ELSEIF (@op1 == 1)
   z = bb^za/qq^ww
   ELSEIF (@op1 == 2)
   z = cc^za/qq^ww
   ELSEIF (@op1 == 3)
   z = dd^za/qq^ww
   ELSEIF (@op1 == 4)
   z = ff^za/qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/za*qq^ww
   ELSEIF (@op1 == 1)
   z = bb/za*qq^ww
   ELSEIF (@op1 == 2)
   z = cc/za*qq^ww
   ELSEIF (@op1 == 3)
   z = dd/za*qq^ww
   ELSEIF (@op1 == 4)
   z = ff/za*qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*za*qq^ww
   ELSEIF (@op1 == 1)
   z = bb*za*qq^ww
   ELSEIF (@op1 == 2)
   z = cc*za*qq^ww
   ELSEIF (@op1 == 3)
   z = dd*za*qq^ww
   ELSEIF (@op1 == 4)
   z = ff*za*qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-za*qq^ww
   ELSEIF (@op1 == 1)
   z = bb-za*qq^ww
   ELSEIF (@op1 == 2)
   z = cc-za*qq^ww
   ELSEIF (@op1 == 3)
   z = dd-za*qq^ww
   ELSEIF (@op1 == 4)
   z = ff-za*qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+za*qq^ww
   ELSEIF (@op1 == 1)
   z = bb+za*qq^ww
   ELSEIF (@op1 == 2)
   z = cc+za*qq^ww
   ELSEIF (@op1 == 3)
   z = dd+za*qq^ww
   ELSEIF (@op1 == 4)
   z = ff+za*qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^za*qq^ww
   ELSEIF (@op1 == 1)
   z = bb^za*qq^ww
   ELSEIF (@op1 == 2)
   z = cc^za*qq^ww
   ELSEIF (@op1 == 3)
   z = dd^za*qq^ww
   ELSEIF (@op1 == 4)
   z = ff^za*qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/za-qq^ww
   ELSEIF (@op1 == 1)
   z = bb/za-qq^ww
   ELSEIF (@op1 == 2)
   z = cc/za-qq^ww
   ELSEIF (@op1 == 3)
   z = dd/za-qq^ww
   ELSEIF (@op1 == 4)
   z = ff/za-qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*za-qq^ww
   ELSEIF (@op1 == 1)
   z = bb*za-qq^ww
   ELSEIF (@op1 == 2)
   z = cc*za-qq^ww
   ELSEIF (@op1 == 3)
   z = dd*za-qq^ww
   ELSEIF (@op1 == 4)
   z = ff*za-qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-za-qq^ww
   ELSEIF (@op1 == 1)
   z = bb-za-qq^ww
   ELSEIF (@op1 == 2)
   z = cc-za-qq^ww
   ELSEIF (@op1 == 3)
   z = dd-za-qq^ww
   ELSEIF (@op1 == 4)
   z = ff-za-qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+za-qq^ww
   ELSEIF (@op1 == 1)
   z = bb+za-qq^ww
   ELSEIF (@op1 == 2)
   z = cc+za-qq^ww
   ELSEIF (@op1 == 3)
   z = dd+za-qq^ww
   ELSEIF (@op1 == 4)
   z = ff+za-qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^za-qq^ww
   ELSEIF (@op1 == 1)
   z = bb^za-qq^ww
   ELSEIF (@op1 == 2)
   z = cc^za-qq^ww
   ELSEIF (@op1 == 3)
   z = dd^za-qq^ww
   ELSEIF (@op1 == 4)
   z = ff^za-qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/za+qq^ww
   ELSEIF (@op1 == 1)
   z = bb/za+qq^ww
   ELSEIF (@op1 == 2)
   z = cc/za+qq^ww
   ELSEIF (@op1 == 3)
   z = dd/za+qq^ww
   ELSEIF (@op1 == 4)
   z = ff/za+qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*za+qq^ww
   ELSEIF (@op1 == 1)
   z = bb*za+qq^ww
   ELSEIF (@op1 == 2)
   z = cc*za+qq^ww
   ELSEIF (@op1 == 3)
   z = dd*za+qq^ww
   ELSEIF (@op1 == 4)
   z = ff*za+qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-za+qq^ww
   ELSEIF (@op1 == 1)
   z = bb-za+qq^ww
   ELSEIF (@op1 == 2)
   z = cc-za+qq^ww
   ELSEIF (@op1 == 3)
   z = dd-za+qq^ww
   ELSEIF (@op1 == 4)
   z = ff-za+qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+za+qq^ww
   ELSEIF (@op1 == 1)
   z = bb+za+qq^ww
   ELSEIF (@op1 == 2)
   z = cc+za+qq^ww
   ELSEIF (@op1 == 3)
   z = dd+za+qq^ww
   ELSEIF (@op1 == 4)
   z = ff+za+qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^za+qq^ww
   ELSEIF (@op1 == 1)
   z = bb^za+qq^ww
   ELSEIF (@op1 == 2)
   z = cc^za+qq^ww
   ELSEIF (@op1 == 3)
   z = dd^za+qq^ww
   ELSEIF (@op1 == 4)
   z = ff^za+qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/za^qq^ww
   ELSEIF (@op1 == 1)
   z = bb/za^qq^ww
   ELSEIF (@op1 == 2)
   z = cc/za^qq^ww
   ELSEIF (@op1 == 3)
   z = dd/za^qq^ww
   ELSEIF (@op1 == 4)
   z = ff/za^qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*za^qq^ww
   ELSEIF (@op1 == 1)
   z = bb*za^qq^ww
   ELSEIF (@op1 == 2)
   z = cc*za^qq^ww
   ELSEIF (@op1 == 3)
   z = dd*za^qq^ww
   ELSEIF (@op1 == 4)
   z = ff*za^qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-za^qq^ww
   ELSEIF (@op1 == 1)
   z = bb-za^qq^ww
   ELSEIF (@op1 == 2)
   z = cc-za^qq^ww
   ELSEIF (@op1 == 3)
   z = dd-za^qq^ww
   ELSEIF (@op1 == 4)
   z = ff-za^qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+za^qq^ww
   ELSEIF (@op1 == 1)
   z = bb+za^qq^ww
   ELSEIF (@op1 == 2)
   z = cc+za^qq^ww
   ELSEIF (@op1 == 3)
   z = dd+za^qq^ww
   ELSEIF (@op1 == 4)
   z = ff+za^qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^za^qq^ww
   ELSEIF (@op1 == 1)
   z = bb^za^qq^ww
   ELSEIF (@op1 == 2)
   z = cc^za^qq^ww
   ELSEIF (@op1 == 3)
   z = dd^za^qq^ww
   ELSEIF (@op1 == 4)
   z = ff^za^qq^ww
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 1)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zb/qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zb/qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zb/qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zb/qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zb/qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zb/qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zb/qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zb/qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zb/qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zb/qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zb/qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zb/qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zb/qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zb/qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zb/qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zb/qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zb/qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zb/qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zb/qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zb/qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zb/qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zb/qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zb/qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zb/qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zb/qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zb*qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zb*qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zb*qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zb*qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zb*qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zb*qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zb*qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zb*qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zb*qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zb*qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zb*qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zb*qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zb*qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zb*qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zb*qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zb*qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zb*qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zb*qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zb*qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zb*qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zb*qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zb*qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zb*qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zb*qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zb*qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zb-qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zb-qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zb-qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zb-qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zb-qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zb-qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zb-qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zb-qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zb-qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zb-qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zb-qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zb-qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zb-qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zb-qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zb-qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zb-qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zb-qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zb-qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zb-qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zb-qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zb-qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zb-qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zb-qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zb-qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zb-qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zb+qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zb+qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zb+qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zb+qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zb+qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zb+qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zb+qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zb+qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zb+qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zb+qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zb+qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zb+qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zb+qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zb+qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zb+qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zb+qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zb+qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zb+qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zb+qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zb+qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zb+qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zb+qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zb+qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zb+qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zb+qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zb^qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zb^qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zb^qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zb^qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zb^qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zb^qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zb^qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zb^qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zb^qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zb^qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zb^qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zb^qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zb^qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zb^qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zb^qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zb^qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zb^qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zb^qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zb^qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zb^qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zb^qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zb^qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zb^qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zb^qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zb^qq^ww
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 2)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zc/qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zc/qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zc/qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zc/qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zc/qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zc/qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zc/qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zc/qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zc/qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zc/qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zc/qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zc/qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zc/qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zc/qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zc/qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zc/qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zc/qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zc/qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zc/qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zc/qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zc/qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zc/qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zc/qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zc/qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zc/qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zc*qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zc*qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zc*qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zc*qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zc*qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zc*qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zc*qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zc*qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zc*qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zc*qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zc*qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zc*qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zc*qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zc*qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zc*qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zc*qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zc*qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zc*qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zc*qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zc*qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zc*qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zc*qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zc*qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zc*qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zc*qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zc-qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zc-qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zc-qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zc-qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zc-qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zc-qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zc-qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zc-qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zc-qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zc-qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zc-qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zc-qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zc-qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zc-qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zc-qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zc-qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zc-qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zc-qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zc-qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zc-qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zc-qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zc-qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zc-qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zc-qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zc-qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zc+qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zc+qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zc+qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zc+qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zc+qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zc+qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zc+qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zc+qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zc+qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zc+qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zc+qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zc+qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zc+qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zc+qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zc+qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zc+qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zc+qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zc+qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zc+qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zc+qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zc+qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zc+qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zc+qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zc+qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zc+qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zc^qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zc^qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zc^qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zc^qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zc^qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zc^qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zc^qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zc^qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zc^qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zc^qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zc^qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zc^qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zc^qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zc^qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zc^qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zc^qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zc^qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zc^qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zc^qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zc^qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zc^qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zc^qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zc^qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zc^qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zc^qq^ww
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 3)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zd/qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zd/qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zd/qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zd/qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zd/qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zd/qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zd/qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zd/qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zd/qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zd/qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zd/qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zd/qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zd/qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zd/qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zd/qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zd/qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zd/qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zd/qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zd/qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zd/qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zd/qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zd/qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zd/qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zd/qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zd/qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zd*qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zd*qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zd*qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zd*qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zd*qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zd*qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zd*qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zd*qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zd*qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zd*qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zd*qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zd*qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zd*qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zd*qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zd*qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zd*qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zd*qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zd*qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zd*qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zd*qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zd*qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zd*qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zd*qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zd*qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zd*qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zd-qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zd-qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zd-qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zd-qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zd-qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zd-qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zd-qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zd-qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zd-qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zd-qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zd-qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zd-qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zd-qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zd-qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zd-qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zd-qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zd-qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zd-qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zd-qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zd-qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zd-qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zd-qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zd-qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zd-qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zd-qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zd+qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zd+qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zd+qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zd+qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zd+qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zd+qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zd+qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zd+qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zd+qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zd+qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zd+qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zd+qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zd+qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zd+qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zd+qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zd+qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zd+qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zd+qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zd+qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zd+qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zd+qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zd+qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zd+qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zd+qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zd+qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zd^qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zd^qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zd^qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zd^qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zd^qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zd^qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zd^qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zd^qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zd^qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zd^qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zd^qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zd^qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zd^qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zd^qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zd^qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zd^qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zd^qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zd^qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zd^qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zd^qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zd^qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zd^qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zd^qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zd^qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zd^qq^ww
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 4)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zf/qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zf/qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zf/qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zf/qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zf/qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zf/qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zf/qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zf/qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zf/qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zf/qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zf/qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zf/qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zf/qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zf/qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zf/qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zf/qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zf/qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zf/qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zf/qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zf/qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zf/qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zf/qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zf/qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zf/qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zf/qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zf*qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zf*qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zf*qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zf*qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zf*qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zf*qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zf*qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zf*qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zf*qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zf*qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zf*qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zf*qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zf*qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zf*qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zf*qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zf*qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zf*qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zf*qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zf*qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zf*qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zf*qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zf*qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zf*qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zf*qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zf*qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zf-qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zf-qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zf-qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zf-qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zf-qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zf-qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zf-qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zf-qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zf-qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zf-qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zf-qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zf-qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zf-qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zf-qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zf-qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zf-qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zf-qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zf-qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zf-qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zf-qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zf-qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zf-qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zf-qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zf-qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zf-qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zf+qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zf+qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zf+qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zf+qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zf+qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zf+qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zf+qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zf+qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zf+qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zf+qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zf+qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zf+qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zf+qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zf+qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zf+qq^ww
   ENDIF

   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zf+qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zf+qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zf+qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zf+qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zf+qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zf+qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zf+qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zf+qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zf+qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zf+qq^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/zf^qq^ww
   ELSEIF (@op1 == 1)
   z = bb/zf^qq^ww
   ELSEIF (@op1 == 2)
   z = cc/zf^qq^ww
   ELSEIF (@op1 == 3)
   z = dd/zf^qq^ww
   ELSEIF (@op1 == 4)
   z = ff/zf^qq^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*zf^qq^ww
   ELSEIF (@op1 == 1)
   z = bb*zf^qq^ww
   ELSEIF (@op1 == 2)
   z = cc*zf^qq^ww
   ELSEIF (@op1 == 3)
   z = dd*zf^qq^ww
   ELSEIF (@op1 == 4)
   z = ff*zf^qq^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-zf^qq^ww
   ELSEIF (@op1 == 1)
   z = bb-zf^qq^ww
   ELSEIF (@op1 == 2)
   z = cc-zf^qq^ww
   ELSEIF (@op1 == 3)
   z = dd-zf^qq^ww
   ELSEIF (@op1 == 4)
   z = ff-zf^qq^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+zf^qq^ww
   ELSEIF (@op1 == 1)
   z = bb+zf^qq^ww
   ELSEIF (@op1 == 2)
   z = cc+zf^qq^ww
   ELSEIF (@op1 == 3)
   z = dd+zf^qq^ww
   ELSEIF (@op1 == 4)
   z = ff+zf^qq^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^zf^qq^ww
   ELSEIF (@op1 == 1)
   z = bb^zf^qq^ww
   ELSEIF (@op1 == 2)
   z = cc^zf^qq^ww
   ELSEIF (@op1 == 3)
   z = dd^zf^qq^ww
   ELSEIF (@op1 == 4)
   z = ff^zf^qq^ww
   ENDIF
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op5 == 1); group 2
IF (@op4 == 0)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(za/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(za/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(za/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(za/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(za/qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(za/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(za/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(za/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(za/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(za/qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(za/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(za/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(za/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(za/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(za/qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(za/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(za/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(za/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(za/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(za/qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(za/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(za/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(za/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(za/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(za/qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(za*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(za*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(za*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(za*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(za*qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(za*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(za*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(za*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(za*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(za*qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(za*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(za*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(za*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(za*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(za*qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(za*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(za*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(za*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(za*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(za*qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(za*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(za*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(za*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(za*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(za*qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)

   z = aa/(za-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(za-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(za-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(za-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(za-qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(za-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(za-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(za-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(za-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(za-qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(za-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(za-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(za-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(za-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(za-qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(za-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(za-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(za-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(za-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(za-qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(za-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(za-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(za-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(za-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(za-qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(za+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(za+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(za+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(za+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(za+qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(za+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(za+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(za+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(za+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(za+qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(za+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(za+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(za+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(za+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(za+qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(za+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(za+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(za+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(za+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(za+qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(za+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(za+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(za+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(za+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(za+qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(za^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(za^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(za^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(za^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(za^qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(za^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(za^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(za^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(za^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(za^qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(za^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(za^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(za^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(za^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(za^qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(za^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(za^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(za^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(za^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(za^qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(za^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(za^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(za^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(za^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(za^qq)^ww
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 1)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zb/qq)^ww
   ELSEIF (@op1 == 1)

   z = bb/(zb/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zb/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zb/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zb/qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zb/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zb/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zb/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zb/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zb/qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zb/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zb/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zb/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zb/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zb/qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zb/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zb/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zb/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zb/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zb/qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zb/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zb/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zb/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zb/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zb/qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zb*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zb*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zb*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zb*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zb*qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zb*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zb*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zb*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zb*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zb*qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zb*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zb*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zb*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zb*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zb*qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zb*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zb*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zb*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zb*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zb*qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zb*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zb*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zb*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zb*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zb*qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zb-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zb-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zb-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zb-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zb-qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zb-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zb-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zb-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zb-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zb-qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zb-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zb-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zb-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zb-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zb-qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zb-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zb-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zb-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zb-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zb-qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zb-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zb-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zb-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zb-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zb-qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zb+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zb+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zb+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zb+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zb+qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zb+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zb+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zb+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zb+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zb+qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zb+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zb+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zb+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zb+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zb+qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zb+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zb+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zb+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zb+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zb+qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zb+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zb+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zb+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zb+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zb+qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zb^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zb^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zb^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zb^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zb^qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zb^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zb^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zb^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zb^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zb^qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zb^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zb^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zb^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zb^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zb^qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zb^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zb^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zb^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zb^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zb^qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zb^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zb^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zb^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zb^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zb^qq)^ww
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 2)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zc/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zc/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zc/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zc/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zc/qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zc/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zc/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zc/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zc/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zc/qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zc/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zc/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zc/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zc/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zc/qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zc/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zc/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zc/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zc/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zc/qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zc/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zc/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zc/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zc/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zc/qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zc*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zc*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zc*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zc*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zc*qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zc*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zc*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zc*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zc*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zc*qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zc*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zc*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zc*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zc*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zc*qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zc*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zc*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zc*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zc*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zc*qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zc*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zc*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zc*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zc*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zc*qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zc-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zc-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zc-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zc-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zc-qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zc-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zc-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zc-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zc-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zc-qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zc-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zc-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zc-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zc-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zc-qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zc-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zc-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zc-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zc-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zc-qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zc-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zc-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zc-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zc-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zc-qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zc+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zc+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zc+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zc+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zc+qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zc+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zc+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zc+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zc+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zc+qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zc+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zc+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zc+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zc+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zc+qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zc+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zc+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zc+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zc+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zc+qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zc+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zc+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zc+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zc+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zc+qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zc^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zc^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zc^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zc^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zc^qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zc^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zc^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zc^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zc^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zc^qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zc^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zc^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zc^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zc^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zc^qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zc^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zc^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zc^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zc^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zc^qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zc^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zc^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zc^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zc^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zc^qq)^ww
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 3)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zd/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zd/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zd/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zd/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zd/qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zd/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zd/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zd/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zd/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zd/qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zd/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zd/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zd/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zd/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zd/qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zd/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zd/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zd/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zd/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zd/qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zd/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zd/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zd/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zd/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zd/qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zd*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zd*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zd*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zd*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zd*qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zd*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zd*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zd*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zd*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zd*qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zd*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zd*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zd*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zd*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zd*qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zd*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zd*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zd*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zd*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zd*qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zd*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zd*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zd*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zd*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zd*qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zd-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zd-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zd-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zd-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zd-qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zd-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zd-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zd-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zd-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zd-qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zd-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zd-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zd-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zd-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zd-qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zd-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zd-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zd-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zd-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zd-qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zd-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zd-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zd-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zd-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zd-qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zd+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zd+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zd+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zd+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zd+qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zd+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zd+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zd+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zd+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zd+qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zd+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zd+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zd+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zd+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zd+qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zd+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zd+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zd+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zd+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zd+qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zd+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zd+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zd+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zd+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zd+qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zd^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zd^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zd^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zd^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zd^qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zd^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zd^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zd^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zd^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zd^qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zd^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zd^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zd^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zd^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zd^qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zd^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zd^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zd^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zd^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zd^qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zd^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zd^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zd^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zd^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zd^qq)^ww
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 4)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zf/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zf/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zf/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zf/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zf/qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zf/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zf/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zf/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zf/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zf/qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zf/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zf/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zf/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zf/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zf/qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zf/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zf/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zf/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zf/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zf/qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zf/qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zf/qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zf/qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zf/qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zf/qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zf*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zf*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zf*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zf*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zf*qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zf*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zf*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zf*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zf*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zf*qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zf*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zf*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zf*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zf*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zf*qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zf*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zf*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zf*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zf*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zf*qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zf*qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zf*qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zf*qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zf*qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zf*qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zf-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zf-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zf-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zf-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zf-qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zf-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zf-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zf-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zf-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zf-qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zf-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zf-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zf-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zf-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zf-qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zf-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zf-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zf-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zf-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zf-qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zf-qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zf-qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zf-qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zf-qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zf-qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zf+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zf+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zf+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zf+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zf+qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zf+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zf+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zf+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zf+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zf+qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zf+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zf+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zf+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zf+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zf+qq)^ww
   ENDIF

   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zf+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zf+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zf+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zf+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zf+qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zf+qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zf+qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zf+qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zf+qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zf+qq)^ww
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(zf^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb/(zf^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc/(zf^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd/(zf^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff/(zf^qq)^ww
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(zf^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb*(zf^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc*(zf^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd*(zf^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff*(zf^qq)^ww
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(zf^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb-(zf^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc-(zf^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd-(zf^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff-(zf^qq)^ww
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(zf^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb+(zf^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc+(zf^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd+(zf^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff+(zf^qq)^ww
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(zf^qq)^ww
   ELSEIF (@op1 == 1)
   z = bb^(zf^qq)^ww
   ELSEIF (@op1 == 2)
   z = cc^(zf^qq)^ww
   ELSEIF (@op1 == 3)
   z = dd^(zf^qq)^ww
   ELSEIF (@op1 == 4)
   z = ff^(zf^qq)^ww
   ENDIF
   ENDIF
   ENDIF
   ENDIF
   ENDIF


   bailout:
  |z| < real(@bailout)
  switch:
  type = "DragonAtom03"
  bailout = bailout
  power = @power
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  budge = @budge
  nudge = @nudge
  kludge = @kludge
  op1 = @op1 
  op2 = @op2
  op3 = @op3
  op4 = @op4 
  op5 = @op5
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4  

  default:
  title = "Dragon Atom 03 Julia"
  center = (1.74, 0.47)
  magn = 1.04
  param seed
  default = (2.237,-.76)
  endparam
  param bailout
  default = (2.0,0)
  endparam
  param power 
  default = (1.0,0)
  endparam
  param op1
  caption = "operator 1"
  default = 0
  enum = "/""*""-""+""^"
  endparam
  param op2
  caption = "operator 2"
  default = 2
  enum = "/""*""-""+""^"
  endparam
  param op3
  caption = "operator 3"
  default = 1
  enum = "/""*""-""+""^"
  endparam
  param op4
  caption = "operator 4"
  default = 4
  enum = "/""*""-""+""^"
  endparam
  param op5
  caption = "grouping"
  default = 0
  enum = "inner""outer"
  endparam
    param exp1
  caption = "exponent 1"
  default = (1.0,0)
  endparam
  param exp2
  caption = "exponent 2"
  default = (1.0,0)
  endparam
  param exp3
  caption = "exponent 3"
  default = (1.0,0)
  endparam
  param exp4
  caption = "exponent 4"
  default = (1.0,0)
  endparam


  func fn1
  caption = "Function 1"
  default = atan()
  endfunc
  func fn2
  caption = "Function 2"
  default = abs()
  endfunc
  func fn3
  caption = "Function 3"
  default = tan()
  endfunc
  func fn4
  caption = "Function 4"
  default = ident()
  endfunc
  func fn5
  caption = "Function 5"
  default = ident()
  endfunc
  func fn6
  caption = "Function 6"
  default = ident()
  endfunc
  periodicity = 0

}
*********************************************************************************************************
MightyAtomMkIIz{
;Toby Marshall, Dec. 2001

;Similar structure to its non-z counterpart
;but with quite different behavior.
  
;Choose your parameter and function values 
;then explore the resulting figure with 
;the Julia switch.

;Special thanks to Ken Childress,  
;Jos Leys, Erik Nathan Reckase, 
;Mark Townsend and Frederik Slijkerman  
;for their suggestions and advice.

;Please see tma.txt for help and hints.

;Have fun!

init:
  z = @start
loop:
aa = #pixel^@exp1-@power
qq = fn3(z-@budge)^@fn6(z)
xx = fn4(real(#pixel^@exp2*@power))
ww = @fn5(imag(#pixel^@exp3/@power))-@nudge

IF (@op3 == 0)
IF (@group == 0); inner
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)/xx/ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)/xx/ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)/xx/ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)/xx/ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)/xx/ww
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa)/qq)*xx/ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)*xx/ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)*xx/ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)*xx/ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)*xx/ww
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)-xx/ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)-xx/ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)-xx/ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)-xx/ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)-xx/ww
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)+xx/ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)+xx/ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)+xx/ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)+xx/ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)+xx/ww
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)^xx/ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)^xx/ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)^xx/ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)^xx/ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)^xx/ww
  ENDIF
ENDIF
ELSEIF (@group == 1); outer
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))/xx/ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))/xx/ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))/xx/ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))/xx/ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))/xx/ww
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa/qq))*xx/ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))*xx/ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))*xx/ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))*xx/ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))*xx/ww
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))-xx/ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))-xx/ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))-xx/ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))-xx/ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))-xx/ww
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))+xx/ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))+xx/ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))+xx/ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))+xx/ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))+xx/ww
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))^xx/ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))^xx/ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))^xx/ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))^xx/ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))^xx/ww
  ENDIF
  ENDIF
  ELSEIF (@group == 2); middle
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))/xx/ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))/xx/ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))/xx/ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))/xx/ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))/xx/ww
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2((aa)/qq))*xx/ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))*xx/ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))*xx/ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))*xx/ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))*xx/ww
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))-xx/ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))-xx/ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))-xx/ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))-xx/ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))-xx/ww
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))+xx/ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))+xx/ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))+xx/ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))+xx/ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))+xx/ww
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))^xx/ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))^xx/ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))^xx/ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))^xx/ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))^xx/ww
  ENDIF
ENDIF
ENDIF
ELSEIF (@op3 == 1)
IF (@group == 0); inner
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)/xx*ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)/xx*ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)/xx*ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)/xx*ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)/xx*ww
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa)/qq)*xx*ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)*xx*ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)*xx*ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)*xx*ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)*xx*ww
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)-xx*ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)-xx*ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)-xx*ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)-xx*ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)-xx*ww
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)+xx*ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)+xx*ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)+xx*ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)+xx*ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)+xx*ww
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)^xx*ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)^xx*ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)^xx*ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)^xx*ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)^xx*ww
  ENDIF
ENDIF
ELSEIF (@group == 1); outer
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))/xx*ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))/xx*ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))/xx*ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))/xx*ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))/xx*ww
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa/qq))*xx*ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))*xx*ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))*xx*ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))*xx*ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))*xx*ww
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))-xx*ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))-xx*ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))-xx*ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))-xx*ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))-xx*ww
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))+xx*ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))+xx*ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))+xx*ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))+xx*ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))+xx*ww
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))^xx*ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))^xx*ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))^xx*ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))^xx*ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))^xx*ww
  ENDIF
  ENDIF
  ELSEIF (@group == 2); middle
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))/xx*ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))/xx*ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))/xx*ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))/xx*ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))/xx*ww
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2((aa)/qq))*xx*ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))*xx*ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))*xx*ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))*xx*ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))*xx*ww
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))-xx*ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))-xx*ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))-xx*ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))-xx*ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))-xx*ww
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))+xx*ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))+xx*ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))+xx*ww

  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))+xx*ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))+xx*ww
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))^xx*ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))^xx*ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))^xx*ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))^xx*ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))^xx*ww
  ENDIF
ENDIF
ENDIF
ELSEIF (@op3 == 2)
IF (@group == 0); inner
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)/xx-ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)/xx-ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)/xx-ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)/xx-ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)/xx-ww
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa)/qq)*xx-ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)*xx-ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)*xx-ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)*xx-ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)*xx-ww
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)-xx-ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)-xx-ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)-xx-ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)-xx-ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)-xx-ww
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)+xx-ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)+xx-ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)+xx-ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)+xx-ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)+xx-ww
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)^xx-ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)^xx-ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)^xx-ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)^xx-ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)^xx-ww
  ENDIF
ENDIF
ELSEIF (@group == 1); outer
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))/xx-ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))/xx-ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))/xx-ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))/xx-ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))/xx-ww
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa/qq))*xx-ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))*xx-ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))*xx-ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))*xx-ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))*xx-ww
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))-xx-ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))-xx-ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))-xx-ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))-xx-ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))-xx-ww
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))+xx-ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))+xx-ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))+xx-ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))+xx-ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))+xx-ww
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))^xx-ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))^xx-ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))^xx-ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))^xx-ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))^xx-ww
  ENDIF
  ENDIF
  ELSEIF (@group == 2); middle
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))/xx-ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))/xx-ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))/xx-ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))/xx-ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))/xx-ww
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2((aa)/qq))*xx-ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))*xx-ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))*xx-ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))*xx-ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))*xx-ww
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))-xx-ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))-xx-ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))-xx-ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))-xx-ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))-xx-ww
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))+xx-ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))+xx-ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))+xx-ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))+xx-ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))+xx-ww
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))^xx-ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))^xx-ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))^xx-ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))^xx-ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))^xx-ww
  ENDIF
ENDIF
ENDIF
ELSEIF (@op3 == 3)
IF (@group == 0); inner
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)/xx+ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)/xx+ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)/xx+ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)/xx+ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)/xx+ww
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa)/qq)*xx+ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)*xx+ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)*xx+ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)*xx+ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)*xx+ww
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)-xx+ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)-xx+ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)-xx+ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)-xx+ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)-xx+ww
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)+xx+ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)+xx+ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)+xx+ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)+xx+ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)+xx+ww
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)^xx+ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)^xx+ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)^xx+ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)^xx+ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)^xx+ww
  ENDIF
ENDIF
ELSEIF (@group == 1); outer
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))/xx+ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))/xx+ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))/xx+ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))/xx+ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))/xx+ww
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa/qq))*xx+ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))*xx+ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))*xx+ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))*xx+ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))*xx+ww
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))-xx+ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))-xx+ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))-xx+ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))-xx+ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))-xx+ww
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))+xx+ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))+xx+ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))+xx+ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))+xx+ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))+xx+ww
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))^xx+ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))^xx+ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))^xx+ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))^xx+ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))^xx+ww
  ENDIF
  ENDIF
  ELSEIF (@group == 2); middle
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))/xx+ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))/xx+ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))/xx+ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))/xx+ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))/xx+ww
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2((aa)/qq))*xx+ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))*xx+ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))*xx+ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))*xx+ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))*xx+ww
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))-xx+ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))-xx+ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))-xx+ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))-xx+ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))-xx+ww
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))+xx+ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))+xx+ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))+xx+ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))+xx+ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))+xx+ww
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))^xx+ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))^xx+ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))^xx+ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))^xx+ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))^xx+ww
  ENDIF
ENDIF
ENDIF
ELSEIF (@op3 == 4)
IF (@group == 0); inner
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)/xx^ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)/xx^ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)/xx^ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)/xx^ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)/xx^ww
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa)/qq)*xx^ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)*xx^ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)*xx^ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)*xx^ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)*xx^ww
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)-xx^ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)-xx^ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)-xx^ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)-xx^ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)-xx^ww
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)+xx^ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)+xx^ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)+xx^ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)+xx^ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)+xx^ww
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)^xx^ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)^xx^ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)^xx^ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)^xx^ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)^xx^ww
  ENDIF
ENDIF
ELSEIF (@group == 1); outer
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))/xx^ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))/xx^ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))/xx^ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))/xx^ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))/xx^ww
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa/qq))*xx^ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))*xx^ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))*xx^ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))*xx^ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))*xx^ww
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))-xx^ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))-xx^ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))-xx^ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))-xx^ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))-xx^ww
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))+xx^ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))+xx^ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))+xx^ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))+xx^ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))+xx^ww
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))^xx^ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))^xx^ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))^xx^ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))^xx^ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))^xx^ww
  ENDIF
  ENDIF
  ELSEIF (@group == 2); middle
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))/xx^ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))/xx^ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))/xx^ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))/xx^ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))/xx^ww
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2((aa)/qq))*xx^ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))*xx^ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))*xx^ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))*xx^ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))*xx^ww
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))-xx^ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))-xx^ww


  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))-xx^ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))-xx^ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))-xx^ww
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))+xx^ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))+xx^ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))+xx^ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))+xx^ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))+xx^ww
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))^xx^ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))^xx^ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))^xx^ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))^xx^ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))^xx^ww
  ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < real(@bailout)
switch:
  type = "MightyAtomMkIIzJulia"
  seed = #pixel
  bailout = bailout
  power = @power
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  budge = @budge
  nudge = @nudge
  op1 = @op1
  op2 = @op2
  op3 = @op3
  group = @group  
  
default:
  title = "Mighty Atom Mk IIz"
  param start
  default = (2.0,0)
  endparam
  param bailout
  default = (2.0,0)
  endparam
  param power 
  default = (1.0,0)
  endparam
  param op1 
  caption = "operator 1"
  default = 1
  enum = "/""*""-""+""^"
  endparam
   param op2 
  caption = "operator 2"
  default = 0
  enum = "/""*""-""+""^"
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "inner""outer""middle"
  endparam
  param op3 
  caption = "operator 3"
  default = 4
  enum = "/""*""-""+""^"
  endparam
  param exp1
  caption = "exponent 1"
  default = (1.0,0)
  endparam
  param exp2
  caption = "exponent 2"
  default = (1.0,0)
  endparam
  param exp3
  caption = "exponent 3"
  default = (1.0,0)
  endparam


  func fn1
  caption = "Function 1"
  default = atan()
  endfunc
  func fn2
  caption = "Function 2"
  default = abs()
  endfunc
  func fn3
  caption = "Function 3"
  default = tan()
  endfunc
  func fn4
  caption = "Function 4"
  default = ident()
  endfunc
  func fn5  
  caption = "Function 5"
  default = ident()
  endfunc
  func fn6  
  caption = "Function 6"
  default = ident()
  endfunc

  periodicity = 0
}
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

MightyAtomMkIIzJulia {
;Toby Marshall, Dec. 2001 

;Special thanks to Ken Childress,  
;Jos Leys, Erik Nathan Reckase, 
;Mark Townsend and Frederik Slijkerman  
;for their suggestions and advice.

;Please see tma.txt for help and hints.

;Have fun!



init:
  z = #pixel
loop:
aa = @seed^@exp1-@power
qq = fn3(z-@budge)^@fn6(z)
xx = fn4(real(@seed^@exp2*@power))
ww = @fn5(imag(@seed^@exp3/@power))-@nudge
IF (@op3 == 0)
IF (@group == 0); inner
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)/xx/ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)/xx/ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)/xx/ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)/xx/ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)/xx/ww
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa)/qq)*xx/ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)*xx/ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)*xx/ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)*xx/ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)*xx/ww
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)-xx/ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)-xx/ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)-xx/ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)-xx/ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)-xx/ww
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)+xx/ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)+xx/ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)+xx/ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)+xx/ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)+xx/ww
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)^xx/ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)^xx/ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)^xx/ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)^xx/ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)^xx/ww
  ENDIF
ENDIF
ELSEIF (@group == 1); outer
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))/xx/ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))/xx/ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))/xx/ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))/xx/ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))/xx/ww
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa/qq))*xx/ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))*xx/ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))*xx/ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))*xx/ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))*xx/ww
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))-xx/ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))-xx/ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))-xx/ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))-xx/ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))-xx/ww
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))+xx/ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))+xx/ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))+xx/ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))+xx/ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))+xx/ww
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))^xx/ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))^xx/ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))^xx/ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))^xx/ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))^xx/ww
  ENDIF
  ENDIF
  ELSEIF (@group == 2); middle
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))/xx/ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))/xx/ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))/xx/ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))/xx/ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))/xx/ww
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2((aa)/qq))*xx/ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))*xx/ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))*xx/ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))*xx/ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))*xx/ww
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))-xx/ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))-xx/ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))-xx/ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))-xx/ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))-xx/ww
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))+xx/ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))+xx/ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))+xx/ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))+xx/ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))+xx/ww
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))^xx/ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))^xx/ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))^xx/ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))^xx/ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))^xx/ww
  ENDIF
ENDIF
ENDIF
ELSEIF (@op3 == 1)
IF (@group == 0); inner
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)/xx*ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)/xx*ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)/xx*ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)/xx*ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)/xx*ww
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa)/qq)*xx*ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)*xx*ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)*xx*ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)*xx*ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)*xx*ww
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)-xx*ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)-xx*ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)-xx*ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)-xx*ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)-xx*ww
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)+xx*ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)+xx*ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)+xx*ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)+xx*ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)+xx*ww
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)^xx*ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)^xx*ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)^xx*ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)^xx*ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)^xx*ww
  ENDIF
ENDIF
ELSEIF (@group == 1); outer
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))/xx*ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))/xx*ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))/xx*ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))/xx*ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))/xx*ww
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa/qq))*xx*ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))*xx*ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))*xx*ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))*xx*ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))*xx*ww
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))-xx*ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))-xx*ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))-xx*ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))-xx*ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))-xx*ww
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))+xx*ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))+xx*ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))+xx*ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))+xx*ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))+xx*ww
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))^xx*ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))^xx*ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))^xx*ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))^xx*ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))^xx*ww
  ENDIF
  ENDIF
  ELSEIF (@group == 2); middle
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))/xx*ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))/xx*ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))/xx*ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))/xx*ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))/xx*ww
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2((aa)/qq))*xx*ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))*xx*ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))*xx*ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))*xx*ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))*xx*ww
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))-xx*ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))-xx*ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))-xx*ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))-xx*ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))-xx*ww
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))+xx*ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))+xx*ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))+xx*ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))+xx*ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))+xx*ww
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))^xx*ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))^xx*ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))^xx*ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))^xx*ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))^xx*ww
  ENDIF
ENDIF
ENDIF
ELSEIF (@op3 == 2)
IF (@group == 0); inner
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)/xx-ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)/xx-ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)/xx-ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)/xx-ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)/xx-ww
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa)/qq)*xx-ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)*xx-ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)*xx-ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)*xx-ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)*xx-ww
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)-xx-ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)-xx-ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)-xx-ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)-xx-ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)-xx-ww
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)+xx-ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)+xx-ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)+xx-ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)+xx-ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)+xx-ww
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)^xx-ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)^xx-ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)^xx-ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)^xx-ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)^xx-ww
  ENDIF
ENDIF
ELSEIF (@group == 1); outer
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))/xx-ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))/xx-ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))/xx-ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))/xx-ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))/xx-ww
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa/qq))*xx-ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))*xx-ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))*xx-ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))*xx-ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))*xx-ww
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))-xx-ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))-xx-ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))-xx-ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))-xx-ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))-xx-ww
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))+xx-ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))+xx-ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))+xx-ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))+xx-ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))+xx-ww
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))^xx-ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))^xx-ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))^xx-ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))^xx-ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))^xx-ww
  ENDIF
  ENDIF
  ELSEIF (@group == 2); middle
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))/xx-ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))/xx-ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))/xx-ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))/xx-ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))/xx-ww
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2((aa)/qq))*xx-ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))*xx-ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))*xx-ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))*xx-ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))*xx-ww
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))-xx-ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))-xx-ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))-xx-ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))-xx-ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))-xx-ww
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))+xx-ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))+xx-ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))+xx-ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))+xx-ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))+xx-ww
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))^xx-ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))^xx-ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))^xx-ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))^xx-ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))^xx-ww
  ENDIF
ENDIF
ENDIF
ELSEIF (@op3 == 3)
IF (@group == 0); inner
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)/xx+ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)/xx+ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)/xx+ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)/xx+ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)/xx+ww
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa)/qq)*xx+ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)*xx+ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)*xx+ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)*xx+ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)*xx+ww
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)-xx+ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)-xx+ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)-xx+ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)-xx+ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)-xx+ww
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)+xx+ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)+xx+ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)+xx+ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)+xx+ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)+xx+ww
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)^xx+ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)^xx+ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)^xx+ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)^xx+ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)^xx+ww
  ENDIF
ENDIF
ELSEIF (@group == 1); outer
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))/xx+ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))/xx+ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))/xx+ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))/xx+ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))/xx+ww
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa/qq))*xx+ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))*xx+ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))*xx+ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))*xx+ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))*xx+ww
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))-xx+ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))-xx+ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))-xx+ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))-xx+ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))-xx+ww
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))+xx+ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))+xx+ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))+xx+ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))+xx+ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))+xx+ww
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))^xx+ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))^xx+ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))^xx+ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))^xx+ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))^xx+ww
  ENDIF
  ENDIF
  ELSEIF (@group == 2); middle
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))/xx+ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))/xx+ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))/xx+ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))/xx+ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))/xx+ww
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2((aa)/qq))*xx+ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))*xx+ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))*xx+ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))*xx+ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))*xx+ww
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))-xx+ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))-xx+ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))-xx+ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))-xx+ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))-xx+ww
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))+xx+ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))+xx+ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))+xx+ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))+xx+ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))+xx+ww
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))^xx+ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))^xx+ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))^xx+ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))^xx+ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))^xx+ww
  ENDIF
ENDIF
ENDIF
ELSEIF (@op3 == 4)
IF (@group == 0); inner
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)/xx^ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)/xx^ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)/xx^ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)/xx^ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)/xx^ww
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa)/qq)*xx^ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)*xx^ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)*xx^ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)*xx^ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)*xx^ww
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)-xx^ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)-xx^ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)-xx^ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)-xx^ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)-xx^ww
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)+xx^ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)+xx^ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)+xx^ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)+xx^ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)+xx^ww
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa)/qq)^xx^ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa)*qq)^xx^ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa)-qq)^xx^ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa)+qq)^xx^ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa)/qq)^xx^ww
  ENDIF
ENDIF
ELSEIF (@group == 1); outer
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))/xx^ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))/xx^ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))/xx^ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))/xx^ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))/xx^ww
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2(aa/qq))*xx^ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))*xx^ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))*xx^ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))*xx^ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))*xx^ww
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))-xx^ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))-xx^ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))-xx^ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))-xx^ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))-xx^ww
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))+xx^ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))+xx^ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))+xx^ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))+xx^ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))+xx^ww
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2(aa/qq))^xx^ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2(aa*qq))^xx^ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2(aa-qq))^xx^ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2(aa+qq))^xx^ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2(aa/qq))^xx^ww
  ENDIF
  ENDIF
  ELSEIF (@group == 2); middle
IF (@op2 == 0)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))/xx^ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))/xx^ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))/xx^ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))/xx^ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))/xx^ww
  ENDIF
  ELSEIF (@op2 == 1)
IF (@op1 == 1)
  z = fn1(fn2((aa)/qq))*xx^ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))*xx^ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))*xx^ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))*xx^ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))*xx^ww
  ENDIF
  ELSEIF (@op2 ==2)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))-xx^ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))-xx^ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))-xx^ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))-xx^ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))-xx^ww
  ENDIF
ELSEIF (@op2 ==3)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))+xx^ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))+xx^ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))+xx^ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))+xx^ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))+xx^ww
  ENDIF
ELSEIF (@op2 ==4)
IF (@op1 == 0)
  z = fn1(fn2((aa)/qq))^xx^ww
  ELSEIF (@op1 == 1)
  z = fn1(fn2((aa)*qq))^xx^ww
  ELSEIF (@op1 == 2)
  z = fn1(fn2((aa)-qq))^xx^ww
  ELSEIF (@op1 == 3)
  z = fn1(fn2((aa)+qq))^xx^ww
  ELSEIF (@op1 == 4)
  z = fn1(fn2((aa)/qq))^xx^ww
  ENDIF

ENDIF
ENDIF
ENDIF

bailout:
  |z| < real(@bailout)
switch:
  type = "MightyAtomMkIIz"
  bailout = bailout
  power = @power
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  budge = @budge
  nudge = @nudge
  op1 = @op1
  op2 = @op2
  op3 = @op3
  group = @group 
default:
  title = "Mighty Atom Mk IIz Julia"
  param seed
  default = (.56,.86)
  endparam
  param bailout
  default = (2.0,0)
  endparam
  param power 
  default = (1.0,0)
  endparam
  param op1 
  caption = "operator 1"
  default = 1
  enum = "/""*""-""+""^"
  endparam
   param op2 
  caption = "operator 2"
  default = 0
  enum = "/""*""-""+""^"
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "inner""outer""middle"
  endparam
  param op3 
  caption = "operator 3"
  default = 4
  enum = "/""*""-""+""^"
  endparam
  param exp1
  caption = "exponent 1"
  default = (1.0,0)
  endparam
  param exp2
  caption = "exponent 2"
  default = (1.0,0)
  endparam
  param exp3
  caption = "exponent 3"
  default = (1.0,0)
  endparam




 func fn1
  caption = "Function 1"
  default = atan()
  endfunc
  func fn2
  caption = "Function 2"
  default = abs()
  endfunc
  func fn3
  caption = "Function 3"
  default = tan()
  endfunc
  func fn4
  caption = "Function 4"
  default = ident()
  endfunc
  func fn5  
  caption = "Function 5"
  default = ident()
  endfunc
  func fn6  
  caption = "Function 6"
  default = ident()
  endfunc

  periodicity = 0
}




***************************************************************************************
GrandAtom01z {
;Toby Marshall, Dec. 2001 

;Similar structure to its non-z counterpart
;but with quite different behavior.

;Choose your parameter and function values 
;then explore the resulting figure with 
;the Julia switch.

;Special thanks to Ken Childress,  
;Jos Leys, Erik Nathan Reckase, 
;Mark Townsend and Frederik Slijkerman  
;for their suggestions and advice.

;Please see tma.txt for help and hints.

;Have fun!

init:
  z = @start
loop:
aa = #pixel^@exp1-@power
qq = fn3(z-@budge)^@fn7(z)
ww = fn4(#pixel^@exp4)
xx = @fn5(real(#pixel^@exp2+@power))^@fn6(imag(#pixel^@exp3-@power))-@nudge



IF (@group == 0); inner
IF (@op3 == 0)
IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)/ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)/ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)/ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)/qq)/ww^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)/ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)/ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)/ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)/ww^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)/ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)-qq)/ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)-qq)/ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)/ww^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)/ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)/ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)/ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)/ww^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)/ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)^qq)/ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)/ww+xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)/ww^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)*ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)*ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)*ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)/qq)*ww^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)*ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*ww*xx
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)*ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)*ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)*ww^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)*ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)-qq)*ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)-qq)*ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)*ww^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)*ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)*ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)*ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)*ww^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)*ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)^qq)*ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)*ww+xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)*ww^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 2)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)-ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)-ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)-ww+xx
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)-ww^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)-ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)-ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)-ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)-ww^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)-ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)-ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)-qq)-ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)-qq)-ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)-ww^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)-ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)-ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)-ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)-ww^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)-ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)-ww*xx
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)^qq)-ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)-ww+xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)-ww^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 3)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)+ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)+ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)+ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)/qq)+ww^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)+ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)+ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)+ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)+ww^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)+ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)+ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)-qq)+ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)-qq)+ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)+ww^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)+ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)+ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)+ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)+ww^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)+ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)+ww*xx
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)^qq)+ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+ww+xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)+ww^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 4)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)^ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)^ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)^ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)^ww+xx
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^ww^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)^ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)^ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)^ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)^ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^ww^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)^ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)^ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)-qq)^ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)-qq)^ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^ww^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)^ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)^ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)^ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)^ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^ww^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)^ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)^ww*xx
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)^qq)^ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)^ww+xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^ww^xx
 ENDIF
 ENDIF
 ENDIF
ELSEIF (@group == 1); outer
IF (@op3 == 0)
IF (@op == 0)
IF (@op2 == 0)
 z = fn1((fn2(aa)/qq)/ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)/qq)/ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)/qq)/ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2((aa)/qq)/ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)/qq)/ww)^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1((fn2(aa)*qq)/ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2((aa)*qq)/ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)*qq)/ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)*qq)/ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)*qq)/ww)^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1((fn2(aa)-qq)/ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)-qq)/ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)-qq)/ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)-qq)/ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)-qq)/ww)^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1((fn2(aa)+qq)/ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)+qq)/ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)+qq)/ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)+qq)/ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)+qq)/ww)^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1((fn2(aa)^qq)/ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)^qq)/ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)^qq)/ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)^qq)/ww)+xx
 ELSEIF (@op == 4)
 z = fn1((fn2(aa)^qq)/ww)^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1((fn2(aa)/qq)*ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)/qq)*ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)/qq)*ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)/qq)*ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)/qq)*ww)^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1((fn2(aa)*qq)*ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)*qq)*ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)*qq)*ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)*qq)*ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)*qq)*ww)^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1((fn2(aa)-qq)*ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)-qq)*ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)-qq)*ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)-qq)*ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)-qq)*ww)^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1((fn2(aa)+qq)*ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)+qq)*ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)+qq)*ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)+qq)*ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)+qq)*ww)^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1((fn2(aa)^qq)*ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)^qq)*ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)^qq)*ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)^qq)*ww)+xx
 ELSEIF (@op == 4)
 z = fn1((fn2(aa)^qq)*ww)^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 2)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1((fn2(aa)/qq)-ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)/qq)-ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)/qq)-ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)/qq)-ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)/qq)-ww)^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1((fn2(aa)*qq)-ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)*qq)-ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)*qq)-ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)*qq)-ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)*qq)-ww)^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1((fn2(aa)-qq)-ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)-qq)-ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)-qq)-ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)-qq)-ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)-qq)-ww)^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1((fn2(aa)+qq)-ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)+qq)-ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)+qq)-ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)+qq)-ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)+qq)-ww)^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1((fn2(aa)^qq)-ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)^qq)-ww)*xx
 ELSEIF (@op2 == 2);subtract
 z = fn1((fn2(aa)^qq)-ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)^qq)-ww)+xx
 ELSEIF (@op == 4)
 z = fn1((fn2(aa)^qq)-ww)^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 3)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1((fn2(aa)/qq)+ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)/qq)+ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)/qq)+ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)/qq)+ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)/qq)+ww)^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1((fn2(aa)*qq)+ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)*qq)+ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)*qq)+ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)*qq)+ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)*qq)+ww)^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1((fn2(aa)-qq)+ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)-qq)+ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)-qq)+ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)-qq)+ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)-qq)+ww)^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1((fn2(aa)+qq)+ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)+qq)+ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)+qq)+ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)+qq)+ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)+qq)+ww)^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1((fn2(aa)^qq)+ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)^qq)+ww)*xx
 ELSEIF (@op2 == 2);subtract
 z = fn1((fn2(aa)^qq)+ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)^qq)+ww)+xx
 ELSEIF (@op == 4)
 z = fn1((fn2(aa)^qq)+ww)^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 4)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1((fn2(aa)/qq)^ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)/qq)^ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)/qq)^ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)/qq)^ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)/qq)^ww)^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1((fn2(aa)*qq)^ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)*qq)^ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)*qq)^ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)*qq)^ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)*qq)^ww)^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1((fn2(aa)-qq)^ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)-qq)^ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)-qq)^ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)-qq)^ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)-qq)^ww)^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1((fn2(aa)+qq)^ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)+qq)^ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)+qq)^ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)+qq)^ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)+qq)^ww)^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1((fn2(aa)^qq)^ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)^qq)^ww)*xx
 ELSEIF (@op2 == 2);subtract
 z = fn1((fn2(aa)^qq)^ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)^qq)^ww)+xx
 ELSEIF (@op == 4)
 z = fn1((fn2(aa)^qq)^ww)^xx
 ENDIF
 ENDIF
 ENDIF
 ENDIF

bailout:
  |z| < real(@bailout)
switch:
  type = "GrandAtom01zJulia"
  seed = #pixel
  bailout = bailout
  power = @power
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  budge = @budge
  nudge = @nudge
  op = @op
  op2 = @op2
  op3 = @op3
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4  
  
default:
  title = "Grand Atom 01z"
  param start
  default = (2.0,0)
  endparam
  param bailout
  default = (2.0,0)
  endparam
  param power 
  default = (0,0)
  endparam
  param op 
  caption = "operator 1"
  default = 1
  enum = "/""*""-""+""^"
  endparam
  param op2 
  caption = "operator 2"
  default = 0
  enum = "/""*""-""+""^"
  endparam
  param op3
  caption = "operator 3"
  default = 1
  enum = "/""*""-""+""^"
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "inner""outer"
  endparam
  param exp1
  caption = "exponent 1"
  default = (1.0,0)
  endparam
  param exp2
  caption = "exponent 2"
  default = (1.0,0)
  endparam
  param exp3
  caption = "exponent 3"
  default = (1.0,0)
  endparam
  param exp4
  caption = "exponent 4"
  default = (1.0,0)
  endparam

  
 func fn1
  caption = "Function 1"
  default = atan()
  endfunc
  func fn2
  caption = "Function 2"
  default = abs()
  endfunc
  func fn3
  caption = "Function 3"
  default = tan()
  endfunc
  func fn4
  caption = "Function 4"
  default = ident()
  endfunc
    func fn5
  caption = "Function 5"
  default = ident()
  endfunc
  func fn6
  caption = "Function 6"
  default = ident()
  endfunc
  func fn7  
  caption = "Function 7"
  default = ident()
  endfunc

  periodicity = 0
  }
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
GrandAtom01zJulia {
;Toby Marshall, Dec. 2001 

;Special thanks to Ken Childress,  
;Jos Leys, Erik Nathan Reckase, 
;Mark Townsend and Frederik Slijkerman  
;for their suggestions and advice.

;Please see tma.txt for help and hints.

;Have fun!

init:
  z = #pixel
loop:
aa = @seed^@exp1-@power
qq = fn3(z-@budge)^@fn7(z)
ww = fn4(@seed^@exp4)
xx = @fn5(real(@seed^@exp2+@power))^@fn6(imag(@seed^@exp3-@power))-@nudge

IF (@group == 0); inner
IF (@op3 == 0)
IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)/ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)/ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)/ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)/qq)/ww^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)/ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)/ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)/ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)/ww^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)/ww*xx
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)/ww-xx
 ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)/ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)/ww^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)/ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)/ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)/ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)/ww^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)/ww*xx
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)^qq)/ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)/ww+xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)/ww^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)*ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)*ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)*ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)/qq)*ww^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)*ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)*ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)*ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)*ww^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)*ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)-qq)*ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)-qq)*ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)*ww^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)*ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)*ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)*ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)*ww^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)*ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)^qq)*ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)*ww+xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)*ww^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 2)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)-ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)-ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)-ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)/qq)-ww^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)-ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)-ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)-ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)-ww^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)-ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)-ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)-qq)-ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)-qq)-ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)-ww^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)-ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)-ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)-ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)-ww^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)-ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)-ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)^qq)-ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)-ww+xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)-ww^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 3)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)+ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)+ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)+ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)/qq)+ww^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)+ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)+ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)+ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)+ww^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)+ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)+ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)-qq)+ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)-qq)+ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)+ww^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)+ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)+ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)+ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)+ww^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)+ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)+ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)^qq)+ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+ww+xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)+ww^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 4)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)^ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)^ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)^ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)^ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)/qq)^ww^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)^ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)^ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)^ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)^ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^ww^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)^ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)^ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)-qq)^ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)-qq)^ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^ww^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)^ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)^ww*xx
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)^ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)^ww+xx
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^ww^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)^ww/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)^ww*xx
 ELSEIF (@op2 == 2)  
 z = fn1(fn2(aa)^qq)^ww-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)^ww+xx
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^ww^xx
 ENDIF
 ENDIF
 ENDIF
ELSEIF (@group == 1); outer
IF (@op3 == 0)
IF (@op == 0)
IF (@op2 == 0)
 z = fn1((fn2(aa)/qq)/ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)/qq)/ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)/qq)/ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1(fn2((aa)/qq)/ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)/qq)/ww)^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1((fn2(aa)*qq)/ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1(fn2((aa)*qq)/ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)*qq)/ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)*qq)/ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)*qq)/ww)^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1((fn2(aa)-qq)/ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)-qq)/ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)-qq)/ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)-qq)/ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)-qq)/ww)^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1((fn2(aa)+qq)/ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)+qq)/ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)+qq)/ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)+qq)/ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)+qq)/ww)^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1((fn2(aa)^qq)/ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)^qq)/ww)*xx
 ELSEIF (@op2 == 2);subtract
  z = fn1((fn2(aa)^qq)/ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)^qq)/ww)+xx
 ELSEIF (@op == 4)
 z = fn1((fn2(aa)^qq)/ww)^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1((fn2(aa)/qq)*ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)/qq)*ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)/qq)*ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)/qq)*ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)/qq)*ww)^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1((fn2(aa)*qq)*ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)*qq)*ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)*qq)*ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)*qq)*ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)*qq)*ww)^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1((fn2(aa)-qq)*ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)-qq)*ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)-qq)*ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)-qq)*ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)-qq)*ww)^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1((fn2(aa)+qq)*ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)+qq)*ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)+qq)*ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)+qq)*ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)+qq)*ww)^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1((fn2(aa)^qq)*ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)^qq)*ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)^qq)*ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)^qq)*ww)+xx
 ELSEIF (@op == 4)
 z = fn1((fn2(aa)^qq)*ww)^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 2)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1((fn2(aa)/qq)-ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)/qq)-ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)/qq)-ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)/qq)-ww)+xx
 ELSEIF (@op2 == 4)
  z = fn1((fn2(aa)/qq)-ww)^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1((fn2(aa)*qq)-ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)*qq)-ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)*qq)-ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)*qq)-ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)*qq)-ww)^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1((fn2(aa)-qq)-ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)-qq)-ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)-qq)-ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)-qq)-ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)-qq)-ww)^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1((fn2(aa)+qq)-ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)+qq)-ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)+qq)-ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)+qq)-ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)+qq)-ww)^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1((fn2(aa)^qq)-ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)^qq)-ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)^qq)-ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)^qq)-ww)+xx
 ELSEIF (@op == 4)
 z = fn1((fn2(aa)^qq)-ww)^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 3)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1((fn2(aa)/qq)+ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)/qq)+ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)/qq)+ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)/qq)+ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)/qq)+ww)^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1((fn2(aa)*qq)+ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)*qq)+ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)*qq)+ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)*qq)+ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)*qq)+ww)^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1((fn2(aa)-qq)+ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)-qq)+ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)-qq)+ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)-qq)+ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)-qq)+ww)^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1((fn2(aa)+qq)+ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)+qq)+ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)+qq)+ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)+qq)+ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)+qq)+ww)^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1((fn2(aa)^qq)+ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)^qq)+ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)^qq)+ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)^qq)+ww)+xx
 ELSEIF (@op == 4)
 z = fn1((fn2(aa)^qq)+ww)^xx
 ENDIF
 ENDIF
 ELSEIF (@op3 == 4)
 IF (@op == 0)
 IF (@op2 == 0)
 z = fn1((fn2(aa)/qq)^ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)/qq)^ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)/qq)^ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)/qq)^ww)+xx
 ELSEIF (@op2 == 4)
  z = fn1((fn2(aa)/qq)^ww)^xx
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1((fn2(aa)*qq)^ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)*qq)^ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)*qq)^ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)*qq)^ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)*qq)^ww)^xx
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1((fn2(aa)-qq)^ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)-qq)^ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)-qq)^ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)-qq)^ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)-qq)^ww)^xx
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1((fn2(aa)+qq)^ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)+qq)^ww)*xx
 ELSEIF (@op2 == 2)
 z = fn1((fn2(aa)+qq)^ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)+qq)^ww)+xx
 ELSEIF (@op2 == 4)
 z = fn1((fn2(aa)+qq)^ww)^xx
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1((fn2(aa)^qq)^ww)/xx
 ELSEIF (@op2 == 1)
 z = fn1((fn2(aa)^qq)^ww)*xx
 ELSEIF (@op2 == 2)
  z = fn1((fn2(aa)^qq)^ww)-xx
 ELSEIF (@op2 == 3)
 z = fn1((fn2(aa)^qq)^ww)+xx
 ELSEIF (@op == 4)
 z = fn1((fn2(aa)^qq)^ww)^xx
 ENDIF
 ENDIF
 ENDIF
 ENDIF
 

bailout:
  |z| < real(@bailout)
switch:
  type = "GrandAtom01z"
  bailout = bailout
  bailout = bailout
  power = @power
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  budge = @budge
  nudge = @nudge
  op = @op
  op2 = @op2
  op3 = @op3
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4  

default:
  title = "Grand Atom 01z Julia"
  center = (-0.695, -0.174)
  magn = .538
  param seed
  default = (-1.45,-.37)
  endparam
  param bailout
  default = (2.0,0)
  endparam
  param power 
  default = (0,0)
  endparam
  param op 
  caption = "operator 1"
  default = 1
  enum = "/""*""-""+""^"
  endparam
  param op2 
  caption = "operator 2"
  default = 0
  enum = "/""*""-""+""^"
  endparam
  param op3
  caption = "operator 3"
  default = 1
  enum = "/""*""-""+""^"
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "inner""outer"
  endparam
  param exp1
  caption = "exponent 1"
  default = (1.0,0)
  endparam
  param exp2
  caption = "exponent 2"
  default = (1.0,0)
  endparam
  param exp3
  caption = "exponent 3"
  default = (1.0,0)
  endparam
  param exp4
  caption = "exponent 4"
  default = (1.0,0)
  endparam
  func fn1
  caption = "Function 1"
  default = atan()
  endfunc
  func fn2
  caption = "Function 2"
  default = abs()
  endfunc
  func fn3
  caption = "Function 3"
  default = tan()
  endfunc
  func fn4
  caption = "Function 4"
  default = ident()
  endfunc
  func fn5
  caption = "Function 5"
  default = ident()
  endfunc
  func fn6
  caption = "Function 6"
  default = ident()
  endfunc
  func fn7  
  caption = "Function 7"
  default = ident()
  endfunc

  periodicity = 0
}

******************************************************************************************
GrandAtom02z{
;Toby Marshall, Dec. 2001

;Similar structure to its non-z counterpart
;but with quite different behavior.

;Choose your parameter and function values 
;then explore the resulting figure with 
;the Julia switch.

;Special thanks to Ken Childress,  
;Jos Leys, Erik Nathan Reckase, 
;Mark Townsend and Frederik Slijkerman  
;for their suggestions and advice.

;Please see tma.txt for help and hints.

;Have fun!

init:
  z = @start
loop:
aa = #pixel^@exp1-@power
qq = fn3(z-@budge)^@fn7(z)
xx = @fn5(real(#pixel^@exp2+@power))
yy = @fn6(imag(#pixel^@exp3-@power))
zz = fn4(#pixel^@exp4)-@nudge
IF (@group2 == 0); inner
IF (@group == 0); inner
IF (@op3 == 0)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/xx^yy/zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*xx^yy/zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-xx^yy/zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+xx^yy/zz
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^xx^yy/zz
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/xx^yy/zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*xx^yy/zz
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-xx^yy/zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+xx^yy/zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^xx^yy/zz
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/xx^yy/zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*xx^yy/zz
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-xx^yy/zz
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+xx^yy/zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^xx^yy/zz
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/xx^yy/zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*xx^yy/zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-xx^yy/zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+xx^yy/zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^xx^yy/zz
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/xx^yy/zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*xx^yy/zz
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-xx^yy/zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+xx^yy/zz
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^xx^yy/zz
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/xx^yy*zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*xx^yy*zz
 ELSEIF (@op2 == 2)

 z = fn1(fn2(aa))/qq-xx^yy*zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+xx^yy*zz
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^xx^yy*zz
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/xx^yy*zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*xx^yy*zz
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-xx^yy*zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+xx^yy*zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^xx^yy*zz
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/xx^yy*zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*xx^yy*zz
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-xx^yy*zz
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+xx^yy*zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^xx^yy*zz
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/xx^yy*zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*xx^yy*zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-xx^yy*zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+xx^yy*zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^xx^yy*zz
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/xx^yy*zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*xx^yy*zz
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-xx^yy*zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+xx^yy*zz
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^xx^yy*zz
 ENDIF
 ENDIF

ELSEIF (@op3 == 2)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/xx^yy-zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*xx^yy-zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-xx^yy-zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+xx^yy-zz
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^xx^yy-zz
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/xx^yy-zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*xx^yy-zz
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-xx^yy-zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+xx^yy-zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^xx^yy-zz
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/xx^yy-zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*xx^yy-zz
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-xx^yy-zz
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+xx^yy-zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^xx^yy-zz
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/xx^yy-zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*xx^yy-zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-xx^yy-zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+xx^yy-zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^xx^yy-zz
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/xx^yy-zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*xx^yy-zz
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-xx^yy-zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+xx^yy-zz
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^xx^yy-zz
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/xx^yy+zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*xx^yy+zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-xx^yy+zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+xx^yy+zz
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^xx^yy+zz
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/xx^yy+zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*xx^yy+zz
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-xx^yy+zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+xx^yy+zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^xx^yy+zz
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/xx^yy+zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*xx^yy+zz
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-xx^yy+zz
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+xx^yy+zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^xx^yy+zz
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/xx^yy+zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*xx^yy+zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-xx^yy+zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+xx^yy+zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^xx^yy+zz
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/xx^yy+zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*xx^yy+zz
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-xx^yy+zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+xx^yy+zz
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^xx^yy+zz
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/xx^yy^zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*xx^yy^zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-xx^yy^zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+xx^yy^zz
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^xx^yy^zz
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/xx^yy^zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*xx^yy^zz
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-xx^yy^zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+xx^yy^zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^xx^yy^zz
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/xx^yy^zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*xx^yy^zz
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-xx^yy^zz
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+xx^yy^zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^xx^yy^zz
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/xx^yy^zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*xx^yy^zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-xx^yy^zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+xx^yy^zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^xx^yy^zz
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/xx^yy^zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*xx^yy^zz
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-xx^yy^zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+xx^yy^zz
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^xx^yy^zz
 ENDIF
 ENDIF
 ENDIF
 ELSEIF (@group == 1); outer
IF (@op3 == 0)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/xx^(yy/zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*xx^(yy/zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-xx^(yy/zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+xx^(yy/zz)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^xx^(yy/zz)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/xx^(yy/zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*xx^(yy/zz)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-xx^(yy/zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+xx^(yy/zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^xx^(yy/zz)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/xx^(yy/zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*xx^(yy/zz)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-xx^(yy/zz)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+xx^(yy/zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^xx^(yy/zz)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/xx^(yy/zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*xx^(yy/zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-xx^(yy/zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+xx^(yy/zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^xx^(yy/zz)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/xx^(yy/zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*xx^(yy/zz)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-xx^(yy/zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+xx^(yy/zz)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^xx^(yy/zz)
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/xx^(yy*zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*xx^(yy*zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-xx^(yy*zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+xx^(yy*zz)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^xx^(yy*zz)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/xx^(yy*zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*xx^(yy*zz)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-xx^(yy*zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+xx^(yy*zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^xx^(yy*zz)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/xx^(yy*zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*xx^(yy*zz)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-xx^(yy*zz)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+xx^(yy*zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^xx^(yy*zz)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/xx^(yy*zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*xx^(yy*zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-xx^(yy*zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+xx^(yy*zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^xx^(yy*zz)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/xx^(yy*zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*xx^(yy*zz)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-xx^(yy*zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+xx^(yy*zz)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^xx^(yy*zz)
 ENDIF
 ENDIF
ELSEIF (@op3 == 2)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/xx^(yy-zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*xx^(yy-zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-xx^(yy-zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+xx^(yy-zz)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^xx^(yy-zz)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/xx^(yy-zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*xx^(yy-zz)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-xx^(yy-zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+xx^(yy-zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^xx^(yy-zz)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/xx^(yy-zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*xx^(yy-zz)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-xx^(yy-zz)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+xx^(yy-zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^xx^(yy-zz)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/xx^(yy-zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*xx^(yy-zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-xx^(yy-zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+xx^(yy-zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^xx^(yy-zz)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/xx^(yy-zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*xx^(yy-zz)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-xx^(yy-zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+xx^(yy-zz)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^xx^(yy-zz)
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/xx^(yy+zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*xx^(yy+zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-xx^(yy+zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+xx^(yy+zz)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^xx^(yy+zz)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/xx^(yy+zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*xx^(yy+zz)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-xx^(yy+zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+xx^(yy+zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^xx^(yy+zz)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/xx^(yy+zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*xx^(yy+zz)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-xx^(yy+zz)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+xx^(yy+zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^xx^(yy+zz)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/xx^(yy+zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*xx^(yy+zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-xx^(yy+zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+xx^(yy+zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^xx^(yy+zz)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/xx^(yy+zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*xx^(yy+zz)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-xx^(yy+zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+xx^(yy+zz)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^xx^(yy+zz)
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/xx^(yy^zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*xx^(yy^zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-xx^(yy^zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+xx^(yy^zz)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^xx^(yy^zz)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/xx^(yy^zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*xx^(yy^zz)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-xx^(yy^zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+xx^(yy^zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^xx^(yy^zz)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/xx^(yy^zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*xx^(yy^zz)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-xx^(yy^zz)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+xx^(yy^zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^xx^(yy^zz)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/xx^(yy^zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*xx^(yy^zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-xx^(yy^zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+xx^(yy^zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^xx^(yy^zz)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/xx^(yy^zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*xx^(yy^zz)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-xx^(yy^zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+xx^(yy^zz)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^xx^(yy^zz)
 ENDIF
 ENDIF
 ENDIF
 ENDIF
ELSEIF (@group2 == 1); outer
IF (@group == 0); inner
IF (@op3 == 0)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/xx^yy/zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*xx^yy/zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-xx^yy/zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+xx^yy/zz
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^xx^yy/zz
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/xx^yy/zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*xx^yy/zz
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-xx^yy/zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+xx^yy/zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^xx^yy/zz
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/xx^yy/zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*xx^yy/zz
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-xx^yy/zz
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+xx^yy/zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^xx^yy/zz
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/xx^yy/zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*xx^yy/zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-xx^yy/zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+xx^yy/zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^xx^yy/zz
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/xx^yy/zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*xx^yy/zz
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-xx^yy/zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+xx^yy/zz
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^xx^yy/zz
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/xx^yy*zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*xx^yy*zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-xx^yy*zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+xx^yy*zz
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^xx^yy*zz
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/xx^yy*zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*xx^yy*zz
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-xx^yy*zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+xx^yy*zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^xx^yy*zz
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/xx^yy*zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*xx^yy*zz
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-xx^yy*zz
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+xx^yy*zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^xx^yy*zz
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/xx^yy*zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*xx^yy*zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-xx^yy*zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+xx^yy*zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^xx^yy*zz
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/xx^yy*zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*xx^yy*zz
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-xx^yy*zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+xx^yy*zz
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^xx^yy*zz
 ENDIF
 ENDIF
ELSEIF (@op3 == 2)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/xx^yy-zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*xx^yy-zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-xx^yy-zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+xx^yy-zz
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^xx^yy-zz
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/xx^yy-zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*xx^yy-zz
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-xx^yy-zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+xx^yy-zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^xx^yy-zz
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/xx^yy-zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*xx^yy-zz
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-xx^yy-zz
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+xx^yy-zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^xx^yy-zz
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/xx^yy-zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*xx^yy-zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-xx^yy-zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+xx^yy-zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^xx^yy-zz
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/xx^yy-zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*xx^yy-zz
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-xx^yy-zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+xx^yy-zz
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^xx^yy-zz
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/xx^yy+zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*xx^yy+zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-xx^yy+zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+xx^yy+zz
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^xx^yy+zz
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/xx^yy+zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*xx^yy+zz
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-xx^yy+zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+xx^yy+zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^xx^yy+zz
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/xx^yy+zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*xx^yy+zz
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-xx^yy+zz
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+xx^yy+zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^xx^yy+zz
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/xx^yy+zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*xx^yy+zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-xx^yy+zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+xx^yy+zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^xx^yy+zz
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/xx^yy+zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*xx^yy+zz
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-xx^yy+zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+xx^yy+zz
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^xx^yy+zz
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/xx^yy^zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*xx^yy^zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-xx^yy^zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+xx^yy^zz
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^xx^yy^zz
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/xx^yy^zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*xx^yy^zz
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-xx^yy^zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+xx^yy^zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^xx^yy^zz
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/xx^yy^zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*xx^yy^zz
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-xx^yy^zz
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+xx^yy^zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^xx^yy^zz
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/xx^yy^zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*xx^yy^zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-xx^yy^zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+xx^yy^zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^xx^yy^zz
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/xx^yy^zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*xx^yy^zz
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-xx^yy^zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+xx^yy^zz
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^xx^yy^zz
 ENDIF
 ENDIF
 ENDIF
 ELSEIF (@group == 1); outer
IF (@op3 == 0)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/xx^(yy/zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*xx^(yy/zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-xx^(yy/zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+xx^(yy/zz)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^xx^(yy/zz)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/xx^(yy/zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*xx^(yy/zz)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-xx^(yy/zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+xx^(yy/zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^xx^(yy/zz)


 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/xx^(yy/zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*xx^(yy/zz)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-xx^(yy/zz)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+xx^(yy/zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^xx^(yy/zz)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/xx^(yy/zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*xx^(yy/zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-xx^(yy/zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+xx^(yy/zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^xx^(yy/zz)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/xx^(yy/zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*xx^(yy/zz)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-xx^(yy/zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+xx^(yy/zz)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^xx^(yy/zz)
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/xx^(yy*zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*xx^(yy*zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-xx^(yy*zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+xx^(yy*zz)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^xx^(yy*zz)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/xx^(yy*zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*xx^(yy*zz)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-xx^(yy*zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+xx^(yy*zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^xx^(yy*zz)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/xx^(yy*zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*xx^(yy*zz)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-xx^(yy*zz)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+xx^(yy*zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^xx^(yy*zz)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/xx^(yy*zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*xx^(yy*zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-xx^(yy*zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+xx^(yy*zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^xx^(yy*zz)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/xx^(yy*zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*xx^(yy*zz)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-xx^(yy*zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+xx^(yy*zz)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^xx^(yy*zz)
 ENDIF
 ENDIF
ELSEIF (@op3 == 2)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/xx^(yy-zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*xx^(yy-zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-xx^(yy-zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+xx^(yy-zz)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^xx^(yy-zz)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/xx^(yy-zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*xx^(yy-zz)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-xx^(yy-zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+xx^(yy-zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^xx^(yy-zz)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/xx^(yy-zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*xx^(yy-zz)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-xx^(yy-zz)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+xx^(yy-zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^xx^(yy-zz)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/xx^(yy-zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*xx^(yy-zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-xx^(yy-zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+xx^(yy-zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^xx^(yy-zz)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/xx^(yy-zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*xx^(yy-zz)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-xx^(yy-zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+xx^(yy-zz)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^xx^(yy-zz)
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/xx^(yy+zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*xx^(yy+zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-xx^(yy+zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+xx^(yy+zz)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^xx^(yy+zz)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/xx^(yy+zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*xx^(yy+zz)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-xx^(yy+zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+xx^(yy+zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^xx^(yy+zz)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)

 z = fn1(fn2(aa)-qq)/xx^(yy+zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*xx^(yy+zz)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-xx^(yy+zz)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+xx^(yy+zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^xx^(yy+zz)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/xx^(yy+zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*xx^(yy+zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-xx^(yy+zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+xx^(yy+zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^xx^(yy+zz)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/xx^(yy+zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*xx^(yy+zz)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-xx^(yy+zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+xx^(yy+zz)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^xx^(yy+zz)
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/xx^(yy^zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*xx^(yy^zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-xx^(yy^zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+xx^(yy^zz)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^xx^(yy^zz)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/xx^(yy^zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*xx^(yy^zz)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-xx^(yy^zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+xx^(yy^zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^xx^(yy^zz)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/xx^(yy^zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*xx^(yy^zz)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-xx^(yy^zz)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+xx^(yy^zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^xx^(yy^zz)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/xx^(yy^zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*xx^(yy^zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-xx^(yy^zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+xx^(yy^zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^xx^(yy^zz)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/xx^(yy^zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*xx^(yy^zz)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-xx^(yy^zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+xx^(yy^zz)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^xx^(yy^zz)
 ENDIF
 ENDIF
 ENDIF
 ENDIF
 ENDIF

bailout:
  |z| < real(@bailout)
switch:
  type = "GrandAtom02zJulia"
  seed = #pixel
  bailout = bailout
  power = @power
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  budge = @budge
  nudge = @nudge
  op = @op
  op2 = @op2
  op3 = @op3
  group = @group 
  group2 = @group2
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4 
  
default:
  title = "Grand Atom 02z"
  param start
  default = (2.0,0)
  endparam
  param bailout
  default = (2.0,0)
  endparam
  param power 
  default = (0,0)
  endparam
  param op 
  caption = "operator 1"
  default = 1
  enum = "/""*""-""+""^"
  endparam
  param op2 
  caption = "operator 2"
  default = 0
  enum = "/""*""-""+""^"
  endparam
  param op3
  caption = "operator 3"
  default = 1
  enum = "/""*""-""+""^"
  endparam
  param group
  caption = "grouping 1"
  default = 0
  enum = "inner""outer"
  endparam
  param group2
  caption = "grouping 2"
  default = 0
  enum = "inner""outer"
  endparam
  param exp1
  caption = "exponent 1"
  default = (1.0,0)
  endparam
  param exp2
  caption = "exponent 2"
  default = (1.0,0)
  endparam
  param exp3
  caption = "exponent 3"
  default = (1.0,0)
  endparam
  param exp4
  caption = "exponent 4"
  default = (1.0,0)
  endparam


  func fn1
  caption = "Function 1"
  default = atan()
  endfunc
  func fn2
  caption = "Function 2"
  default = abs()
  endfunc
  func fn3
  caption = "Function 3"
  default = tan()
  endfunc
  func fn4
  caption = "Function 4"
  default = ident()
  endfunc
  func fn5
  caption = "Function 5"
  default = ident()
  endfunc
  func fn6
  caption = "Function 6"
  default = ident()
  endfunc
  func fn7  
  caption = "Function 7"
  default = ident()
  endfunc

  periodicity = 0
  }

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
GrandAtom02zJulia {
;Toby Marshall, Dec. 2001 

;Special thanks to Ken Childress,  
;Jos Leys, Erik Nathan Reckase, 
;Mark Townsend and Frederik Slijkerman  
;for their suggestions and advice.

;Please see tma.txt for help and hints.

;Have fun!

init:
  z = #pixel
loop:
aa = @seed^@exp1-@power
qq = fn3(z-@budge)^@fn7(z)
xx = @fn5(real(@seed^@exp2+@power))
yy = @fn6(imag(@seed^@exp3-@power))
zz = fn4(@seed^@exp4)-@nudge
IF (@group2 == 0); inner
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/xx^yy/zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*xx^yy/zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-xx^yy/zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+xx^yy/zz
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^xx^yy/zz
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/xx^yy/zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*xx^yy/zz
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-xx^yy/zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+xx^yy/zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^xx^yy/zz
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/xx^yy/zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*xx^yy/zz
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-xx^yy/zz
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+xx^yy/zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^xx^yy/zz
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/xx^yy/zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*xx^yy/zz

 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-xx^yy/zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+xx^yy/zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^xx^yy/zz
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/xx^yy/zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*xx^yy/zz
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-xx^yy/zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+xx^yy/zz
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^xx^yy/zz
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/xx^yy*zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*xx^yy*zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-xx^yy*zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+xx^yy*zz
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^xx^yy*zz
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/xx^yy*zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*xx^yy*zz
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-xx^yy*zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+xx^yy*zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^xx^yy*zz
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/xx^yy*zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*xx^yy*zz
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-xx^yy*zz
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+xx^yy*zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^xx^yy*zz
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/xx^yy*zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*xx^yy*zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-xx^yy*zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+xx^yy*zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^xx^yy*zz
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/xx^yy*zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*xx^yy*zz
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-xx^yy*zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+xx^yy*zz
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^xx^yy*zz
 ENDIF
 ENDIF
ELSEIF (@op3 == 2)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/xx^yy-zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*xx^yy-zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-xx^yy-zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+xx^yy-zz
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^xx^yy-zz
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/xx^yy-zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*xx^yy-zz
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-xx^yy-zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+xx^yy-zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^xx^yy-zz
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/xx^yy-zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*xx^yy-zz
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-xx^yy-zz
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+xx^yy-zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^xx^yy-zz
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/xx^yy-zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*xx^yy-zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-xx^yy-zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+xx^yy-zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^xx^yy-zz
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/xx^yy-zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*xx^yy-zz
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-xx^yy-zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+xx^yy-zz
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^xx^yy-zz
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/xx^yy+zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*xx^yy+zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-xx^yy+zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+xx^yy+zz

 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^xx^yy+zz
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/xx^yy+zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*xx^yy+zz
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-xx^yy+zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+xx^yy+zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^xx^yy+zz
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/xx^yy+zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*xx^yy+zz
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-xx^yy+zz
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+xx^yy+zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^xx^yy+zz
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/xx^yy+zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*xx^yy+zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-xx^yy+zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+xx^yy+zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^xx^yy+zz
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/xx^yy+zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*xx^yy+zz
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-xx^yy+zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+xx^yy+zz
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^xx^yy+zz
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/xx^yy^zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*xx^yy^zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-xx^yy^zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+xx^yy^zz
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^xx^yy^zz
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/xx^yy^zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*xx^yy^zz
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-xx^yy^zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+xx^yy^zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^xx^yy^zz
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/xx^yy^zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*xx^yy^zz
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-xx^yy^zz
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+xx^yy^zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^xx^yy^zz
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/xx^yy^zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*xx^yy^zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-xx^yy^zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+xx^yy^zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^xx^yy^zz
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/xx^yy^zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*xx^yy^zz
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-xx^yy^zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+xx^yy^zz
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^xx^yy^zz
 ENDIF
 ENDIF
 ENDIF
 ELSEIF (@group == 1); outer
IF (@op3 == 0)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/xx^(yy/zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*xx^(yy/zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-xx^(yy/zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+xx^(yy/zz)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^xx^(yy/zz)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/xx^(yy/zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*xx^(yy/zz)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-xx^(yy/zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+xx^(yy/zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^xx^(yy/zz)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/xx^(yy/zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*xx^(yy/zz)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-xx^(yy/zz)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+xx^(yy/zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^xx^(yy/zz)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/xx^(yy/zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*xx^(yy/zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-xx^(yy/zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+xx^(yy/zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^xx^(yy/zz)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/xx^(yy/zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*xx^(yy/zz)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-xx^(yy/zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+xx^(yy/zz)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^xx^(yy/zz)
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/xx^(yy*zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*xx^(yy*zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-xx^(yy*zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+xx^(yy*zz)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^xx^(yy*zz)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/xx^(yy*zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*xx^(yy*zz)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-xx^(yy*zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+xx^(yy*zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^xx^(yy*zz)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/xx^(yy*zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*xx^(yy*zz)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-xx^(yy*zz)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+xx^(yy*zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^xx^(yy*zz)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/xx^(yy*zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*xx^(yy*zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-xx^(yy*zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+xx^(yy*zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^xx^(yy*zz)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/xx^(yy*zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*xx^(yy*zz)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-xx^(yy*zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+xx^(yy*zz)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^xx^(yy*zz)
 ENDIF
 ENDIF
ELSEIF (@op3 == 2)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/xx^(yy-zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*xx^(yy-zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-xx^(yy-zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+xx^(yy-zz)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^xx^(yy-zz)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/xx^(yy-zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*xx^(yy-zz)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-xx^(yy-zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+xx^(yy-zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^xx^(yy-zz)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/xx^(yy-zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*xx^(yy-zz)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-xx^(yy-zz)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+xx^(yy-zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^xx^(yy-zz)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/xx^(yy-zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*xx^(yy-zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-xx^(yy-zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+xx^(yy-zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^xx^(yy-zz)
 ENDIF
 ELSEIF (@op == 4)

 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/xx^(yy-zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*xx^(yy-zz)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-xx^(yy-zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+xx^(yy-zz)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^xx^(yy-zz)
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/xx^(yy+zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*xx^(yy+zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-xx^(yy+zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+xx^(yy+zz)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^xx^(yy+zz)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/xx^(yy+zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*xx^(yy+zz)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-xx^(yy+zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+xx^(yy+zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^xx^(yy+zz)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/xx^(yy+zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*xx^(yy+zz)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-xx^(yy+zz)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+xx^(yy+zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^xx^(yy+zz)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/xx^(yy+zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*xx^(yy+zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-xx^(yy+zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+xx^(yy+zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^xx^(yy+zz)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/xx^(yy+zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*xx^(yy+zz)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-xx^(yy+zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+xx^(yy+zz)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^xx^(yy+zz)
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa))/qq/xx^(yy^zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))/qq*xx^(yy^zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))/qq-xx^(yy^zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))/qq+xx^(yy^zz)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa))/qq^xx^(yy^zz)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa))*qq/xx^(yy^zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))*qq*xx^(yy^zz)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))*qq-xx^(yy^zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))*qq+xx^(yy^zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))*qq^xx^(yy^zz)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa))-qq/xx^(yy^zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))-qq*xx^(yy^zz)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa))-qq-xx^(yy^zz)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa))-qq+xx^(yy^zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))-qq^xx^(yy^zz)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa))+qq/xx^(yy^zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))+qq*xx^(yy^zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa))+qq-xx^(yy^zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))+qq+xx^(yy^zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa))+qq^xx^(yy^zz)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa))^qq/xx^(yy^zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa))^qq*xx^(yy^zz)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa))^qq-xx^(yy^zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa))^qq+xx^(yy^zz)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa))^qq^xx^(yy^zz)
 ENDIF
 ENDIF
 ENDIF
 ENDIF
ELSEIF (@group2 == 1); outer
IF (@group == 0); inner
IF (@op3 == 0)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/xx^yy/zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*xx^yy/zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-xx^yy/zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+xx^yy/zz
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^xx^yy/zz
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/xx^yy/zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*xx^yy/zz
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-xx^yy/zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+xx^yy/zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^xx^yy/zz
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/xx^yy/zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*xx^yy/zz
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-xx^yy/zz
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+xx^yy/zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^xx^yy/zz
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/xx^yy/zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*xx^yy/zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-xx^yy/zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+xx^yy/zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^xx^yy/zz
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/xx^yy/zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*xx^yy/zz
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-xx^yy/zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+xx^yy/zz
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^xx^yy/zz
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/xx^yy*zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*xx^yy*zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-xx^yy*zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+xx^yy*zz
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^xx^yy*zz
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/xx^yy*zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*xx^yy*zz
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-xx^yy*zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+xx^yy*zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^xx^yy*zz
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/xx^yy*zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*xx^yy*zz
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-xx^yy*zz
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+xx^yy*zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^xx^yy*zz
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/xx^yy*zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*xx^yy*zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-xx^yy*zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+xx^yy*zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^xx^yy*zz
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/xx^yy*zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*xx^yy*zz
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-xx^yy*zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+xx^yy*zz
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^xx^yy*zz
 ENDIF
 ENDIF
ELSEIF (@op3 == 2)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/xx^yy-zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*xx^yy-zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-xx^yy-zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+xx^yy-zz
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^xx^yy-zz
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/xx^yy-zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*xx^yy-zz
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-xx^yy-zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+xx^yy-zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^xx^yy-zz
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/xx^yy-zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*xx^yy-zz
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-xx^yy-zz
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+xx^yy-zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^xx^yy-zz
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/xx^yy-zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*xx^yy-zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-xx^yy-zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+xx^yy-zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^xx^yy-zz
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/xx^yy-zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*xx^yy-zz
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-xx^yy-zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+xx^yy-zz
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^xx^yy-zz
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/xx^yy+zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*xx^yy+zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-xx^yy+zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+xx^yy+zz
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^xx^yy+zz
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/xx^yy+zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*xx^yy+zz
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-xx^yy+zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+xx^yy+zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^xx^yy+zz
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/xx^yy+zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*xx^yy+zz
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-xx^yy+zz
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+xx^yy+zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^xx^yy+zz
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/xx^yy+zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*xx^yy+zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-xx^yy+zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+xx^yy+zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^xx^yy+zz
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/xx^yy+zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*xx^yy+zz
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-xx^yy+zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+xx^yy+zz
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^xx^yy+zz
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/xx^yy^zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*xx^yy^zz
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-xx^yy^zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+xx^yy^zz
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^xx^yy^zz
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/xx^yy^zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*xx^yy^zz
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-xx^yy^zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+xx^yy^zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^xx^yy^zz
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/xx^yy^zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*xx^yy^zz
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-xx^yy^zz
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+xx^yy^zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^xx^yy^zz
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/xx^yy^zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*xx^yy^zz
 ELSEIF (@op2 == 2)

 z = fn1(fn2(aa)+qq)-xx^yy^zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+xx^yy^zz
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^xx^yy^zz
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/xx^yy^zz
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*xx^yy^zz
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-xx^yy^zz
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+xx^yy^zz
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^xx^yy^zz
 ENDIF
 ENDIF
 ENDIF
 ELSEIF (@group == 1); outer
IF (@op3 == 0)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/xx^(yy/zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*xx^(yy/zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-xx^(yy/zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+xx^(yy/zz)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^xx^(yy/zz)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/xx^(yy/zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*xx^(yy/zz)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-xx^(yy/zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+xx^(yy/zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^xx^(yy/zz)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/xx^(yy/zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*xx^(yy/zz)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-xx^(yy/zz)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+xx^(yy/zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^xx^(yy/zz)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/xx^(yy/zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*xx^(yy/zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-xx^(yy/zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+xx^(yy/zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^xx^(yy/zz)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/xx^(yy/zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*xx^(yy/zz)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-xx^(yy/zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+xx^(yy/zz)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^xx^(yy/zz)
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/xx^(yy*zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*xx^(yy*zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-xx^(yy*zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+xx^(yy*zz)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^xx^(yy*zz)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/xx^(yy*zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*xx^(yy*zz)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-xx^(yy*zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+xx^(yy*zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^xx^(yy*zz)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/xx^(yy*zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*xx^(yy*zz)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-xx^(yy*zz)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+xx^(yy*zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^xx^(yy*zz)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/xx^(yy*zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*xx^(yy*zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-xx^(yy*zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+xx^(yy*zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^xx^(yy*zz)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/xx^(yy*zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*xx^(yy*zz)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-xx^(yy*zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+xx^(yy*zz)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^xx^(yy*zz)
 ENDIF
 ENDIF
ELSEIF (@op3 == 2)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/xx^(yy-zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*xx^(yy-zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-xx^(yy-zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+xx^(yy-zz)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^xx^(yy-zz)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/xx^(yy-zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*xx^(yy-zz)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-xx^(yy-zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+xx^(yy-zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^xx^(yy-zz)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/xx^(yy-zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*xx^(yy-zz)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-xx^(yy-zz)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+xx^(yy-zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^xx^(yy-zz)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/xx^(yy-zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*xx^(yy-zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-xx^(yy-zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+xx^(yy-zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^xx^(yy-zz)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/xx^(yy-zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*xx^(yy-zz)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-xx^(yy-zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+xx^(yy-zz)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^xx^(yy-zz)
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/xx^(yy+zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*xx^(yy+zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-xx^(yy+zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+xx^(yy+zz)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^xx^(yy+zz)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/xx^(yy+zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*xx^(yy+zz)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-xx^(yy+zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+xx^(yy+zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^xx^(yy+zz)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/xx^(yy+zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*xx^(yy+zz)
 ELSEIF (@op2 == 2)
  z = fn1(fn2(aa)-qq)-xx^(yy+zz)
  ELSEIF (@op2 == 3)
  z = fn1(fn2(aa)-qq)+xx^(yy+zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^xx^(yy+zz)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/xx^(yy+zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*xx^(yy+zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-xx^(yy+zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+xx^(yy+zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^xx^(yy+zz)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/xx^(yy+zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*xx^(yy+zz)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-xx^(yy+zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+xx^(yy+zz)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^xx^(yy+zz)
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(fn2(aa)/qq)/xx^(yy^zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)/qq)*xx^(yy^zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)/qq)-xx^(yy^zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)/qq)+xx^(yy^zz)
 ELSEIF (@op2 == 4)
  z = fn1(fn2(aa)/qq)^xx^(yy^zz)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(fn2(aa)*qq)/xx^(yy^zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)*qq)*xx^(yy^zz)
  ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)*qq)-xx^(yy^zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)*qq)+xx^(yy^zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)*qq)^xx^(yy^zz)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(fn2(aa)-qq)/xx^(yy^zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)-qq)*xx^(yy^zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)-qq)-xx^(yy^zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)-qq)+xx^(yy^zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)-qq)^xx^(yy^zz)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(fn2(aa)+qq)/xx^(yy^zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)+qq)*xx^(yy^zz)
 ELSEIF (@op2 == 2)
 z = fn1(fn2(aa)+qq)-xx^(yy^zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)+qq)+xx^(yy^zz)
 ELSEIF (@op2 == 4)
 z = fn1(fn2(aa)+qq)^xx^(yy^zz)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(fn2(aa)^qq)/xx^(yy^zz)
 ELSEIF (@op2 == 1)
 z = fn1(fn2(aa)^qq)*xx^(yy^zz)
 ELSEIF (@op2 == 2);subtract
  z = fn1(fn2(aa)^qq)-xx^(yy^zz)
 ELSEIF (@op2 == 3)
 z = fn1(fn2(aa)^qq)+xx^(yy^zz)
 ELSEIF (@op == 4)
 z = fn1(fn2(aa)^qq)^xx^(yy^zz)
 ENDIF
 ENDIF
 ENDIF
 ENDIF
 ENDIF

bailout:
  |z| < real(@bailout)
switch:
  type = "GrandAtom02z"
  bailout = bailout
  power = @power
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  budge = @budge
  nudge = @nudge
  op = @op
  op2 = @op2
  op3 = @op3
  group = @group 
  group2 = @group2
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4 

default:
  title = "Grand Atom 02z Julia"
  param seed
  default = (.95,-1)
  endparam
  param bailout
  default = (2.0,0)
  endparam
  param power 
  default = (0,0)
  endparam
  param op 
  caption = "operator 1"
  default = 1
  enum = "/""*""-""+""^"
  endparam
  param op2 
  caption = "operator 2"
  default = 0
  enum = "/""*""-""+""^"
  endparam
  param op3
  caption = "operator 3"
  default = 1
   enum = "/""*""-""+""^"
  endparam
  param group
  caption = "grouping 1"
  default = 0
  enum = "inner""outer"
  endparam
  param group2
  caption = "grouping 2"
  default = 0
  enum = "inner""outer"
  endparam
  param exp1
  caption = "exponent 1"
  default = (1.0,0)
  endparam
  param exp2
  caption = "exponent 2"
  default = (1.0,0)
  endparam
  param exp3
  caption = "exponent 3"
  default = (1.0,0)
  endparam
  param exp4
  caption = "exponent 4"
  default = (1.0,0)
  endparam


  func fn1
  caption = "Function 1"
  default = atan()
  endfunc
  func fn2
  caption = "Function 2"
  default = abs()
  endfunc
  func fn3
  caption = "Function 3"
  default = tan()
  endfunc
  func fn4
  caption = "Function 4"
  default = ident()
  endfunc
  func fn5
  caption = "Function 5"
  default = ident()
  endfunc
  func fn6
  caption = "Function 6"
  default = ident()
  endfunc
  func fn7  
  caption = "Function 7"
  default = ident()
  endfunc

  periodicity = 0
}

******************************************************************************************
DragonAtom01z {
;Toby Marshall, Dec. 2001

;Similar structure to its non-z counterpart
;but with quite different behavior.

;Choose your parameter and function values 
;then explore the resulting figure with 
;the Julia switch.

;Special thanks to Ken Childress,  
;Jos Leys, Erik Nathan Reckase, 
;Mark Townsend and Frederik Slijkerman  
;for their suggestions and advice.

;Please see tma.txt for help and hints.

;Have fun!

init:
  z = @start
loop:
aa = #pixel/(z-@kludge)/fn2(#pixel^@exp1-@power)
ww = @fn5(real(#pixel^@exp2+@power))
xx = @fn6(imag(#pixel^@exp3-@power))
yy = fn3(z-@budge)^@fn7(z)
qq = fn4(#pixel^@exp4)-@nudge
IF (@group2 == 0); inner
IF (@group == 0); inner
IF (@op3 == 0)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^xx/qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^xx/qq
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^xx/qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^xx/qq
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^xx/qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^xx/qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^xx/qq
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^xx/qq
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^xx/qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^xx/qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^xx/qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^xx/qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^xx/qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^xx/qq
 ELSEIF (@op2 == 2)
  z = fn1(aa)^yy-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^xx/qq
 ELSEIF (@op == 4)

 z = fn1(aa)^yy^ww^xx/qq
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^xx*qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^xx*qq
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^xx*qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^xx*qq
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^xx*qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^xx*qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^xx*qq
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^xx*qq
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^xx*qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^xx*qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^xx*qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^xx*qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^xx*qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^xx*qq
 ELSEIF (@op2 == 2)
  z = fn1(aa)^yy-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^xx*qq
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^xx*qq
 ENDIF
 ENDIF
ELSEIF (@op3 == 2)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^xx-qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^xx-qq
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^xx-qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^xx-qq
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^xx-qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^xx-qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^xx-qq
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^xx-qq
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^xx-qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^xx-qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^xx-qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^xx-qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^xx-qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^xx-qq
 ELSEIF (@op2 == 2)
  z = fn1(aa)^yy-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^xx-qq
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^xx-qq
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^xx+qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^xx+qq
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^xx+qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^xx+qq
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^xx+qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^xx+qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^xx+qq
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^xx+qq
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^xx+qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^xx+qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^xx+qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^xx+qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^xx+qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^xx+qq
 ELSEIF (@op2 == 2)
  z = fn1(aa)^yy-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^xx+qq
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^xx+qq
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^xx^qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^xx^qq
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^xx^qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^xx^qq
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^xx^qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^xx^qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^xx^qq
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^xx^qq
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^xx^qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^xx^qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^xx^qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^xx^qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^xx^qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^xx^qq
 ELSEIF (@op2 == 2)
  z = fn1(aa)^yy-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^xx^qq
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^xx^qq
 ENDIF
 ENDIF
 ENDIF
 ELSEIF (@group == 1); outer
IF (@op3 == 0)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^(xx/qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^(xx/qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^(xx/qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^(xx/qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^(xx/qq)
 ELSEIF (@op2 == 3)

 z = fn1(aa)*yy+ww^(xx/qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^(xx/qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^(xx/qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^(xx/qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^(xx/qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^(xx/qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^(xx/qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^(xx/qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa)^yy-ww^(xx/qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^(xx/qq)
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^(xx/qq)
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^(xx*qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^(xx*qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^(xx*qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^(xx*qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^(xx*qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^(xx*qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^(xx*qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^(xx*qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^(xx*qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^(xx*qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa)^yy-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^(xx*qq)
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^(xx*qq)
 ENDIF
 ENDIF
ELSEIF (@op3 == 2)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^(xx-qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^(xx-qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^(xx-qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^(xx-qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^(xx-qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^(xx-qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^(xx-qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^(xx-qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^(xx-qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^(xx-qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa)^yy-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^(xx-qq)
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^(xx-qq)
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^(xx+qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^(xx+qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^(xx+qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^(xx+qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^(xx+qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^(xx+qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^(xx+qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^(xx+qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^(xx+qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^(xx+qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa)^yy-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^(xx+qq)
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^(xx+qq)
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^(xx^qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^(xx^qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^(xx^qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^(xx^qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^(xx^qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^(xx^qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^(xx^qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^(xx^qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^(xx^qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^(xx^qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa)^yy-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^(xx^qq)
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^(xx^qq)
 ENDIF
 ENDIF
 ENDIF
 ENDIF
ELSEIF (@group2 == 1); outer
IF (@group == 0); inner
IF (@op3 == 0)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^xx/qq
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^xx/qq
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^xx/qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^xx/qq
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^xx/qq
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^xx/qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^xx/qq
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^xx/qq
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^xx/qq
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^xx/qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^xx/qq
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^xx/qq
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^xx/qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^xx/qq
 ELSEIF (@op2 == 2)
  z = fn1(aa^yy)-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^xx/qq
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^xx/qq
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^xx*qq
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^xx*qq
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^xx*qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^xx*qq
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^xx*qq
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^xx*qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^xx*qq
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^xx*qq
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^xx*qq
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^xx*qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^xx*qq
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^xx*qq
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^xx*qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^xx*qq
 ELSEIF (@op2 == 2)
  z = fn1(aa^yy)-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^xx*qq
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^xx*qq
 ENDIF
 ENDIF
ELSEIF (@op3 == 2)
  IF (@op == 0)

IF (@op2 == 0)
 z = fn1(aa/yy)/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^xx-qq
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^xx-qq
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^xx-qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^xx-qq
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^xx-qq
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^xx-qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^xx-qq
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^xx-qq
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^xx-qq
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^xx-qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^xx-qq
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^xx-qq
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^xx-qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^xx-qq
 ELSEIF (@op2 == 2)
  z = fn1(aa^yy)-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^xx-qq
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^xx-qq
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^xx+qq
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^xx+qq
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^xx+qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^xx+qq
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^xx+qq
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^xx+qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^xx+qq
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^xx+qq
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^xx+qq
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^xx+qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^xx+qq
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^xx+qq
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^xx+qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^xx+qq
 ELSEIF (@op2 == 2)
  z = fn1(aa^yy)-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^xx+qq
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^xx+qq
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^xx^qq
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^xx^qq
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^xx^qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^xx^qq
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^xx^qq
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^xx^qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^xx^qq
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^xx^qq
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^xx^qq
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^xx^qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^xx^qq
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^xx^qq
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^xx^qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^xx^qq
 ELSEIF(@op2 == 2) 
  z = fn1(aa^yy)-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^xx^qq
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^xx^qq
 ENDIF
 ENDIF
 ENDIF
 ELSEIF (@group == 1); outer
IF (@op3 == 0)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^(xx/qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^(xx/qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^(xx/qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^(xx/qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^(xx/qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^(xx/qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^(xx/qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^(xx/qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^(xx/qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^(xx/qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^(xx/qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^(xx/qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^(xx/qq)
 ELSEIF(@op2 == 2) 
  z = fn1(aa^yy)-ww^(xx/qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^(xx/qq)
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^(xx/qq)
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^(xx*qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^(xx*qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^(xx*qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^(xx*qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^(xx*qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^(xx*qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^(xx*qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^(xx*qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^(xx*qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^(xx*qq)
 ELSEIF(@op2 == 2) 
  z = fn1(aa^yy)-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^(xx*qq)
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^(xx*qq)
 ENDIF
 ENDIF
ELSEIF (@op3 == 2)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^(xx-qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^(xx-qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^(xx-qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^(xx-qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^(xx-qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^(xx-qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^(xx-qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^(xx-qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^(xx-qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^(xx-qq)
 ELSEIF(@op2 == 2) 
  z = fn1(aa^yy)-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^(xx-qq)
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^(xx-qq)
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^(xx+qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^(xx+qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^(xx+qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^(xx+qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)

 z = fn1(aa-yy)/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^(xx+qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^(xx+qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^(xx+qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^(xx+qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^(xx+qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^(xx+qq)
 ELSEIF(@op2 == 2) 
  z = fn1(aa^yy)-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^(xx+qq)
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^(xx+qq)
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^(xx^qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^(xx^qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^(xx^qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^(xx^qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^(xx^qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^(xx^qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^(xx^qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^(xx^qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^(xx^qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^(xx^qq)
 ELSEIF(@op2 == 2) 
  z = fn1(aa^yy)-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^(xx^qq)
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^(xx^qq)
 ENDIF
 ENDIF
 ENDIF
 ENDIF
 ENDIF

bailout:
  |z| < real(@bailout)
switch:
  type = "DragonAtom01zJulia"
  seed = #pixel
  bailout = bailout
  power = @power
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  budge = @budge
  nudge = @nudge
  op = @op
  op2 = @op2
  op3 = @op3
  group = @group 
  group2 = @group2
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4 
  
default:
  title = "Dragon Atom 01z"
  param start
  default = (2.0,0)
  endparam
  param bailout
  default = (2.0,0)
  endparam
  param power 
  default = (0,0)
  endparam
  param op 
  caption = "operator 1"
  default = 1
  enum = "/""*""-""+""^"
  endparam
  param op2 
  caption = "operator 2"
  default = 0
  enum = "/""*""-""+""^"
  endparam
  param op3
  caption = "operator 3"
  default = 1
  enum = "/""*""-""+""^"
  endparam
  param group
  caption = "grouping 1"
  default = 0
  enum = "inner""outer"
  endparam
  param group2
  caption = "grouping 2"
  default = 0
  enum = "inner""outer"
  endparam
  param exp1
  caption = "exponent 1"
  default = (1.0,0)
  endparam
  param exp2
  caption = "exponent 2"
  default = (1.0,0)
  endparam
  param exp3
  caption = "exponent 3"
  default = (1.0,0)
  endparam
  param exp4
  caption = "exponent 4"
  default = (1.0,0)
  endparam


  func fn1
  caption = "Function 1"
  default = atan()
  endfunc
  func fn2
  caption = "Function 2"
  default = abs()
  endfunc
  func fn3
  caption = "Function 3"
  default = tan()
  endfunc
  func fn4
  caption = "Function 4"
  default = ident()
  endfunc
  func fn5
  caption = "Function 5"
  default = ident()
  endfunc
  func fn6
  caption = "Function 6"
  default = ident()
  endfunc
  func fn7  
  caption = "Function 7"
  default = ident()
  endfunc

  periodicity = 0
  }

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
DragonAtom01zJulia {
;Toby Marshall, Dec. 2001 

;Special thanks to Ken Childress,  
;Jos Leys, Erik Nathan Reckase, 
;Mark Townsend and Frederik Slijkerman  
;for their suggestions and advice.

;Please see tma.txt for help and hints.

;Have fun!

init:
  z = #pixel
loop:
aa = @seed/(z-@kludge)/fn2(@seed^@exp1-@power)
ww = @fn5(real(@seed^@exp2+@power))
xx = @fn6(imag(@seed^@exp3-@power))
yy = fn3(z-@budge)^@fn7(z)
qq = fn4(@seed^@exp4)-@nudge
IF (@group2 == 0); inner
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^xx/qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^xx/qq
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^xx/qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^xx/qq
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^xx/qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^xx/qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^xx/qq
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^xx/qq
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^xx/qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^xx/qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^xx/qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^xx/qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^xx/qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^xx/qq
 ELSEIF(@op2 == 2) 
  z = fn1(aa)^yy-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^xx/qq
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^xx/qq
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^xx*qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^xx*qq
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^xx*qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^xx*qq
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^xx*qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^xx*qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^xx*qq
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^xx*qq
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^xx*qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^xx*qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^xx*qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^xx*qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^xx*qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^xx*qq
 ELSEIF(@op2 == 2) 
  z = fn1(aa)^yy-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^xx*qq
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^xx*qq
 ENDIF
 ENDIF
ELSEIF (@op3 == 2)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^xx-qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^xx-qq
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^xx-qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^xx-qq
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^xx-qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^xx-qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^xx-qq
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^xx-qq
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^xx-qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^xx-qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^xx-qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^xx-qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^xx-qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^xx-qq
 ELSEIF(@op2 == 2) 
  z = fn1(aa)^yy-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^xx-qq
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^xx-qq
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^xx+qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^xx+qq
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^xx+qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^xx+qq
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^xx+qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^xx+qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^xx+qq
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^xx+qq
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^xx+qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^xx+qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^xx+qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^xx+qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^xx+qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^xx+qq
 ELSEIF(@op2 == 2) 
  z = fn1(aa)^yy-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^xx+qq
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^xx+qq
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^xx^qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^xx^qq
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^xx^qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^xx^qq
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^xx^qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^xx^qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^xx^qq
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^xx^qq
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^xx^qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^xx^qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^xx^qq
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^xx^qq
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^xx^qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^xx^qq
 ELSEIF(@op2 == 2) 
  z = fn1(aa)^yy-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^xx^qq
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^xx^qq
 ENDIF
 ENDIF
 ENDIF
 ELSEIF (@group == 1); outer
IF (@op3 == 0)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^(xx/qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^(xx/qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^(xx/qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^(xx/qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^(xx/qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^(xx/qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^(xx/qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^(xx/qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^(xx/qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^(xx/qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^(xx/qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^(xx/qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^(xx/qq)
 ELSEIF(@op2 == 2) 
  z = fn1(aa)^yy-ww^(xx/qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^(xx/qq)
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^(xx/qq)
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^(xx*qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^(xx*qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^(xx*qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^(xx*qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^(xx*qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^(xx*qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^(xx*qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^(xx*qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^(xx*qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^(xx*qq)
 ELSEIF(@op2 == 2) 
  z = fn1(aa)^yy-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^(xx*qq)
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^(xx*qq)
 ENDIF
 ENDIF
ELSEIF (@op3 == 2)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^(xx-qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^(xx-qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^(xx-qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^(xx-qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^(xx-qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^(xx-qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^(xx-qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^(xx-qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^(xx-qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^(xx-qq)
 ELSEIF(@op2 == 2) 
  z = fn1(aa)^yy-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^(xx-qq)
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^(xx-qq)
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^(xx+qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^(xx+qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^(xx+qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^(xx+qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^(xx+qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^(xx+qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^(xx+qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^(xx+qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^(xx+qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^(xx+qq)
 ELSEIF(@op2 == 2) 
  z = fn1(aa)^yy-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^(xx+qq)
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^(xx+qq)
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa)/yy/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)/yy*ww^(xx^qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)/yy-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)/yy+ww^(xx^qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa)/yy^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa)*yy/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)*yy*ww^(xx^qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa)*yy-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)*yy+ww^(xx^qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)*yy^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa)-yy/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)-yy*ww^(xx^qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa)-yy-ww^(xx^qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa)-yy+ww^(xx^qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)-yy^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa)+yy/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)+yy*ww^(xx^qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa)+yy-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)+yy+ww^(xx^qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa)+yy^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa)^yy/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa)^yy*ww^(xx^qq)
 ELSEIF(@op2 == 2) 
  z = fn1(aa)^yy-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa)^yy+ww^(xx^qq)
 ELSEIF (@op == 4)
 z = fn1(aa)^yy^ww^(xx^qq)
 ENDIF
 ENDIF
 ENDIF
 ENDIF
ELSEIF (@group2 == 1); outer
IF (@group == 0); inner
IF (@op3 == 0)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^xx/qq
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^xx/qq
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^xx/qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^xx/qq
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^xx/qq
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^xx/qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^xx/qq
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^xx/qq
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^xx/qq
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^xx/qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^xx/qq
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^xx/qq
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^xx/qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^xx/qq
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^xx/qq
 ELSEIF (@op2 == 2)
  z = fn1(aa^yy)-ww^xx/qq
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^xx/qq
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^xx/qq
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^xx*qq
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^xx*qq
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^xx*qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^xx*qq
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^xx*qq
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^xx*qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^xx*qq
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^xx*qq
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^xx*qq
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^xx*qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^xx*qq
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^xx*qq
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^xx*qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^xx*qq
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^xx*qq
 ELSEIF(@op2 == 2) 
  z = fn1(aa^yy)-ww^xx*qq
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^xx*qq
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^xx*qq
 ENDIF
 ENDIF
ELSEIF (@op3 == 2)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^xx-qq
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^xx-qq
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^xx-qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^xx-qq
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^xx-qq
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^xx-qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^xx-qq
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^xx-qq
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^xx-qq
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^xx-qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^xx-qq
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^xx-qq
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^xx-qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^xx-qq
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^xx-qq
 ELSEIF(@op2 == 2) 
  z = fn1(aa^yy)-ww^xx-qq
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^xx-qq
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^xx-qq
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^xx+qq
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^xx+qq
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^xx+qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^xx+qq
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^xx+qq
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^xx+qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^xx+qq
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^xx+qq
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^xx+qq
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^xx+qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^xx+qq
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^xx+qq
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^xx+qq
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^xx+qq
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^xx+qq
 ELSEIF(@op2 == 2) 
  z = fn1(aa^yy)-ww^xx+qq
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^xx+qq
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^xx+qq
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^xx^qq
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^xx^qq
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^xx^qq
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^xx^qq
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^xx^qq
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^xx^qq
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^xx^qq
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^xx^qq
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^xx^qq
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^xx^qq
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^xx^qq
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^xx^qq
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^xx^qq
 ENDIF

 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^xx^qq
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^xx^qq
 ELSEIF(@op2 == 2) 
  z = fn1(aa^yy)-ww^xx^qq
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^xx^qq
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^xx^qq
 ENDIF
 ENDIF
 ENDIF
 ELSEIF (@group == 1); outer
IF (@op3 == 0)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^(xx/qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^(xx/qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^(xx/qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^(xx/qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^(xx/qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^(xx/qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^(xx/qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^(xx/qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^(xx/qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^(xx/qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^(xx/qq)
 ELSEIF (@op2 == 3)

 z = fn1(aa+yy)+ww^(xx/qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^(xx/qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^(xx/qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^(xx/qq)
 ELSEIF(@op2 == 2) 
  z = fn1(aa^yy)-ww^(xx/qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^(xx/qq)
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^(xx/qq)
 ENDIF
 ENDIF
 ELSEIF (@op3 == 1)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^(xx*qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^(xx*qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^(xx*qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^(xx*qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^(xx*qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^(xx*qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^(xx*qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^(xx*qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^(xx*qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^(xx*qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^(xx*qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^(xx*qq)
 ELSEIF(@op2 == 2) 
  z = fn1(aa^yy)-ww^(xx*qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^(xx*qq)
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^(xx*qq)
 ENDIF
 ENDIF
ELSEIF (@op3 == 2)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^(xx-qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^(xx-qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^(xx-qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^(xx-qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^(xx-qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^(xx-qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^(xx-qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^(xx-qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^(xx-qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^(xx-qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^(xx-qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^(xx-qq)
 ELSEIF(@op2 == 2) 
  z = fn1(aa^yy)-ww^(xx-qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^(xx-qq)
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^(xx-qq)
 ENDIF
 ENDIF
ELSEIF (@op3 == 3)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^(xx+qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^(xx+qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^(xx+qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^(xx+qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^(xx+qq)
 ELSEIF (@op2 == 2)
  z = fn1(aa-yy)-ww^(xx+qq)
  ELSEIF (@op2 == 3)
  z = fn1(aa-yy)+ww^(xx+qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^(xx+qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^(xx+qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^(xx+qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^(xx+qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^(xx+qq)
 ELSEIF(@op2 == 2) 
  z = fn1(aa^yy)-ww^(xx+qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^(xx+qq)
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^(xx+qq)
 ENDIF
 ENDIF
ELSEIF (@op3 == 4)
  IF (@op == 0)
IF (@op2 == 0)
 z = fn1(aa/yy)/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa/yy)*ww^(xx^qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa/yy)-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa/yy)+ww^(xx^qq)
 ELSEIF (@op2 == 4)
  z = fn1(aa/yy)^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 1)
 IF (@op2 == 0)
 z = fn1(aa*yy)/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa*yy)*ww^(xx^qq)
  ELSEIF (@op2 == 2)
 z = fn1(aa*yy)-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa*yy)+ww^(xx^qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa*yy)^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 2)
 IF (@op2 == 0)
 z = fn1(aa-yy)/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa-yy)*ww^(xx^qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa-yy)-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa-yy)+ww^(xx^qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa-yy)^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 3)
 IF (@op2 == 0)
 z = fn1(aa+yy)/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa+yy)*ww^(xx^qq)
 ELSEIF (@op2 == 2)
 z = fn1(aa+yy)-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa+yy)+ww^(xx^qq)
 ELSEIF (@op2 == 4)
 z = fn1(aa+yy)^ww^(xx^qq)
 ENDIF
 ELSEIF (@op == 4)
 IF (@op2 == 0)
 z = fn1(aa^yy)/ww^(xx^qq)
 ELSEIF (@op2 == 1)
 z = fn1(aa^yy)*ww^(xx^qq)
 ELSEIF(@op2 == 2) 
  z = fn1(aa^yy)-ww^(xx^qq)
 ELSEIF (@op2 == 3)
 z = fn1(aa^yy)+ww^(xx^qq)
 ELSEIF (@op == 4)
 z = fn1(aa^yy)^ww^(xx^qq)
 ENDIF
 ENDIF
 ENDIF
 ENDIF
 ENDIF

bailout:
  |z| < real(@bailout)
switch:
  type = "DragonAtom01z"
  bailout = bailout
  power = @power
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  budge = @budge
  nudge = @nudge
  op = @op
  op2 = @op2
  op3 = @op3
  group = @group 
  group2 = @group2
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4 

default:
  title = "Dragon Atom 01z Julia"
  center = (0.608, -0.013)
  magn = 1.038
  param seed
  default = (.74,.87)
  endparam
  param bailout
  default = (2.0,0)
  endparam
  param power 
  default = (0,0)
  endparam
  param op 
  caption = "operator 1"
  default = 1
  enum = "/""*""-""+""^"
  endparam
  param op2 
  caption = "operator 2"
  default = 0
  enum = "/""*""-""+""^"
  endparam
  param op3
  caption = "operator 3"
  default = 1
   enum = "/""*""-""+""^"
  endparam
  param group
  caption = "grouping 1"
  default = 0
  enum = "inner""outer"
  endparam
  param group2
  caption = "grouping 2"
  default = 0
  enum = "inner""outer"
  endparam
  param exp1
  caption = "exponent 1"
  default = (1.0,0)
  endparam
  param exp2
  caption = "exponent 2"
  default = (1.0,0)
  endparam
  param exp3
  caption = "exponent 3"
  default = (1.0,0)
  endparam
  param exp4
  caption = "exponent 4"
  default = (1.0,0)
  endparam


  func fn1
  caption = "Function 1"
  default = atan()
  endfunc
  func fn2
  caption = "Function 2"
  default = abs()
  endfunc
  func fn3
  caption = "Function 3"
  default = tan()
  endfunc
  func fn4
  caption = "Function 4"
  default = ident()
  endfunc
  func fn5
  caption = "Function 5"
  default = ident()
  endfunc
  func fn6
  caption = "Function 6"
  default = ident()
  endfunc
  func fn7  
  caption = "Function 7"
  default = ident()
  endfunc

  periodicity = 0
}

*********************************************************************************************************
DragonAtom02z {
;Toby Marshall, Dec. 2001

;Similar structure to its non-z counterpart
;but with quite different behavior.

;Choose your parameter and function values 
;then explore the resulting figure with 
;the Julia switch.

;Special thanks to Ken Childress,  
;Jos Leys, Erik Nathan Reckase, 
;Mark Townsend and Frederik Slijkerman  
;for their suggestions and advice.

;Please see tma.txt for help and hints.

;Have fun!

init:
  z = @start
loop:
aa = #pixel/fn4(z-@kludge)
bb = #pixel*fn4(z-@kludge)
cc = #pixel-fn4(z-@kludge)
dd = #pixel+fn4(z-@kludge)
ff = #pixel^fn4(z-@kludge)
qq = fn2(#pixel^@exp1-@power)*fn3(z-@budge)^@fn7(z)
ww = @fn5(real(#pixel^@exp2*@power))
xx = @fn6(imag(#pixel^@exp3/@power))-@nudge
IF (@op4 == 0)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq/ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq/ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq/ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq/ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq/ww/xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq/ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq/ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq/ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq/ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq/ww/xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq/ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq/ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq/ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq/ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq/ww/xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq/ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq/ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq/ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq/ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq/ww/xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq/ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq/ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq/ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq/ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq/ww/xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq*ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq*ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq*ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq*ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq*ww/xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq*ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq*ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq*ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq*ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq*ww/xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq*ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq*ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq*ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq*ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq*ww/xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq*ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq*ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq*ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq*ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq*ww/xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq*ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq*ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq*ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq*ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq*ww/xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq-ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq-ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq-ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq-ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq-ww/xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq-ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq-ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq-ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq-ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq-ww/xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq-ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq-ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq-ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq-ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq-ww/xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq-ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq-ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq-ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq-ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq-ww/xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq-ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq-ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq-ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq-ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq-ww/xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq+ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq+ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq+ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq+ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq+ww/xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq+ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq+ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq+ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq+ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq+ww/xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq+ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq+ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq+ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq+ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq+ww/xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq+ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq+ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq+ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq+ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq+ww/xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq+ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq+ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq+ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq+ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq+ww/xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq^ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq^ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq^ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq^ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq^ww/xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq^ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq^ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq^ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq^ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq^ww/xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq^ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq^ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq^ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq^ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq^ww/xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq^ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq^ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq^ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq^ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq^ww/xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq^ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq^ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq^ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq^ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq^ww/xx
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 1)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq/ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq/ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq/ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq/ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq/ww*xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq/ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq/ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq/ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq/ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq/ww*xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq/ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq/ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq/ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq/ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq/ww*xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq/ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq/ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq/ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq/ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq/ww*xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq/ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq/ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq/ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq/ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq/ww*xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq*ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq*ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq*ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq*ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq*ww*xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq*ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq*ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq*ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq*ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq*ww*xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq*ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq*ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq*ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq*ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq*ww*xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq*ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq*ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq*ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq*ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq*ww*xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq*ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq*ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq*ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq*ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq*ww*xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq-ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq-ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq-ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq-ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq-ww*xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq-ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq-ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq-ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq-ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq-ww*xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq-ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq-ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq-ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq-ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq-ww*xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq-ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq-ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq-ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq-ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq-ww*xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq-ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq-ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq-ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq-ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq-ww*xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq+ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq+ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq+ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq+ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq+ww*xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq+ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq+ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq+ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq+ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq+ww*xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq+ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq+ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq+ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq+ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq+ww*xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq+ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq+ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq+ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq+ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq+ww*xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq+ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq+ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq+ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq+ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq+ww*xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq^ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq^ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq^ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq^ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq^ww*xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq^ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq^ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq^ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq^ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq^ww*xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq^ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq^ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq^ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq^ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq^ww*xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq^ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq^ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq^ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq^ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq^ww*xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq^ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq^ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq^ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq^ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq^ww*xx
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 2)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq/ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq/ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq/ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq/ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq/ww-xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq/ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq/ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq/ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq/ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq/ww-xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq/ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq/ww-xx
   ELSEIF (@op1 == 2)

   z = fn1(cc)-qq/ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq/ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq/ww-xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq/ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq/ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq/ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq/ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq/ww-xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq/ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq/ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq/ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq/ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq/ww-xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq*ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq*ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq*ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq*ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq*ww-xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq*ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq*ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq*ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq*ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq*ww-xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq*ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq*ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq*ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq*ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq*ww-xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq*ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq*ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq*ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq*ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq*ww-xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq*ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq*ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq*ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq*ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq*ww-xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq-ww-xx

   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq-ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq-ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq-ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq-ww-xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq-ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq-ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq-ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq-ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq-ww-xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq-ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq-ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq-ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq-ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq-ww-xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq-ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq-ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq-ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq-ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq-ww-xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq-ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq-ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq-ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq-ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq-ww-xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq+ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq+ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq+ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq+ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq+ww-xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq+ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq+ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq+ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq+ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq+ww-xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq+ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq+ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq+ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq+ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq+ww-xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq+ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq+ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq+ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq+ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq+ww-xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq+ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq+ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq+ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq+ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq+ww-xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq^ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq^ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq^ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq^ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq^ww-xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq^ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq^ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq^ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq^ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq^ww-xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq^ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq^ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq^ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq^ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq^ww-xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq^ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq^ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq^ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq^ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq^ww-xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq^ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq^ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq^ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq^ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq^ww-xx
   ENDIF
   ENDIF
   ENDIF
   ELSEIF (@op4 == 3)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq/ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq/ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq/ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq/ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq/ww+xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq/ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq/ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq/ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq/ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq/ww+xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq/ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq/ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq/ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq/ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq/ww+xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq/ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq/ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq/ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq/ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq/ww+xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq/ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq/ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq/ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq/ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq/ww+xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq*ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq*ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq*ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq*ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq*ww+xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq*ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq*ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq*ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq*ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq*ww+xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq*ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq*ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq*ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq*ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq*ww+xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq*ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq*ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq*ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq*ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq*ww+xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq*ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq*ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq*ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq*ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq*ww+xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)

IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq-ww+xx

   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq-ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq-ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq-ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq-ww+xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq-ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq-ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq-ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq-ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq-ww+xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq-ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq-ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq-ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq-ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq-ww+xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq-ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq-ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq-ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq-ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq-ww+xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq-ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq-ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq-ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq-ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq-ww+xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq+ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq+ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq+ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq+ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq+ww+xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq+ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq+ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq+ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq+ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq+ww+xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq+ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq+ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq+ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq+ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq+ww+xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq+ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq+ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq+ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq+ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq+ww+xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq+ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq+ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq+ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq+ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq+ww+xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq^ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq^ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq^ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq^ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq^ww+xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq^ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq^ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq^ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq^ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq^ww+xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq^ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq^ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq^ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq^ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq^ww+xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq^ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq^ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq^ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq^ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq^ww+xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq^ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq^ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq^ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq^ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq^ww+xx
   ENDIF
   ENDIF
   ENDIF
   ELSEIF (@op4 == 4)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq/ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq/ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq/ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq/ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq/ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq/ww^xx
   ELSEIF (@op1 == 1)

   z = fn1(bb)*qq/ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq/ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq/ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq/ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq/ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq/ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq/ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq/ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq/ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq/ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq/ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq/ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq/ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq/ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq/ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq/ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq/ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq/ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq/ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq*ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq*ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq*ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq*ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq*ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq*ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq*ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq*ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq*ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq*ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq*ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq*ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq*ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq*ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq*ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq*ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq*ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq*ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq*ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq*ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq*ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq*ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq*ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq*ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq*ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq-ww^xx

   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq-ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq-ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq-ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq-ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq-ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq-ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq-ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq-ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq-ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq-ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq-ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq-ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq-ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq-ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq-ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq-ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq-ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq-ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq-ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq-ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq-ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq-ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq-ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq-ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq+ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq+ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq+ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq+ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq+ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq+ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq+ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq+ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq+ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq+ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq+ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq+ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq+ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq+ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq+ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq+ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq+ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq+ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq+ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq+ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq+ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq+ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq+ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq+ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq+ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq^ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq^ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq^ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq^ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq^ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq^ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq^ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq^ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq^ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq^ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq^ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq^ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq^ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq^ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq^ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq^ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq^ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq^ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq^ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq^ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq^ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq^ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq^ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq^ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq^ww^xx
   ENDIF
   ENDIF
   ENDIF
   ENDIF
  bailout:
  |z| < real(@bailout)
  switch:
  type = "DragonAtom02zJulia"
  seed = #pixel
  bailout = bailout
  power = @power
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  budge = @budge
  nudge = @nudge
  kludge = @kludge
  op1 = @op1 
  op2 = @op2
  op3 = @op3
  op4 = @op4
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4   
default:
  title = "Dragon Atom 02z"
  param start
  default = (2.2,0)
  endparam
  param bailout
  default = (2.0,0)
  endparam
  param power 
  default = (1.0,0)
  endparam
  param op1
  caption = "operator 1"
  default = 0
  enum = "/""*""-""+""^"
  endparam
  param op2
  caption = "operator 2"
  default = 2
  enum = "/""*""-""+""^"
  endparam
  param op3
  caption = "operator 3"
  default = 1
  enum = "/""*""-""+""^"
  endparam
  param op4
  caption = "operator 4"
  default = 4
  enum = "/""*""-""+""^"
  endparam
  param exp1
  caption = "exponent 1"
  default = (1.0,0)
  endparam
  param exp2
  caption = "exponent 2"
  default = (1.0,0)
  endparam
  param exp3
  caption = "exponent 3"
  default = (1.0,0)
  endparam
  param exp4
  caption = "exponent 4"
  default = (1.0,0)
  endparam


  func fn1
  caption = "Function 1"
  default = atan()
  endfunc
  func fn2
  caption = "Function 2"
  default = abs()
  endfunc
  func fn3
  caption = "Function 3"
  default = tan()
  endfunc
  func fn4
  caption = "Function 4"
  default = ident()
  endfunc
    func fn5
  caption = "Function 5"
  default = ident()
  endfunc
  func fn6
  caption = "Function 6"
  default = ident()
  endfunc
  func fn7  
  caption = "Function 7"
  default = ident()
  endfunc

  periodicity = 0
}
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
DragonAtom02zJulia {
;Toby Marshall, Dec. 2001 

;Special thanks to Ken Childress,  
;Jos Leys, Erik Nathan Reckase, 
;Mark Townsend and Frederik Slijkerman  
;for their suggestions and advice.

;Please see tma.txt for help and hints.

;Have fun!

init:
  z = #pixel
loop:
aa = @seed/fn4(z-@kludge)
bb = @seed*fn4(z-@kludge)
cc = @seed-fn4(z-@kludge)
dd = @seed+fn4(z-@kludge)
ff = @seed^fn4(z-@kludge)
qq = fn2(@seed^@exp1-@power)*fn3(z-@budge)^@fn7(z)
ww = @fn5(real(@seed^@exp2*@power))
xx = @fn6(imag(@seed^@exp3/@power))-@nudge
IF (@op4 == 0)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq/ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq/ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq/ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq/ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq/ww/xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq/ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq/ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq/ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq/ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq/ww/xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq/ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq/ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq/ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq/ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq/ww/xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq/ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq/ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq/ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq/ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq/ww/xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq/ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq/ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq/ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq/ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq/ww/xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq*ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq*ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq*ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq*ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq*ww/xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq*ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq*ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq*ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq*ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq*ww/xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq*ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq*ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq*ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq*ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq*ww/xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq*ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq*ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq*ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq*ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq*ww/xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq*ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq*ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq*ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq*ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq*ww/xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq-ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq-ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq-ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq-ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq-ww/xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq-ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq-ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq-ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq-ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq-ww/xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq-ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq-ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq-ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq-ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq-ww/xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq-ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq-ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq-ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq-ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq-ww/xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq-ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq-ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq-ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq-ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq-ww/xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq+ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq+ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq+ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq+ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq+ww/xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq+ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq+ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq+ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq+ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq+ww/xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq+ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq+ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq+ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq+ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq+ww/xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq+ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq+ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq+ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq+ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq+ww/xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq+ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq+ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq+ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq+ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq+ww/xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq^ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq^ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq^ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq^ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq^ww/xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq^ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq^ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq^ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq^ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq^ww/xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq^ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq^ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq^ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq^ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq^ww/xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq^ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq^ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq^ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq^ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq^ww/xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq^ww/xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq^ww/xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq^ww/xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq^ww/xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq^ww/xx
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 1)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq/ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq/ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq/ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq/ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq/ww*xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq/ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq/ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq/ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq/ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq/ww*xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq/ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq/ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq/ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq/ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq/ww*xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq/ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq/ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq/ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq/ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq/ww*xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq/ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq/ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq/ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq/ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq/ww*xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq*ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq*ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq*ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq*ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq*ww*xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq*ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq*ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq*ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq*ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq*ww*xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq*ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq*ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq*ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq*ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq*ww*xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq*ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq*ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq*ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq*ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq*ww*xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq*ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq*ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq*ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq*ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq*ww*xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq-ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq-ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq-ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq-ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq-ww*xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq-ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq-ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq-ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq-ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq-ww*xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq-ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq-ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq-ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq-ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq-ww*xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq-ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq-ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq-ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq-ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq-ww*xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq-ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq-ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq-ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq-ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq-ww*xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq+ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq+ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq+ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq+ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq+ww*xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq+ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq+ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq+ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq+ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq+ww*xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq+ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq+ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq+ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq+ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq+ww*xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq+ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq+ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq+ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq+ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq+ww*xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq+ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq+ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq+ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq+ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq+ww*xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq^ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq^ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq^ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq^ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq^ww*xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq^ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq^ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq^ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq^ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq^ww*xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq^ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq^ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq^ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq^ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq^ww*xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq^ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq^ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq^ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq^ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq^ww*xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq^ww*xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq^ww*xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq^ww*xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq^ww*xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq^ww*xx
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 2)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq/ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq/ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq/ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq/ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq/ww-xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq/ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq/ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq/ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq/ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq/ww-xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq/ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq/ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq/ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq/ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq/ww-xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq/ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq/ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq/ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq/ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq/ww-xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq/ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq/ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq/ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq/ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq/ww-xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq*ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq*ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq*ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq*ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq*ww-xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq*ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq*ww-xx

   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq*ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq*ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq*ww-xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq*ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq*ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq*ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq*ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq*ww-xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq*ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq*ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq*ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq*ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq*ww-xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq*ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq*ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq*ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq*ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq*ww-xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq-ww-xx

   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq-ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq-ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq-ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq-ww-xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq-ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq-ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq-ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq-ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq-ww-xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq-ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq-ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq-ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq-ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq-ww-xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq-ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq-ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq-ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq-ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq-ww-xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq-ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq-ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq-ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq-ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq-ww-xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq+ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq+ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq+ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq+ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq+ww-xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq+ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq+ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq+ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq+ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq+ww-xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq+ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq+ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq+ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq+ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq+ww-xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq+ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq+ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq+ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq+ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq+ww-xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq+ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq+ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq+ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq+ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq+ww-xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq^ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq^ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq^ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq^ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq^ww-xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq^ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq^ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq^ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq^ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq^ww-xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq^ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq^ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq^ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq^ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq^ww-xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq^ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq^ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq^ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq^ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq^ww-xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq^ww-xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq^ww-xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq^ww-xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq^ww-xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq^ww-xx
   ENDIF
   ENDIF
   ENDIF
   ELSEIF (@op4 == 3)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq/ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq/ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq/ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq/ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq/ww+xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq/ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq/ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq/ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq/ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq/ww+xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq/ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq/ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq/ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq/ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq/ww+xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq/ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq/ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq/ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq/ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq/ww+xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq/ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq/ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq/ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq/ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq/ww+xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq*ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq*ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq*ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq*ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq*ww+xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq*ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq*ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq*ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq*ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq*ww+xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq*ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq*ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq*ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq*ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq*ww+xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq*ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq*ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq*ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq*ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq*ww+xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq*ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq*ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq*ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq*ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq*ww+xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq-ww+xx

   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq-ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq-ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq-ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq-ww+xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq-ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq-ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq-ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq-ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq-ww+xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq-ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq-ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq-ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq-ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq-ww+xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq-ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq-ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq-ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq-ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq-ww+xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq-ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq-ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq-ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq-ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq-ww+xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq+ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq+ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq+ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq+ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq+ww+xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)

   z = fn1(aa)*qq+ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq+ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq+ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq+ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq+ww+xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq+ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq+ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq+ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq+ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq+ww+xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq+ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq+ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq+ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq+ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq+ww+xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq+ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq+ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq+ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq+ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq+ww+xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq^ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq^ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq^ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq^ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq^ww+xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq^ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq^ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq^ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq^ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq^ww+xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq^ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq^ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq^ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq^ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq^ww+xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq^ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq^ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq^ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq^ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq^ww+xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq^ww+xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq^ww+xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq^ww+xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq^ww+xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq^ww+xx
   ENDIF
   ENDIF
   ENDIF
   ELSEIF (@op4 == 4)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq/ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq/ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq/ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq/ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq/ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq/ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq/ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq/ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq/ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq/ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq/ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq/ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq/ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq/ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq/ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq/ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq/ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq/ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq/ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq/ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq/ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq/ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq/ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq/ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq/ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq*ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq*ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq*ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq*ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq*ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq*ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq*ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq*ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq*ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq*ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq*ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq*ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq*ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq*ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq*ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq*ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq*ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq*ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq*ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq*ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq*ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq*ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq*ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq*ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq*ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq-ww^xx

   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq-ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq-ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq-ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq-ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq-ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq-ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq-ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq-ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq-ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq-ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq-ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq-ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq-ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq-ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq-ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq-ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq-ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq-ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq-ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq-ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq-ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq-ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq-ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq-ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq+ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq+ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq+ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq+ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq+ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq+ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq+ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq+ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq+ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq+ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq+ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq+ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq+ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq+ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq+ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq+ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq+ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq+ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq+ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq+ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq+ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq+ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq+ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq+ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq+ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = fn1(aa)/qq^ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)/qq^ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)/qq^ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)/qq^ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)/qq^ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = fn1(aa)*qq^ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)*qq^ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)*qq^ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)*qq^ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)*qq^ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = fn1(aa)-qq^ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)-qq^ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)-qq^ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)-qq^ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)-qq^ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = fn1(aa)+qq^ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)+qq^ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)+qq^ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)+qq^ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)+qq^ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = fn1(aa)^qq^ww^xx
   ELSEIF (@op1 == 1)
   z = fn1(bb)^qq^ww^xx
   ELSEIF (@op1 == 2)
   z = fn1(cc)^qq^ww^xx
   ELSEIF (@op1 == 3)
   z = fn1(dd)^qq^ww^xx
   ELSEIF (@op1 == 4)
   z = fn1(ff)^qq^ww^xx
   ENDIF
   ENDIF
   ENDIF
   ENDIF
   bailout:
  |z| < real(@bailout)
  switch:
  type = "DragonAtom02z"
  bailout = bailout
  power = @power
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  budge = @budge
  nudge = @nudge
  kludge = @kludge
  op1 = @op1 
  op2 = @op2
  op3 = @op3
  op4 = @op4
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4   

  default:
  title = "Dragon Atom 02z Julia"
  center = (10.83, 9.85)
  magn = 0.35
  param seed
  default = (4.36,-.35)
  endparam
  param bailout
  default = (2.0,0)
  endparam
  param power 
  default = (1.0,0)
  endparam
  param op1
  caption = "operator 1"
  default = 0
  enum = "/""*""-""+""^"
  endparam
  param op2
  caption = "operator 2"
  default = 2
  enum = "/""*""-""+""^"
  endparam
  param op3
  caption = "operator 3"
  default = 1
  enum = "/""*""-""+""^"
  endparam
  param op4
  caption = "operator 4"
  default = 4
  enum = "/""*""-""+""^"
  endparam
  param exp1
  caption = "exponent 1"
  default = (1.0,0)
  endparam
  param exp2
  caption = "exponent 2"
  default = (1.0,0)
  endparam
  param exp3
  caption = "exponent 3"
  default = (1.0,0)
  endparam
  param exp4
  caption = "exponent 4"
  default = (1.0,0)
  endparam


  func fn1
  caption = "Function 1"
  default = atan()
  endfunc
  func fn2
  caption = "Function 2"
  default = abs()
  endfunc
  func fn3
  caption = "Function 3"
  default = tan()
  endfunc
  func fn4
  caption = "Function 4"
  default = ident()
  endfunc
  func fn5
  caption = "Function 5"
  default = ident()
  endfunc
  func fn6
  caption = "Function 6"
  default = ident()
  endfunc
  func fn7  
  caption = "Function 7"
  default = ident()
  endfunc

  periodicity = 0
}

*********************************************************************************************************
DragonAtom03z {
;Toby Marshall, Dec. 2001

;Similar structure to its non-z counterpart
;but with quite different behavior.

;Differs from Dragon Atom 2z in that 
;"operator 4" modifies a different term
;in the equation. Adds a "grouping" 
;function.

;Choose your parameter and function values 
;then explore the resulting figure with 
;the Julia switch.

;Special thanks to Ken Childress,  
;Jos Leys, Erik Nathan Reckase, 
;Mark Townsend and Frederik Slijkerman  
;for their suggestions and advice.

;Please see tma.txt for help and hints.

;Have fun!

init:
  z = @start
loop:
aa = fn1(#pixel/fn4(z-@kludge))
bb = fn1(#pixel*fn4(z-@kludge))
cc = fn1(#pixel-fn4(z-@kludge))
dd = fn1(#pixel+fn4(z-@kludge))
ff = fn1(#pixel^fn4(z-@kludge))
qq = fn2(#pixel^@exp1-@power)/fn3(z-@budge)^@fn7(z)
qr = fn2(#pixel^@exp1-@power)*fn3(z-@budge)^@fn7(z)
qs = fn2(#pixel^@exp1-@power)-fn3(z-@budge)^@fn7(z)
qt = fn2(#pixel^@exp1-@power)+fn3(z-@budge)^@fn7(z)
qv = fn2(#pixel^@exp1-@power)^fn3(z-@budge)^@fn7(z)
ww = (@fn5(real(#pixel^@exp2*@power)))
xx = @fn6(imag(#pixel^@exp3/@power))-@nudge
IF (@op5 == 0); group 1
IF (@op4 == 0)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qq)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qq)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qq)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qq)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qq)/ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qq)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qq)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qq)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qq)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qq)/ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qq)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qq)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qq)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qq)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qq)/ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qq)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qq)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qq)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qq)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qq)/ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qq)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qq)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qq)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qq)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qq)/ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qq)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qq)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qq)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qq)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qq)*ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qq)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qq)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qq)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qq)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qq)*ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qq)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qq)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qq)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qq)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qq)*ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qq)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qq)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qq)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qq)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qq)*ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qq)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qq)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qq)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qq)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qq)*ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qq)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qq)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qq)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qq)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qq)-ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qq)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qq)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qq)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qq)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qq)-ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qq)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qq)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qq)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qq)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qq)-ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qq)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qq)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qq)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qq)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qq)-ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qq)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qq)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qq)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qq)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qq)-ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qq)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qq)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qq)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qq)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qq)+ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qq)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qq)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qq)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qq)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qq)+ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qq)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qq)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qq)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qq)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qq)+ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qq)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qq)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qq)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qq)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qq)+ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qq)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qq)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qq)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qq)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qq)+ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qq)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qq)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qq)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qq)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qq)^ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qq)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qq)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qq)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qq)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qq)^ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qq)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qq)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qq)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qq)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qq)^ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qq)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qq)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qq)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qq)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qq)^ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qq)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qq)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qq)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qq)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qq)^ww^xx
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 1)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qr)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qr)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qr)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qr)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qr)/ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qr)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qr)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qr)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qr)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qr)/ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qr)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qr)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qr)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qr)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qr)/ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qr)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qr)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qr)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qr)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qr)/ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qr)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qr)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qr)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qr)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qr)/ww^xx

   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qr)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qr)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qr)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qr)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qr)*ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qr)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qr)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qr)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qr)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qr)*ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qr)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qr)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qr)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qr)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qr)*ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qr)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qr)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qr)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qr)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qr)*ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qr)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qr)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qr)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qr)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qr)*ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qr)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qr)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qr)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qr)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qr)-ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qr)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qr)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qr)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qr)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qr)-ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qr)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qr)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qr)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qr)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qr)-ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qr)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qr)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qr)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qr)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qr)-ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qr)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qr)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qr)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qr)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qr)-ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qr)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qr)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qr)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qr)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qr)+ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qr)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qr)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qr)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qr)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qr)+ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qr)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qr)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qr)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qr)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qr)+ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qr)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qr)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qr)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qr)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qr)+ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qr)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qr)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qr)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qr)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qr)+ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qr)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qr)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qr)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qr)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qr)^ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qr)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qr)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qr)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qr)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qr)^ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qr)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qr)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qr)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qr)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qr)^ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qr)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qr)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qr)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qr)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qr)^ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qr)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qr)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qr)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qr)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qr)^ww^xx
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 2)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qs)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qs)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qs)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qs)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qs)/ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qs)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qs)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qs)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qs)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qs)/ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qs)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qs)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qs)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qs)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qs)/ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qs)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qs)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qs)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qs)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qs)/ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qs)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qs)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qs)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qs)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qs)/ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qs)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qs)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qs)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qs)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qs)*ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qs)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qs)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qs)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qs)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qs)*ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qs)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qs)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qs)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qs)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qs)*ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qs)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qs)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qs)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qs)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qs)*ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qs)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qs)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qs)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qs)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qs)*ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qs)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qs)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qs)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qs)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qs)-ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qs)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qs)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qs)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qs)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qs)-ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qs)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qs)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qs)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qs)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qs)-ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qs)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qs)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qs)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qs)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qs)-ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qs)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qs)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qs)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qs)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qs)-ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qs)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qs)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qs)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qs)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qs)+ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qs)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qs)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qs)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qs)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qs)+ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qs)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qs)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qs)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qs)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qs)+ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qs)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qs)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qs)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qs)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qs)+ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qs)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qs)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qs)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qs)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qs)+ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qs)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qs)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qs)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qs)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qs)^ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qs)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qs)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qs)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qs)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qs)^ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qs)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qs)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qs)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qs)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qs)^ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qs)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qs)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qs)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qs)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qs)^ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qs)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qs)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qs)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qs)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qs)^ww^xx
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 3)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qt)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qt)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qt)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qt)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qt)/ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qt)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qt)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qt)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qt)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qt)/ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qt)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qt)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qt)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qt)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qt)/ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qt)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qt)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qt)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qt)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qt)/ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qt)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qt)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qt)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qt)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qt)/ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)

IF (@op1 == 0)
   z = aa/(qt)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qt)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qt)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qt)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qt)*ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qt)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qt)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qt)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qt)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qt)*ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qt)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qt)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qt)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qt)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qt)*ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qt)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qt)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qt)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qt)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qt)*ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qt)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qt)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qt)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qt)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qt)*ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qt)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qt)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qt)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qt)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qt)-ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qt)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qt)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qt)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qt)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qt)-ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qt)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qt)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qt)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qt)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qt)-ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qt)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qt)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qt)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qt)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qt)-ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qt)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qt)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qt)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qt)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qt)-ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qt)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qt)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qt)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qt)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qt)+ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qt)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qt)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qt)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qt)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qt)+ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qt)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qt)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qt)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qt)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qt)+ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qt)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qt)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qt)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qt)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qt)+ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qt)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qt)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qt)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qt)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qt)+ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qt)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qt)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qt)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qt)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qt)^ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qt)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qt)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qt)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qt)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qt)^ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qt)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qt)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qt)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qt)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qt)^ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qt)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qt)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qt)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qt)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qt)^ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qt)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qt)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qt)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qt)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qt)^ww^xx
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 4)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qv)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qv)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qv)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qv)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qv)/ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qv)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qv)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qv)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qv)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qv)/ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qv)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qv)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qv)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qv)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qv)/ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qv)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qv)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qv)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qv)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qv)/ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qv)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qv)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qv)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qv)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qv)/ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qv)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qv)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qv)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qv)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qv)*ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qv)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qv)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qv)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qv)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qv)*ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qv)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qv)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qv)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qv)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qv)*ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qv)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qv)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qv)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qv)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qv)*ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qv)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qv)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qv)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qv)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qv)*ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qv)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qv)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qv)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qv)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qv)-ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qv)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qv)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qv)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qv)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qv)-ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qv)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qv)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qv)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qv)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qv)-ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qv)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qv)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qv)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qv)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qv)-ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qv)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qv)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qv)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qv)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qv)-ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qv)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qv)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qv)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qv)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qv)+ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qv)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qv)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qv)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qv)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qv)+ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qv)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qv)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qv)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qv)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qv)+ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qv)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qv)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qv)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qv)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qv)+ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qv)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qv)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qv)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qv)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qv)+ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qv)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qv)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qv)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qv)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qv)^ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qv)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qv)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qv)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qv)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qv)^ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qv)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qv)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qv)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qv)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qv)^ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qv)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qv)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qv)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qv)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qv)^ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qv)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qv)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qv)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qv)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qv)^ww^xx
   ENDIF
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op5 == 1); group 2
IF (@op4 == 0)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qq)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qq)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qq)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qq)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qq)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qq)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qq)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qq)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qq)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qq)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qq)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qq)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qq)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qq)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qq)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qq)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qq)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qq)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qq)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qq)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qq)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qq)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qq)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qq)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qq)/ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qq)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qq)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qq)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qq)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qq)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qq)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qq)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qq)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qq)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qq)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qq)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qq)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qq)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qq)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qq)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qq)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qq)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qq)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qq)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qq)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qq)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qq)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qq)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qq)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qq)*ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qq)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qq)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qq)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qq)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qq)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qq)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qq)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qq)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qq)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qq)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qq)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qq)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qq)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qq)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qq)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qq)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qq)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qq)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qq)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qq)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qq)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qq)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qq)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qq)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qq)-ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qq)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qq)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qq)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qq)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qq)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qq)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qq)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qq)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qq)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qq)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qq)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qq)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qq)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qq)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qq)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qq)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qq)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qq)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qq)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qq)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qq)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qq)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qq)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qq)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qq)+ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qq)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qq)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qq)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qq)^ww)^xx

   ELSEIF (@op1 == 4)
   z = ff/((qq)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qq)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qq)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qq)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qq)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qq)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qq)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qq)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qq)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qq)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qq)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qq)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qq)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qq)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qq)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qq)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qq)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qq)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qq)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qq)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qq)^ww)^xx
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 1)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qr)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qr)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qr)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qr)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qr)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qr)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qr)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qr)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qr)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qr)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qr)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qr)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qr)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qr)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qr)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qr)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qr)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qr)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qr)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qr)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qr)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qr)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qr)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qr)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qr)/ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qr)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qr)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qr)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qr)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qr)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qr)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qr)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qr)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qr)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qr)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qr)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qr)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qr)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qr)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qr)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qr)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qr)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qr)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qr)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qr)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qr)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qr)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qr)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qr)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qr)*ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qr)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qr)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qr)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qr)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qr)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qr)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qr)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qr)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qr)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qr)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qr)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qr)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qr)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qr)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qr)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qr)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qr)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qr)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qr)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qr)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qr)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qr)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qr)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qr)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qr)-ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qr)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qr)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qr)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qr)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qr)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qr)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qr)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qr)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qr)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qr)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qr)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qr)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qr)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qr)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qr)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qr)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qr)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qr)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qr)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qr)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qr)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qr)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qr)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qr)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qr)+ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qr)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qr)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qr)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qr)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qr)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qr)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qr)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qr)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qr)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qr)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qr)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qr)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qr)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qr)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qr)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qr)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qr)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qr)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qr)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qr)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qr)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qr)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qr)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qr)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qr)^ww)^xx
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 2)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qs)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qs)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qs)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qs)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qs)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qs)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qs)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qs)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qs)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qs)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qs)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qs)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qs)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qs)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qs)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qs)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qs)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qs)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qs)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qs)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qs)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qs)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qs)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qs)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qs)/ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qs)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qs)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qs)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qs)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qs)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qs)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qs)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qs)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qs)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qs)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qs)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qs)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qs)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qs)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qs)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qs)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qs)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qs)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qs)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qs)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qs)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qs)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qs)*ww)^xx
   ELSEIF (@op1 == 3)

   z = dd^((qs)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qs)*ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qs)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qs)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qs)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qs)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qs)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qs)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qs)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qs)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qs)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qs)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qs)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qs)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qs)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qs)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qs)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qs)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qs)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qs)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qs)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qs)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qs)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qs)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qs)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qs)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qs)-ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qs)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qs)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qs)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qs)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qs)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qs)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qs)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qs)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qs)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qs)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qs)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qs)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qs)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qs)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qs)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qs)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qs)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qs)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qs)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qs)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qs)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qs)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qs)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qs)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qs)+ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qs)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qs)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qs)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qs)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qs)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qs)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qs)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qs)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qs)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qs)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qs)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qs)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qs)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qs)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qs)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qs)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qs)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qs)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qs)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qs)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qs)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qs)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qs)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qs)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qs)^ww)^xx
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 3)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qt)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qt)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qt)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qt)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qt)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qt)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qt)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qt)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qt)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qt)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qt)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qt)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qt)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qt)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qt)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qt)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qt)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qt)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qt)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qt)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qt)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qt)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qt)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qt)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qt)/ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qt)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qt)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qt)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qt)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qt)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qt)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qt)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qt)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qt)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qt)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qt)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qt)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qt)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qt)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qt)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qt)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qt)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qt)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qt)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qt)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qt)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qt)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qt)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qt)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qt)*ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qt)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qt)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qt)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qt)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qt)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qt)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qt)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qt)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qt)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qt)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qt)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qt)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qt)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qt)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qt)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qt)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qt)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qt)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qt)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qt)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qt)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qt)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qt)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qt)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qt)-ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qt)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qt)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qt)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qt)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qt)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qt)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qt)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qt)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qt)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qt)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qt)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qt)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qt)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qt)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qt)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qt)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qt)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qt)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qt)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qt)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qt)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qt)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qt)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qt)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qt)+ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qt)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qt)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qt)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qt)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qt)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qt)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qt)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qt)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qt)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qt)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qt)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qt)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qt)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qt)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qt)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qt)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qt)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qt)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qt)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qt)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qt)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qt)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qt)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qt)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qt)^ww)^xx
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 4)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qv)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qv)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qv)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qv)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qv)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qv)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qv)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qv)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qv)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qv)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qv)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qv)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qv)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qv)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qv)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qv)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qv)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qv)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qv)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qv)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qv)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qv)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qv)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qv)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qv)/ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qv)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qv)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qv)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qv)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qv)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qv)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qv)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qv)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qv)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qv)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qv)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qv)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qv)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qv)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qv)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qv)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qv)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qv)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qv)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qv)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qv)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qv)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qv)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qv)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qv)*ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qv)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qv)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qv)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qv)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qv)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qv)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qv)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qv)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qv)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qv)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qv)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qv)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qv)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qv)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qv)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qv)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qv)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qv)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qv)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qv)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qv)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qv)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qv)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qv)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qv)-ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qv)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qv)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qv)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qv)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qv)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qv)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qv)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qv)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qv)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qv)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qv)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qv)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qv)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qv)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qv)+ww)^xx
   ENDIF

   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qv)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qv)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qv)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qv)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qv)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qv)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qv)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qv)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qv)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qv)+ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qv)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qv)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qv)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qv)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qv)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qv)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qv)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qv)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qv)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qv)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qv)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qv)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qv)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qv)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qv)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qv)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qv)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qv)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qv)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qv)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qv)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qv)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qv)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qv)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qv)^ww)^xx
   ENDIF
   ENDIF
   ENDIF
   ENDIF
   ENDIF


  bailout:
  |z| < real(@bailout)
  switch:
  type = "DragonAtom03zJulia"
  seed = #pixel
  bailout = bailout
  power = @power
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  budge = @budge
  nudge = @nudge
  kludge = @kludge
  op1 = @op1 
  op2 = @op2
  op3 = @op3
  op4 = @op4 
  op5 = @op5
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4  
default:
  title = "Dragon Atom 03z"
  param start
  default = (2.2,0)
  endparam
  param bailout
  default = (2.0,0)
  endparam
  param power 
  default = (1.0,0)
  endparam
  param op1
  caption = "operator 1"
  default = 0
  enum = "/""*""-""+""^"
  endparam
  param op2
  caption = "operator 2"
  default = 2
  enum = "/""*""-""+""^"
  endparam
  param op3
  caption = "operator 3"
  default = 1
  enum = "/""*""-""+""^"
  endparam
  param op4
  caption = "operator 4"
  default = 4
  enum = "/""*""-""+""^"
  endparam
  param op5
  caption = "grouping"
  default = 0
  enum = "inner""outer"
  endparam
  param exp1
  caption = "exponent 1"
  default = (1.0,0)
  endparam
  param exp2
  caption = "exponent 2"
  default = (1.0,0)
  endparam
  param exp3
  caption = "exponent 3"
  default = (1.0,0)
  endparam
  param exp4
  caption = "exponent 4"
  default = (1.0,0)
  endparam

  func fn1
  caption = "Function 1"
  default = atan()
  endfunc
  func fn2
  caption = "Function 2"
  default = abs()
  endfunc
  func fn3
  caption = "Function 3"
  default = tan()
  endfunc
  func fn4
  caption = "Function 4"
  default = ident()
  endfunc
    func fn5
  caption = "Function 5"
  default = ident()
  endfunc
  func fn6
  caption = "Function 6"
  default = ident()
  endfunc
  func fn7  
  caption = "Function 7"
  default = ident()
  endfunc

  periodicity = 0
}
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
DragonAtom03zJulia {
;Toby Marshall, Dec. 2001 

;Special thanks to Ken Childress,  
;Jos Leys, Erik Nathan Reckase, 
;Mark Townsend and Frederik Slijkerman  
;for their suggestions and advice.

;Please see tma.txt for help and hints.

;Have fun!

init:
  z = #pixel
loop:
aa = fn1(@seed/fn4(z-@kludge))
bb = fn1(@seed*fn4(z-@kludge))
cc = fn1(@seed-fn4(z-@kludge))
dd = fn1(@seed+fn4(z-@kludge))
ff = fn1(@seed^fn4(z-@kludge))
qq = fn2(@seed^@exp1-@power)/fn3(z-@budge)^@fn7(z)
qr = fn2(@seed^@exp1-@power)*fn3(z-@budge)^@fn7(z)
qs = fn2(@seed^@exp1-@power)-fn3(z-@budge)^@fn7(z)
qt = fn2(@seed^@exp1-@power)+fn3(z-@budge)^@fn7(z)
qv = fn2(@seed^@exp1-@power)^fn3(z-@budge)^@fn7(z)
ww = (@fn5(real(@seed^@exp2*@power)))
xx = @fn6(imag(@seed^@exp3/@power))-@nudge

IF (@op5 == 0); group 1
IF (@op4 == 0)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qq)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qq)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qq)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qq)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qq)/ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qq)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qq)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qq)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qq)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qq)/ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qq)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qq)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qq)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qq)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qq)/ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qq)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qq)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qq)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qq)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qq)/ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qq)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qq)/ww^xx
   ELSEIF (@op1 == 2)

   z = cc^(qq)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qq)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qq)/ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qq)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qq)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qq)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qq)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qq)*ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qq)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qq)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qq)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qq)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qq)*ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qq)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qq)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qq)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qq)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qq)*ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qq)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qq)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qq)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qq)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qq)*ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qq)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qq)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qq)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qq)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qq)*ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qq)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qq)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qq)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qq)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qq)-ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qq)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qq)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qq)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qq)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qq)-ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qq)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qq)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qq)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qq)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qq)-ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qq)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qq)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qq)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qq)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qq)-ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qq)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qq)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qq)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qq)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qq)-ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qq)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qq)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qq)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qq)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qq)+ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qq)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qq)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qq)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qq)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qq)+ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qq)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qq)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qq)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qq)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qq)+ww^xx

   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qq)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qq)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qq)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qq)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qq)+ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qq)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qq)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qq)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qq)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qq)+ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qq)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qq)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qq)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qq)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qq)^ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qq)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qq)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qq)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qq)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qq)^ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qq)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qq)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qq)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qq)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qq)^ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qq)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qq)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qq)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qq)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qq)^ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qq)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qq)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qq)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qq)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qq)^ww^xx
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 1)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qr)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qr)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qr)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qr)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qr)/ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qr)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qr)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qr)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qr)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qr)/ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qr)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qr)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qr)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qr)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qr)/ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qr)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qr)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qr)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qr)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qr)/ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qr)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qr)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qr)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qr)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qr)/ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qr)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qr)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qr)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qr)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qr)*ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qr)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qr)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qr)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qr)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qr)*ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qr)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qr)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qr)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qr)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qr)*ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qr)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qr)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qr)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qr)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qr)*ww^xx
   ENDIF

   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qr)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qr)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qr)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qr)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qr)*ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qr)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qr)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qr)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qr)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qr)-ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qr)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qr)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qr)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qr)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qr)-ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qr)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qr)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qr)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qr)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qr)-ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qr)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qr)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qr)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qr)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qr)-ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qr)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qr)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qr)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qr)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qr)-ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qr)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qr)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qr)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qr)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qr)+ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qr)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qr)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qr)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qr)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qr)+ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qr)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qr)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qr)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qr)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qr)+ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qr)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qr)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qr)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qr)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qr)+ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qr)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qr)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qr)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qr)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qr)+ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qr)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qr)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qr)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qr)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qr)^ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qr)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qr)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qr)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qr)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qr)^ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qr)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qr)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qr)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qr)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qr)^ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qr)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qr)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qr)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qr)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qr)^ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qr)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qr)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qr)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qr)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qr)^ww^xx
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 2)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qs)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qs)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qs)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qs)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qs)/ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qs)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qs)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qs)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qs)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qs)/ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qs)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qs)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qs)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qs)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qs)/ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qs)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qs)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qs)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qs)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qs)/ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qs)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qs)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qs)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qs)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qs)/ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qs)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qs)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qs)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qs)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qs)*ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qs)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qs)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qs)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qs)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qs)*ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qs)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qs)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qs)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qs)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qs)*ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qs)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qs)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qs)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qs)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qs)*ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qs)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qs)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qs)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qs)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qs)*ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qs)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qs)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qs)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qs)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qs)-ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qs)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qs)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qs)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qs)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qs)-ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qs)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qs)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qs)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qs)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qs)-ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qs)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qs)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qs)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qs)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qs)-ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qs)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qs)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qs)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qs)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qs)-ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qs)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qs)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qs)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qs)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qs)+ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qs)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qs)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qs)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qs)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qs)+ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qs)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qs)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qs)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qs)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qs)+ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qs)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qs)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qs)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qs)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qs)+ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qs)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qs)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qs)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qs)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qs)+ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qs)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qs)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qs)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qs)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qs)^ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qs)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qs)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qs)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qs)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qs)^ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qs)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qs)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qs)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qs)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qs)^ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qs)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qs)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qs)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qs)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qs)^ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qs)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qs)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qs)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qs)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qs)^ww^xx
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 3)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qt)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qt)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qt)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qt)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qt)/ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qt)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qt)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qt)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qt)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qt)/ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qt)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qt)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qt)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qt)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qt)/ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qt)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qt)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qt)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qt)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qt)/ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qt)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qt)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qt)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qt)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qt)/ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qt)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qt)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qt)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qt)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qt)*ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qt)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qt)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qt)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qt)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qt)*ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qt)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qt)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qt)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qt)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qt)*ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qt)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qt)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qt)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qt)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qt)*ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qt)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qt)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qt)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qt)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qt)*ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qt)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qt)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qt)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qt)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qt)-ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qt)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qt)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qt)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qt)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qt)-ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qt)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qt)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qt)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qt)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qt)-ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qt)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qt)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qt)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qt)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qt)-ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qt)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qt)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qt)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qt)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qt)-ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qt)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qt)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qt)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qt)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qt)+ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qt)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qt)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qt)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qt)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qt)+ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qt)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qt)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qt)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qt)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qt)+ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qt)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qt)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qt)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qt)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qt)+ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qt)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qt)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qt)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qt)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qt)+ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qt)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qt)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qt)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qt)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qt)^ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qt)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qt)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qt)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qt)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qt)^ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qt)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qt)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qt)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qt)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qt)^ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qt)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qt)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qt)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qt)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qt)^ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qt)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qt)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qt)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qt)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qt)^ww^xx
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 4)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qv)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qv)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qv)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qv)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qv)/ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qv)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qv)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qv)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qv)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qv)/ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qv)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qv)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qv)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qv)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qv)/ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qv)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qv)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qv)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qv)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qv)/ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qv)/ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qv)/ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qv)/ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qv)/ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qv)/ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qv)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qv)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qv)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qv)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qv)*ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qv)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qv)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qv)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qv)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qv)*ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qv)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qv)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qv)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qv)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qv)*ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qv)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qv)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qv)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qv)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qv)*ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qv)*ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qv)*ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qv)*ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qv)*ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qv)*ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qv)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qv)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qv)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qv)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qv)-ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qv)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qv)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qv)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qv)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qv)-ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qv)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qv)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qv)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qv)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qv)-ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qv)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qv)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qv)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qv)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qv)-ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qv)-ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qv)-ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qv)-ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qv)-ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qv)-ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qv)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qv)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qv)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qv)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qv)+ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qv)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qv)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qv)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qv)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qv)+ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qv)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qv)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qv)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qv)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qv)+ww^xx
   ENDIF

   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qv)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qv)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qv)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qv)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qv)+ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qv)+ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qv)+ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qv)+ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qv)+ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qv)+ww^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/(qv)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb/(qv)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc/(qv)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd/(qv)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff/(qv)^ww^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*(qv)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb*(qv)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc*(qv)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd*(qv)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff*(qv)^ww^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-(qv)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb-(qv)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc-(qv)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd-(qv)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff-(qv)^ww^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+(qv)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb+(qv)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc+(qv)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd+(qv)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff+(qv)^ww^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^(qv)^ww^xx
   ELSEIF (@op1 == 1)
   z = bb^(qv)^ww^xx
   ELSEIF (@op1 == 2)
   z = cc^(qv)^ww^xx
   ELSEIF (@op1 == 3)
   z = dd^(qv)^ww^xx
   ELSEIF (@op1 == 4)
   z = ff^(qv)^ww^xx
   ENDIF
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op5 == 1); group 2
IF (@op4 == 0)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qq)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qq)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qq)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qq)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qq)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qq)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qq)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qq)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qq)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qq)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qq)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qq)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qq)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qq)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qq)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qq)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qq)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qq)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qq)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qq)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qq)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qq)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qq)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qq)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qq)/ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qq)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qq)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qq)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qq)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qq)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qq)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qq)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qq)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qq)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qq)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qq)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qq)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qq)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qq)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qq)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qq)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qq)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qq)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qq)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qq)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qq)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qq)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qq)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qq)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qq)*ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)

   z = aa/((qq)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qq)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qq)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qq)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qq)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qq)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qq)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qq)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qq)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qq)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qq)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qq)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qq)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qq)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qq)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qq)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qq)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qq)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qq)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qq)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qq)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qq)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qq)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qq)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qq)-ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qq)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qq)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qq)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qq)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qq)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qq)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qq)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qq)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qq)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qq)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qq)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qq)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qq)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qq)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qq)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qq)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qq)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qq)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qq)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qq)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qq)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qq)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qq)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qq)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qq)+ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qq)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qq)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qq)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qq)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qq)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qq)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qq)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qq)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qq)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qq)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qq)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qq)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qq)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qq)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qq)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qq)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qq)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qq)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qq)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qq)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qq)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qq)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qq)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qq)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qq)^ww)^xx
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 1)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qr)/ww)^xx
   ELSEIF (@op1 == 1)

   z = bb/((qr)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qr)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qr)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qr)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qr)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qr)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qr)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qr)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qr)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qr)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qr)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qr)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qr)/ww)^xx
   ELSEIF (@op1 == 4)

   z = ff-((qr)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qr)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qr)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qr)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qr)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qr)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qr)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qr)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qr)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qr)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qr)/ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qr)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qr)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qr)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qr)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qr)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qr)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qr)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qr)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qr)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qr)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qr)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qr)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qr)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qr)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qr)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qr)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qr)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qr)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qr)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qr)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qr)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qr)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qr)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qr)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qr)*ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qr)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qr)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qr)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qr)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qr)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qr)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qr)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qr)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qr)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qr)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qr)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qr)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qr)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qr)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qr)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qr)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qr)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qr)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qr)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qr)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qr)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qr)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qr)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qr)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qr)-ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qr)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qr)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qr)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qr)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qr)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qr)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qr)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qr)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qr)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qr)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qr)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qr)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qr)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qr)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qr)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qr)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qr)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qr)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qr)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qr)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qr)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qr)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qr)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qr)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qr)+ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qr)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qr)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qr)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qr)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qr)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qr)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qr)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qr)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qr)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qr)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qr)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qr)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qr)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qr)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qr)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qr)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qr)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qr)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qr)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qr)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qr)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qr)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qr)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qr)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qr)^ww)^xx
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 2)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qs)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qs)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qs)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qs)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qs)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qs)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qs)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qs)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qs)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qs)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qs)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qs)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qs)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qs)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qs)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qs)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qs)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qs)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qs)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qs)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qs)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qs)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qs)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qs)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qs)/ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qs)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qs)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qs)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qs)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qs)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qs)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qs)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qs)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qs)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qs)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qs)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qs)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qs)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qs)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qs)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qs)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qs)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qs)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qs)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qs)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qs)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qs)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qs)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qs)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qs)*ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qs)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qs)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qs)-ww)^xx

   ELSEIF (@op1 == 3)
   z = dd/((qs)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qs)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qs)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qs)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qs)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qs)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qs)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qs)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qs)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qs)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qs)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qs)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qs)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qs)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qs)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qs)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qs)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qs)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qs)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qs)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qs)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qs)-ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qs)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qs)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qs)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qs)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qs)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qs)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qs)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qs)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qs)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qs)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qs)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qs)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qs)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qs)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qs)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qs)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qs)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qs)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qs)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qs)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qs)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qs)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qs)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qs)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qs)+ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qs)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qs)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qs)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qs)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qs)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qs)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qs)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qs)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qs)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qs)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qs)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qs)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qs)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qs)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qs)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qs)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qs)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qs)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qs)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qs)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qs)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qs)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qs)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qs)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qs)^ww)^xx
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 3)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qt)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qt)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qt)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qt)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qt)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qt)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qt)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qt)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qt)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qt)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qt)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qt)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qt)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qt)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qt)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qt)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qt)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qt)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qt)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qt)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qt)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qt)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qt)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qt)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qt)/ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qt)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qt)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qt)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qt)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qt)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qt)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qt)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qt)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qt)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qt)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qt)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qt)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qt)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qt)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qt)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qt)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qt)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qt)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qt)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qt)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qt)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qt)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qt)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qt)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qt)*ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qt)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qt)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qt)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qt)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qt)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qt)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qt)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qt)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qt)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qt)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qt)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qt)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qt)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qt)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qt)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qt)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qt)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qt)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qt)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qt)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qt)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qt)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qt)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qt)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qt)-ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qt)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qt)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qt)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qt)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qt)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qt)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qt)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qt)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qt)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qt)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qt)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qt)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qt)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qt)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qt)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qt)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qt)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qt)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qt)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qt)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qt)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qt)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qt)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qt)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qt)+ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qt)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qt)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qt)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qt)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qt)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qt)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qt)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qt)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qt)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qt)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qt)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qt)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qt)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qt)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qt)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qt)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qt)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qt)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qt)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qt)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qt)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qt)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qt)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qt)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qt)^ww)^xx
   ENDIF
   ENDIF
   ENDIF
ELSEIF (@op4 == 4)
IF (@op3 == 0)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qv)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qv)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qv)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qv)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qv)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qv)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qv)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qv)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qv)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qv)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qv)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qv)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qv)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qv)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qv)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qv)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qv)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qv)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qv)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qv)/ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qv)/ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qv)/ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qv)/ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qv)/ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qv)/ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 1)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qv)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qv)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qv)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qv)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qv)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qv)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qv)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qv)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qv)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qv)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qv)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qv)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qv)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qv)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qv)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qv)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qv)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qv)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qv)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qv)*ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qv)*ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qv)*ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qv)*ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qv)*ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qv)*ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 2)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qv)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qv)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qv)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qv)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qv)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qv)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qv)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qv)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qv)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qv)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qv)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qv)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qv)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qv)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qv)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qv)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qv)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qv)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qv)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qv)-ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qv)-ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qv)-ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qv)-ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qv)-ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qv)-ww)^xx
   ENDIF
   ENDIF
   ELSEIF (@op3 == 3)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qv)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qv)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qv)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qv)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qv)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qv)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qv)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qv)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qv)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qv)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qv)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qv)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qv)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qv)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qv)+ww)^xx
   ENDIF

   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qv)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qv)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qv)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qv)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qv)+ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qv)+ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qv)+ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qv)+ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qv)+ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qv)+ww)^xx

   ENDIF
   ENDIF
   ELSEIF (@op3 == 4)
IF (@op2 == 0)
IF (@op1 == 0)
   z = aa/((qv)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb/((qv)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc/((qv)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd/((qv)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff/((qv)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 1)
   IF (@op1 == 0)
   z = aa*((qv)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb*((qv)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc*((qv)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd*((qv)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff*((qv)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 2)
   IF (@op1 == 0)
   z = aa-((qv)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb-((qv)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc-((qv)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd-((qv)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff-((qv)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 3)
   IF (@op1 == 0)
   z = aa+((qv)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb+((qv)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc+((qv)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd+((qv)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff+((qv)^ww)^xx
   ENDIF
   ELSEIF (@op2 == 4)
   IF (@op1 == 0)
   z = aa^((qv)^ww)^xx
   ELSEIF (@op1 == 1)
   z = bb^((qv)^ww)^xx
   ELSEIF (@op1 == 2)
   z = cc^((qv)^ww)^xx
   ELSEIF (@op1 == 3)
   z = dd^((qv)^ww)^xx
   ELSEIF (@op1 == 4)
   z = ff^((qv)^ww)^xx
   ENDIF
   ENDIF
   ENDIF
   ENDIF
   ENDIF


   bailout:
  |z| < real(@bailout)
  switch:
  type = "DragonAtom03z"
  bailout = bailout
  power = @power
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  budge = @budge
  nudge = @nudge
  kludge = @kludge
  op1 = @op1 
  op2 = @op2
  op3 = @op3
  op4 = @op4 
  op5 = @op5
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4  

  default:
  title = "Dragon Atom 03z Julia"
  center = (1.64, 0.41)
  magn = 1.09
  param seed
  default = (1.85,-.69)
  endparam
  param bailout
  default = (2.0,0)
  endparam
  param power 
  default = (1.0,0)
  endparam
  param op1
  caption = "operator 1"
  default = 0
  enum = "/""*""-""+""^"
  endparam
  param op2
  caption = "operator 2"
  default = 2
  enum = "/""*""-""+""^"
  endparam
  param op3
  caption = "operator 3"
  default = 1
  enum = "/""*""-""+""^"
  endparam
  param op4
  caption = "operator 4"
  default = 4
  enum = "/""*""-""+""^"
  endparam
  param op5
  caption = "grouping"
  default = 0
  enum = "inner""outer"
  endparam
  param exp1
  caption = "exponent 1"
  default = (1.0,0)
  endparam
  param exp2
  caption = "exponent 2"
  default = (1.0,0)
  endparam
  param exp3
  caption = "exponent 3"
  default = (1.0,0)
  endparam
  param exp4
  caption = "exponent 4"
  default = (1.0,0)
  endparam



  func fn1
  caption = "Function 1"
  default = atan()
  endfunc
  func fn2
  caption = "Function 2"
  default = abs()
  endfunc
  func fn3
  caption = "Function 3"
  default = tan()
  endfunc
  func fn4
  caption = "Function 4"
  default = ident()
  endfunc
  func fn5
  caption = "Function 5"
  default = ident()
  endfunc
  func fn6
  caption = "Function 6"
  default = ident()
  endfunc
  func fn7  
  caption = "Function 7"
  default = ident()
  endfunc

  periodicity = 0
}

 *********************************************************************


mandalaAlpha {
;Toby Marshall, Jan 2002
;Use the switch to explore the perimeter of the M set.
;The three functions can be set while using the switch.
;Parameters can be incremented in either formula. The
;real component of "exponent1" determines the number of
;arms in the julia figure.
init:
  z = 2
loop:
  z = fn1(fn2(z^@power1)-@budge)^fn3(@pow/((#pixel^@power2)-@nudge))
bailout:
  |z| < @bailout

switch:
  type = "mandalaalphajulia"
  seed = #pixel
  bailout = bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  budge = @budge
  nudge = @nudge
  power1 = @power1
  power2 = @power2
  pow = @pow
  default:
  periodicity = 0
  title = "mandala alpha"
  param bailout
  caption = "bailout"
  default = 7.0
  endparam
  param power1
  caption = "exponent1"
  default = (3.0,0.0)
  hint = "The real component determines the number \
   of arms in the figure. The imaginary component \
   changes the scale of the elements moving around the figure."
  endparam
  param power2
  caption = "exponent2"
  default = (1.0,0.0)
  endparam
  param budge
  caption = "budge"
  default = (0.0,0.0)
  endparam
  param nudge
  caption = "nudge"
  default = (0.0,0.0)
  endparam
  param pow
  caption = "power"
  default = (1.0,0.0)
  endparam

  func fn1
  caption = "function 1"
  default = flip ()
  endfunc
  func fn2
  caption = "function 2"
  default = conj ()
  endfunc
  func fn3
  caption = "function 3"
  default = log ()
  endfunc
}

mandalaAlphaJulia {
; Toby Marshall, Jan 2002
init:
  z = #pixel
loop:
z = fn1(fn2(z^@power1)-@budge)^fn3(@pow/((@seed^@power2)-@nudge))


bailout:
  |z| < @bailout
  switch:
  type = "mandalaalpha"
  bailout = bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  budge = @budge
  nudge = @nudge
  power1 = @power1
  power2 = @power2
  pow = @pow


  default:
  periodicity = 0
  title = "mandala alpha julia"
  param bailout
  caption = "bailout"
  default = 7.0
  endparam
  param seed
  caption = "seed"
  default = (1.4125, .075)
  endparam 
  param power1
  caption = "exponent1"
  default = (3.0,0.0)
  hint = "The real component determines the number\
  of arms in the figure. The imaginary component\
  changes the scale of the elements moving around the figure."
  endparam
  param power2
  caption = "exponent2"
  default = (1.0,0.0)
  endparam
  param budge
  caption = "budge"
  default = (0.0,0.0)
  endparam
  param nudge
  caption = "nudge"
  default = (0.0,0.0)
  endparam
  param pow
  caption = "power"
  default = (1.0,0.0)
  endparam

  func fn1
  caption = "function 1"
  default = flip ()
  endfunc
  func fn2
  caption = "function 2"
  default = conj ()
  endfunc
func fn3
  caption = "function 3"
  default = log ()
  endfunc
}

***********************************************************************

mandalaBeta {
;Toby Marshall, Jan 2002
;This differs from "mandala alpha" by the substitution 
;of the reciprocal of one expression in the equation.
;I've set the three functions to different defaults, 
;but it is worth your while to try different ones (try 
;fn1 = flip, fn2 = conj, fn3 = log for similar behavior to
;the "mandala alpha" default).
;Use the switch to explore the perimeter of the M set.
;The three functions can be set while using the switch.
;Parameters can be incremented in either formula. The
;real component of "exponent1" determines the number of
;arms in the julia figure.
init:
  z = 2
  loop:
  z = fn1(fn2(z^@power1)-@budge)^fn3((#pixel^@power2)-@nudge)
bailout:
  |z| < @bailout
  

switch:
  type = "mandalabetajulia"
  seed = #pixel
  bailout = bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  budge = @budge
  nudge = @nudge
  power1 = @power1
  power2 = @power2
  default:
  periodicity = 0
  title = "mandala beta"
  param bailout
  caption = "bailout"
  default = 7.0
  endparam
  param power1
  caption = "exponent1"
  default = (3.0,0.0)
  hint = "The real component determines the number \
   of arms in the figure. The imaginary component \
   changes the scale of the elements moving around the figure."
  endparam
  param power2
  caption = "exponent2"
  default = (1.0,0.0)
  endparam
  param budge
  caption = "budge"
  default = (0.0,0.0)
  endparam
  param nudge
  caption = "nudge"
  default = (0.0,0.0)
  endparam
  
  func fn1
  caption = "function 1"
  default = ident ()
  endfunc
  func fn2
  caption = "function 2"
  default = abs ()
  endfunc
func fn3
  caption = "function 3"
  default = log ()
  endfunc
}

mandalaBetaJulia {
; Toby Marshall, Jan 2002
init:
  z = #pixel
loop:
z = fn1(fn2(z^@power1)-@budge)^fn3((@seed^@power2)-@nudge)


bailout:
  |z| < @bailout
  switch:
  type = "mandalabeta"
  bailout = bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  budge = @budge
  nudge = @nudge
  power1 = @power1
  power2 = @power2


  default:
  periodicity = 0
  title = "mandala beta julia"
  param bailout
  caption = "bailout"
  default = 7.0
  endparam
  param seed
  caption = "seed"
  default = (1.225, -.325)
  endparam

  param power1
  caption = "exponent1"
  default = (3.0,0.0)
  hint = "The real component determines the number \
  of arms in the figure. The imaginary component \
  changes the scale of the elements moving around the figure."
  endparam
  param power2
  caption = "exponent2"
  default = (1.0,0.0)
  endparam
  param budge
  caption = "budge"
  default = (0.0,0.0)
  endparam
  param nudge
  caption = "nudge"
  default = (0.0,0.0)
  endparam
  
  func fn1
  caption = "function 1"
  default = ident ()
  endfunc
  func fn2
  caption = "function 2"
  default = abs ()
  endfunc
func fn3
  caption = "function 3"
  default = log ()
  endfunc
}

*************************************************************************

mandalaDelta {
;Toby Marshall, Jan 2002
;This formula is similar to "mandala gamma" except that 
;the reciprocal of one expression is substituted (related
;as "mandala beta" is to "mandala alpha").
;Use the switch to explore the perimeter of the M set.
;The three functions can be set while using the switch.
;Parameters can be incremented in either formula. The
;real component of "exponent1" determines the number of
;arms in the julia figure.
init:
  z = 2
loop:
  z = fn1(fn2(z^@power1*(fn4(#pixel^@power3)-@kludge))-@budge)^fn3((#pixel^@power2)-@nudge)
bailout:
  |z| < @bailout

switch:
  type = "mandaladeltajulia"
  seed = #pixel
  bailout = bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  budge = @budge
  nudge = @nudge
  kludge = @kludge
  power1 = @power1
  power2 = @power2
  power3 = @power3
  default:
  title = "mandala delta"
  periodicity = 0
  param bailout
  caption = "bailout"
  default = 7.0
  endparam
  param power1
  caption = "exponent1"
  default = (3.0,0.0)
  hint = "The real component determines the number \
   of arms in the figure. The imaginary component \
   changes the scale of the elements moving around the figure."
  endparam
  param power2
  caption = "exponent2"
  default = (1.0,0.0)
  endparam
  param power3
  caption = "exponent3"
  default = (1.0,0.0)
  endparam
  param budge
  caption = "budge"
  default = (0.0,0.0)
  endparam
  param kludge
  caption = "kludge"
  default = (0.0,0.0)
  endparam
  param nudge
  caption = "nudge"
  default = (0.0,0.0)
  endparam
  

  func fn1
  caption = "function 1"
  default = flip ()
  endfunc
  func fn2
  caption = "function 2"
  default = conj ()
  endfunc
  func fn3
  caption = "function 3"
  default = log ()
  endfunc
   func fn4
  caption = "function 4"
  default = ident ()
  endfunc
  

  

}

mandalaDeltaJulia {
; Toby Marshall, Jan 2002
init:
  z = #pixel
loop:
z = fn1(fn2(z^@power1*(fn4(@seed^@power3)-@kludge))-@budge)^fn3((@seed^@power2)-@nudge)


bailout:
  |z| < @bailout
  switch:
  type = "mandaladelta"
  bailout = bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  budge = @budge
  nudge = @nudge
  kludge = @kludge
  power1 = @power1
  power2 = @power2
  power3 = @power3


  default:
  title = "mandala delta julia"
  periodicity = 0
  maxiter = 500
  param bailout
  caption = "bailout"
  default = 7.0
  endparam
  param seed
  caption = "seed"
  default = (1.24, 0.3)
  endparam


  param power1
  caption = "exponent1"
  default = (3.0,0.0)
  hint = "The real component determines the number \
   of arms in the figure. The imaginary component \
   changes the scale of the elements moving around the figure."
  endparam
  param power2
  caption = "exponent2"
  default = (1.0,0.0)
  endparam
  param power3
  caption = "exponent3"
  default = (1.0,0.0)
  endparam
  param budge
  caption = "budge"
  default = (0.0,0.0)
  endparam
  param kludge
  caption = "kludge"
  default = (0.0,0.0)
  endparam
  param nudge
  caption = "nudge"
  default = (0.0,0.0)
  endparam
  
  func fn1
  caption = "function 1"
  default = flip ()
  endfunc
  func fn2
  caption = "function 2"
  default = conj ()
  endfunc
  func fn3
  caption = "function 3"
  default = log ()
  endfunc
   func fn4
  caption = "function 4"
  default = ident ()
  endfunc
 }

***********************************************************************

mandalaGamma {
;Toby Marshall, Jan 2002
;This differs from "mandala alpha" by the addition 
;of one expression in the equation, with a corresponding
;extra function and parameters added.
;Use the switch to explore the perimeter of the M set.
;The three functions can be set while using the switch.
;Parameters can be incremented in either formula. The
;real component of "exponent1" determines the number of
;arms in the julia figure.
init:
  z = 2
loop:
  z = fn1(fn2(z^@power1*(fn4(#pixel^@power3)-@kludge))-@budge)^fn3(@pow/((#pixel^@power2)-@nudge))
bailout:
  |z| < @bailout

switch:
  type = "mandalagammajulia"
  seed = #pixel
  bailout = bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  budge = @budge
  nudge = @nudge
  kludge = @kludge
  power1 = @power1
  power2 = @power2
  power3 = @power3
  pow = @pow
  default:
  title = "mandala gamma"
  periodicity = 0
  param bailout
  caption = "bailout"
  default = 7.0
  endparam
  param power1
  caption = "exponent1"
  hint = "The real component determines the number \
   of arms in the figure. The imaginary component \
   changes the scale of the elements moving around the figure."
  default = (3.0,0.0)
  endparam
  param power2
  caption = "exponent2"
  default = (1.0,0.0)
  endparam
  param power3
  caption = "exponent3"
  default = (1.0,0.0)
  endparam
  param budge
  caption = "budge"
  default = (0.0,0.0)
  endparam
  param kludge
  caption = "kludge"
  default = (0.0,0.0)
  endparam
  param nudge
  caption = "nudge"
  default = (0.0,0.0)
  endparam
  param pow
  caption = "power"
  default = (1.0,0.0)
  endparam

  func fn1
  caption = "function 1"
  default = flip ()
  endfunc
  func fn2
  caption = "function 2"
  default = conj ()
  endfunc
  func fn3
  caption = "function 3"
  default = log ()
  endfunc
   func fn4
  caption = "function 4"
  default = ident ()
  endfunc
}

mandalaGammaJulia {
; Toby Marshall, Jan 2002
init:
  z = #pixel
loop:
z = fn1(fn2(z^@power1*(fn4(@seed^@power3)-@kludge))-@budge)^fn3(@pow/((@seed^@power2)-@nudge))


bailout:
  |z| < @bailout
  switch:
  type = "mandalagamma"
  bailout = bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  budge = @budge
  nudge = @nudge
  kludge = @kludge
  power1 = @power1
  power2 = @power2
  power3 = @power3
  pow = @pow


  default:
  title = "mandala gamma julia"
  periodicity = 0
  maxiter = 500
  param bailout
  caption = "bailout"
  default = 7.0
  endparam
  param seed
  caption = "seed"
  default = (0.94, .333)
  endparam


  param power1
  caption = "exponent1"
  default = (3.0,0.0)
  hint = "The real component determines the number \
   of arms in the figure. The imaginary component \
   changes the scale of the elements moving around the figure."
  endparam
  param power2
  caption = "exponent2"
  default = (1.0,0.0)
  endparam
  param power3
  caption = "exponent3"
  default = (1.0,0.0)
  endparam
  param budge
  caption = "budge"
  default = (0.0,0.0)
  endparam  
  param kludge
  caption = "kludge"
  default = (0.0,0.0)
  endparam
  param nudge
  caption = "nudge"
  default = (0.0,0.0)
  endparam
  param pow
  caption = "power"
  default = (1.0,0.0)
  endparam

  func fn1
  caption = "function 1"
  default = flip ()
  endfunc
  func fn2
  caption = "function 2"
  default = conj ()
  endfunc
  func fn3
  caption = "function 3"
  default = log ()
  endfunc
   func fn4
  caption = "function 4"
  default = ident ()
  endfunc
  

  
}

*************************************************************************


mandalaEpsilon {
;Toby Marshall, Jan 2002
;This formula differs from "mandala gamma" by virtue
;of splitting an extra expression into real and 
;imaginary components and adding functions (fn4 & fn5)
;which control these independently, as well as parameters
;(exponents 3 & 4, "fudge" and "kludge") which change
;them independently.
;Use the switch to explore the perimeter of the M set.
;The three functions can be set while using the switch.
;Parameters can be incremented in either formula. The
;real component of "exponent1" determines the number of
;arms in the julia figure.
init:
  z = 2
  complex fudge = @fudge*(0.0,1.0)
 
loop:
  z = fn1(fn2(z^@e1-@budge)*fn4(imag(#pixel^@e3-fudge)))^@fn5(real(#pixel^@e4-@kludge))^fn3(@pow/((#pixel^@e2)-@nudge))
bailout:
  |z| < @bailout

switch:
  type = "mandalaepsilonjulia"
  seed = #pixel
  bailout = bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  budge = @budge
  nudge = @nudge
  kludge = @kludge
  fudge = @fudge
  e1 = @e1
  e2 = @e2
  e3 = @e3
  e4 = @e4
  pow = @pow
  default:
  title = "mandala epsilon"
  periodicity = 0
  param bailout
  caption = "bailout"
  default = 7.0
  endparam
 
  param e1
  caption = "exponent1"
  default = (3.0,0.0)
  hint = "The real component determines the number \
   of arms in the figure. The imaginary component \
   changes the scale of the elements moving around the figure."
  endparam
  param e2
  caption = "exponent2"
  default = (1.0,0.0)
  endparam
  param e3
  caption = "exponent3"
  default = (1.0,0.0)
  endparam
  param e4
  caption = "exponent4"
  default = (1.0,0.0)
  endparam
  param budge
  caption = "budge"
  default = (0.0,0.0)
  endparam
  param fudge
  caption = "fudge"
  default = 0.0
  endparam
  param kludge
  caption = "kludge"
  default = 0.0
  endparam
  param nudge
  caption = "nudge"
  default = (0.0,0.0)
  endparam
  param pow
  caption = "power"
  default = (1.0,0.0)
  endparam


  func fn1
  caption = "function 1"
  default = flip ()
  endfunc
  func fn2
  caption = "function 2"
  default = conj ()
  endfunc
  func fn3
  caption = "function 3"
  default = log ()
  endfunc
  func fn4
  caption = "function 4"
  default = ident ()
  endfunc
  func fn5
  caption = "function 5"
  default = ident ()
  endfunc
}

mandalaEpsilonJulia {
; Toby Marshall, Jan 2002
init:
  z = #pixel
  complex fudge = @fudge*(0.0,1.0)
  
  loop:
  z = fn1(fn2(z^@e1-@budge)*fn4(imag(@seed^@e3-fudge))^@fn5(real(@seed^@e4-@kludge)))^fn3(@pow/((@seed^@e2)-@nudge))
  bailout:
  |z| < @bailout
  switch:
  type = "mandalaepsilon"
  bailout = bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  budge = @budge
  nudge = @nudge
  kludge = @kludge
  fudge = @fudge
  e1 = @e1
  e2 = @e2
  e3 = @e3
  e4 = @e4
  pow = @pow


  default:
  title = "mandala epsilon julia"
  periodicity = 0
  maxiter = 500
  param bailout
  caption = "bailout"
  default = 7.0
  endparam
  param seed
  caption = "seed"
  default = (0.95, -0.332)
  endparam
  param e1
  caption = "exponent1"
  default = (3.0,0.0)
  hint = "The real component determines the number \
   of arms in the figure. The imaginary component \
   changes the scale of the elements moving around the figure."
  endparam
  param e2
  caption = "exponent2"
  default = (1.0,0.0)
  endparam
  param e3
  caption = "exponent3"
  default = (1.0,0.0)
  endparam
  param e4
  caption = "exponent4"
  default = (1.0,0.0)
  endparam
  param budge
  caption = "budge"
  default = (0.0,0.0)
  endparam
  param fudge
  caption = "fudge"
  default = 0.0
  endparam
  param kludge
  caption = "kludge"
  default = 0.0
  endparam
  param nudge
  caption = "nudge"
  default = (0.0,0.0)
  endparam
  param pow
  caption = "power"
  default = (1.0,0.0)
  endparam

  func fn1
  caption = "function 1"
  default = flip ()
  endfunc
  func fn2
  caption = "function 2"
  default = conj ()
  endfunc
func fn3
  caption = "function 3"
  default = log ()
  endfunc
  func fn4
  caption = "function 4"
  default = ident ()
  endfunc
  func fn5
  caption = "function 5"
  default = ident ()
  endfunc
}
**********************************************************************

mandalaZeta {
;Toby Marshall, Jan 2002
;This formula differs from "mandala delta" by virtue
;of splitting an expression into real and 
;imaginary components and adding functions (fn4 & fn5)
;which control these independently, as well as parameters
;(exponents 3 & 4, "fudge" and "kludge") which change
;them independently. It differs from "mandala epsilon"
;by substituting the reciprocal of one expression.
;Use the switch to explore the perimeter of the M set.
;The three functions can be set while using the switch.
;Parameters can be incremented in either formula. The
;real component of "exponent1" determines the number of
;arms in the julia figure.

init:
  z = 2
  complex fudge = @fudge*(0.0,1.0)
loop:
  z = fn1(fn2(z^@e1-@budge)*fn4(imag(#pixel^@e3-fudge)))^@fn5(real(#pixel^@e4-@kludge))^fn3((#pixel^@e2)-@nudge)
bailout:
  |z| < @bailout

switch:
  type = "mandalazetajulia"
  seed = #pixel
  bailout = bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  budge = @budge
  nudge = @nudge
  kludge = @kludge
  fudge = @fudge
  e1 = @e1
  e2 = @e2
  e3 = @e3
  e4 = @e4
  default:
  title = "mandala zeta"
  periodicity = 0
  param bailout
  caption = "bailout"
  default = 7.0
  endparam
 
  param e1
  caption = "exponent1"
  default = (3.0,0.0)
  hint = "The real component determines the number \
   of arms in the figure. The imaginary component \
   changes the scale of the elements moving around the figure."
  endparam
  param e2
  caption = "exponent2"
  default = (1.0,0.0)
  endparam
  param e3
  caption = "exponent3"
  default = (1.0,0.0)
  endparam
  param e4
  caption = "exponent4"
  default = (1.0,0.0)
  endparam
  param budge
  caption = "budge"
  default = (0.0,0.0)
  endparam
  param fudge
  caption = "fudge"
  default = 0.0  
  endparam
  param kludge
  caption = "kludge"
  default = 0.0
  endparam
  param nudge
  caption = "nudge"
  default = (0.0,0.0)
  endparam
 

  func fn1
  caption = "function 1"
  default = flip ()
  endfunc
  func fn2
  caption = "function 2"
  default = conj ()
  endfunc
  func fn3
  caption = "function 3"
  default = exp ()
  endfunc
  func fn4
  caption = "function 4"
  default = ident ()
  endfunc
  func fn5
  caption = "function 5"
  default = acosh ()
  endfunc
  }

mandalaZetaJulia {
; Toby Marshall, Jan 2002
init:
  z = #pixel
  complex fudge = @fudge*(0.0,1.0)
loop:
 z = fn1(fn2(z^@e1-@budge)*fn4(imag(@seed^@e3-fudge))^@fn5(real(@seed^@e4-@kludge)))^fn3((@seed^@e2)-@nudge)
bailout:
  |z| < @bailout
  switch:
  type = "mandalazeta"
  bailout = bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  budge = @budge
  nudge = @nudge
  kludge = @kludge
  fudge = @fudge
  e1 = @e1
  e2 = @e2
  e3 = @e3
  e4 = @e4


  default:
  title = "mandala zeta julia "
  periodicity = 0
  maxiter = 500
  param bailout
  caption = "bailout"
  default = 7.0
  endparam
  param seed
  caption = "seed"
  default = (-1.0875, 0.525)
  endparam
  param e1
  caption = "exponent1"
  default = (3.0,0.0)
  hint = "The real component determines the number \
   of arms in the figure. The imaginary component \
   changes the scale of the elements moving around the figure."
  endparam
  param e2
  caption = "exponent2"
  default = (1.0,0.0)
  endparam
  param e3
  caption = "exponent3"
  default = (1.0,0.0)
  endparam
  param e4
  caption = "exponent4"
  default = (1.0,0.0)
  endparam
  param budge
  caption = "budge"
  default = (0.0,0.0)
  endparam
  param fudge
  caption = "fudge"
  default = 0.0  
  endparam
  param kludge
  caption = "kludge"
  default = 0.0
  endparam
  param nudge
  caption = "nudge"
  default = (0.0,0.0)
  endparam
 


  func fn1
  caption = "function 1"
  default = flip ()
  endfunc
  func fn2
  caption = "function 2"
  default = conj ()
  endfunc
  func fn3
  caption = "function 3"
  default = exp ()
  endfunc
  func fn4
  caption = "function 4"
  default = ident ()
  endfunc
  func fn5
  caption = "function 5"
  default = acosh ()
  endfunc
}
******************************************************************************************


mandalaTheta {
;Toby Marshall, Jan 2002
;This formula is similar to "mandala eta" except that 
;the reciprocal of one expression is substituted (related
;as "mandala beta" is to "mandala alpha").
;Use the switch to explore the perimeter of the M set.
;The three functions can be set while using the switch.
;Parameters can be incremented in either formula. The
;real component of "exponent1" determines the number of
;arms in the julia figure.
init:
  z = 2
loop:
  z = fn1(fn2(z^@power1^(fn4(#pixel^@power3)-@kludge))-@budge)^fn3((#pixel^@power2)-@nudge)
bailout:
  |z| < @bailout

switch:
  type = "mandalathetajulia"
  seed = #pixel
  bailout = bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  budge = @budge
  nudge = @nudge
  kludge = @kludge
  power1 = @power1
  power2 = @power2
  power3 = @power3
  default:
  title = "mandala theta"
  periodicity = 0
  param bailout
  caption = "bailout"
  default = 7.0
  endparam
  param power1
  caption = "exponent1"
  default = (3.0,0.0)
  hint = "The real component determines the number \
   of arms in the figure. The imaginary component \
   changes the scale of the elements moving around the figure."
  endparam
  param power2
  caption = "exponent2"
  default = (1.0,0.0)
  endparam
  param power3
  caption = "exponent3"
  default = (1.0,0.0)
  endparam
  param budge
  caption = "budge"
  default = (0.0,0.0)
  endparam
  param kludge
  caption = "kludge"
  default = (0.0,0.0)
  endparam
  param nudge
  caption = "nudge"
  default = (0.0,0.0)
  endparam
  

  func fn1
  caption = "function 1"
  default = flip ()
  endfunc
  func fn2
  caption = "function 2"
  default = conj ()
  endfunc
  func fn3
  caption = "function 3"
  default = log ()
  endfunc
   func fn4
  caption = "function 4"
  default = ident ()
  endfunc
  

  

}

mandalaThetaJulia {
; Toby Marshall, Jan 2002
init:
  z = #pixel
loop:
z = fn1(fn2(z^@power1^(fn4(@seed^@power3)-@kludge))-@budge)^fn3((@seed^@power2)-@nudge)


bailout:
  |z| < @bailout
  switch:
  type = "mandalatheta"
  bailout = bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  budge = @budge
  nudge = @nudge
  kludge = @kludge
  power1 = @power1
  power2 = @power2
  power3 = @power3


  default:
  title = "mandala theta julia"
  periodicity = 0
  maxiter = 500
  param bailout
  caption = "bailout"
  default = 7.0
  endparam
  param seed
  caption = "seed"
  default = (0.225, -0.025)
  endparam
  param power1
  caption = "exponent1"
  default = (3.0,0.0)
  hint = "The real component determines the number \
   of arms in the figure. The imaginary component \
   changes the scale of the elements moving around the figure."
  endparam
  param power2
  caption = "exponent2"
  default = (1.0,0.0)
  endparam
  param power3
  caption = "exponent3"
  default = (1.0,0.0)
  endparam
  param budge
  caption = "budge"
  default = (0.0,0.0)
  endparam
  param kludge
  caption = "kludge"
  default = (0.0,0.0)
  endparam
  param nudge
  caption = "nudge"
  default = (0.0,0.0)
  endparam
  
  func fn1
  caption = "function 1"
  default = flip ()
  endfunc
  func fn2
  caption = "function 2"
  default = conj ()
  endfunc
  func fn3
  caption = "function 3"
  default = log ()
  endfunc
   func fn4
  caption = "function 4"
  default = ident ()
  endfunc
 }

***********************************************************************

mandalaEta {
;Toby Marshall, Jan 2002
;This differs from "mandala gamma" by one arithmetical
;operator.  
;Use the switch to explore the perimeter of the M set.
;The three functions can be set while using the switch.
;Parameters can be incremented in either formula. The
;real component of "exponent1" determines the number of
;arms in the julia figure.
init:
  z = 2
loop:
  z = fn1(fn2(z^@power1^(fn4(#pixel^@power3)-@kludge))-@budge)^fn3(@pow/((#pixel^@power2)-@nudge))
bailout:
  |z| < @bailout

switch:
  type = "mandalaetajulia"
  seed = #pixel
  bailout = bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  budge = @budge
  nudge = @nudge
  kludge = @kludge
  power1 = @power1
  power2 = @power2
  power3 = @power3
  pow = @pow
  default:
  title = "mandala eta"
  periodicity = 0
  param bailout
  caption = "bailout"
  default = 7.0
  endparam
  param power1
  caption = "exponent1"
  hint = "The real component determines the number \
   of arms in the figure. The imaginary component \
   changes the scale of the elements moving around the figure."
  default = (1.0,0.0)
  endparam
  param power2
  caption = "exponent2"
  default = (1.0,0.0)
  endparam
  param power3
  caption = "exponent3"
  default = (1.0,0.0)
  endparam
  param budge
  caption = "budge"
  default = (0.0,0.0)
  endparam
  param kludge
  caption = "kludge"
  default = (0.0,0.0)
  endparam
  param nudge
  caption = "nudge"
  default = (0.0,0.0)
  endparam
  param pow
  caption = "power"
  default = (1.0,0.0)
  endparam

  func fn1
  caption = "function 1"
  default = conj ()
  endfunc
  func fn2
  caption = "function 2"
  default = abs ()
  endfunc
  func fn3
  caption = "function 3"
  default = log ()
  endfunc
   func fn4
  caption = "function 4"
  default = ident ()
  endfunc
}

mandalaEtaJulia {
; Toby Marshall, Jan 2002
init:
  z = #pixel
loop:
z = fn1(fn2(z^@power1^(fn4(@seed^@power3)-@kludge))-@budge)^fn3(@pow/((@seed^@power2)-@nudge))


bailout:
  |z| < @bailout
  switch:
  type = "mandalaeta"
  bailout = bailout

  default:
  title = "mandala eta julia"
  periodicity = 0
  maxiter = 500
  param bailout
  caption = "bailout"
  default = 7.0
  endparam
  param seed
  caption = "seed"
  default = (0.774, -0.936)
  endparam


  param power1
  caption = "exponent1"
  default = (1.0,0.0)
  hint = "The real component determines the number \
   of arms in the figure. The imaginary component \
   changes the scale of the elements moving around the figure."
  endparam
  param power2
  caption = "exponent2"
  default = (1.0,0.0)
  endparam
  param power3
  caption = "exponent3"
  default = (1.0,0.0)
  endparam
  param budge
  caption = "budge"
  default = (0.0,0.0)
  endparam
  param kludge
  caption = "kludge"
  default = (0.0,0.0)
  endparam
  param nudge
  caption = "nudge"
  default = (0.0,0.0)
  endparam
  param pow
  caption = "power"
  default = (1.0,0.0)
  endparam

  func fn1
  caption = "function 1"
  default = conj ()
  endfunc
  func fn2
  caption = "function 2"
  default = abs ()
  endfunc
  func fn3
  caption = "function 3"
  default = log ()
  endfunc
   func fn4
  caption = "function 4"
  default = ident ()
  endfunc
  

  
}

*************************************************************************


mandalaIota {
;Toby Marshall, Jan 2002
;This formula differs from "mandala epsilon" by 
;a change in one arithmetical operator.
;Use the switch to explore the perimeter of the M set.
;The three functions can be set while using the switch.
;Parameters can be incremented in either formula. The
;real component of "exponent1" determines the number of
;arms in the julia figure.
init:
  z = 2
  complex fudge = @fudge*(0.0,1.0)
 
loop:
  z = fn1(fn2(z^@e1-@budge)^fn4(imag(#pixel^@e3-fudge)))^@fn5(real(#pixel^@e4-@kludge))^fn3(@pow/((#pixel^@e2)-@nudge))
bailout:
  |z| < @bailout

switch:
  type = "mandalaiotajulia"
  seed = #pixel
  bailout = bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  budge = @budge
  nudge = @nudge
  kludge = @kludge
  fudge = @fudge
  e1 = @e1
  e2 = @e2
  e3 = @e3
  e4 = @e4
  pow = @pow
  default:
  title = "mandala iota"
  periodicity = 0
  param bailout
  caption = "bailout"
  default = 7.0
  endparam
 
  param e1
  caption = "exponent1"
  default = (5.0,0.0)
  hint = "The real component determines the number \
   of arms in the figure. The imaginary component \
   changes the scale of the elements moving around the figure."
  endparam
  param e2
  caption = "exponent2"
  default = (1.0,0.0)
  endparam
  param e3
  caption = "exponent3"
  default = (1.0,0.0)
  endparam
  param e4
  caption = "exponent4"
  default = (1.0,0.0)
  endparam
  param budge
  caption = "budge"
  default = (0.0,0.0)
  endparam
  param fudge
  caption = "fudge"
  default = 0.0
  endparam
  param kludge
  caption = "kludge"
  default = 0.0
  endparam
  param nudge
  caption = "nudge"
  default = (0.0,0.0)
  endparam
  param pow
  caption = "power"
  default = (1.1,0.5)
  endparam


  func fn1
  caption = "function 1"
  default = recip ()
  endfunc
  func fn2
  caption = "function 2"
  default = abs ()
  endfunc
  func fn3
  caption = "function 3"
  default = log ()
  endfunc
  func fn4
  caption = "function 4"
  default = ident ()
  endfunc
  func fn5
  caption = "function 5"
  default = ident ()
  endfunc
}

mandalaIotaJulia {
; Toby Marshall, Jan 2002
init:
  z = #pixel
  complex fudge = @fudge*(0.0,1.0)
  
  loop:
  z = fn1(fn2(z^@e1-@budge)^fn4(imag(@seed^@e3-fudge))^@fn5(real(@seed^@e4-@kludge)))^fn3(@pow/((@seed^@e2)-@nudge))
  bailout:
  |z| < @bailout
  switch:
  type = "mandalaiota"
  bailout = bailout

  default:
  title = "mandala iota julia"
  periodicity = 0
  maxiter = 500
  param bailout
  caption = "bailout"
  default = 7.0
  endparam
  param seed
  caption = "seed"
  default = (1.765, 0.242)
  endparam
  param e1
  caption = "exponent1"
  default = (5.0,0.0)
  hint = "The real component determines the number \
   of arms in the figure. The imaginary component \
   changes the scale of the elements moving around the figure."
  endparam
  param e2
  caption = "exponent2"
  default = (1.0,0.0)
  endparam
  param e3
  caption = "exponent3"
  default = (1.0,0.0)
  endparam
  param e4
  caption = "exponent4"
  default = (1.0,0.0)
  endparam
  param budge
  caption = "budge"
  default = (0.0,0.0)
  endparam
  param fudge
  caption = "fudge"
  default = 0.0
  endparam
  param kludge
  caption = "kludge"
  default = 0.0
  endparam
  param nudge
  caption = "nudge"
  default = (0.0,0.0)
  endparam
  param pow
  caption = "power"
  default = (1.1,0.5)
  endparam

  func fn1
  caption = "function 1"
  default = recip ()
  endfunc
  func fn2
  caption = "function 2"
  default = abs ()
  endfunc
func fn3
  caption = "function 3"
  default = log ()
  endfunc
  func fn4
  caption = "function 4"
  default = ident ()
  endfunc
  func fn5
  caption = "function 5"
  default = ident ()
  endfunc
}
**********************************************************************

mandalaKappa {
;Toby Marshall, Jan 2002
;This formula differs from "mandala iota" by the
; substitution of the reciprocal in one expression.
;Use the switch to explore the perimeter of the M set.
;The three functions can be set while using the switch.
;Parameters can be incremented in either formula. The
;real component of "exponent1" determines the number of
;arms in the julia figure.

init:
  z = 2
  complex fudge = @fudge*(0.0,1.0)
loop:
  z = fn1(fn2(z^@e1-@budge)^fn4(imag(#pixel^@e3-fudge)))^@fn5(real(#pixel^@e4-@kludge))^fn3((#pixel^@e2)-@nudge)
bailout:
  |z| < @bailout

switch:
  type = "mandalakappajulia"
  seed = #pixel
  bailout = bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  budge = @budge
  nudge = @nudge
  kludge = @kludge
  fudge = @fudge
  e1 = @e1
  e2 = @e2
  e3 = @e3
  e4 = @e4
  default:
  title = "mandala kappa"
  periodicity = 0
  param bailout
  caption = "bailout"
  default = 7.0
  endparam
 
  param e1
  caption = "exponent1"
  default = (3.0,0.0)
  hint = "The real component determines the number \
   of arms in the figure. The imaginary component \
   changes the scale of the elements moving around the figure."
  endparam
  param e2
  caption = "exponent2"
  default = (1.0,0.0)
  endparam
  param e3
  caption = "exponent3"
  default = (1.0,0.0)
  endparam
  param e4
  caption = "exponent4"
  default = (1.0,0.0)
  endparam
  param budge
  caption = "budge"
  default = (0.0,0.0)
  endparam
  param fudge
  caption = "fudge"
  default = 0.0  
  endparam
  param kludge
  caption = "kludge"
  default = 0.0
  endparam
  param nudge
  caption = "nudge"
  default = (0.0,0.0)
  endparam
 

  func fn1
  caption = "function 1"
  default = ident ()
  endfunc
  func fn2
  caption = "function 2"
  default = ident ()
  endfunc
  func fn3
  caption = "function 3"
  default = flip ()
  endfunc
  func fn4
  caption = "function 4"
  default = ident ()
  endfunc
  func fn5
  caption = "function 5"
  default = ident ()
  endfunc
  }

mandalaKappaJulia {
; Toby Marshall, Jan 2002
init:
  z = #pixel
  complex fudge = @fudge*(0.0,1.0)
loop:
 z = fn1(fn2(z^@e1-@budge)^fn4(imag(@seed^@e3-fudge))^@fn5(real(@seed^@e4-@kludge)))^fn3((@seed^@e2)-@nudge)
bailout:
  |z| < @bailout
  switch:
  type = "mandalakappa"
  bailout = bailout

  default:
  title = "mandala kappa julia "
  periodicity = 0
  maxiter = 500
  param bailout
  caption = "bailout"
  default = 7.0
  endparam
  param seed
  caption = "seed"
  default = (-0.29, -1.09)
  endparam
  param e1
  caption = "exponent1"
  default = (3.0,0.0)
  hint = "The real component determines the number \
   of arms in the figure. The imaginary component \
   changes the scale of the elements moving around the figure."
  endparam
  param e2
  caption = "exponent2"
  default = (1.0,0.0)
  endparam
  param e3
  caption = "exponent3"
  default = (1.0,0.0)
  endparam
  param e4
  caption = "exponent4"
  default = (1.0,0.0)
  endparam
  param budge
  caption = "budge"
  default = (0.0,0.0)
  endparam
  param fudge
  caption = "fudge"
  default = 0.0  
  endparam
  param kludge
  caption = "kludge"
  default = 0.0
  endparam
  param nudge
  caption = "nudge"
  default = (0.0,0.0)
  endparam
 


  func fn1
  caption = "function 1"
  default = ident ()
  endfunc
  func fn2
  caption = "function 2"
  default = ident ()
  endfunc
  func fn3
  caption = "function 3"
  default = flip ()
  endfunc
  func fn4
  caption = "function 4"
  default = ident ()
  endfunc
  func fn5
  caption = "function 5"
  default = ident ()
  endfunc
}
*****************************************************************************************************************************


StrangeBrew {
  ; Toby Marshall, Jan. 2002
  ; Use with the Julia switch. All functions
  ; and parameters can be varied to explore
  ; different Julia sets. Some parameter
  ; combinations give black M sets, but they
  ; too sometimes yield interesting results 
  ; with the switch.
  ;
  ; Thanks to Jos Leys and Rui Parracho
  ; for their explanations and patience.

  
init:
  
  z = @start
  complex frog = @frog*(0.0,1.0)
  
loop:
aa = fn2(real(fn3(z^@exp1) + @eye))
qq = fn4(imag (@fn5(z^@exp2) + frog))
vv = @fn6(#pixel^@exp4 +@hen)
ww = @fn7(z^@exp3 + @bat)
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa) / qq / vv / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq / vv / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq / vv / ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq / vv / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq / vv / ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa) / qq * vv / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq * vv / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq * vv / ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq * vv / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq * vv / ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa) / qq - vv / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq - vv / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq - vv / ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq - vv / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq - vv / ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa) / qq + vv / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq + vv / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq + vv / ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq + vv / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq + vv / ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa) / qq ^ vv / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq ^ vv / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq ^ vv / ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq ^ vv / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq ^ vv / ww
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa) / qq / vv * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq / vv * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq / vv * ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq / vv * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq / vv * ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa) / qq * vv * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq * vv * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq * vv * ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq * vv * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq * vv * ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa) / qq - vv * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq - vv * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq - vv * ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq - vv * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq - vv * ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa) / qq + vv * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq + vv * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq + vv * ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq + vv * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq + vv * ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa) / qq ^ vv * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq ^ vv * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq ^ vv * ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq ^ vv * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq ^ vv * ww
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa) / qq / vv - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq / vv - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq / vv - ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq / vv - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq / vv - ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa) / qq * vv - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq * vv - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq * vv - ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq * vv - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq * vv - ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa) / qq - vv - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq - vv - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq - vv - ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq - vv - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq - vv - ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa) / qq + vv - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq + vv - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq + vv - ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq + vv - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq + vv - ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa) / qq ^ vv - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq ^ vv - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq ^ vv - ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq ^ vv - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq ^ vv - ww
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa) / qq / vv + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq / vv + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq / vv + ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq / vv + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq / vv + ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa) / qq * vv + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq * vv + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq * vv + ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq * vv + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq * vv + ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa) / qq - vv + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq - vv + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq - vv + ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq - vv + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq - vv + ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa) / qq + vv + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq + vv + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq + vv + ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq + vv + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq + vv + ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa) / qq ^ vv + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq ^ vv + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq ^ vv + ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq ^ vv + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq ^ vv + ww
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa) / qq / vv ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq / vv ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq / vv ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq / vv ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq / vv ^ ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa) / qq * vv ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq * vv ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq * vv ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq * vv ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq * vv ^ ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa) / qq - vv ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq - vv ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq - vv ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq - vv ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq - vv ^ ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa) / qq + vv ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq + vv ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq + vv ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq + vv ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq + vv ^ ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa) / qq ^ vv ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq ^ vv ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq ^ vv ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq ^ vv ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq ^ vv ^ ww
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa / qq) / vv / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) / vv / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) / vv / ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) / vv / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) / vv / ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa / qq) * vv / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) * vv / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) * vv / ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) * vv / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) * vv / ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa / qq) - vv / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) - vv / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) - vv / ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) - vv / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) - vv / ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa / qq) + vv / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) + vv / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) + vv / ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) + vv / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) + vv / ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa / qq) ^ vv / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) ^ vv / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) ^ vv / ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) ^ vv / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) ^ vv / ww
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa / qq) / vv * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) / vv * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) / vv * ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) / vv * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) / vv * ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa / qq) * vv * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) * vv * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) * vv * ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) * vv * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) * vv * ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa / qq) - vv * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) - vv * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) - vv * ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) - vv * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) - vv * ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa / qq) + vv * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) + vv * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) + vv * ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) + vv * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) + vv * ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa / qq) ^ vv * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) ^ vv * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) ^ vv * ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) ^ vv * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) ^ vv * ww
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa / qq) / vv - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) / vv - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) / vv - ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) / vv - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) / vv - ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa / qq) * vv - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) * vv - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) * vv - ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) * vv - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) * vv - ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa / qq) - vv - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) - vv - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) - vv - ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) - vv - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) - vv - ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa / qq) + vv - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) + vv - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) + vv - ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) + vv - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) + vv - ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa / qq) ^ vv - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) ^ vv - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) ^ vv - ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) ^ vv - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) ^ vv - ww
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa / qq) / vv + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) / vv + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) / vv + ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) / vv + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) / vv + ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa / qq) * vv + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) * vv + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) * vv + ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) * vv + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) * vv + ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa / qq) - vv + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) - vv + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) - vv + ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) - vv + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) - vv + ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa / qq) + vv + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) + vv + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) + vv + ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) + vv + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) + vv + ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa / qq) ^ vv + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) ^ vv + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) ^ vv + ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) ^ vv + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) ^ vv + ww
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa / qq) / vv ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) / vv ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) / vv ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) / vv ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) / vv ^ ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa / qq) * vv ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) * vv ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) * vv ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) * vv ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) * vv ^ ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa / qq) - vv ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) - vv ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) - vv ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) - vv ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) - vv ^ ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa / qq) + vv ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) + vv ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) + vv ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) + vv ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) + vv ^ ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa / qq) ^ vv ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) ^ vv ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) ^ vv ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) ^ vv ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) ^ vv ^ ww
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa) / (qq / vv) / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq / vv) / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq / vv) / ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq / vv) / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq / vv) / ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa) / (qq * vv) / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq * vv) / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq * vv) / ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq * vv) / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq * vv) / ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa) / (qq - vv) / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq - vv) / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq - vv) / ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq - vv) / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq - vv) / ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa) / (qq + vv) / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq + vv) / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq + vv) / ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq + vv) / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq + vv) / ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa) / (qq ^ vv) / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq ^ vv) / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq ^ vv) / ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq ^ vv) / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq ^ vv) / ww
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa) / (qq / vv) * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq / vv) * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq / vv) * ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq / vv) * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq / vv) * ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa) / (qq * vv) * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq * vv) * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq * vv) * ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq * vv) * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq * vv) * ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa) / (qq - vv) * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq - vv) * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq - vv) * ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq - vv) * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq - vv) * ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa) / (qq + vv) * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq + vv) * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq + vv) * ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq + vv) * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq + vv) * ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa) / (qq ^ vv) * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq ^ vv) * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq ^ vv) * ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq ^ vv) * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq ^ vv) * ww
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa) / (qq / vv) - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq / vv) - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq / vv) - ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq / vv) - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq / vv) - ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa) / (qq * vv) - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq * vv) - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq * vv) - ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq * vv) - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq * vv) - ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa) / (qq - vv) - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq - vv) - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq - vv) - ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq - vv) - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq - vv) - ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa) / (qq + vv) - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq + vv) - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq + vv) - ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq + vv) - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq + vv) - ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa) / (qq ^ vv) - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq ^ vv) - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq ^ vv) - ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq ^ vv) - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq ^ vv) - ww
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa) / (qq / vv) + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq / vv) + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq / vv) + ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq / vv) + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq / vv) + ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa) / (qq * vv) + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq * vv) + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq * vv) + ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq * vv) + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq * vv) + ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa) / (qq - vv) + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq - vv) + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq - vv) + ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq - vv) + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq - vv) + ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa) / (qq + vv) + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq + vv) + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq + vv) + ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq + vv) + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq + vv) + ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa) / (qq ^ vv) + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq ^ vv) + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq ^ vv) + ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq ^ vv) + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq ^ vv) + ww
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa) / (qq / vv) ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq / vv) ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq / vv) ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq / vv) ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq / vv) ^ ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa) / (qq * vv) ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq * vv) ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq * vv) ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq * vv) ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq * vv) ^ ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa) / (qq - vv) ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq - vv) ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq - vv) ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq - vv) ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq - vv) ^ ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa) / (qq + vv) ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq + vv) ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq + vv) ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq + vv) ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq + vv) ^ ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa) / (qq ^ vv) ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq ^ vv) ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq ^ vv) ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq ^ vv) ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq ^ vv) ^ ww
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa) / (qq / vv / ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq / vv / ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq / vv / ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq / vv / ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq / vv / ww)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa) / (qq * vv / ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq * vv / ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq * vv / ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq * vv / ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq * vv / ww)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa) / (qq - vv / ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq - vv / ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq - vv / ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq - vv / ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq - vv / ww)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa) / (qq + vv / ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq + vv / ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq + vv / ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq + vv / ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq + vv / ww)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa) / (qq ^ vv / ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq ^ vv / ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq ^ vv / ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq ^ vv / ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq ^ vv / ww)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa) / (qq / vv * ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq / vv * ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq / vv * ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq / vv * ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq / vv * ww)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa) / (qq * vv * ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq * vv * ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq * vv * ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq * vv * ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq * vv * ww)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa) / (qq - vv * ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq - vv * ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq - vv * ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq - vv * ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq - vv * ww)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa) / (qq + vv * ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq + vv * ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq + vv * ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq + vv * ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq + vv * ww)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa) / (qq ^ vv * ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq ^ vv * ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq ^ vv * ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq ^ vv * ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq ^ vv * ww)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa) / (qq / vv - ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq / vv - ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq / vv - ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq / vv - ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq / vv - ww)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa) / (qq * vv - ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq * vv - ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq * vv - ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq * vv - ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq * vv - ww)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa) / (qq - vv - ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq - vv - ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq - vv - ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq - vv - ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq - vv - ww)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa) / (qq + vv - ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq + vv - ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq + vv - ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq + vv - ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq + vv - ww)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa) / (qq ^ vv - ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq ^ vv - ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq ^ vv - ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq ^ vv - ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq ^ vv - ww)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa) / (qq / vv + ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq / vv + ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq / vv + ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq / vv + ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq / vv + ww)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa) / (qq * vv + ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq * vv + ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq * vv + ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq * vv + ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq * vv + ww)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa) / (qq - vv + ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq - vv + ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq - vv + ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq - vv + ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq - vv + ww)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa) / (qq + vv + ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq + vv + ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq + vv + ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq + vv + ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq + vv + ww)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa) / (qq ^ vv + ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq ^ vv + ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq ^ vv + ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq ^ vv + ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq ^ vv + ww)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa) / (qq / vv ^ ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq / vv ^ ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq / vv ^ ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq / vv ^ ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq / vv ^ ww)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa) / (qq * vv ^ ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq * vv ^ ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq * vv ^ ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq * vv ^ ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq * vv ^ ww)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa) / (qq - vv ^ ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq - vv ^ ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq - vv ^ ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq - vv ^ ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq - vv ^ ww)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa) / (qq + vv ^ ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq + vv ^ ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq + vv ^ ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq + vv ^ ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq + vv ^ ww)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa) / (qq ^ vv ^ ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq ^ vv ^ ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq ^ vv ^ ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq ^ vv ^ ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq ^ vv ^ ww)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 4); outer
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa / qq / vv) / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq / vv) / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq / vv) / ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq / vv) / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq / vv) / ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa / qq * vv) / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq * vv) / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq * vv) / ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq * vv) / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq * vv) / ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa / qq - vv) / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq - vv) / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq - vv) / ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq - vv) / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq - vv) / ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa / qq + vv) / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq + vv) / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq + vv) / ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq + vv) / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq + vv) / ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa / qq ^ vv) / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq ^ vv) / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq ^ vv) / ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq ^ vv) / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq ^ vv) / ww
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa / qq / vv) * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq / vv) * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq / vv) * ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq / vv) * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq / vv) * ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa / qq * vv) * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq * vv) * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq * vv) * ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq * vv) * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq * vv) * ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa / qq - vv) * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq - vv) * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq - vv) * ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq - vv) * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq - vv) * ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa / qq + vv) * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq + vv) * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq + vv) * ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq + vv) * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq + vv) * ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa / qq ^ vv) * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq ^ vv) * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq ^ vv) * ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq ^ vv) * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq ^ vv) * ww
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa / qq / vv) - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq / vv) - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq / vv) - ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq / vv) - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq / vv) - ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa / qq * vv) - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq * vv) - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq * vv) - ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq * vv) - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq * vv) - ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa / qq - vv) - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq - vv) - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq - vv) - ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq - vv) - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq - vv) - ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa / qq + vv) - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq + vv) - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq + vv) - ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq + vv) - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq + vv) - ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa / qq ^ vv) - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq ^ vv) - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq ^ vv) - ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq ^ vv) - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq ^ vv) - ww
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa / qq / vv) + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq / vv) + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq / vv) + ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq / vv) + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq / vv) + ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa / qq * vv) + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq * vv) + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq * vv) + ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq * vv) + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq * vv) + ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa / qq - vv) + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq - vv) + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq - vv) + ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq - vv) + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq - vv) + ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa / qq + vv) + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq + vv) + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq + vv) + ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq + vv) + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq + vv) + ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa / qq ^ vv) + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq ^ vv) + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq ^ vv) + ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq ^ vv) + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq ^ vv) + ww
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa / qq / vv) ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq / vv) ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq / vv) ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq / vv) ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq / vv) ^ ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa / qq * vv) ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq * vv) ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq * vv) ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq * vv) ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq * vv) ^ ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa / qq - vv) ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq - vv) ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq - vv) ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq - vv) ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq - vv) ^ ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa / qq + vv) ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq + vv) ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq + vv) ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq + vv) ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq + vv) ^ ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa / qq ^ vv) ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq ^ vv) ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq ^ vv) ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq ^ vv) ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq ^ vv) ^ ww
ENDIF
ENDIF
ENDIF
ENDIF


bailout:
  |z| < @bailout
  switch:
  type = "StrangeBrewJulia"
  seed = #pixel
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  eye = @eye
  frog = @frog
  hen = @hen
  op1 = @op1
  op2 = @op2
  op3 = @op3
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  start = @start
  group = @group
  

 
default:
  title = "Strange Brew"
  maxiter = 1000
  method = multipass
  periodicity = 0
  magn = 0.29
  center = (-0.9575,0.0)

  param bailout
  caption = "bailout"
  default = 20.0
  hint = "It is worth your while to check higher \
  (and lower) bailouts as this will definitely \
   affect the character of the image elements by \
   determining how completely they are drawn"
  endparam
  param start
  caption = "init z"
  default = 1.0
  endparam
  param eye
  caption = "eye of newt"
  default = -1.0
  endparam
  param frog
  caption = "frog's breath"
  default = 0.0
  endparam
  param hen
  caption = "henbane"
  default = (-.5,0)
  endparam
  param bat
  caption = "bat wings"
  default = (0,0)
  endparam
  param exp1
  caption = "exponent 1"
  default = (1,0)
  endparam
  param exp2
  caption = "exponent 2"
  default = (1,0)
  endparam
 param exp3
  caption = "exponent 3"
  default = (1,0)
  endparam
 param exp4
  caption = "exponent 4"
  default = (1,0)
  endparam
  param op1
  caption = "operator 1"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4""5"
  endparam




  
  
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = ident ()
  endfunc
  func fn3
  Caption = "function 3"
  default = ident ()
  endfunc
  func fn4
  Caption = "function 4"
  default = ident ()
  endfunc
  func fn5
  Caption = "function 5"
  default = ident ()
  endfunc
  func fn6
  Caption = "function 6"
  default = ident ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
}

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

StrangeBrewJulia {
  ; Toby Marshall, Jan. 2002
  ; Functions and parameters can be changed
  ; to change the shapes and relations of 
  ; the fractal elements.
  ; 
  ; Thanks to Jos Leys and Rui Parracho 
  ; for their explanations and patience.
init:
 
  z = 2*pixel
  complex frog = @frog*(0.0,1.0)
  
loop:
aa = fn2(real(fn3(z^@exp1) + @eye))
qq = fn4(imag (@fn5(z^@exp2) + frog))
vv = @fn6(@seed^@exp4 +@hen)
ww = @fn7(z^@exp3 + @bat)
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa) / qq / vv / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq / vv / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq / vv / ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq / vv / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq / vv / ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa) / qq * vv / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq * vv / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq * vv / ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq * vv / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq * vv / ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa) / qq - vv / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq - vv / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq - vv / ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq - vv / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq - vv / ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa) / qq + vv / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq + vv / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq + vv / ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq + vv / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq + vv / ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa) / qq ^ vv / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq ^ vv / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq ^ vv / ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq ^ vv / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq ^ vv / ww
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa) / qq / vv * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq / vv * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq / vv * ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq / vv * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq / vv * ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa) / qq * vv * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq * vv * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq * vv * ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq * vv * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq * vv * ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa) / qq - vv * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq - vv * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq - vv * ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq - vv * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq - vv * ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa) / qq + vv * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq + vv * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq + vv * ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq + vv * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq + vv * ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa) / qq ^ vv * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq ^ vv * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq ^ vv * ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq ^ vv * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq ^ vv * ww
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa) / qq / vv - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq / vv - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq / vv - ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq / vv - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq / vv - ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa) / qq * vv - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq * vv - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq * vv - ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq * vv - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq * vv - ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa) / qq - vv - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq - vv - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq - vv - ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq - vv - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq - vv - ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa) / qq + vv - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq + vv - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq + vv - ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq + vv - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq + vv - ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa) / qq ^ vv - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq ^ vv - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq ^ vv - ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq ^ vv - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq ^ vv - ww
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa) / qq / vv + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq / vv + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq / vv + ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq / vv + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq / vv + ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa) / qq * vv + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq * vv + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq * vv + ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq * vv + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq * vv + ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa) / qq - vv + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq - vv + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq - vv + ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq - vv + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq - vv + ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa) / qq + vv + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq + vv + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq + vv + ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq + vv + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq + vv + ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa) / qq ^ vv + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq ^ vv + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq ^ vv + ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq ^ vv + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq ^ vv + ww
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa) / qq / vv ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq / vv ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq / vv ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq / vv ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq / vv ^ ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa) / qq * vv ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq * vv ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq * vv ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq * vv ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq * vv ^ ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa) / qq - vv ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq - vv ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq - vv ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq - vv ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq - vv ^ ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa) / qq + vv ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq + vv ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq + vv ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq + vv ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq + vv ^ ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa) / qq ^ vv ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * qq ^ vv ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - qq ^ vv ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + qq ^ vv ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ qq ^ vv ^ ww
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa / qq) / vv / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) / vv / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) / vv / ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) / vv / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) / vv / ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa / qq) * vv / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) * vv / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) * vv / ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) * vv / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) * vv / ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa / qq) - vv / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) - vv / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) - vv / ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) - vv / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) - vv / ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa / qq) + vv / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) + vv / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) + vv / ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) + vv / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) + vv / ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa / qq) ^ vv / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) ^ vv / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) ^ vv / ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) ^ vv / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) ^ vv / ww
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa / qq) / vv * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) / vv * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) / vv * ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) / vv * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) / vv * ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa / qq) * vv * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) * vv * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) * vv * ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) * vv * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) * vv * ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa / qq) - vv * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) - vv * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) - vv * ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) - vv * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) - vv * ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa / qq) + vv * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) + vv * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) + vv * ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) + vv * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) + vv * ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa / qq) ^ vv * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) ^ vv * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) ^ vv * ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) ^ vv * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) ^ vv * ww
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa / qq) / vv - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) / vv - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) / vv - ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) / vv - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) / vv - ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa / qq) * vv - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) * vv - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) * vv - ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) * vv - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) * vv - ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa / qq) - vv - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) - vv - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) - vv - ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) - vv - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) - vv - ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa / qq) + vv - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) + vv - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) + vv - ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) + vv - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) + vv - ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa / qq) ^ vv - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) ^ vv - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) ^ vv - ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) ^ vv - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) ^ vv - ww
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa / qq) / vv + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) / vv + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) / vv + ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) / vv + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) / vv + ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa / qq) * vv + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) * vv + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) * vv + ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) * vv + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) * vv + ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa / qq) - vv + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) - vv + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) - vv + ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) - vv + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) - vv + ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa / qq) + vv + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) + vv + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) + vv + ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) + vv + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) + vv + ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa / qq) ^ vv + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) ^ vv + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) ^ vv + ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) ^ vv + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) ^ vv + ww
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa / qq) / vv ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) / vv ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) / vv ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) / vv ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) / vv ^ ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa / qq) * vv ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) * vv ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) * vv ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) * vv ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) * vv ^ ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa / qq) - vv ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) - vv ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) - vv ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) - vv ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) - vv ^ ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa / qq) + vv ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) + vv ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) + vv ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) + vv ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) + vv ^ ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa / qq) ^ vv ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq) ^ vv ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq) ^ vv ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq) ^ vv ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq) ^ vv ^ ww
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa) / (qq / vv) / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq / vv) / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq / vv) / ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq / vv) / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq / vv) / ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa) / (qq * vv) / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq * vv) / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq * vv) / ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq * vv) / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq * vv) / ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa) / (qq - vv) / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq - vv) / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq - vv) / ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq - vv) / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq - vv) / ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa) / (qq + vv) / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq + vv) / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq + vv) / ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq + vv) / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq + vv) / ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa) / (qq ^ vv) / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq ^ vv) / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq ^ vv) / ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq ^ vv) / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq ^ vv) / ww
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa) / (qq / vv) * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq / vv) * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq / vv) * ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq / vv) * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq / vv) * ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa) / (qq * vv) * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq * vv) * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq * vv) * ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq * vv) * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq * vv) * ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa) / (qq - vv) * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq - vv) * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq - vv) * ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq - vv) * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq - vv) * ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa) / (qq + vv) * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq + vv) * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq + vv) * ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq + vv) * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq + vv) * ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa) / (qq ^ vv) * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq ^ vv) * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq ^ vv) * ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq ^ vv) * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq ^ vv) * ww
ENDIF
ENDIF

ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa) / (qq / vv) - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq / vv) - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq / vv) - ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq / vv) - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq / vv) - ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa) / (qq * vv) - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq * vv) - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq * vv) - ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq * vv) - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq * vv) - ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa) / (qq - vv) - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq - vv) - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq - vv) - ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq - vv) - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq - vv) - ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa) / (qq + vv) - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq + vv) - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq + vv) - ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq + vv) - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq + vv) - ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa) / (qq ^ vv) - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq ^ vv) - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq ^ vv) - ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq ^ vv) - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq ^ vv) - ww
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa) / (qq / vv) + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq / vv) + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq / vv) + ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq / vv) + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq / vv) + ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa) / (qq * vv) + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq * vv) + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq * vv) + ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq * vv) + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq * vv) + ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa) / (qq - vv) + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq - vv) + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq - vv) + ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq - vv) + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq - vv) + ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa) / (qq + vv) + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq + vv) + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq + vv) + ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq + vv) + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq + vv) + ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa) / (qq ^ vv) + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq ^ vv) + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq ^ vv) + ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq ^ vv) + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq ^ vv) + ww
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa) / (qq / vv) ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq / vv) ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq / vv) ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq / vv) ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq / vv) ^ ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa) / (qq * vv) ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq * vv) ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq * vv) ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq * vv) ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq * vv) ^ ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa) / (qq - vv) ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq - vv) ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq - vv) ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq - vv) ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq - vv) ^ ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa) / (qq + vv) ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq + vv) ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq + vv) ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq + vv) ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq + vv) ^ ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa) / (qq ^ vv) ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq ^ vv) ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq ^ vv) ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq ^ vv) ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq ^ vv) ^ ww
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa) / (qq / vv / ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq / vv / ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq / vv / ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq / vv / ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq / vv / ww)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa) / (qq * vv / ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq * vv / ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq * vv / ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq * vv / ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq * vv / ww)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa) / (qq - vv / ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq - vv / ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq - vv / ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq - vv / ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq - vv / ww)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa) / (qq + vv / ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq + vv / ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq + vv / ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq + vv / ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq + vv / ww)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa) / (qq ^ vv / ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq ^ vv / ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq ^ vv / ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq ^ vv / ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq ^ vv / ww)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa) / (qq / vv * ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq / vv * ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq / vv * ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq / vv * ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq / vv * ww)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa) / (qq * vv * ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq * vv * ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq * vv * ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq * vv * ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq * vv * ww)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa) / (qq - vv * ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq - vv * ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq - vv * ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq - vv * ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq - vv * ww)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa) / (qq + vv * ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq + vv * ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq + vv * ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq + vv * ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq + vv * ww)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa) / (qq ^ vv * ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq ^ vv * ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq ^ vv * ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq ^ vv * ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq ^ vv * ww)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa) / (qq / vv - ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq / vv - ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq / vv - ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq / vv - ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq / vv - ww)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa) / (qq * vv - ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq * vv - ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq * vv - ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq * vv - ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq * vv - ww)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa) / (qq - vv - ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq - vv - ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq - vv - ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq - vv - ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq - vv - ww)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa) / (qq + vv - ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq + vv - ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq + vv - ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq + vv - ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq + vv - ww)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa) / (qq ^ vv - ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq ^ vv - ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq ^ vv - ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq ^ vv - ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq ^ vv - ww)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa) / (qq / vv + ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq / vv + ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq / vv + ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq / vv + ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq / vv + ww)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa) / (qq * vv + ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq * vv + ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq * vv + ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq * vv + ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq * vv + ww)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa) / (qq - vv + ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq - vv + ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq - vv + ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq - vv + ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq - vv + ww)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa) / (qq + vv + ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq + vv + ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq + vv + ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq + vv + ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq + vv + ww)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa) / (qq ^ vv + ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq ^ vv + ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq ^ vv + ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq ^ vv + ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq ^ vv + ww)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa) / (qq / vv ^ ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq / vv ^ ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq / vv ^ ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq / vv ^ ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq / vv ^ ww)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa) / (qq * vv ^ ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq * vv ^ ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq * vv ^ ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq * vv ^ ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq * vv ^ ww)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa) / (qq - vv ^ ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq - vv ^ ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq - vv ^ ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq - vv ^ ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq - vv ^ ww)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa) / (qq + vv ^ ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq + vv ^ ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq + vv ^ ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq + vv ^ ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq + vv ^ ww)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa) / (qq ^ vv ^ ww)
ELSEIF (@op1 == 1); multiply
z = fn1(aa) * (qq ^ vv ^ ww)
ELSEIF (@op1 == 2); subtract
z = fn1(aa) - (qq ^ vv ^ ww)
ELSEIF (@op1 == 3); add
z = fn1(aa) + (qq ^ vv ^ ww)
ELSEIF (@op1 == 4); exponent
z = fn1(aa) ^ (qq ^ vv ^ ww)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 4); outer
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa / qq / vv) / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq / vv) / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq / vv) / ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq / vv) / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq / vv) / ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa / qq * vv) / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq * vv) / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq * vv) / ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq * vv) / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq * vv) / ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa / qq - vv) / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq - vv) / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq - vv) / ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq - vv) / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq - vv) / ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa / qq + vv) / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq + vv) / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq + vv) / ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq + vv) / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq + vv) / ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa / qq ^ vv) / ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq ^ vv) / ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq ^ vv) / ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq ^ vv) / ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq ^ vv) / ww
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa / qq / vv) * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq / vv) * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq / vv) * ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq / vv) * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq / vv) * ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa / qq * vv) * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq * vv) * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq * vv) * ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq * vv) * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq * vv) * ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa / qq - vv) * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq - vv) * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq - vv) * ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq - vv) * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq - vv) * ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa / qq + vv) * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq + vv) * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq + vv) * ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq + vv) * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq + vv) * ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa / qq ^ vv) * ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq ^ vv) * ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq ^ vv) * ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq ^ vv) * ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq ^ vv) * ww
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa / qq / vv) - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq / vv) - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq / vv) - ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq / vv) - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq / vv) - ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa / qq * vv) - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq * vv) - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq * vv) - ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq * vv) - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq * vv) - ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa / qq - vv) - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq - vv) - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq - vv) - ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq - vv) - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq - vv) - ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa / qq + vv) - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq + vv) - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq + vv) - ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq + vv) - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq + vv) - ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa / qq ^ vv) - ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq ^ vv) - ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq ^ vv) - ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq ^ vv) - ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq ^ vv) - ww
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa / qq / vv) + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq / vv) + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq / vv) + ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq / vv) + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq / vv) + ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa / qq * vv) + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq * vv) + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq * vv) + ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq * vv) + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq * vv) + ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa / qq - vv) + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq - vv) + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq - vv) + ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq - vv) + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq - vv) + ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa / qq + vv) + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq + vv) + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq + vv) + ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq + vv) + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq + vv) + ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa / qq ^ vv) + ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq ^ vv) + ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq ^ vv) + ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq ^ vv) + ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq ^ vv) + ww
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); divide
z = fn1(aa / qq / vv) ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq / vv) ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq / vv) ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq / vv) ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq / vv) ^ ww
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); divide
z = fn1(aa / qq * vv) ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq * vv) ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq * vv) ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq * vv) ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq * vv) ^ ww
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); divide
z = fn1(aa / qq - vv) ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq - vv) ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq - vv) ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq - vv) ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq - vv) ^ ww
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); divide
z = fn1(aa / qq + vv) ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq + vv) ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq + vv) ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq + vv) ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq + vv) ^ ww
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); divide
z = fn1(aa / qq ^ vv) ^ ww
ELSEIF (@op1 == 1); multiply
z = fn1(aa * qq ^ vv) ^ ww
ELSEIF (@op1 == 2); subtract
z = fn1(aa - qq ^ vv) ^ ww
ELSEIF (@op1 == 3); add
z = fn1(aa + qq ^ vv) ^ ww
ELSEIF (@op1 == 4); exponent
z = fn1(aa ^ qq ^ vv) ^ ww
ENDIF
ENDIF
ENDIF
ENDIF






 
bailout:
  |z| < @bailout
  
switch:
  type = "StrangeBrew"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  eye = @eye
  frog = @frog
  hen = @hen
  op1 = @op1
  op2 = @op2
  op3 = @op3
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  start = @start
  group = @group


  
default:
  title = "Strange Brew Julia"
  maxiter = 1000
  method = multipass
  periodicity = 0
  magn = 2.222
  center = (0.225, -0.55)

  param seed
  default = (2.46,0.15)
  endparam  
  param bailout
  caption = "bailout"
  default = 20.0
  hint = "It is worth your while to check higher \
  (and lower) bailouts as this will definitely \
  affect the character of the image elements by \
  determining how completely they are drawn"
  endparam
  param eye
  caption = "eye of newt"
  default = -1.0
  endparam
  param frog
  caption = "frog's breath"
  default = 0.0
  endparam
  param hen
  caption = "henbane"
  default = (-.5,0)
  endparam
  param bat
  caption = "bat wings"
  default = (0,0)
  endparam
  param exp1
  caption = "exponent 1"
  default = (1,0)
  endparam
  param exp2
  caption = "exponent 2"
  default = (1,0)
  endparam
 param exp3
  caption = "exponent 3"
  default = (1,0)
  endparam
 param exp4
  caption = "exponent 4"
  default = (1,0)
  endparam
  param op1
  caption = "operator 1"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 4
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4""5"
  endparam


  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = ident ()
  endfunc
  func fn3
  Caption = "function 3"
  default = ident ()
  endfunc
  func fn4
  Caption = "function 4"
  default = ident ()
  endfunc
  func fn5
  Caption = "function 5"
  default = ident ()
  endfunc
  func fn6
  Caption = "function 6"
  default = ident ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc

}