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

SmoothBrew01 {
 ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif   
loop:
 qq = fn1(c^@exp9^@fn9(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp7+@fn10(c+@a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp8-@fn11(c+@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 aa = @fn8(z^@exp6+@t)
IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-aa
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-aa
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-aa
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-aa)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-aa)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-aa)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-aa)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-aa)
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*aa
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*aa
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*aa
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*aa)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*aa)
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*aa)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*aa)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*aa)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*aa)
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-aa
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-aa
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-aa
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-aa)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-aa)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-aa)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-aa)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-aa)
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+aa
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+aa
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+aa
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+aa)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+aa)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+aa)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+aa)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+aa)
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^aa
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^aa
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^aa
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^aa)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^aa)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^aa)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^aa)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^aa)
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SmoothBrew01"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  a = @a
  b = @b
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9

 
default:
  title = "Smooth Brew 01"
  maxiter = 250
  periodicity = 0
  center = (0,-1)
  magn = .7
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param a
  caption = "crab apples"
  default = (0.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
}
************************************************************************
DarkBrew01 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif
  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9-@fn11(c+ @a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp10+@fn12(c+@b)^@exp2) + frog))  
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp11^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF
ENDIF
bailout:
  |z| < @bailout
  switch:
  type = "DarkBrew01"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
 

 
default:
  title = "Dark Brew 01"
  maxiter = 250
  periodicity = 0
  center = (1,0)
  angle = 270
  magn = .5
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
   param a
  caption = "crab apples"
  default = (0.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
}

************************************************************************
DeepBrew01 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9-@fn11(c+ @a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp10+@fn12(c+@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp11^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "DeepBrew01"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
 
default:
  title = "Deep Brew 01"
  maxiter = 250
  periodicity = 0
  center = (1,0)
  magn = .37

  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
   param a
  caption = "crab apples"
  default = (0.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
}

************************************************************************
SavoryBrew01 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9-@fn11(c+ @a)^@exp1) + @eye))
 vv = fn4(imag (@fn5(z^@exp10+@fn12(c+@b)^@exp2) + frog))  
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp11^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SavoryBrew01"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
  

 
default:
  title = "Savory Brew 01"
  maxiter = 250
  periodicity = 0
  center = (0 , 0)
  magn = .5
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
   param a
  caption = "crab apples"
  default = (0.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
}

************************************************************************
SpicyBrew01 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9-@fn11(c+ @a)^@exp1) + @eye))
 vv = fn4(imag (@fn5(z^@exp10+@fn12(c+@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 / @dew)
 ii = @fn9(c^@exp11^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SpicyBrew01"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  a = @a
  b = @b
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11

 
default:
  title = "Spicy Brew 01"
  maxiter = 250
  periodicity = 0
  center = (1,-0.5)
  magn = .4
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (1,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (1.0,0.0)
  endparam
  param a
  caption = "crab apples"
  default = (0.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
}

************************************************************************
ThickBrew01 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9-@fn11(c+ @a)^@exp1) + @eye))
 vv = fn4(imag (@fn5(z^@exp10+@fn12(c+@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp11^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "ThickBrew01"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
 
default:
  title = "Thick Brew 01"
  maxiter = 250
  periodicity = 0
  center = (2,0.5)
  magn = .5
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
   param a
  caption = "crab apples"
  default = (0.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 2
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
}

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

SweetBrew01 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9-@fn11(c+ @a)^@exp1) + @eye))
 vv = fn4(imag (@fn5(z^@exp10+@fn12(c+@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp11^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SweetBrew01"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
 
default:
  title = "Sweet Brew 01"
  maxiter = 250
  periodicity = 0
  center = (0,-1)
  magn = .4
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
   param a
  caption = "crab apples"
  default = (0.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
}
************************************************************************

FatBrew01 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9-@fn11(c+ @a)^@exp1) + @eye))
 vv = fn4(imag (@fn5(z^@exp10+@fn12(c+@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp11^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "FatBrew01"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
 
default:
  title = "Fat Brew 01"
  maxiter = 250
  periodicity = 0
  center = (1,0)
  magn = .55
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
   param a
  caption = "crab apples"
  default = (0.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 2
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
}

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

SmoothBrew02 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif 
  
loop:
 qq = fn1(c^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 aa = @fn8(z^@exp6+@t)

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

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

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

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


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

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

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

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu*aa
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu*aa
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu*aa
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu*aa
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu*aa
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu*aa
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu*aa
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu*aa

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

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

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

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

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

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

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

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

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

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

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

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

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

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu^aa
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu^aa
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu^aa
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu^aa
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu^aa
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu^aa
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu^aa
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu^aa
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu^aa

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

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

bailout:
  |z| < @bailout
  switch:
  type = "SmoothBrew02"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  op1 = @op1
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  default:
  title = "Smooth Brew 02"
  maxiter = 250
  periodicity = 0
  magn = 0.5
  center = (0.5,-1)
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  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 op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
}
************************************************************************

ThickBrew02 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag (@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp7 + @t)

IF (@op4 == 0); divide
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu-@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu-@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu-@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu-@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu-@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1); multiply
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu*@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
z = qq+(xx) / vv * yy * uu*@fn8 (hh^ii)
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu*@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu*@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu*@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu*@fn8 (hh^ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu*@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu*@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu*@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply

IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu*@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu*@fn8 (hh^ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh^ii)

ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu*@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu*@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu*@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu*@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu*@fn8 (hh^ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu*@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent

z = qq+(xx) / (vv ^ yy * uu*@fn8 (hh^ii))
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu*@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu*@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu*@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu*@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2); subtract
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu-@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu-@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu-@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu-@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu-@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3); add
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu+@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu+@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu+@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu+@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu+@fn8 (hh^ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu+@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu+@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu+@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu+@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu+@fn8 (hh^ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu+@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu+@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu+@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu+@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu+@fn8 (hh^ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu+@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu+@fn8 (hh^ii))

ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu+@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu+@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu+@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu+@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4); exponent
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu^@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu^@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu^@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply

IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu^@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu^@fn8 (hh^ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu^@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu^@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu^@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu^@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu^@fn8 (hh^ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu^@fn8 (hh^ii)

ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu^@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu^@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu^@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu^@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu^@fn8 (hh^ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu^@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu^@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu^@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu^@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu^@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "ThickBrew02"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op1 = @op1
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  
default:
  title = "Thick Brew 02"
  maxiter = 250
  periodicity = 0
  center = (2,1)
  magn = .4
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param op1
  caption = "operator 1"
  enum = "*""-""+"
  default = 1
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 2
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
}

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

DarkBrew02 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag (@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6+@dew)
ii = @fn9(c^@exp7 + @t)

IF (@op4 == 0); divide
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu-@fn8(ii-hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu-@fn8(ii-hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu-@fn8(ii-hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu-@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu-@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu-@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu-@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu-@fn8(ii-hh))
ENDIF
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1); multiply
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu*@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
z = qq+(xx) / vv * yy * uu*@fn8(ii-hh)
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu*@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu*@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu*@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu*@fn8(ii-hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu*@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu*@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu*@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply

IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu*@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu*@fn8(ii-hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu*@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu*@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu*@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu*@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu*@fn8(ii-hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu*@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent

z = qq+(xx) / (vv ^ yy * uu*@fn8(ii-hh))
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu*@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu*@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu*@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu*@fn8(ii-hh))
ENDIF
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2); subtract
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu-@fn8(ii-hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu-@fn8(ii-hh)

ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu-@fn8(ii-hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu-@fn8(ii-hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu-@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu-@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu-@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu-@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu-@fn8(ii-hh))
ENDIF
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3); add
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu+@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu+@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu+@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu+@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu+@fn8(ii-hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu+@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu+@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu+@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu+@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu+@fn8(ii-hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu+@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu+@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu+@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu+@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu+@fn8(ii-hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu+@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu+@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu+@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu+@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu+@fn8(ii-hh))
ENDIF
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4); exponent
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu^@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu^@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu^@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu^@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu^@fn8(ii-hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu^@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu^@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu^@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu^@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu^@fn8(ii-hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu^@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu^@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu^@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu^@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu^@fn8(ii-hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu^@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu^@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu^@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu^@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu^@fn8(ii-hh))
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "DarkBrew02"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op1 = @op1
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7

  

 
default:
  title = "Dark Brew 02"
  maxiter = 250
  periodicity = 0
  magn = .5
  center = (1.475,0)
  angle = 270
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  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 op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
}
************************************************************************

DeepBrew02 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif
loop:
 qq = fn1(c^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag (@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6+@dew)
 ii = @fn9(c^@exp7 + @t)
  
IF (@op4 == 0); divide
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu-@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu-@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu-@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu-@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu-@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1); multiply
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu*@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
z = qq+(xx) / vv * yy * uu*@fn8 (hh-ii)
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu*@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu*@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu*@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu*@fn8 (hh-ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu*@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu*@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu*@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply

IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu*@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu*@fn8 (hh-ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh-ii)

ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu*@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu*@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu*@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu*@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu*@fn8 (hh-ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu*@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent

z = qq+(xx) / (vv ^ yy * uu*@fn8 (hh-ii))
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu*@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu*@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu*@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu*@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2); subtract
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu-@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu-@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu-@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu-@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu-@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3); add
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu+@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu+@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract

z = qq+(xx) - vv / yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu+@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu+@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu+@fn8 (hh-ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu+@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu+@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu+@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu+@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu+@fn8 (hh-ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu+@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu+@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu+@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu+@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu+@fn8 (hh-ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu+@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu+@fn8 (hh-ii))

ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu+@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu+@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu+@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu+@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4); exponent
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu^@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu^@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu^@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply

IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu^@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu^@fn8 (hh-ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu^@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu^@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu^@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu^@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu^@fn8 (hh-ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu^@fn8 (hh-ii)

ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu^@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu^@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu^@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu^@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu^@fn8 (hh-ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu^@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu^@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu^@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu^@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu^@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "DeepBrew02"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op1 = @op1
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7

default:
  title = "Deep Brew 02"
  maxiter = 250
  periodicity = 0
  center = (1,-1)
  magn = .37
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  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 op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
}
************************************************************************
SavoryBrew02 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag (@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6+@dew)
 ii = @fn9(c^@exp7 + @t)

IF (@op4 == 0); divide
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu-@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu-@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu-@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu-@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu-@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1); multiply
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu*@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
z = qq+(xx) / vv * yy * uu*@fn8 (hh/ii)
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu*@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu*@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu*@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu*@fn8 (hh/ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu*@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu*@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu*@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply

IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu*@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu*@fn8 (hh/ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply

z = qq+(xx) * (vv - yy) / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh/ii)

ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu*@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu*@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu*@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu*@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu*@fn8 (hh/ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract

z = qq+(xx) - (vv * yy / uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu*@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent

z = qq+(xx) / (vv ^ yy * uu*@fn8 (hh/ii))
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu*@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu*@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu*@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu*@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2); subtract
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu-@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu-@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu-@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu-@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu-@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3); add
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu+@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu+@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu+@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu+@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu+@fn8 (hh/ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu+@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu+@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu+@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu+@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu+@fn8 (hh/ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu+@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu+@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu+@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu+@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu+@fn8 (hh/ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu+@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu+@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu+@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu+@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu+@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4); exponent
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu^@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu^@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu^@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply

IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu^@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu^@fn8 (hh/ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu^@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu^@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu^@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu^@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu^@fn8 (hh/ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu^@fn8 (hh/ii)

ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu^@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu^@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu^@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu^@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu^@fn8 (hh/ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu^@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu^@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu^@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu^@fn8 (hh/ii))

ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu^@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu^@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SavoryBrew02"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op1 = @op1
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7

  default:
  title = "Savory Brew 02"
  maxiter = 250
  periodicity = 0
  center = (0,-0.5)
  magn = .5
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  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 op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
}
************************************************************************
SweetBrew02 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag (@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6+@dew)
 ii = @fn9(c^@exp7 + @t)

IF (@op4 == 0); divide
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu-@fn8 (hh*ii))

ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu-@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu-@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide

IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu-@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu-@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu-@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1); multiply
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu*@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
z = qq+(xx) / vv * yy * uu*@fn8 (hh*ii)
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu*@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu*@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu*@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu*@fn8 (hh*ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu*@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu*@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu*@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply

IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu*@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu*@fn8 (hh*ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh*ii)

ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu*@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu*@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu*@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu*@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu*@fn8 (hh*ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu*@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent

z = qq+(xx) / (vv ^ yy * uu*@fn8 (hh*ii))
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu*@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu*@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu*@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu*@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2); subtract
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu-@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu-@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu-@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu-@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu-@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3); add
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu+@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu+@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu+@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu+@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu+@fn8 (hh*ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu+@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu+@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu+@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu+@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu+@fn8 (hh*ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu+@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu+@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu+@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu+@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu+@fn8 (hh*ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu+@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu+@fn8 (hh*ii))

ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu+@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu+@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu+@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu+@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4); exponent
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu^@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu^@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu^@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply

IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu^@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu^@fn8 (hh*ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu^@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu^@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu^@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu^@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu^@fn8 (hh*ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu^@fn8 (hh*ii)

ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu^@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu^@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu^@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu^@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu^@fn8 (hh*ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu^@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu^@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu^@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu^@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu^@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SweetBrew02"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op1 = @op1
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7

  default:
  title = "Sweet Brew 02"
  maxiter = 250
  periodicity = 0
  center = (1,0)
  magn = 0.4
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  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 op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
}
************************************************************************
SpicyBrew02 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag (@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6+@dew)
 ii = @fn9(c^c^@exp7+@t)

IF (@op4 == 0); divide
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add

IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu-@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu-@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu-@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu-@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu-@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1); multiply
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu*@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
z = qq+(xx) / vv * yy * uu*@fn8 (ii/hh)
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu*@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu*@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu*@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu*@fn8 (ii/hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu*@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu*@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu*@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply

IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu*@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu*@fn8 (ii/hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply

z = qq+(xx) * (vv - yy) / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu*@fn8 (ii/hh)

ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu*@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu*@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu*@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu*@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu*@fn8 (ii/hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract

z = qq+(xx) - (vv * yy / uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu*@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent

z = qq+(xx) / (vv ^ yy * uu*@fn8 (ii/hh))
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu*@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu*@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu*@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu*@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2); subtract
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu-@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu-@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu-@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu-@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu-@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3); add
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu+@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu+@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu+@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu+@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu+@fn8 (ii/hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu+@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu+@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu+@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu+@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu+@fn8 (ii/hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add

z = qq+(xx) + (vv * yy) / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu+@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu+@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu+@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu+@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu+@fn8 (ii/hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu+@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply

z = qq+(xx) * (vv ^ yy * uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu+@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu+@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu+@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu+@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4); exponent
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu^@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu^@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu^@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply

IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu^@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu^@fn8 (ii/hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu^@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu^@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu^@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu^@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu^@fn8 (ii/hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu^@fn8 (ii/hh)

ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu^@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu^@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu^@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu^@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu^@fn8 (ii/hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu^@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu^@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu^@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu^@fn8 (ii/hh))

ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu^@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu^@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SpicyBrew02"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op1 = @op1
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7

  default:
  title = "Spicy Brew 02"
  maxiter = 250
  periodicity = 0
  center = (-0.5,0)
  magn = .4
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (1,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  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 op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
}


**********************************************************************
FatBrew02 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag (@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp7 + @t)

IF (@op4 == 0); divide
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu-@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu-@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu-@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu-@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu-@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1); multiply
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu*@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
z = qq+(xx) / vv * yy * uu*@fn8 (ii^hh)
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu*@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu*@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu*@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu*@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu*@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu*@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply

IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu*@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu*@fn8 (ii^hh)

ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu*@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu*@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu*@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu*@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu*@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent

z = qq+(xx) / (vv ^ yy * uu*@fn8 (ii^hh))
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu*@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu*@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu*@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu*@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2); subtract
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu-@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu-@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu-@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu-@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu-@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3); add
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu+@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu+@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu+@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu+@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu+@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu+@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu+@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu+@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu+@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu+@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu+@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu+@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu+@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu+@fn8 (ii^hh))

ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu+@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu+@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu+@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu+@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4); exponent
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu^@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu^@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu^@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply

IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu^@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu^@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu^@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu^@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu^@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu^@fn8 (ii^hh)

ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu^@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu^@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu^@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu^@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu^@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu^@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu^@fn8 (ii^hh))

ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu^@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu^@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu^@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "FatBrew02"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op1 = @op1
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  
  default:
  title = "Fat Brew 02"
  maxiter = 250
  periodicity = 0
  center = (1,0)
  magn = .55
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param op1
  caption = "operator 1"
  enum = "*""-""+"
  default = 1
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 2
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
}


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

SmoothBrew03 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp7^@fn9(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag (@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 aa = @fn8(z^@exp6+@t)
IF (@op4 == 0); divide
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-aa
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-aa
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-aa
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-aa
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-aa
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-aa
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-aa
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-aa
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-aa
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-aa
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-aa
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-aa
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-aa
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-aa
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-aa
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-aa
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-aa
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-aa
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-aa
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-aa
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-aa
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-aa
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-aa
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-aa
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-aa
ENDIF
ENDIF

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

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

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


ELSEIF (@op4 == 1); multiply
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu*aa
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu*aa
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu*aa
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu*aa
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu*aa
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu*aa
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu*aa
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu*aa
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu*aa
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu*aa
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu*aa
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu*aa
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu*aa
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu*aa
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu*aa
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu*aa
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu*aa
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu*aa
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu*aa
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu*aa
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu*aa
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu*aa
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu*aa
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu*aa
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu*aa
ENDIF
ENDIF

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

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

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

ELSEIF (@op4 == 2); subtract
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-aa
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-aa
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-aa
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-aa
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-aa
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-aa
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-aa
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-aa
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-aa
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-aa
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-aa
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-aa
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-aa
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-aa
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-aa
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-aa
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-aa
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-aa
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-aa
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-aa
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-aa
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-aa
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-aa
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-aa
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-aa
ENDIF
ENDIF

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

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

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

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

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

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

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

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

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu^aa)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu^aa)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu^aa)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu^aa)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu^aa)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu^aa)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu^aa)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu^aa)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu^aa)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu^aa)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu^aa)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu^aa)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu^aa)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu^aa)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu^aa)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu^aa)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu^aa)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu^aa)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu^aa)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu^aa)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu^aa)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu^aa)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu^aa)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu^aa)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu^aa)
ENDIF
ENDIF
ENDIF
ENDIF
bailout:
  |z| < @bailout
  switch:
  type = "SmoothBrew03"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  
default:
  title = "Smooth Brew 03"
  maxiter = 250
  periodicity = 0
  center = (1,0)
  magn = 0.5
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
}

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

DarkBrew03 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag (@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp9^c^@exp7+@t)

IF (@op4 == 0); divide
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1); multiply
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2); subtract
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3); add
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4); exponent
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF
ENDIF 

bailout:
  |z| < @bailout
  switch:
  type = "DarkBrew03"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
 
default:
  title = "Dark Brew 03"
  maxiter = 250
  periodicity = 0
  center = (1,0)
  magn = .344
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
}


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

DeepBrew03 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag (@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp9^c^@exp7+@t)

IF (@op4 == 0); divide
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1); multiply
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2); subtract
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3); add
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4); exponent
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "DeepBrew03"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
 
default:
  title = "Deep Brew 03"
  maxiter = 250
  periodicity = 0
  center = (1,-1)
  magn = .37
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
}

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

SavoryBrew03 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp9^c^@exp7+@t)

IF (@op4 == 0); divide
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1); multiply
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2); subtract
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3); add
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4); exponent
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SavoryBrew03"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
 
default:
  title = "Savory Brew 03"
  maxiter = 250
  periodicity = 0
  center = (0.5,-0.5)
  magn = .5
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
}

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

SpicyBrew03 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp9^c^@exp7+@t)

IF (@op4 == 0); divide
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1); multiply
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2); subtract
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3); add
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4); exponent
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SpicyBrew03"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  
default:
  title = "Spicy Brew 03"
  maxiter = 250
  periodicity = 0
  center = (1,0)
  magn = .4
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (1,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
}

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

ThickBrew03 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp9^c^@exp7+@t)

IF (@op4 == 0); divide
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1); multiply
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2); subtract
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3); add
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4); exponent
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "ThickBrew03"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
 
default:
  title = "Thick Brew 03"
  maxiter = 250
  periodicity = 0
  center = (2,1)
  magn = .4
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 2
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
}
************************************************************************

SweetBrew03 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp9^c^@exp7+@t)

IF (@op4 == 0); divide
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1); multiply
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2); subtract
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3); add
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4); exponent
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SweetBrew03"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
 
default:
  title = "Sweet Brew 03"
  maxiter = 250
  periodicity = 0
  center = (1,0)
  magn = 0.4
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
}

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

FatBrew03 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp9^c^@exp7+@t)

IF (@op4 == 0); divide
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1); multiply
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2); subtract
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3); add
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4); exponent
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "FatBrew03"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
 
default:
  title = "Fat Brew 03"
  maxiter = 250
  periodicity = 0
  center = (1.5,0.5)
  magn = .55
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 2
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
}
**************************************************************************

SmoothBrew04 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp7^@fn9(c)^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 aa = @fn8(z^@exp6+@t)
IF (@op4 == 0); divide
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-aa
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-aa
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-aa
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-aa
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-aa
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-aa
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-aa
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-aa
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-aa
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-aa
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-aa
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-aa
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-aa
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-aa
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-aa
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-aa
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-aa
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-aa
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-aa
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-aa
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-aa
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-aa
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-aa
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-aa
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-aa
ENDIF
ENDIF

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

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

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


ELSEIF (@op4 == 1); multiply
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu*aa
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu*aa
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu*aa
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu*aa
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu*aa
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu*aa
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu*aa
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu*aa
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu*aa
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu*aa
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu*aa
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu*aa
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu*aa
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu*aa
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu*aa
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu*aa
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu*aa
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu*aa
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu*aa
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu*aa
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu*aa
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu*aa
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu*aa
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu*aa
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu*aa
ENDIF
ENDIF

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

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

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

ELSEIF (@op4 == 2); subtract
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-aa
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-aa
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-aa
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-aa
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-aa
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-aa
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-aa
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-aa
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-aa
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-aa
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-aa
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-aa
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-aa
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-aa
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-aa
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-aa
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-aa
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-aa
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-aa
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-aa
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-aa
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-aa
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-aa
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-aa
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-aa
ENDIF
ENDIF

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

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

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

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

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

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

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

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

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

bailout:
  |z| < @bailout
  switch:
  type = "SmoothBrew04"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
 
default:
  title = "Smooth Brew 04"
  maxiter = 250
  periodicity = 0
  center = (1,0)
  magn = .5
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
}

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

DarkBrew04 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp9^@fn11(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp10^c^@exp7+@t)

IF (@op4 == 0); divide
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1); multiply
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2); subtract
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3); add
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4); exponent
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF
ENDIF
bailout:
  |z| < @bailout
  switch:
  type = "DarkBrew04"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  
default:
  title = "Dark Brew 04"
  maxiter = 250
  periodicity = 0
  center = (1,0)
  magn = .5
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
}

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

DeepBrew04 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp9^@fn11(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag (@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp10^c^@exp7+@t)

IF (@op4 == 0); divide
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1); multiply
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2); subtract
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3); add
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4); exponent
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "DeepBrew04"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  
default:
  title = "Deep Brew 04"
  maxiter = 250
  periodicity = 0
  center = (1,-1)
  magn = .37
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
}
************************************************************************

SavoryBrew04 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp9^@fn11(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp10^c^@exp7+@t)

IF (@op4 == 0); divide
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1); multiply
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2); subtract
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3); add
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4); exponent
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SavoryBrew04"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  
default:
  title = "Savory Brew 04"
  maxiter = 250
  periodicity = 0
  center = (0,0)
  magn = .5
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
}

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

SpicyBrew04 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp9^@fn11(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 / @dew)
 ii = @fn9(c^@exp10^c^@exp7+@t)

IF (@op4 == 0); divide
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1); multiply
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2); subtract
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3); add
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4); exponent
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SpicyBrew04"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  
default:
  title = "Spicy Brew 04"
  maxiter = 250
  periodicity = 0
  center = (1,0)
  magn = .4
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (1,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (1.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
}

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

ThickBrew04 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp9^@fn11(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp10^c^@exp7+@t)

IF (@op4 == 0); divide
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1); multiply
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2); subtract
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3); add
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4); exponent
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "ThickBrew04"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
   
default:
  title = "Thick Brew 04"
  maxiter = 250
  periodicity = 0
  center = (2,1)
  magn = .4
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 2
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
}


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

SweetBrew04 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp9^@fn11(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp10^c^@exp7+@t)

IF (@op4 == 0); divide
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1); multiply
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2); subtract
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3); add
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4); exponent
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SweetBrew04"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  
default:
  title = "Sweet Brew 04"
  maxiter = 250
  periodicity = 0
  center = (1,0)
  magn = 0.4
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
}
************************************************************************

FatBrew04 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@fn11(c)^@exp9^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp10^c^@exp7+@t)

IF (@op4 == 0); divide
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1); multiply
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2); subtract
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3); add
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4); exponent
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - vv / yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - vv * yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - vv - yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - vv + yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx - vv) / yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx - vv) * yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx - vv) - yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx - vv) + yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy / uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy * uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy - uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy + uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
z = qq+(xx) - (vv / yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1); multiply
z = qq+(xx) - (vv * yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2); subtract
z = qq+(xx) - (vv - yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3); add
z = qq+(xx) - (vv + yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4); exponent
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "FatBrew04"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
   
default:
  title = "Fat Brew 04"
  maxiter = 250
  periodicity = 0
  center = (1.5,0.5)
  magn = .55
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 30.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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 2
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
}
*********************************************************************************

SmoothBrew05 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif 
  
loop:
 qq = fn1(c^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 aa = @fn8(z^@exp7^(@fn9(c+@ts))^@exp6+@t)

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

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

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

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

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


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

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

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

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu*aa
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu*aa
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu*aa
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu*aa
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu*aa
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu*aa
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu*aa
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu*aa

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

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

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

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

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

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

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

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

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

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

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

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

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

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu^aa
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu^aa
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu^aa
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu^aa
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu^aa
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu^aa
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu^aa
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu^aa
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu^aa

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

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

bailout:
  |z| < @bailout
  switch:
  type = "SmoothBrew05"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  ts = @ts
  op1 = @op1
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7

  default:
  title = "Smooth Brew 05"
  maxiter = 250
  periodicity = 0
  magn = .7
  center = (1.3,0.5)
   param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param ts
  caption = "toadstools"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  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 op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
}

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

ThickBrew05 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp8^(@fn10(c+@ts))^@exp6 + @dew)
 ii = @fn9(c^@exp7 + @t)

IF (@op4 == 0); divide
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu-@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu-@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu-@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu-@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu-@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1); multiply
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu*@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
z = qq+(xx) / vv * yy * uu*@fn8 (hh^ii)
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu*@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu*@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu*@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu*@fn8 (hh^ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu*@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu*@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu*@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply

IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu*@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu*@fn8 (hh^ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh^ii)

ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu*@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu*@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu*@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu*@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu*@fn8 (hh^ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu*@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent

z = qq+(xx) / (vv ^ yy * uu*@fn8 (hh^ii))
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu*@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu*@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu*@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu*@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2); subtract
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu-@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu-@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu-@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu-@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu-@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu-@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3); add
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu+@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu+@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu+@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu+@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu+@fn8 (hh^ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu+@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu+@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu+@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu+@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu+@fn8 (hh^ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu+@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu+@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu+@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu+@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu+@fn8 (hh^ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu+@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu+@fn8 (hh^ii))

ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu+@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu+@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu+@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu+@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4); exponent
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu^@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu^@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu^@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply

IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu^@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu^@fn8 (hh^ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu^@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu^@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu^@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu^@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu^@fn8 (hh^ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu^@fn8 (hh^ii)

ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu^@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu^@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu^@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu^@fn8 (hh^ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu^@fn8 (hh^ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu^@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu^@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu^@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu^@fn8 (hh^ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu^@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "ThickBrew05"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  ts = @ts
  dew = @dew
  op1 = @op1
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
   
default:
  title = "Thick Brew 05"
  maxiter = 250
  periodicity = 0
  center = (2,1)
  magn = .4
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param ts
  caption = "toadstools"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param op1
  caption = "operator 1"
  enum = "*""-""+"
  default = 1
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 2
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
}

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

DarkBrew05 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp8^(@fn10(c+@ts))^@exp6+@dew)
 ii = @fn9(c^@exp7 + @t)

IF (@op4 == 0); divide
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu-@fn8(ii-hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu-@fn8(ii-hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu-@fn8(ii-hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu-@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu-@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu-@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu-@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu-@fn8(ii-hh))
ENDIF
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1); multiply
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu*@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
z = qq+(xx) / vv * yy * uu*@fn8(ii-hh)
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu*@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu*@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu*@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu*@fn8(ii-hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu*@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu*@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu*@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply

IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu*@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu*@fn8(ii-hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu*@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu*@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu*@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu*@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu*@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu*@fn8(ii-hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu*@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent

z = qq+(xx) / (vv ^ yy * uu*@fn8(ii-hh))
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu*@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu*@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu*@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu*@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu*@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu*@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu*@fn8(ii-hh))
ENDIF
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2); subtract
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu-@fn8(ii-hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu-@fn8(ii-hh)

ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu-@fn8(ii-hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu-@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu-@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu-@fn8(ii-hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu-@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu-@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu-@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu-@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu-@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu-@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu-@fn8(ii-hh))
ENDIF
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3); add
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu+@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu+@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu+@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu+@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu+@fn8(ii-hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu+@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu+@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu+@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu+@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu+@fn8(ii-hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu+@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu+@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu+@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu+@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu+@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu+@fn8(ii-hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu+@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu+@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu+@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu+@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu+@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu+@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu+@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu+@fn8(ii-hh))
ENDIF
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4); exponent
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu^@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu^@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu^@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu^@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu^@fn8(ii-hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu^@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu^@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu^@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu^@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu^@fn8(ii-hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu^@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu^@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu^@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu^@fn8(ii-hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu^@fn8(ii-hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8(ii-hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu^@fn8(ii-hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu^@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu^@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu^@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu^@fn8(ii-hh))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu^@fn8(ii-hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu^@fn8(ii-hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu^@fn8(ii-hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu^@fn8(ii-hh))
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "DarkBrew05"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  ts = @ts
  dew = @dew
  op1 = @op1
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
 
default:
  title = "Dark Brew 05"
  maxiter = 250
  periodicity = 0
  magn = 0.5
  center = (1,0)
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
  param ts
  caption = "toadstools"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  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 op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
}


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

DeepBrew05 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif
loop:
 qq = fn1(c^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp8^(@fn10(c+@ts))^@exp6+@dew)
 ii = @fn9(c^@exp7 + @t)
  
IF (@op4 == 0); divide
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu-@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu-@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu-@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu-@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu-@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1); multiply
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu*@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
z = qq+(xx) / vv * yy * uu*@fn8 (hh-ii)
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu*@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu*@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu*@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu*@fn8 (hh-ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu*@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu*@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu*@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply

IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu*@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu*@fn8 (hh-ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh-ii)

ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu*@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu*@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu*@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu*@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu*@fn8 (hh-ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu*@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent

z = qq+(xx) / (vv ^ yy * uu*@fn8 (hh-ii))
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu*@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu*@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu*@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu*@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2); subtract
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu-@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu-@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu-@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu-@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu-@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu-@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3); add
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu+@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu+@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract

z = qq+(xx) - vv / yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu+@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu+@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu+@fn8 (hh-ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu+@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu+@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu+@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu+@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu+@fn8 (hh-ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu+@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu+@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu+@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu+@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu+@fn8 (hh-ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu+@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu+@fn8 (hh-ii))

ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu+@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu+@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu+@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu+@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4); exponent
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu^@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu^@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu^@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply

IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu^@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu^@fn8 (hh-ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu^@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu^@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu^@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu^@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu^@fn8 (hh-ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu^@fn8 (hh-ii)

ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu^@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu^@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu^@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu^@fn8 (hh-ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu^@fn8 (hh-ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu^@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu^@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu^@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu^@fn8 (hh-ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu^@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "DeepBrew05"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  ts = @ts
  dew = @dew
  op1 = @op1
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
 
default:
  title = "Deep Brew 05"
  maxiter = 250
  periodicity = 0
  center = (0,-1)
  magn = .37
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
  param ts
  caption = "toadstools"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  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 op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
}

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

SavoryBrew05 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp8^(@fn10(c+@ts))^@exp6+@dew)
 ii = @fn9(c^@exp7 + @t)

IF (@op4 == 0); divide
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu-@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu-@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu-@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu-@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu-@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1); multiply
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu*@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
z = qq+(xx) / vv * yy * uu*@fn8 (hh/ii)
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu*@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu*@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu*@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu*@fn8 (hh/ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu*@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu*@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu*@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply

IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu*@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu*@fn8 (hh/ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply

z = qq+(xx) * (vv - yy) / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh/ii)

ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu*@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu*@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu*@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu*@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu*@fn8 (hh/ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract

z = qq+(xx) - (vv * yy / uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu*@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent

z = qq+(xx) / (vv ^ yy * uu*@fn8 (hh/ii))
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu*@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu*@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu*@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu*@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2); subtract
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu-@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu-@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu-@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu-@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu-@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu-@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3); add
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu+@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu+@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu+@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu+@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu+@fn8 (hh/ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu+@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu+@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu+@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu+@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu+@fn8 (hh/ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu+@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu+@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu+@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu+@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu+@fn8 (hh/ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu+@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu+@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu+@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu+@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu+@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4); exponent
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu^@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu^@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu^@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply

IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu^@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu^@fn8 (hh/ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu^@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu^@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu^@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu^@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu^@fn8 (hh/ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu^@fn8 (hh/ii)

ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu^@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu^@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu^@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu^@fn8 (hh/ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu^@fn8 (hh/ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu^@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu^@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu^@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu^@fn8 (hh/ii))

ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu^@fn8 (hh/ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu^@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SavoryBrew05"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  ts = @ts
  dew = @dew
  op1 = @op1
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
 
default:
  title = "Savory Brew 05"
  maxiter = 250
  periodicity = 0
  center = (2.5,2)
  magn = .8
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (2,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
  param ts
  caption = "toadstools"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  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 op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
}

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

SweetBrew05 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag (@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp8^(@fn10(c+@ts))^@exp6+@dew)
 ii = @fn9(c^@exp7 + @t)

IF (@op4 == 0); divide
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu-@fn8 (hh*ii))

ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu-@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu-@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide

IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu-@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu-@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu-@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1); multiply
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu*@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
z = qq+(xx) / vv * yy * uu*@fn8 (hh*ii)
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu*@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu*@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu*@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu*@fn8 (hh*ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu*@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu*@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu*@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply

IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu*@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu*@fn8 (hh*ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh*ii)

ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu*@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu*@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu*@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu*@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu*@fn8 (hh*ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu*@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent

z = qq+(xx) / (vv ^ yy * uu*@fn8 (hh*ii))
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu*@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu*@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu*@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu*@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2); subtract
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu-@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu-@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu-@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu-@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu-@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu-@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3); add
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu+@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu+@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu+@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu+@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu+@fn8 (hh*ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu+@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu+@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu+@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu+@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu+@fn8 (hh*ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu+@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu+@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu+@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu+@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu+@fn8 (hh*ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu+@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu+@fn8 (hh*ii))

ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu+@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu+@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu+@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu+@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4); exponent
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu^@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu^@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu^@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply

IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu^@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu^@fn8 (hh*ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu^@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu^@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu^@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu^@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu^@fn8 (hh*ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu^@fn8 (hh*ii)

ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu^@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu^@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu^@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu^@fn8 (hh*ii)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu^@fn8 (hh*ii)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu^@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu^@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu^@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu^@fn8 (hh*ii))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu^@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SweetBrew05"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  ts = @ts
  dew = @dew
  op1 = @op1
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8

default:
  title = "Sweet Brew 05"
  maxiter = 250
  periodicity = 0
  center = (1,0)
  magn = 0.4
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
  param ts
  caption = "toadstools"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  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 op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
}


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

SpicyBrew05 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp8^(@fn10(c+@ts))^@exp6+@dew)
 ii = @fn9(c^@exp7+@t)

IF (@op4 == 0); divide
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add

IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu-@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu-@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu-@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu-@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu-@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1); multiply
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu*@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
z = qq+(xx) / vv * yy * uu*@fn8 (ii/hh)
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu*@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu*@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu*@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu*@fn8 (ii/hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu*@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu*@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu*@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply

IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu*@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu*@fn8 (ii/hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply

z = qq+(xx) * (vv - yy) / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu*@fn8 (ii/hh)

ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu*@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu*@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu*@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu*@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu*@fn8 (ii/hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract

z = qq+(xx) - (vv * yy / uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu*@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent

z = qq+(xx) / (vv ^ yy * uu*@fn8 (ii/hh))
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu*@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu*@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu*@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu*@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2); subtract
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu-@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu-@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu-@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu-@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu-@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu-@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3); add
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu+@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu+@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu+@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu+@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu+@fn8 (ii/hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu+@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu+@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu+@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu+@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu+@fn8 (ii/hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add

z = qq+(xx) + (vv * yy) / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu+@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu+@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu+@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu+@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu+@fn8 (ii/hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu+@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply

z = qq+(xx) * (vv ^ yy * uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu+@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu+@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu+@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu+@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4); exponent
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu^@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu^@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu^@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply

IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu^@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu^@fn8 (ii/hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu^@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu^@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu^@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu^@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu^@fn8 (ii/hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu^@fn8 (ii/hh)

ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu^@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu^@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu^@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu^@fn8 (ii/hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu^@fn8 (ii/hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu^@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu^@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu^@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu^@fn8 (ii/hh))

ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu^@fn8 (ii/hh))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu^@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SpicyBrew05"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  ts = @ts
  dew = @dew
  op1 = @op1
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
 
default:
  title = "Spicy Brew 05"
  maxiter = 250
  periodicity = 0
  center = (1,0)
  magn = .4
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (1,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
  param ts
  caption = "toadstools"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  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 op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
}


**********************************************************************
FatBrew05 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp1) + @eye))
 vv = fn4(imag (@fn5(z^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp8^(@fn10(c+@ts))^@exp6 + @dew)
 ii = @fn9(c^@exp7 + @t)

IF (@op4 == 0); divide
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu-@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu-@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu-@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu-@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply

IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu-@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1); multiply
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu*@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
z = qq+(xx) / vv * yy * uu*@fn8 (ii^hh)
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu*@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu*@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu*@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu*@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu*@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu*@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply

IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu*@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu*@fn8 (ii^hh)

ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu*@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu*@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu*@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu*@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu*@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent

z = qq+(xx) / (vv ^ yy * uu*@fn8 (ii^hh))
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu*@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu*@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu*@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu*@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2); subtract
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract

z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu-@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu-@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu-@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu-@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu-@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu-@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3); add
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu+@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu+@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu+@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu+@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu+@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu+@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu+@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu+@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu+@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu+@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu+@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu+@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu+@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu+@fn8 (ii^hh))

ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu+@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu+@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu+@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu+@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4); exponent
IF (@group == 0); inner
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy / uu^@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy * uu^@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy - uu^@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply

IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy + uu^@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * vv / yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv / yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv / yy ^ uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * vv * yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv * yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv * yy ^ uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * vv - yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv - yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv - yy ^ uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * vv + yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv + yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv + yy ^ uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * vv ^ yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + vv ^ yy ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy / uu^@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy * uu^@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy - uu^@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy + uu^@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx * vv) / yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) / yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) / yy ^ uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx * vv) * yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) * yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) * yy ^ uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx * vv) - yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) - yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) - yy ^ uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx * vv) + yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) + yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) + yy ^ uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx * vv) ^ yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx + vv) ^ yy ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) / uu^@fn8 (ii^hh)

ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) / uu^@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) * uu^@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) - uu^@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) + uu^@fn8 (ii^hh)
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy) ^ uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy) ^ uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy) ^ uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy) ^ uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy) ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0); divide
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy / uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy / uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy / uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy / uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy / uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy / uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy / uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy / uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy / uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy / uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy / uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy / uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy / uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy / uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy / uu^@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 1); multiply
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy * uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy * uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy * uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy * uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy * uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy * uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy * uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy * uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy * uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy * uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy * uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy * uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy * uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy * uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy * uu^@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 2); subtract
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy - uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy - uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy - uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy - uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy - uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy - uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy - uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy - uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy - uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy - uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy - uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy - uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy - uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy - uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy - uu^@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 3); add
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy + uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy + uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy + uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy + uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy + uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy + uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy + uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy + uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy + uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy + uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy + uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy + uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy + uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy + uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy + uu^@fn8 (ii^hh))
ENDIF
ENDIF
ELSEIF (@op3 == 04); exponent
IF (@op2 == 0); divide
IF (@op1 == 0); multiply
z = qq+(xx) * (vv / yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv / yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv / yy ^ uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 1); multiply
IF (@op1 == 0); multiply
z = qq+(xx) * (vv * yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv * yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv * yy ^ uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 2); subtract
IF (@op1 == 0); multiply
z = qq+(xx) * (vv - yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv - yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv - yy ^ uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 3); add
IF (@op1 == 0); multiply
z = qq+(xx) * (vv + yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv + yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv + yy ^ uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op2 == 4); exponent
IF (@op1 == 0); multiply
z = qq+(xx) * (vv ^ yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op1 == 1); subtract
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op1 == 2); add
z = qq+(xx) + (vv ^ yy ^ uu^@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "FatBrew05"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  ts = @ts
  dew = @dew
  op1 = @op1
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  
default:
  title = "Fat Brew 05"
  maxiter = 250
  periodicity = 0
  center = (1.5,0.5)
  magn = .55
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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 maid
  caption = "maiden's tears"
  default = (0,0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param ts
  caption = "toadstools"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param op1
  caption = "operator 1"
  enum = "*""-""+"
  default = 1
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 2
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
}

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

SmoothBrew06 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp7^@fn9(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp8^@fn10(c+ @a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp9^@fn11(c+@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 aa = @fn8(z^@exp6+@t)
IF (@op4 == 0)
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-aa)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-aa)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-aa)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-aa)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-aa)
ENDIF
ENDIF

ELSEIF (@op4 == 1)
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*aa)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*aa)
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*aa)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*aa)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*aa)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*aa)
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-aa)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-aa)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-aa)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-aa)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-aa)
ENDIF
ENDIF

ELSEIF (@op4 == 3)
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+aa)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+aa)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+aa)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+aa)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+aa)
ENDIF
ENDIF

ELSEIF (@op4 == 4)
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^aa)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^aa)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^aa)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^aa)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^aa)
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SmoothBrew06"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  a = @a
  b = @b
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  
default:
  title = "Smooth Brew 06"
  maxiter = 250
  periodicity = 0
  center = (1,0)
  magn = 0.5
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param a
  caption = "crab apples"
  default = (0.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 2
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
}


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


DarkBrew06 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9^@fn11(c+ @a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp10^@fn12(c+@b)^@exp2) + frog))  
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp11^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF
ENDIF
bailout:
  |z| < @bailout
  switch:
  type = "DarkBrew06"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
 
default:
  title = "Dark Brew 06"
  maxiter = 250
  periodicity = 0
  center = (1,0)
  magn = .5
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
   param a
  caption = "crab apples"
  default = (0.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
}

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

DeepBrew06 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9^@fn11(c+ @a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp10^@fn12(c+@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp11^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "DeepBrew06"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
  
default:
  title = "Deep Brew 06"
  maxiter = 250
  periodicity = 0
  center = (1,0)
  magn = .5
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
   param a
  caption = "crab apples"
  default = (0.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 3
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
}

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

SavoryBrew06 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9^@fn11(c+ @a)^@exp1) + @eye))
 vv = fn4(imag (@fn5(z^@exp10^@fn12(c+@b)^@exp2) + frog))  
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp11^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SavoryBrew06"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
  
default:
  title = "Savory Brew 06"
  maxiter = 250
  periodicity = 0
  center = (.75,-0.5)
  magn = .4
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
   param a
  caption = "crab apples"
  default = (0.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc

}


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

FatBrew06 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9^@fn11(c+ @a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp10^@fn12(c+@b)^@exp2) + frog))  
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp11^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)

z = qq+(xx - vv) - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)

z = qq+(xx) - (vv - yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ENDIF
bailout:
  |z| < @bailout
  switch:
  type = "FatBrew06"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
  
default:
  title = "Fat Brew 06"
  maxiter = 250
  periodicity = 0
  center = (1.5,1)
  magn = 1
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
   param a
  caption = "crab apples"
  default = (0.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
}

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

DarkBrew07 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9-@fn11(c*@a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp10+@fn12(c*@b)^@exp2) + frog))  
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp11^(@fn13(c+@ts))^@exp6 + @dew)
 ii = @fn9(c^@exp12^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF
ENDIF
bailout:
  |z| < @bailout
  switch:
  type = "DarkBrew07"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  fn13 = @fn13
  ts = @ts
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
  exp12 = @exp12
  
default:
  title = "Dark Brew 07"
  maxiter = 250
  periodicity = 0
  center = (1,0)
  magn = .5
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
  param a
  caption = "crab apples"
  default = (1.0, 0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (1.0 , 0.0)
  endparam
  param ts
  caption = "toadstools"
  default = (0.0, 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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param exp12
  caption = "exponent 12"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
  func fn13
  Caption = "function 13"
  default = ident ()
  endfunc
}


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

DeepBrew07 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9-@fn11(c*@a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp10+@fn12(c*@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp11^(@fn13(c+@ts))^@exp6 + @dew)
 ii = @fn9(c^@exp12^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "DeepBrew07"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  fn13 = @fn13
  ts = @ts
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
  exp12 = @exp12
  
default:
  title = "Deep Brew 07"
  maxiter = 250
  periodicity = 0
  center = (0.145, -0.41)
  magn = 1.7
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
   param a
  caption = "crab apples"
  default = (1.0, 0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (1.0, 0.0)
  endparam
  param ts
  caption = "toadstools"
  default = (0.0, 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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param exp12
  caption = "exponent 12"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
  func fn13
  Caption = "function 13"
  default = ident ()
  endfunc

}

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

SavoryBrew07 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif 
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9-@fn11(c*@a)^@exp1) + @eye))
 vv = fn4(imag (@fn5(z^@exp10+@fn12(c*@b)^@exp2) + frog))  
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp11^(@fn13(c+@ts))^@exp6 + @dew)
 ii = @fn9(c^@exp12^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SavoryBrew07"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  fn13 = @fn13
  ts = @ts
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
  exp12 = @exp12
 
default:
  title = "Savory Brew 07"
  maxiter = 250
  periodicity = 0
  center = (2 ,0)
  magn = .5
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
  param a
  caption = "crab apples"
  default = (1.0, 0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (1.0, 0.0)
  endparam
  param ts
  caption = "toadstools"
  default = (0.0, 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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam  
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param exp12
  caption = "exponent 12"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 3
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
  func fn13
  Caption = "function 13"
  default = ident ()
  endfunc
}


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

SpicyBrew07 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9-@fn11(c*@a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp10+@fn12(c*@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp11^(@fn13(c+@ts))^@exp6 + @dew)
 ii = @fn9(c^@exp12^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SpicyBrew07"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  fn13 = @fn13
  ts = @ts
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  a = @a
  b = @b
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
  exp12 = @exp12
  
default:
  title = "Spicy Brew 07"
  maxiter = 250
  periodicity = 0
  center = (1,0)
  magn = .4
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (1.0,0.0)
  endparam
  param a
  caption = "crab apples"
  default = (1.0, 0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (1.0, 0.0)
  endparam
  param ts
  caption = "toadstools"
  default = (0.0, 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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param exp12
  caption = "exponent 12"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
  func fn13
  Caption = "function 13"
  default = ident ()
  endfunc
}


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

ThickBrew07 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif 
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9-@fn11(c*@a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp10+@fn12(c*@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp11^(@fn13(c+@ts))^@exp6 + @dew)
 ii = @fn9(c^@exp12^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "ThickBrew07"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  fn13 = @fn13
  ts = @ts
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
  exp12 = @exp12
  
default:
  title = "Thick Brew 07"
  maxiter = 250
  periodicity = 0
  center = (2,0)
  magn = .4
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
  param a
  caption = "crab apples"
  default = (1.0, 0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (1.0, 0.0)
  endparam
  param ts
  caption = "toadstools"
  default = (0.0, 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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param exp12
  caption = "exponent 12"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 2
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
  func fn13
  Caption = "function 13"
  default = ident ()
  endfunc

}


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

SweetBrew07 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9-@fn11(c*@a)^@exp1) + @eye))
 vv = fn4(imag (@fn5(z^@exp10+@fn12(c*@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp11^(@fn13(c+@ts))^@exp6 + @dew)
 ii = @fn9(c^@exp12^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SweetBrew07"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  fn13 = @fn13
  ts = @ts
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
  exp12 = @exp12
  
default:
  title = "Sweet Brew 07"
  maxiter = 250
  periodicity = 0
  center = (2,0.5)
  magn = 0.4
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
  param a
  caption = "crab apples"
  default = (1.0, 0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (1.0, 0.0)
  endparam
  param ts
  caption = "toadstools"
  default = (0.0, 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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param exp12
  caption = "exponent 12"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
  func fn13
  Caption = "function 13"
  default = ident ()
  endfunc
}

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

FatBrew07 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif 
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9-@fn11(c*@a)^@exp1) + @eye))
 vv = fn4(imag (@fn5(z^@exp10+@fn12(c*@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp11^(@fn13(c+@ts))^@exp6 + @dew)
 ii = @fn9(c^@exp12^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "FatBrew07"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  fn13 = @fn13
  ts = @ts
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
  exp12 = @exp12
 
default:
  title = "Fat Brew 07"
  maxiter = 250
  periodicity = 0
  center = (2,0.5)
  magn = .55
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
  param a
  caption = "crab apples"
  default = (1.0, 0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (1.0, 0.0)
  endparam
  param ts
  caption = "toadstools"
  default = (0.0, 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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param exp12
  caption = "exponent 12"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 2
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
  func fn13
  Caption = "function 13"
  default = ident ()
  endfunc
}


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

SpicyBrew08 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9-@fn11(c*@a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp10/@fn12(c*@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp11^(@fn13(c+@ts))^@exp6 / @dew)
 ii = @fn9(c^@exp12^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SpicyBrew08"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  fn13 = @fn13
  ts = @ts
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  a = @a
  b = @b
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
  exp12 = @exp12

default:
  title = "Spicy Brew 08"
  maxiter = 250
  periodicity = 0
  center = (2,0)
  magn = .4
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (1,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (1.0,0.0)
  endparam
  param a
  caption = "crab apples"
  default = (1.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (1.0,0.0)
  endparam
  param ts
  caption = "toadstools"
  default = (0.0, 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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param exp12
  caption = "exponent 12"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
  func fn13
  Caption = "function 13"
  default = ident ()
  endfunc
}

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

ThickBrew08 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9-@fn11(c*@a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp10/@fn12(c*@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp11^(@fn13(c+@ts))^@exp6 + @dew)
 ii = @fn9(c^@exp12^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "ThickBrew08"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  fn13 = @fn13
  ts = @ts
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
  exp12 = @exp12
 
default:
  title = "Thick Brew 08"
  maxiter = 250
  periodicity = 0
  center = (2,1)
  magn = .4
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
  param a
  caption = "crab apples"
  default = (1.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (1.0,0.0)
  endparam
  param ts
  caption = "toadstools"
  default = (0.0, 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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param exp12
  caption = "exponent 12"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 2
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
  func fn13
  Caption = "function 13"
  default = ident ()
  endfunc
}


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

SweetBrew08 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9-@fn11(c*@a)^@exp1) + @eye))
 vv = fn4(imag (@fn5(z^@exp10/@fn12(c*@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp11^(@fn13(c+@ts))^@exp6 + @dew)
 ii = @fn9(c^@exp12^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SweetBrew08"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  fn13 = @fn13
  ts = @ts
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
  exp12 = @exp12

default:
  title = "Sweet Brew 08"
  maxiter = 250
  periodicity = 0
  center = (2,1)
  magn = 0.5
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (2,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
  param a
  caption = "crab apples"
  default = (1.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (1.0,0.0)
  endparam
  param ts
  caption = "toadstools"
  default = (0.0, 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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param exp12
  caption = "exponent 12"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
  func fn13
  Caption = "function 13"
  default = ident ()
  endfunc
}
************************************************************************

FatBrew08 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9-@fn11(c*@a)^@exp1) + @eye))
 vv = fn4(imag (@fn5(z^@exp10/@fn12(c*@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp11^(@fn13(c+@ts))^@exp6 + @dew)
 ii = @fn9(c^@exp12^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "FatBrew08"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  fn13 = @fn13
  ts = @ts
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10 
  exp11 = @exp11
  exp12 = @exp12

default:
  title = "Fat Brew 08"
  maxiter = 250
  periodicity = 0
  center = (2,0.5)
  magn = .55
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
  param a
  caption = "crab apples"
  default = (1.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (1.0,0.0)
  endparam
  param ts
  caption = "toadstools"
  default = (0.0, 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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param exp12
  caption = "exponent 12"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 2
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
  func fn13
  Caption = "function 13"
  default = ident ()
  endfunc
}


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

DarkBrew09 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif
  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9*@fn11(c*@a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp10/@fn12(c*@b)^@exp2) + frog))  
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp11^(@fn13(c+@ts))^@exp6 + @dew)
 ii = @fn9(c^@exp12^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF
ENDIF
bailout:
  |z| < @bailout
  switch:
  type = "DarkBrew09"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  fn13 = @fn13
  ts = @ts
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
  exp12 = @exp12

default:
  title = "Dark Brew 09"
  maxiter = 250
  periodicity = 0
  center = (1,0)
  magn = .5
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
  param a
  caption = "crab apples"
  default = (1.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (1.0,0.0)
  endparam
  param ts
  caption = "toadstools"
  default = (0.0, 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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param exp12
  caption = "exponent 12"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
  func fn13
  Caption = "function 13"
  default = ident ()
  endfunc
}


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

DeepBrew09 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9*@fn11(c*@a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp10/@fn12(c*@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp11^(@fn13(c+@ts))^@exp6 + @dew)
 ii = @fn9(c^@exp12^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "DeepBrew09"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  fn13 = @fn13
  ts = @ts
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
  exp12 = @exp12

default:
  title = "Deep Brew 09"
  maxiter = 250
  periodicity = 0
  center = (1.5, 0)
  magn = .6
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
   param a
  caption = "crab apples"
  default = (1.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (1.0,0.0)
  endparam
  param ts
  caption = "toadstools"
  default = (0.0, 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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param exp12
  caption = "exponent 12"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 3
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
  func fn13
  Caption = "function 13"
  default = ident ()
  endfunc
}

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

SpicyBrew09 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif
  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9*@fn11(c*@a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp10/@fn12(c*@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp11^(@fn13(c+@ts))^@exp6 / @dew)
 ii = @fn9(c^@exp12^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SpicyBrew09"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  fn13 = @fn13
  ts = @ts
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  a = @a
  b = @b
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
  exp12 = @exp12
 
default:
  title = "Spicy Brew 09"
  maxiter = 250
  periodicity = 0
  center = (0,-1)
  magn = .4
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (1,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (1.0,0.0)
  endparam
  param a
  caption = "crab apples"
  default = (1.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (1.0,0.0)
  endparam
  param ts
  caption = "toadstools"
  default = (0.0, 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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param exp12
  caption = "exponent 12"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
  func fn13
  Caption = "function 13"
  default = ident ()
  endfunc
}

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

ThickBrew09 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9*@fn11(c*@a)^@exp1) + @eye))
 vv = fn4(imag (@fn5(z^@exp10/@fn12(c*@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp11^(@fn13(c+@ts))^@exp6 + @dew)
 ii = @fn9(c^@exp12^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "ThickBrew09"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  fn13 = @fn13
  ts = @ts
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
  exp12 = @exp12
  
default:
  title = "Thick Brew 09"
  maxiter = 250
  periodicity = 0
  center = (2,1)
  magn = .5
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
  param a
  caption = "crab apples"
  default = (1.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (1.0,0.0)
  endparam
  param ts
  caption = "toadstools"
  default = (0.0, 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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam  
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param exp12
  caption = "exponent 12"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 2
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
  func fn13
  Caption = "function 13"
  default = ident ()
  endfunc
}


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

SweetBrew09 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif
  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9*@fn11(c*@a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp10/@fn12(c*@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp11^(@fn13(c+@ts))^@exp6 + @dew)
 ii = @fn9(c^@exp12^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SweetBrew09"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  fn13 = @fn13
  ts = @ts
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
  exp12 = @exp12
  
default:
  title = "Sweet Brew 09"
  maxiter = 250
  periodicity = 0
  center = (2.5,0.5)
  magn = 0.6
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
  param a
  caption = "crab apples"
  default = (1.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (1.0,0.0)
  endparam
  param ts
  caption = "toadstools"
  default = (0.0, 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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param exp12
  caption = "exponent 12"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
  func fn13
  Caption = "function 13"
  default = ident ()
  endfunc
}


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

FatBrew09 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9*@fn11(c*@a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp10/@fn12(c*@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp11^(@fn13(c+@ts))^@exp6 + @dew)
 ii = @fn9(c^@exp12^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "FatBrew09"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  fn13 = @fn13
  ts = @ts
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
  exp12 = @exp12
 
default:
  title = "Fat Brew 09"
  maxiter = 250
  periodicity = 0
  center = (2,0.5)
  magn = .55
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
  param a
  caption = "crab apples"
  default = (1.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (1.0,0.0)
  endparam
  param ts
  caption = "toadstools"
  default = (0.0, 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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param exp12
  caption = "exponent 12"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 2
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
  func fn13
  Caption = "function 13"
  default = ident ()
  endfunc
}

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

SmoothBrew10 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp7^@fn9(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp8/@fn10(c+ @a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp9-@fn11(c+@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 aa = @fn8(z^@exp6+@t)
IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-aa
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-aa
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-aa
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-aa)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-aa)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-aa)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-aa)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-aa)
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*aa
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*aa
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*aa
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*aa)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*aa)
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*aa)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*aa)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*aa)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*aa)
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-aa
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-aa
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-aa
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-aa)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-aa)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-aa)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-aa)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-aa)
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+aa
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+aa
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+aa
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+aa)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+aa)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+aa)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+aa)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+aa)
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^aa
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^aa
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^aa
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^aa)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^aa)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^aa)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^aa)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^aa)
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SmoothBrew10"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  a = @a
  b = @b
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9

default:
  title = "Smooth Brew 10"
  maxiter = 250
  periodicity = 0
  center = (0,-0.5)
  magn = .5
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param a
  caption = "crab apples"
  default = (0.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
}


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

DarkBrew10 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9-@fn11(c+ @a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp10/@fn12(c+@b)^@exp2) + frog))  
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp11^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF
ENDIF
bailout:
  |z| < @bailout
  switch:
  type = "DarkBrew10"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
 
default:
  title = "Dark Brew 10"
  maxiter = 250
  periodicity = 0
  center = (1,0)
  magn = .5
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
   param a
  caption = "crab apples"
  default = (0.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
}

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

DeepBrew10 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9-@fn11(c+ @a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp10/@fn12(c+@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp11^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "DeepBrew10"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
  
default:
  title = "Deep Brew 10"
  maxiter = 250
  periodicity = 0
  center = (0,0)
  magn = .5
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
   param a
  caption = "crab apples"
  default = (0.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
}


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

SavoryBrew10 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9-@fn11(c+ @a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp10/@fn12(c+@b)^@exp2) + frog))  
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp11^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SavoryBrew10"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11

default:
  title = "Savory Brew 10"
  maxiter = 250
  periodicity = 0
  center = (1,-1)
  magn = .6
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
   param a
  caption = "crab apples"
  default = (0.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
}


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

SpicyBrew10 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9-@fn11(c+ @a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp10/@fn12(c+@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 / @dew)
 ii = @fn9(c^@exp11^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SpicyBrew10"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  a = @a
  b = @b
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
   
default:
  title = "Spicy Brew 10"
  maxiter = 250
  periodicity = 0
  center = (1,0)
  magn = .4
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (1,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (1.0,0.0)
  endparam
  param a
  caption = "crab apples"
  default = (0.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
}
************************************************************************

ThickBrew10 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9-@fn11(c+ @a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp10/@fn12(c+@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp11^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)

z = qq+(xx) - vv + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "ThickBrew10"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11

default:
  title = "Thick Brew 10"
  maxiter = 250
  periodicity = 0
  center = (2,1)
  magn = .4
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
   param a
  caption = "crab apples"
  default = (0.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 2
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
}


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

SweetBrew10 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9-@fn11(c+ @a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp10/@fn12(c+@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp11^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SweetBrew10"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
  
default:
  title = "Sweet Brew 10"
  maxiter = 250
  periodicity = 0
  center = (1,-1)
  magn = 0.4
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
   param a
  caption = "crab apples"
  default = (0.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
}


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

FatBrew10 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9-@fn11(c+ @a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp10/@fn12(c+@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp11^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "FatBrew10"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
  
  
default:
  title = "Fat Brew 10"
  maxiter = 250
  periodicity = 0
  center = (2,0.5)
  magn = .55
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
   param a
  caption = "crab apples"
  default = (0.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 2
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
}

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

SmoothBrew11 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp7^@fn9(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp8/@fn10(c+ @a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp9*@fn11(c+@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 aa = @fn8(z^@exp6+@t)
IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-aa
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-aa
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-aa
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-aa)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-aa)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-aa)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-aa)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-aa)
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*aa
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*aa
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*aa
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*aa)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*aa)
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*aa)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*aa)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*aa)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*aa)
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-aa
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-aa
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-aa
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-aa)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-aa)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-aa)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-aa)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-aa)
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+aa
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+aa
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+aa
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+aa)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+aa)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+aa)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+aa)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+aa)
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^aa
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^aa
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^aa
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^aa
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^aa
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^aa
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^aa
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^aa
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^aa
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^aa
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^aa
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^aa)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^aa)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^aa)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^aa)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^aa)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^aa)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^aa)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^aa)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^aa)
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SmoothBrew11"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  a = @a
  b = @b
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  
default:
  title = "Smooth Brew 11"
  maxiter = 250
  periodicity = 0
  center = (0,-1)
  magn = .5
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param a
  caption = "crab apples"
  default = (0.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
}

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

DarkBrew11 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9*@fn11(c+ @a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp10/@fn12(c+@b)^@exp2) + frog))  
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp11^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (ii-hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (ii-hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (ii-hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (ii-hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (ii-hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (ii-hh))
ENDIF
ENDIF
ENDIF
ENDIF
bailout:
  |z| < @bailout
  switch:
  type = "DarkBrew11"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11

default:
  title = "Dark Brew 11"
  maxiter = 250
  periodicity = 0
  center = (1,0)
  magn = .5
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
   param a
  caption = "crab apples"
  default = (0.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
}


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

DeepBrew11 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9*@fn11(c+ @a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp10/@fn12(c+@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp11^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh-ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh-ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh-ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh-ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh-ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh-ii))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "DeepBrew11"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11

default:
  title = "Deep Brew 11"
  maxiter = 250
  periodicity = 0
  center = (-1.5,-1)
  magn = .37
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
   param a
  caption = "crab apples"
  default = (0.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
}


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

SavoryBrew11 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9*@fn11(c+ @a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp10/@fn12(c+@b)^@exp2) + frog))  
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp11^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh/ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh/ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh/ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh/ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh/ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh/ii))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SavoryBrew11"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
  
default:
  title = "Savory Brew 11"
  maxiter = 250
  periodicity = 0
  center = (0,0)
  magn = .4
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
   param a
  caption = "crab apples"
  default = (0.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
}


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

SpicyBrew11 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9*@fn11(c+ @a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp10/@fn12(c+@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 / @dew)
 ii = @fn9(c^@exp11^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (ii/hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (ii/hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (ii/hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (ii/hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (ii/hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (ii/hh))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SpicyBrew11"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  a = @a
  b = @b
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
 
default:
  title = "Spicy Brew 11"
  maxiter = 250
  periodicity = 0
  center = (0,-1)
  magn = .5
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (1,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (1.0,0.0)
  endparam
  param a
  caption = "crab apples"
  default = (0.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
}

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

ThickBrew11 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9*@fn11(c+ @a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp10/@fn12(c+@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp11^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh^ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh^ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh^ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh^ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh^ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh^ii))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "ThickBrew11"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
  
default:
  title = "Thick Brew 11"
  maxiter = 250
  periodicity = 0
  center = (2 ,1.5)
  magn = .55
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
   param a
  caption = "crab apples"
  default = (0.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 2
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
}


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

SweetBrew11 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9*@fn11(c+ @a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp10/@fn12(c+@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp11^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (hh*ii)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (hh*ii)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (hh*ii)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (hh*ii))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (hh*ii))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (hh*ii))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "SweetBrew11"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11

default:
  title = "Sweet Brew 11"
  maxiter = 250
  periodicity = 0
  center = (0,0)
  magn = 0.4
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
   param a
  caption = "crab apples"
  default = (0.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
}


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

FatBrew11 {
  ; Toby Marshall, Aug. 2002
  ; The Julia switch is incorporated in this
  ; formula. All functions and parameters
  ; can be varied to explore different Julia   
  ; sets when using it, and can also be 
  ; changed after the Julia is set. 

  ; Many thanks to Joe Maddry and Ken Childress
  ; for their invaluable help.
   
init:
  complex c = #pixel
  complex z = @startSeed
  complex frog = @frog*(0.0,1.0)
   if (@mode == "Mandelbrot") 
     z = @startSeed
      endif
   if @mode == "Julia"
     z = #pixel
     c = @startSeed
      endif  
loop:
 qq = fn1(c^@exp8^@fn10(c)^@exp5 + @maid)
 xx = fn2(real(fn3(z^@exp9*@fn11(c+ @a)^@exp1) + @eye))
 vv = fn4(imag(@fn5(z^@exp10/@fn12(c+@b)^@exp2) + frog)) 
 yy = @fn6(c^@exp4 +@hen)
 uu = @fn7(z^@exp3 + @bat)
 hh = @fn8(z^@exp6 + @dew)
 ii = @fn9(c^@exp11^c^@exp7+@t)

IF (@op4 == 0)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF


ELSEIF (@op4 == 1)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu*@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu*@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu*@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
Z = qq+(xx) - (vv ^ yy * uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu*@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu*@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu*@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF

ELSEIF (@op4 == 2)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu-@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu-@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu-@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu-@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu-@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu-@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 3)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu+@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu+@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu+@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu+@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu+@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu+@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ELSEIF (@op4 == 4)
IF (@group == 0); inner
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - vv / yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - vv / yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - vv / yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - vv / yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - vv / yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - vv * yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - vv - yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - vv + yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - vv ^ yy ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 1); middle 1
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx - vv) / yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx - vv) / yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx - vv) / yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx - vv) / yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx - vv) / yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx - vv) * yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx - vv) - yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx - vv) + yy ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx - vv) ^ yy ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 2); middle 2
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) / uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) / uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) * uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) * uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) - uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) - uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) + uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) + uu^@fn8 (ii^hh)
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy) ^ uu^@fn8 (ii^hh)
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy) ^ uu^@fn8 (ii^hh)
ENDIF
ENDIF

ELSEIF (@group == 3); middle 3
IF (@op3 == 0)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy / uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy / uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 1)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy * uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy * uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 2)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy - uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy - uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 3)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy + uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy + uu^@fn8 (ii^hh))
ENDIF
ELSEIF (@op3 == 04)
IF (@op2 == 0)
z = qq+(xx) - (vv / yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 1)
z = qq+(xx) - (vv * yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 2)
z = qq+(xx) - (vv - yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 3)
z = qq+(xx) - (vv + yy ^ uu^@fn8 (ii^hh))
ELSEIF (@op2 == 4)
z = qq+(xx) - (vv ^ yy ^ uu^@fn8 (ii^hh))
ENDIF
ENDIF
ENDIF
ENDIF

bailout:
  |z| < @bailout
  switch:
  type = "FatBrew11"
  bailout = @bailout
  fn1 = @fn1
  fn2 = @fn2
  fn3 = @fn3
  fn4 = @fn4
  fn5 = @fn5
  fn6 = @fn6
  fn7 = @fn7
  fn8 = @fn8
  fn9 = @fn9
  fn10 = @fn10
  fn11 = @fn11
  fn12 = @fn12
  a = @a
  b = @b
  eye = @eye
  frog = @frog
  hen = @hen
  maid = @maid
  bat = @bat
  t = @t
  dew = @dew
  op2 = @op2
  op3 = @op3
  op4 = @op4
  mode = switchMode
  switchMode = mode
  startSeed = #pixel
  group = @group
  exp1 = @exp1
  exp2 = @exp2
  exp3 = @exp3
  exp4 = @exp4
  exp5 = @exp5
  exp6 = @exp6
  exp7 = @exp7
  exp8 = @exp8
  exp9 = @exp9
  exp10 = @exp10
  exp11 = @exp11
  
  default:
  title = "Fat Brew 11"
  maxiter = 250
  periodicity = 0
  center = (2 ,0.5)
  magn = 1
  param mode
  caption = "Current mode"
  default = 0
  enum = "Mandelbrot" "Julia"
  hint = "Shows the current mode for the formula."
  endparam
  param switchMode
  caption = "Switch to"
  default = 1
  enum = "Mandelbrot" "Julia"
  hint = "Sets the mode to switch to using the switch function."
  endparam
  complex param startSeed
  caption = "Start/Seed"
  default = (0,0)
  hint = "Perturbation for the Mandelbrot, seed for the Julia."
  endparam
  param bailout
  caption = "bailout"
  default = 44.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,0.0)
  endparam
  param maid
  caption = "maiden's tears"
  default = (0.0,0.0)
  endparam
  param t
  caption = "thistledown"
  default = (0.0,0.0)
  endparam
  param dew
  caption = "dewdrops"
  default = (0.0,0.0)
  endparam
   param a
  caption = "crab apples"
  default = (0.0,0.0)
  endparam
  param b
  caption = "buckthorn"
  default = (0.0,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 exp5
  caption = "exponent 5"
  default = (1,0)
  endparam
  param exp6
  caption = "exponent 6"
  default = (1,0)
  endparam
  param exp7
  caption = "exponent 7"
  default = (1,0)
  endparam
  param exp8
  caption = "exponent 8"
  default = (1,0)
  endparam
  param exp9
  caption = "exponent 9"
  default = (1,0)
  endparam
  param exp10
  caption = "exponent 10"
  default = (1,0)
  endparam
  param exp11
  caption = "exponent 11"
  default = (1,0)
  endparam
  param op2
  caption = "operator 2"
  enum = "/""*""-""+""^"
  default = 2
  endparam
  param op3
  caption = "operator 3"
  enum = "/""*""-""+""^"
  default = 1
  endparam
  param op4
  caption = "operator 4"
  enum = "/""*""-""+""^"
  default = 3
  endparam
  param group
  caption = "grouping"
  default = 0
  enum = "1""2""3""4"
  endparam
  func fn1
  Caption = "function 1"
  default = exp ()
  endfunc
  func fn2
  Caption = "function 2"
  default = flip ()
  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 = tanh ()
  endfunc
  func fn7
  Caption = "function 7"
  default = ident ()
  endfunc
  func fn8
  Caption = "function 8"
  default = ident ()
  endfunc
  func fn9
  Caption = "function 9"
  default = ident ()
  endfunc
  func fn10
  Caption = "function 10"
  default = ident ()
  endfunc
  func fn11
  Caption = "function 11"
  default = ident ()
  endfunc
  func fn12
  Caption = "function 12"
  default = ident ()
  endfunc
}


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