mt+gn+tm-popcorn-trap-mod {
 ; Mark Townsend, 10 Jun 1999
;
; Additional functionality added by Gilles Nadeau, 18 Oct 2004
; Yet more functionality and textures added by Toby Marshall, 20 Oct 2004
; Thanks to Michèle Dessureault, Dennis Magar, Damien M. Jones and
; Andreas Lober for permission to use their texture code.
;
; version 1.32 (added new texture: "Geometrix")
;
; Clifford Pickover's Popcorn formula as an orbit trap.
;
init:
  trap_z = 0
  trap_p = 0
  float x = 0
  float y = 0
  float xx = 0
  int iter = 0
  int i = 0
  float dist = 0
  int pop_iter = 0
  int max_iter = 0
  int trap_iter = 0
  float distance = 0
  float min_dist = 1e30
  complex z2 = (0,0)
  complex z3 = (0,0)
  complex z4 = (0,0)
  complex tz = (0,0)
  trap_z = 0
  float texture = 0.0
  float ddd = 0
  float texture_rnd = 0.0
  float texture_dec = 0.0
  float texture_fbm = 0.0
  float texture_gna = 0.0
  float pd = 0.0
  float xxx = 0
  float yy = 0
  pfb = (0,0)
  ppp = (0,0)
  int i = 0
  int it = 0
  float aaa = 0
  float t2 = 0
  float tx = abs(@tp)
  float a2 = 0
  complex tz = (0,0)
  float ct = abs(@tc*1000)
  float tmp = 0
  float rn = real(#random)
  float texture_tr = 0
  complex ptr = (0,0)
  float frfr = 0
  float fifi = 0
  float zzzz = 0
  float r0r0 = 0
  float i0i0 = 0
  float r1r1 = 0
  float i1i1 = 0
  float azaz = 0
  float bzbz = 0
  float czcz = 0
  float dzdz = 0
  float zaza = 0
  float avav = 1
  float xbxb = 1
  complex z_values[#maxiter+1]

  if @no_of_iters == 0
    max_iter = #maxiter - @skip
  else
    max_iter = @skip + @no_of_iters
  endif

loop:
complex z1 = #z

if @th2 == false

   if @change == "1"
     z1 = @nufunc(z1-@tw)^@exp1
   elseif @change == "2"
     z1 = @nufunc(z1-@tw)^@exp3+@nufunc2((z1-@tw2)^@exp1)
   elseif @change == "3"
     z1 = @nufunc(z1-@tw)^@exp3-@nufunc2((z1-@tw2)^@exp1)
   elseif @change == "4"
     z1 = @nufunc(z1-@tw)^@exp3*@nufunc2((z1-@tw2)^@exp1)
   elseif @change == "5"
     z1 = @nufunc(z1-@tw)^@exp3/@nufunc2((z1-@tw2)^@exp1)
   elseif @change == "6"
     z1 = @nufunc(z1-@tw)^@exp3^@nufunc2((z1-@tw2)^@exp1)
   elseif @change == "7"
    if @op == "+"
      z1 = @nufunc(z1-@tw)^@exp3+(@nufunc2((z1-@tw2)^@exp1)\
           +@nufunc3((z1-@tw3)^@exp2))
    elseif @op == "-"
      z1 = @nufunc(z1-@tw)^@exp3+(@nufunc2((z1-@tw2)^@exp1)\
           -@nufunc3((z1-@tw3)^@exp2))
    elseif @op == "*"
      z1 = @nufunc(z1-@tw)^@exp3+(@nufunc2((z1-@tw2)^@exp1)\
           *@nufunc3((z1-@tw3)^@exp2))
    elseif @op == "/"
      z1 = @nufunc(z1-@tw)^@exp3+(@nufunc2((z1-@tw2)^@exp1)\
           /@nufunc3((z1-@tw3)^@exp2))
    elseif @op == "^"
      z1 = @nufunc(z1-@tw)^@exp3+(@nufunc2((z1-@tw2)^@exp1)\
           ^@nufunc3((z1-@tw3)^@exp2))
    endif
   elseif @change == "8"
    if @op == "+"
      z1 = @nufunc(z1-@tw)^@exp3-(@nufunc2((z1-@tw2)^@exp1)\
           +@nufunc3((z1-@tw3)^@exp2))
    elseif @op == "-"
      z1 = @nufunc(z1-@tw)^@exp3-(@nufunc2((z1-@tw2)^@exp1)\
           -@nufunc3((z1-@tw3)^@exp2))
    elseif @op == "*"
      z1 = @nufunc(z1-@tw)^@exp3-(@nufunc2((z1-@tw2)^@exp1)\
           *@nufunc3((z1-@tw3)^@exp2))
    elseif @op == "/"
      z1 = @nufunc(z1-@tw)^@exp3-(@nufunc2((z1-@tw2)^@exp1)\
           /@nufunc3((z1-@tw3)^@exp2))
    elseif @op == "^"
      z1 = @nufunc(z1-@tw)^@exp3-(@nufunc2((z1-@tw2)^@exp1)\
           ^@nufunc3((z1-@tw3)^@exp2))
    endif
   elseif @change == "9"
    if @op == "+"
      z1 = @nufunc(z1-@tw)^@exp3*(@nufunc2((z1-@tw2)^@exp1)\
           +@nufunc3((z1-@tw3)^@exp2))
    elseif @op == "-"
      z1 = @nufunc(z1-@tw)^@exp3*(@nufunc2((z1-@tw2)^@exp1)\
           -@nufunc3((z1-@tw3)^@exp2))
    elseif @op == "*"
      z1 = @nufunc(z1-@tw)^@exp3*(@nufunc2((z1-@tw2)^@exp1)\
           *@nufunc3((z1-@tw3)^@exp2))
    elseif @op == "/"
      z1 = @nufunc(z1-@tw)^@exp3*(@nufunc2((z1-@tw2)^@exp1)\
           /@nufunc3((z1-@tw3)^@exp2))
    elseif @op == "^"
      z1 = @nufunc(z1-@tw)^@exp3*(@nufunc2((z1-@tw2)^@exp1)\
           ^@nufunc3((z1-@tw3)^@exp2))
    endif
   elseif @change == "10"
    if @op == "+"
      z1 = @nufunc(z1-@tw)^@exp3/(@nufunc2((z1-@tw2)^@exp1)\
           +@nufunc3((z1-@tw3)^@exp2))
    elseif @op == "-"
      z1 = @nufunc(z1-@tw)^@exp3/(@nufunc2((z1-@tw2)^@exp1)\
           -@nufunc3((z1-@tw3)^@exp2))
    elseif @op == "*"
      z1 = @nufunc(z1-@tw)^@exp3/(@nufunc2((z1-@tw2)^@exp1)\
           *@nufunc3((z1-@tw3)^@exp2))
    elseif @op == "/"
      z1 = @nufunc(z1-@tw)^@exp3/(@nufunc2((z1-@tw2)^@exp1)\
           /@nufunc3((z1-@tw3)^@exp2))
    elseif @op == "^"
      z1 = @nufunc(z1-@tw)^@exp3/(@nufunc2((z1-@tw2)^@exp1)\
           ^@nufunc3((z1-@tw3)^@exp2))
    endif
   elseif @change == "11"
    if @op == "+"
      z1 = @nufunc(z1-@tw)^@exp3^(@nufunc2((z1-@tw2)^@exp1)\
           +@nufunc3((z1-@tw3)^@exp2))
    elseif @op == "-"
      z1 = @nufunc(z1-@tw)^@exp3^(@nufunc2((z1-@tw2)^@exp1)\
           -@nufunc3((z1-@tw3)^@exp2))
    elseif @op == "*"
      z1 = @nufunc(z1-@tw)^@exp3^(@nufunc2((z1-@tw2)^@exp1)\
           *@nufunc3((z1-@tw3)^@exp2))
    elseif @op == "/"
      z1 = @nufunc(z1-@tw)^@exp3^(@nufunc2((z1-@tw2)^@exp1)\
           /@nufunc3((z1-@tw3)^@exp2))
    elseif @op == "^"
      z1 = @nufunc(z1-@tw)^@exp3^(@nufunc2((z1-@tw2)^@exp1)\
           ^@nufunc3((z1-@tw3)^@exp2))
    endif
   endif

else


  if @zchange1 == "|z|"
    z2 = |z1|
  elseif @zchange1 == "atan2(z)"
    z2 = atan2(z1)
  elseif @zchange1 == "real(z)"
    z2 = real(z1)
  elseif @zchange1 == "imag(z)"
    z2 = imag(z1)
  endif

  if @zchange2 == "|z|"
    z3 = |z1|
  elseif @zchange2 == "atan2(z)"
    z3 = atan2(z1)
  elseif @zchange2 == "real(z)"
    z3 = real(z1)
  elseif @zchange2 == "imag(z)"
    z3 = imag(z1)
  endif

  if @zchange3 == "|z|"
    z4 = |z1|
  elseif @zchange3 == "atan2(z)"
    z4 = atan2(z1)
  elseif @zchange3 == "real(z)"
    z4 = real(z1)
  elseif @zchange3 == "imag(z)"
    z4 = imag(z1)
  endif

   aa = @nufunc((z1-@tw)+@nufunc4(z2-@tw4)^@exp4)
   bb = @nufunc((z1-@tw)-@nufunc4(z2-@tw4)^@exp4)
   cc = @nufunc4((z2-@tw4)^@exp4-@nufunc(z1-@tw))
   ff = (z3-@tw5)^@exp5
   dd = @nufunc5(ff)
   jj = (z4-@tw6)
   kk = (z1-@tw2)
   oo = (z1-@tw3)
   gg = @nufunc2(kk)
   hh = @nufunc6(jj)^@exp6
   pp = @nufunc3(oo)

 if @mmode == "z+|z|"
   if @change == "1"
     z1 = aa^@exp1

   elseif @change == "2"
    if @mmode2 == "z+|z|"
     z1 = aa^@exp3+@nufunc2(kk+dd)^@exp1
    elseif @mmode2 == "z-|z|"
     z1 = aa^@exp3+@nufunc2(kk-dd)^@exp1
    elseif @mmode2 == "|z|-z"
     z1 = aa^@exp3+@nufunc5(ff-gg)^@exp1
    elseif @mmode2 == "z*|z|"
     z1 = aa^@exp3+@nufunc2(kk*dd)^@exp1
    elseif @mmode2 == "z/|z|"
     z1 = aa^@exp3+@nufunc2(kk/dd)^@exp1
    elseif @mmode2 == "|z|/z"
     z1 = aa^@exp3+@nufunc5(ff/gg)^@exp1
    endif

   elseif @change == "3"
    if @mmode2 == "z+|z|"
     z1 = aa^@exp3-@nufunc2(kk+dd)^@exp1
    elseif @mmode2 == "z-|z|"
     z1 = aa^@exp3-@nufunc2(kk-dd)^@exp1
    elseif @mmode2 == "|z|-z"
     z1 = aa^@exp3-@nufunc5(ff-gg)^@exp1
    elseif @mmode2 == "z*|z|"
     z1 = aa^@exp3-@nufunc2(kk*dd)^@exp1
    elseif @mmode2 == "z/|z|"
     z1 = aa^@exp3-@nufunc2(kk/dd)^@exp1
    elseif @mmode2 == "|z|/z"
     z1 = aa^@exp3-@nufunc5(ff/gg)^@exp1
    endif

   elseif @change == "4"
    if @mmode2 == "z+|z|"
     z1 = aa^@exp3*@nufunc2(kk+dd)^@exp1
    elseif @mmode2 == "z-|z|"
     z1 = aa^@exp3*@nufunc2(kk-dd)^@exp1
    elseif @mmode2 == "|z|-z"
     z1 = aa^@exp3*@nufunc5(ff-gg)^@exp1
    elseif @mmode2 == "z*|z|"
     z1 = aa^@exp3*@nufunc2(kk*dd)^@exp1
    elseif @mmode2 == "z/|z|"
     z1 = aa^@exp3*@nufunc2(kk/dd)^@exp1
    elseif @mmode2 == "|z|/z"
     z1 = aa^@exp3*@nufunc5(ff/gg)^@exp1
    endif

   elseif @change == "5"
    if @mmode2 == "z+|z|"
     z1 = aa^@exp3/@nufunc2(kk+dd)^@exp1
    elseif @mmode2 == "z-|z|"
     z1 = aa^@exp3/@nufunc2(kk-dd)^@exp1
    elseif @mmode2 == "|z|-z"
     z1 = aa^@exp3/@nufunc5(ff-gg)^@exp1
    elseif @mmode2 == "z*|z|"
     z1 = aa^@exp3/@nufunc2(kk*dd)^@exp1
    elseif @mmode2 == "z/|z|"
     z1 = aa^@exp3/@nufunc2(kk/dd)^@exp1
    elseif @mmode2 == "|z|/z"
     z1 = aa^@exp3/@nufunc5(ff/gg)^@exp1
    endif

   elseif @change == "6"
    if @mmode2 == "z+|z|"
     z1 = aa^@exp3^@nufunc2(kk+dd)^@exp1
    elseif @mmode2 == "z-|z|"
     z1 = aa^@exp3^@nufunc2(kk-dd)^@exp1
    elseif @mmode2 == "|z|-z"
     z1 = aa^@exp3^@nufunc5(ff-gg)^@exp1
    elseif @mmode2 == "z*|z|"
     z1 = aa^@exp3^@nufunc2(kk*dd)^@exp1
    elseif @mmode2 == "z/|z|"
     z1 = aa^@exp3^@nufunc2(kk/dd)^@exp1
    elseif @mmode2 == "|z|/z"
     z1 = aa^@exp3^@nufunc5(ff/gg)^@exp1
    endif

   elseif @change == "7"
    if @op == "+"
     if @mmode2 == "z+|z|"
      if @mmode3 == "z+|z|"
       z1 = aa^@exp3+@nufunc2(kk+dd)^@exp1+@nufunc3(oo+hh)^@exp2
      elseif @mmode3 == "z-|z|"
       z1 = aa^@exp3+@nufunc2(kk+dd)^@exp1+@nufunc3(oo-hh)^@exp2
      elseif @mmode3 == "|z|-z"
       z1 = aa^@exp3+@nufunc2(kk+dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
      elseif @mmode3 == "z*|z|"
       z1 = aa^@exp3+@nufunc2(kk+dd)^@exp1+@nufunc3(oo*hh)^@exp2
      elseif @mmode3 == "z/|z|"
       z1 = aa^@exp3+@nufunc2(kk+dd)^@exp1+@nufunc3(oo/hh)^@exp2
      elseif @mmode3 == "|z|/z"
       z1 = aa^@exp3+@nufunc2(kk+dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
      endif
     elseif @mmode2 == "z-|z|"
      if @mmode3 == "z+|z|"
       z1 = aa^@exp3+@nufunc2(kk-dd)^@exp1+@nufunc3(oo+hh)^@exp2
      elseif @mmode3 == "z-|z|"
       z1 = aa^@exp3+@nufunc2(kk-dd)^@exp1+@nufunc3(oo-hh)^@exp2
      elseif @mmode3 == "|z|-z"
       z1 = aa^@exp3+@nufunc2(kk-dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
      elseif @mmode3 == "z*|z|"
       z1 = aa^@exp3+@nufunc2(kk-dd)^@exp1+@nufunc3(oo*hh)^@exp2
      elseif @mmode3 == "z/|z|"
       z1 = aa^@exp3+@nufunc2(kk-dd)^@exp1+@nufunc3(oo/hh)^@exp2
      elseif @mmode3 == "|z|/z"
       z1 = aa^@exp3+@nufunc2(kk-dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
      endif
     elseif @mmode2 == "|z|-z"
      if @mmode3 == "z+|z|"
       z1 = aa^@exp3+@nufunc5(ff-gg)^@exp1+@nufunc3(oo+hh)^@exp2
      elseif @mmode3 == "z-|z|"
       z1 = aa^@exp3+@nufunc5(ff-gg)^@exp1+@nufunc3(oo-hh)^@exp2
      elseif @mmode3 == "|z|-z"
       z1 = aa^@exp3+@nufunc5(ff-gg)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
      elseif @mmode3 == "z*|z|"
       z1 = aa^@exp3+@nufunc5(ff-gg)^@exp1+@nufunc3(oo*hh)^@exp2
      elseif @mmode3 == "z/|z|"
       z1 = aa^@exp3+@nufunc5(ff-gg)^@exp1+@nufunc3(oo/hh)^@exp2
      elseif @mmode3 == "|z|/z"
       z1 = aa^@exp3+@nufunc5(ff-gg)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
      endif
      elseif @mmode2 == "z*|z|"
       if @mmode3 == "z+|z|"
       z1 = aa^@exp3+@nufunc2(kk*dd)^@exp1+@nufunc3(oo+hh)^@exp2
      elseif @mmode3 == "z-|z|"
       z1 = aa^@exp3+@nufunc2(kk*dd)^@exp1+@nufunc3(oo-hh)^@exp2
      elseif @mmode3 == "|z|-z"
       z1 = aa^@exp3+@nufunc2(kk*dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
      elseif @mmode3 == "z*|z|"
       z1 = aa^@exp3+@nufunc2(kk*dd)^@exp1+@nufunc3(oo*hh)^@exp2
      elseif @mmode3 == "z/|z|"
       z1 = aa^@exp3+@nufunc2(kk*dd)^@exp1+@nufunc3(oo/hh)^@exp2
      elseif @mmode3 == "|z|/z"
       z1 = aa^@exp3+@nufunc2(kk*dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
      endif
     elseif @mmode2 == "z/|z|"
      if @mmode3 == "z+|z|"
       z1 = aa^@exp3+@nufunc2(kk/dd)^@exp1+@nufunc3(oo+hh)^@exp2
      elseif @mmode3 == "z-|z|"
       z1 = aa^@exp3+@nufunc2(kk/dd)^@exp1+@nufunc3(oo-hh)^@exp2
      elseif @mmode3 == "|z|-z"
       z1 = aa^@exp3+@nufunc2(kk/dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
      elseif @mmode3 == "z*|z|"
       z1 = aa^@exp3+@nufunc2(kk/dd)^@exp1+@nufunc3(oo*hh)^@exp2
      elseif @mmode3 == "z/|z|"
       z1 = aa^@exp3+@nufunc2(kk/dd)^@exp1+@nufunc3(oo/ hh)^@exp2
      elseif @mmode3 == "|z|/z"
       z1 = aa^@exp3+@nufunc2(kk/dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
      endif
     elseif @mmode2 == "|z|/z"
      if @mmode3 == "z+|z|"
       z1 = aa^@exp3+@nufunc5(ff/gg)^@exp1+@nufunc3(oo+hh)^@exp2
      elseif @mmode3 == "z-|z|"
       z1 = aa^@exp3+@nufunc5(ff/gg)^@exp1+@nufunc3(oo-hh)^@exp2
      elseif @mmode3 == "|z|-z"
       z1 = aa^@exp3+@nufunc5(ff/gg)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
      elseif @mmode3 == "z*|z|"
       z1 = aa^@exp3+@nufunc5(ff/gg)^@exp1+@nufunc3(oo*hh)^@exp2
      elseif @mmode3 == "z/|z|"
       z1 = aa^@exp3+@nufunc5(ff/gg)^@exp1+@nufunc3(oo/hh)^@exp2
      elseif @mmode3 == "|z|/z"
       z1 = aa^@exp3+@nufunc5(ff/gg)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
      endif
     endif
   elseif @op == "-"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3+@nufunc2(kk+dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3+@nufunc2(kk+dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3+@nufunc2(kk+dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3+@nufunc2(kk+dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3+@nufunc2(kk+dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3+@nufunc2(kk+dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3+@nufunc2(kk-dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3+@nufunc2(kk-dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3+@nufunc2(kk-dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3+@nufunc2(kk-dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3+@nufunc2(kk-dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3+@nufunc2(kk-dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3+@nufunc5(ff-gg)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3+@nufunc5(ff-gg)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3+@nufunc5(ff-gg)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3+@nufunc5(ff-gg)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3+@nufunc5(ff-gg)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3+@nufunc5(ff-gg)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3+@nufunc2(kk*dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3+@nufunc2(kk*dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3+@nufunc2(kk*dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3+@nufunc2(kk*dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3+@nufunc2(kk*dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3+@nufunc2(kk*dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3+@nufunc2(kk/dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3+@nufunc2(kk/dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3+@nufunc2(kk/dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3+@nufunc2(kk/dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3+@nufunc2(kk/dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3+@nufunc2(kk/dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3+@nufunc5(ff/gg)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3+@nufunc5(ff/gg)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3+@nufunc5(ff/gg)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3+@nufunc5(ff/gg)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3+@nufunc5(ff/gg)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3+@nufunc5(ff/gg)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "*"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3+@nufunc2(kk+dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3+@nufunc2(kk+dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3+@nufunc2(kk+dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3+@nufunc2(kk+dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3+@nufunc2(kk+dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3+@nufunc2(kk+dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3+@nufunc2(kk-dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3+@nufunc2(kk-dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3+@nufunc2(kk-dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3+@nufunc2(kk-dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3+@nufunc2(kk-dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3+@nufunc2(kk-dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3+@nufunc5(ff-gg)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3+@nufunc5(ff-gg)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3+@nufunc5(ff-gg)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3+@nufunc5(ff-gg)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3+@nufunc5(ff-gg)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3+@nufunc5(ff-gg)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3+@nufunc2(kk*dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3+@nufunc2(kk*dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3+@nufunc2(kk*dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3+@nufunc2(kk*dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3+@nufunc2(kk*dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3+@nufunc2(kk*dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3+@nufunc2(kk/dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3+@nufunc2(kk/dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3+@nufunc2(kk/dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3+@nufunc2(kk/dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3+@nufunc2(kk/dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3+@nufunc2(kk/dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3+@nufunc5(ff/gg)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3+@nufunc5(ff/gg)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3+@nufunc5(ff/gg)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3+@nufunc5(ff/gg)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3+@nufunc5(ff/gg)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3+@nufunc5(ff/gg)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "/"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3+@nufunc2(kk+dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3+@nufunc2(kk+dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3+@nufunc2(kk+dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3+@nufunc2(kk+dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3+@nufunc2(kk+dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3+@nufunc2(kk+dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3+@nufunc2(kk-dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3+@nufunc2(kk-dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3+@nufunc2(kk-dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3+@nufunc2(kk-dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3+@nufunc2(kk-dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3+@nufunc2(kk-dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3+@nufunc5(ff-gg)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3+@nufunc5(ff-gg)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3+@nufunc5(ff-gg)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3+@nufunc5(ff-gg)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3+@nufunc5(ff-gg)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3+@nufunc5(ff-gg)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3+@nufunc2(kk*dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3+@nufunc2(kk*dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3+@nufunc2(kk*dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3+@nufunc2(kk*dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3+@nufunc2(kk*dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3+@nufunc2(kk*dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3+@nufunc2(kk/dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3+@nufunc2(kk/dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3+@nufunc2(kk/dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3+@nufunc2(kk/dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3+@nufunc2(kk/dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3+@nufunc2(kk/dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3+@nufunc5(ff/gg)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3+@nufunc5(ff/gg)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3+@nufunc5(ff/gg)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3+@nufunc5(ff/gg)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3+@nufunc5(ff/gg)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3+@nufunc5(ff/gg)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "^"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3+@nufunc2(kk+dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3+@nufunc2(kk+dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3+@nufunc2(kk+dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3+@nufunc2(kk+dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3+@nufunc2(kk+dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3+@nufunc2(kk+dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3+@nufunc2(kk-dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3+@nufunc2(kk-dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3+@nufunc2(kk-dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3+@nufunc2(kk-dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3+@nufunc2(kk-dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3+@nufunc2(kk-dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3+@nufunc5(ff-gg)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3+@nufunc5(ff-gg)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3+@nufunc5(ff-gg)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3+@nufunc5(ff-gg)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3+@nufunc5(ff-gg)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3+@nufunc5(ff-gg)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3+@nufunc2(kk*dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3+@nufunc2(kk*dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3+@nufunc2(kk*dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3+@nufunc2(kk*dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3+@nufunc2(kk*dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3+@nufunc2(kk*dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3+@nufunc2(kk/dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3+@nufunc2(kk/dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3+@nufunc2(kk/dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3+@nufunc2(kk/dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3+@nufunc2(kk/dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3+@nufunc2(kk/dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3+@nufunc5(ff/gg)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3+@nufunc5(ff/gg)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3+@nufunc5(ff/gg)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3+@nufunc5(ff/gg)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3+@nufunc5(ff/gg)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3+@nufunc5(ff/gg)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   endif
   elseif @change == "8"
    if @op == "+"
     if @mmode2 == "z+|z|"
      if @mmode3 == "z+|z|"
      z1 = aa^@exp3-@nufunc2(kk+dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3-@nufunc2(kk+dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3-@nufunc2(kk+dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3-@nufunc2(kk+dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3-@nufunc2(kk+dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3-@nufunc2(kk+dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z-|z|"
      if @mmode3 == "z+|z|"
      z1 = aa^@exp3-@nufunc2(kk-dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3-@nufunc2(kk-dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3-@nufunc2(kk-dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3-@nufunc2(kk-dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3-@nufunc2(kk-dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3-@nufunc2(kk-dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "|z|-z"
      if @mmode3 == "z+|z|"
      z1 = aa^@exp3-@nufunc5(ff-gg)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3-@nufunc5(ff-gg)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3-@nufunc5(ff-gg)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3-@nufunc5(ff-gg)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3-@nufunc5(ff-gg)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3-@nufunc5(ff-gg)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z*|z|"
      if @mmode3 == "z+|z|"
      z1 = aa^@exp3-@nufunc2(kk*dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3-@nufunc2(kk*dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3-@nufunc2(kk*dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3-@nufunc2(kk*dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3-@nufunc2(kk*dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3-@nufunc2(kk*dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z/|z|"
      if @mmode3 == "z+|z|"
      z1 = aa^@exp3-@nufunc2(kk/dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3-@nufunc2(kk/dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3-@nufunc2(kk/dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3-@nufunc2(kk/dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3-@nufunc2(kk/dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3-@nufunc2(kk/dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "|z|/z"
      if @mmode3 == "z+|z|"
     z1 = aa^@exp3-@nufunc5(ff/gg)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3-@nufunc5(ff/gg)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3-@nufunc5(ff/gg)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3-@nufunc5(ff/gg)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3-@nufunc5(ff/gg)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3-@nufunc5(ff/gg)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "-"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3-@nufunc2(kk+dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3-@nufunc2(kk+dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3-@nufunc2(kk+dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3-@nufunc2(kk+dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3-@nufunc2(kk+dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3-@nufunc2(kk+dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3-@nufunc2(kk-dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3-@nufunc2(kk-dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3-@nufunc2(kk-dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3-@nufunc2(kk-dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3-@nufunc2(kk-dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3-@nufunc2(kk-dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3-@nufunc5(ff-gg)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3-@nufunc5(ff-gg)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3-@nufunc5(ff-gg)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3-@nufunc5(ff-gg)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3-@nufunc5(ff-gg)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3-@nufunc5(ff-gg)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3-@nufunc2(kk*dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3-@nufunc2(kk*dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3-@nufunc2(kk*dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3-@nufunc2(kk*dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3-@nufunc2(kk*dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3-@nufunc2(kk*dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3-@nufunc2(kk/dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3-@nufunc2(kk/dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3-@nufunc2(kk/dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3-@nufunc2(kk/dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3-@nufunc2(kk/dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3-@nufunc2(kk/dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3-@nufunc5(ff/gg)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3-@nufunc5(ff/gg)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3-@nufunc5(ff/gg)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3-@nufunc5(ff/gg)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3-@nufunc5(ff/gg)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3-@nufunc5(ff/gg)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "*"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3-@nufunc2(kk+dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3-@nufunc2(kk+dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3-@nufunc2(kk+dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3-@nufunc2(kk+dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3-@nufunc2(kk+dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3-@nufunc2(kk+dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3-@nufunc2(kk-dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3-@nufunc2(kk-dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3-@nufunc2(kk-dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3-@nufunc2(kk-dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3-@nufunc2(kk-dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3-@nufunc2(kk-dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3-@nufunc5(ff-gg)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3-@nufunc5(ff-gg)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3-@nufunc5(ff-gg)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3-@nufunc5(ff-gg)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3-@nufunc5(ff-gg)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3-@nufunc5(ff-gg)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3-@nufunc2(kk*dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3-@nufunc2(kk*dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3-@nufunc2(kk*dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3-@nufunc2(kk*dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3-@nufunc2(kk*dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3-@nufunc2(kk*dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3-@nufunc2(kk/dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3-@nufunc2(kk/dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3-@nufunc2(kk/dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3-@nufunc2(kk/dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3-@nufunc2(kk/dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3-@nufunc2(kk/dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3-@nufunc5(ff/gg)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3-@nufunc5(ff/gg)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3-@nufunc5(ff/gg)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3-@nufunc5(ff/gg)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3-@nufunc5(ff/gg)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3-@nufunc5(ff/gg)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "/"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3-@nufunc2(kk+dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3-@nufunc2(kk+dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3-@nufunc2(kk+dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3-@nufunc2(kk+dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3-@nufunc2(kk+dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3-@nufunc2(kk+dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3-@nufunc2(kk-dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3-@nufunc2(kk-dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3-@nufunc2(kk-dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3-@nufunc2(kk-dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3-@nufunc2(kk-dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3-@nufunc2(kk-dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3-@nufunc5(ff-gg)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3-@nufunc5(ff-gg)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3-@nufunc5(ff-gg)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3-@nufunc5(ff-gg)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3-@nufunc5(ff-gg)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3-@nufunc5(ff-gg)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3-@nufunc2(kk*dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3-@nufunc2(kk*dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3-@nufunc2(kk*dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3-@nufunc2(kk*dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3-@nufunc2(kk*dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3-@nufunc2(kk*dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3-@nufunc2(kk/dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3-@nufunc2(kk/dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3-@nufunc2(kk/dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3-@nufunc2(kk/dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3-@nufunc2(kk/dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3-@nufunc2(kk/dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3-@nufunc5(ff/gg)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3-@nufunc5(ff/gg)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3-@nufunc5(ff/gg)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3-@nufunc5(ff/gg)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3-@nufunc5(ff/gg)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3-@nufunc5(ff/gg)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "^"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3-@nufunc2(kk+dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3-@nufunc2(kk+dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3-@nufunc2(kk+dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3-@nufunc2(kk+dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3-@nufunc2(kk+dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3-@nufunc2(kk+dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3-@nufunc2(kk-dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3-@nufunc2(kk-dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3-@nufunc2(kk-dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3-@nufunc2(kk-dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3-@nufunc2(kk-dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3-@nufunc2(kk-dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3-@nufunc5(ff-gg)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3-@nufunc5(ff-gg)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3-@nufunc5(ff-gg)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3-@nufunc5(ff-gg)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3-@nufunc5(ff-gg)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3-@nufunc5(ff-gg)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3-@nufunc2(kk*dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3-@nufunc2(kk*dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3-@nufunc2(kk*dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3-@nufunc2(kk*dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3-@nufunc2(kk*dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3-@nufunc2(kk*dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3-@nufunc2(kk/dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3-@nufunc2(kk/dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3-@nufunc2(kk/dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3-@nufunc2(kk/dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3-@nufunc2(kk/dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3-@nufunc2(kk/dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3-@nufunc5(ff/gg)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3-@nufunc5(ff/gg)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3-@nufunc5(ff/gg)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3-@nufunc5(ff/gg)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3-@nufunc5(ff/gg)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3-@nufunc5(ff/gg)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   endif
   elseif @change == "9"
    if @op == "+"
     if @mmode2 == "z+|z|"
      if @mmode3 == "z+|z|"
      z1 = aa^@exp3*@nufunc2(kk+dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3*@nufunc2(kk+dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3*@nufunc2(kk+dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3*@nufunc2(kk+dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3*@nufunc2(kk+dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3*@nufunc2(kk+dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z-|z|"
      if @mmode3 == "z+|z|"
      z1 = aa^@exp3*@nufunc2(kk-dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3*@nufunc2(kk-dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3*@nufunc2(kk-dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3*@nufunc2(kk-dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3*@nufunc2(kk-dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3*@nufunc2(kk-dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "|z|-z"
      if @mmode3 == "z+|z|"
     z1 = aa^@exp3*@nufunc5(ff-gg)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3*@nufunc5(ff-gg)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3*@nufunc5(ff-gg)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3*@nufunc5(ff-gg)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3*@nufunc5(ff-gg)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3*@nufunc5(ff-gg)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z*|z|"
      if @mmode3 == "z+|z|"
      z1 = aa^@exp3*@nufunc2(kk*dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3*@nufunc2(kk*dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3*@nufunc2(kk*dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3*@nufunc2(kk*dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3*@nufunc2(kk*dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3*@nufunc2(kk*dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z/|z|"
      if @mmode3 == "z+|z|"
      z1 = aa^@exp3*@nufunc2(kk/dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3*@nufunc2(kk/dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3*@nufunc2(kk/dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3*@nufunc2(kk/dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3*@nufunc2(kk/dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3*@nufunc2(kk/dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "|z|/z"
      if @mmode3 == "z+|z|"
      z1 = aa^@exp3*@nufunc5(ff/gg)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3*@nufunc5(ff/gg)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3*@nufunc5(ff/gg)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3*@nufunc5(ff/gg)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3*@nufunc5(ff/gg)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3*@nufunc5(ff/gg)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "-"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3*@nufunc2(kk+dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3*@nufunc2(kk+dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3*@nufunc2(kk+dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3*@nufunc2(kk+dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3*@nufunc2(kk+dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3*@nufunc2(kk+dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3*@nufunc2(kk-dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3*@nufunc2(kk-dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3*@nufunc2(kk-dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3*@nufunc2(kk-dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3*@nufunc2(kk-dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3*@nufunc2(kk-dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3*@nufunc5(ff-gg)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3*@nufunc5(ff-gg)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3*@nufunc5(ff-gg)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3*@nufunc5(ff-gg)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3*@nufunc5(ff-gg)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3*@nufunc5(ff-gg)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3*@nufunc2(kk*dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3*@nufunc2(kk*dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3*@nufunc2(kk*dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3*@nufunc2(kk*dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3*@nufunc2(kk*dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3*@nufunc2(kk*dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3*@nufunc2(kk/dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3*@nufunc2(kk/dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3*@nufunc2(kk/dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3*@nufunc2(kk/dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3*@nufunc2(kk/dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3*@nufunc2(kk/dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3*@nufunc5(ff/gg)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3*@nufunc5(ff/gg)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3*@nufunc5(ff/gg)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3*@nufunc5(ff/gg)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3*@nufunc5(ff/gg)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3*@nufunc5(ff/gg)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "*"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3*@nufunc2(kk+dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3*@nufunc2(kk+dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3*@nufunc2(kk+dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3*@nufunc2(kk+dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3*@nufunc2(kk+dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3*@nufunc2(kk+dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3*@nufunc2(kk-dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3*@nufunc2(kk-dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3*@nufunc2(kk-dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3*@nufunc2(kk-dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3*@nufunc2(kk-dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3*@nufunc2(kk-dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3*@nufunc5(ff-gg)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3*@nufunc5(ff-gg)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3*@nufunc5(ff-gg)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3*@nufunc5(ff-gg)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3*@nufunc5(ff-gg)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3*@nufunc5(ff-gg)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3*@nufunc2(kk*dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3*@nufunc2(kk*dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3*@nufunc2(kk*dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3*@nufunc2(kk*dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3*@nufunc2(kk*dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3*@nufunc2(kk*dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3*@nufunc2(kk/dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3*@nufunc2(kk/dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3*@nufunc2(kk/dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3*@nufunc2(kk/dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3*@nufunc2(kk/dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3*@nufunc2(kk/dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3*@nufunc5(ff/gg)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3*@nufunc5(ff/gg)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3*@nufunc5(ff/gg)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3*@nufunc5(ff/gg)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3*@nufunc5(ff/gg)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3*@nufunc5(ff/gg)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "/"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3*@nufunc2(kk+dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3*@nufunc2(kk+dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3*@nufunc2(kk+dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3*@nufunc2(kk+dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3*@nufunc2(kk+dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3*@nufunc2(kk+dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3*@nufunc2(kk-dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3*@nufunc2(kk-dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3*@nufunc2(kk-dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3*@nufunc2(kk-dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3*@nufunc2(kk-dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3*@nufunc2(kk-dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3*@nufunc5(ff-gg)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3*@nufunc5(ff-gg)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3*@nufunc5(ff-gg)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3*@nufunc5(ff-gg)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3*@nufunc5(ff-gg)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3*@nufunc5(ff-gg)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3*@nufunc2(kk*dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3*@nufunc2(kk*dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3*@nufunc2(kk*dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3*@nufunc2(kk*dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3*@nufunc2(kk*dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3*@nufunc2(kk*dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3*@nufunc2(kk/dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3*@nufunc2(kk/dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3*@nufunc2(kk/dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3*@nufunc2(kk/dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3*@nufunc2(kk/dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3*@nufunc2(kk/dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3*@nufunc5(ff/gg)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3*@nufunc5(ff/gg)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3*@nufunc5(ff/gg)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3*@nufunc5(ff/gg)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3*@nufunc5(ff/gg)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3*@nufunc5(ff/gg)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "^"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3*@nufunc2(kk+dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3*@nufunc2(kk+dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3*@nufunc2(kk+dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3*@nufunc2(kk+dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3*@nufunc2(kk+dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3*@nufunc2(kk+dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3*@nufunc2(kk-dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3*@nufunc2(kk-dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3*@nufunc2(kk-dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3*@nufunc2(kk-dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3*@nufunc2(kk-dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3*@nufunc2(kk-dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3*@nufunc5(ff-gg)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3*@nufunc5(ff-gg)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3*@nufunc5(ff-gg)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3*@nufunc5(ff-gg)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3*@nufunc5(ff-gg)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3*@nufunc5(ff-gg)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3*@nufunc2(kk*dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3*@nufunc2(kk*dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3*@nufunc2(kk*dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3*@nufunc2(kk*dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3*@nufunc2(kk*dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3*@nufunc2(kk*dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3*@nufunc2(kk/dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3*@nufunc2(kk/dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3*@nufunc2(kk/dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3*@nufunc2(kk/dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3*@nufunc2(kk/dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3*@nufunc2(kk/dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3*@nufunc5(ff/gg)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3*@nufunc5(ff/gg)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3*@nufunc5(ff/gg)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3*@nufunc5(ff/gg)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3*@nufunc5(ff/gg)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3*@nufunc5(ff/gg)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   endif
   elseif @change == "10"
    if @op == "+"
     if @mmode2 == "z+|z|"
      if @mmode3 == "z+|z|"
      z1 = aa^@exp3/@nufunc2(kk+dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3/@nufunc2(kk+dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3/@nufunc2(kk+dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3/@nufunc2(kk+dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3/@nufunc2(kk+dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3/@nufunc2(kk+dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z-|z|"
      if @mmode3 == "z+|z|"
      z1 = aa^@exp3/@nufunc2(kk-dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3/@nufunc2(kk-dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3/@nufunc2(kk-dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3/@nufunc2(kk-dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3/@nufunc2(kk-dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3/@nufunc2(kk-dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "|z|-z"
      if @mmode3 == "z+|z|"
     z1 = aa^@exp3/@nufunc5(ff-gg)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3/@nufunc5(ff-gg)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3/@nufunc5(ff-gg)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3/@nufunc5(ff-gg)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3/@nufunc5(ff-gg)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3/@nufunc5(ff-gg)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z*|z|"
      if @mmode3 == "z+|z|"
      z1 = aa^@exp3/@nufunc2(kk*dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3/@nufunc2(kk*dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3/@nufunc2(kk*dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3/@nufunc2(kk*dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3/@nufunc2(kk*dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3/@nufunc2(kk*dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z/|z|"
      if @mmode3 == "z+|z|"
      z1 = aa^@exp3/@nufunc2(kk/dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3/@nufunc2(kk/dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3/@nufunc2(kk/dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3/@nufunc2(kk/dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3/@nufunc2(kk/dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3/@nufunc2(kk/dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "|z|/z"
      if @mmode3 == "z+|z|"
      z1 = aa^@exp3/@nufunc5(ff/gg)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3/@nufunc5(ff/gg)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3/@nufunc5(ff/gg)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3/@nufunc5(ff/gg)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3/@nufunc5(ff/gg)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3/@nufunc5(ff/gg)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "-"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3/@nufunc2(kk+dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3/@nufunc2(kk+dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3/@nufunc2(kk+dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3/@nufunc2(kk+dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3/@nufunc2(kk+dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3/@nufunc2(kk+dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3/@nufunc2(kk-dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3/@nufunc2(kk-dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3/@nufunc2(kk-dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3/@nufunc2(kk-dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3/@nufunc2(kk-dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3/@nufunc2(kk-dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3/@nufunc5(ff-gg)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3/@nufunc5(ff-gg)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3/@nufunc5(ff-gg)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3/@nufunc5(ff-gg)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3/@nufunc5(ff-gg)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3/@nufunc5(ff-gg)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3/@nufunc2(kk*dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3/@nufunc2(kk*dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3/@nufunc2(kk*dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3/@nufunc2(kk*dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3/@nufunc2(kk*dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3/@nufunc2(kk*dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3/@nufunc2(kk/dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3/@nufunc2(kk/dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3/@nufunc2(kk/dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3/@nufunc2(kk/dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3/@nufunc2(kk/dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3/@nufunc2(kk/dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3/@nufunc5(ff/gg)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3/@nufunc5(ff/gg)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3/@nufunc5(ff/gg)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3/@nufunc5(ff/gg)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3/@nufunc5(ff/gg)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3/@nufunc5(ff/gg)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "*"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3/@nufunc2(kk+dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3/@nufunc2(kk+dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3/@nufunc2(kk+dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3/@nufunc2(kk+dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3/@nufunc2(kk+dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3/@nufunc2(kk+dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3/@nufunc2(kk-dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3/@nufunc2(kk-dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3/@nufunc2(kk-dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3/@nufunc2(kk-dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3/@nufunc2(kk-dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3/@nufunc2(kk-dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3/@nufunc5(ff-gg)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3/@nufunc5(ff-gg)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3/@nufunc5(ff-gg)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3/@nufunc5(ff-gg)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3/@nufunc5(ff-gg)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3/@nufunc5(ff-gg)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3/@nufunc2(kk*dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3/@nufunc2(kk*dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3/@nufunc2(kk*dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3/@nufunc2(kk*dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3/@nufunc2(kk*dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3/@nufunc2(kk*dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3/@nufunc2(kk/dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3/@nufunc2(kk/dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3/@nufunc2(kk/dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3/@nufunc2(kk/dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3/@nufunc2(kk/dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3/@nufunc2(kk/dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3/@nufunc5(ff/gg)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3/@nufunc5(ff/gg)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3/@nufunc5(ff/gg)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3/@nufunc5(ff/gg)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3/@nufunc5(ff/gg)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3/@nufunc5(ff/gg)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "/"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3/@nufunc2(kk+dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3/@nufunc2(kk+dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3/@nufunc2(kk+dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3/@nufunc2(kk+dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3/@nufunc2(kk+dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3/@nufunc2(kk+dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3/@nufunc2(kk-dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3/@nufunc2(kk-dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3/@nufunc2(kk-dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3/@nufunc2(kk-dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3/@nufunc2(kk-dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3/@nufunc2(kk-dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3/@nufunc5(ff-gg)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3/@nufunc5(ff-gg)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3/@nufunc5(ff-gg)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3/@nufunc5(ff-gg)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3/@nufunc5(ff-gg)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3/@nufunc5(ff-gg)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3/@nufunc2(kk*dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3/@nufunc2(kk*dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3/@nufunc2(kk*dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3/@nufunc2(kk*dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3/@nufunc2(kk*dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3/@nufunc2(kk*dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3/@nufunc2(kk/dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3/@nufunc2(kk/dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3/@nufunc2(kk/dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3/@nufunc2(kk/dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3/@nufunc2(kk/dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3/@nufunc2(kk/dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3/@nufunc5(ff/gg)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3/@nufunc5(ff/gg)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3/@nufunc5(ff/gg)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3/@nufunc5(ff/gg)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3/@nufunc5(ff/gg)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3/@nufunc5(ff/gg)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "^"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3/@nufunc2(kk+dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3/@nufunc2(kk+dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3/@nufunc2(kk+dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3/@nufunc2(kk+dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3/@nufunc2(kk+dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3/@nufunc2(kk+dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3/@nufunc2(kk-dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3/@nufunc2(kk-dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3/@nufunc2(kk-dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3/@nufunc2(kk-dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3/@nufunc2(kk-dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3/@nufunc2(kk-dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3/@nufunc5(ff-gg)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3/@nufunc5(ff-gg)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3/@nufunc5(ff-gg)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3/@nufunc5(ff-gg)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3/@nufunc5(ff-gg)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3/@nufunc5(ff-gg)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3/@nufunc2(kk*dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3/@nufunc2(kk*dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3/@nufunc2(kk*dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3/@nufunc2(kk*dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3/@nufunc2(kk*dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3/@nufunc2(kk*dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3/@nufunc2(kk/dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3/@nufunc2(kk/dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3/@nufunc2(kk/dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3/@nufunc2(kk/dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3/@nufunc2(kk/dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3/@nufunc2(kk/dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3/@nufunc5(ff/gg)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3/@nufunc5(ff/gg)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3/@nufunc5(ff/gg)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3/@nufunc5(ff/gg)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3/@nufunc5(ff/gg)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3/@nufunc5(ff/gg)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   endif
   elseif @change == "11"
    if @op == "+"
     if @mmode2 == "z+|z|"
      if @mmode3 == "z+|z|"
      z1 = aa^@exp3^@nufunc2(kk+dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3^@nufunc2(kk+dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3^@nufunc2(kk+dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3^@nufunc2(kk+dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3^@nufunc2(kk+dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3^@nufunc2(kk+dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z-|z|"
      if @mmode3 == "z+|z|"
      z1 = aa^@exp3^@nufunc2(kk-dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3^@nufunc2(kk-dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3^@nufunc2(kk-dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3^@nufunc2(kk-dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3^@nufunc2(kk-dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3^@nufunc2(kk-dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "|z|-z"
      if @mmode3 == "z+|z|"
     z1 = aa^@exp3^@nufunc5(ff-gg)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3^@nufunc5(ff-gg)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3^@nufunc5(ff-gg)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3^@nufunc5(ff-gg)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3^@nufunc5(ff-gg)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3^@nufunc5(ff-gg)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z*|z|"
      if @mmode3 == "z+|z|"
      z1 = aa^@exp3^@nufunc2(kk*dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3^@nufunc2(kk*dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3^@nufunc2(kk*dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3^@nufunc2(kk*dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3^@nufunc2(kk*dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3^@nufunc2(kk*dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z/|z|"
      if @mmode3 == "z+|z|"
      z1 = aa^@exp3^@nufunc2(kk/dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3^@nufunc2(kk/dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3^@nufunc2(kk/dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3^@nufunc2(kk/dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3^@nufunc2(kk/dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3^@nufunc2(kk/dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "|z|/z"
      if @mmode3 == "z+|z|"
      z1 = aa^@exp3^@nufunc5(ff/gg)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3^@nufunc5(ff/gg)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3^@nufunc5(ff/gg)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3^@nufunc5(ff/gg)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3^@nufunc5(ff/gg)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3^@nufunc5(ff/gg)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "-"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3^@nufunc2(kk+dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3^@nufunc2(kk+dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3^@nufunc2(kk+dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3^@nufunc2(kk+dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3^@nufunc2(kk+dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3^@nufunc2(kk+dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3^@nufunc2(kk-dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3^@nufunc2(kk-dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3^@nufunc2(kk-dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3^@nufunc2(kk-dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3^@nufunc2(kk-dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3^@nufunc2(kk-dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3^@nufunc5(ff-gg)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3^@nufunc5(ff-gg)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3^@nufunc5(ff-gg)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3^@nufunc5(ff-gg)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3^@nufunc5(ff-gg)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3^@nufunc5(ff-gg)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3^@nufunc2(kk*dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3^@nufunc2(kk*dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3^@nufunc2(kk*dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3^@nufunc2(kk*dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3^@nufunc2(kk*dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3^@nufunc2(kk*dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3^@nufunc2(kk/dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3^@nufunc2(kk/dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3^@nufunc2(kk/dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3^@nufunc2(kk/dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3^@nufunc2(kk/dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3^@nufunc2(kk/dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3^@nufunc5(ff/gg)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3^@nufunc5(ff/gg)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3^@nufunc5(ff/gg)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3^@nufunc5(ff/gg)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3^@nufunc5(ff/gg)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3^@nufunc5(ff/gg)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "*"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3^@nufunc2(kk+dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3^@nufunc2(kk+dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3^@nufunc2(kk+dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3^@nufunc2(kk+dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3^@nufunc2(kk+dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3^@nufunc2(kk+dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3^@nufunc2(kk-dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3^@nufunc2(kk-dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3^@nufunc2(kk-dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3^@nufunc2(kk-dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3^@nufunc2(kk-dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3^@nufunc2(kk-dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3^@nufunc5(ff-gg)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3^@nufunc5(ff-gg)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3^@nufunc5(ff-gg)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3^@nufunc5(ff-gg)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3^@nufunc5(ff-gg)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3^@nufunc5(ff-gg)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3^@nufunc2(kk*dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3^@nufunc2(kk*dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3^@nufunc2(kk*dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3^@nufunc2(kk*dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3^@nufunc2(kk*dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3^@nufunc2(kk*dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3^@nufunc2(kk/dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3^@nufunc2(kk/dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3^@nufunc2(kk/dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3^@nufunc2(kk/dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3^@nufunc2(kk/dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3^@nufunc2(kk/dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3^@nufunc5(ff/gg)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3^@nufunc5(ff/gg)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3^@nufunc5(ff/gg)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3^@nufunc5(ff/gg)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3^@nufunc5(ff/gg)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3^@nufunc5(ff/gg)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "/"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3^@nufunc2(kk+dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3^@nufunc2(kk+dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3^@nufunc2(kk+dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3^@nufunc2(kk+dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3^@nufunc2(kk+dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3^@nufunc2(kk+dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3^@nufunc2(kk-dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3^@nufunc2(kk-dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3^@nufunc2(kk-dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3^@nufunc2(kk-dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3^@nufunc2(kk-dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3^@nufunc2(kk-dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3^@nufunc5(ff-gg)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3^@nufunc5(ff-gg)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3^@nufunc5(ff-gg)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3^@nufunc5(ff-gg)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3^@nufunc5(ff-gg)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3^@nufunc5(ff-gg)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3^@nufunc2(kk*dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3^@nufunc2(kk*dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3^@nufunc2(kk*dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3^@nufunc2(kk*dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3^@nufunc2(kk*dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3^@nufunc2(kk*dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3^@nufunc2(kk/dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3^@nufunc2(kk/dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3^@nufunc2(kk/dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3^@nufunc2(kk/dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3^@nufunc2(kk/dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3^@nufunc2(kk/dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3^@nufunc5(ff/gg)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3^@nufunc5(ff/gg)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3^@nufunc5(ff/gg)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3^@nufunc5(ff/gg)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3^@nufunc5(ff/gg)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3^@nufunc5(ff/gg)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "^"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3^@nufunc2(kk+dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3^@nufunc2(kk+dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3^@nufunc2(kk+dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3^@nufunc2(kk+dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3^@nufunc2(kk+dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3^@nufunc2(kk+dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3^@nufunc2(kk-dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3^@nufunc2(kk-dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3^@nufunc2(kk-dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3^@nufunc2(kk-dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3^@nufunc2(kk-dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3^@nufunc2(kk-dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3^@nufunc5(ff-gg)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3^@nufunc5(ff-gg)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3^@nufunc5(ff-gg)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3^@nufunc5(ff-gg)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3^@nufunc5(ff-gg)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3^@nufunc5(ff-gg)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3^@nufunc2(kk*dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3^@nufunc2(kk*dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3^@nufunc2(kk*dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3^@nufunc2(kk*dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3^@nufunc2(kk*dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3^@nufunc2(kk*dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3^@nufunc2(kk/dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3^@nufunc2(kk/dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3^@nufunc2(kk/dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3^@nufunc2(kk/dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3^@nufunc2(kk/dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3^@nufunc2(kk/dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = aa^@exp3^@nufunc5(ff/gg)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = aa^@exp3^@nufunc5(ff/gg)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = aa^@exp3^@nufunc5(ff/gg)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = aa^@exp3^@nufunc5(ff/gg)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = aa^@exp3^@nufunc5(ff/gg)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = aa^@exp3^@nufunc5(ff/gg)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   endif
  endif

 elseif @mmode == "z-|z|"
   if @change == "1"
     z1 = bb^@exp1

   elseif @change == "2"
    if @mmode2 == "z+|z|"
     z1 = bb^@exp3+@nufunc2(kk+dd)^@exp1
    elseif @mmode2 == "z-|z|"
     z1 = bb^@exp3+@nufunc2(kk-dd)^@exp1
    elseif @mmode2 == "|z|-z"
     z1 = bb^@exp3+@nufunc5(ff-gg)^@exp1
    elseif @mmode2 == "z*|z|"
     z1 = bb^@exp3+@nufunc2(kk*dd)^@exp1
    elseif @mmode2 == "z/|z|"
     z1 = bb^@exp3+@nufunc2(kk/dd)^@exp1
    elseif @mmode2 == "|z|/z"
     z1 = bb^@exp3+@nufunc5(ff/gg)^@exp1
    endif

   elseif @change == "3"
    if @mmode2 == "z+|z|"
     z1 = bb^@exp3-@nufunc2(kk+dd)^@exp1
    elseif @mmode2 == "z-|z|"
     z1 = bb^@exp3-@nufunc2(kk-dd)^@exp1
    elseif @mmode2 == "|z|-z"
     z1 = bb^@exp3-@nufunc5(ff-gg)^@exp1
    elseif @mmode2 == "z*|z|"
     z1 = bb^@exp3-@nufunc2(kk*dd)^@exp1
    elseif @mmode2 == "z/|z|"
     z1 = bb^@exp3-@nufunc2(kk/dd)^@exp1
    elseif @mmode2 == "|z|/z"
     z1 = bb^@exp3-@nufunc5(ff/gg)^@exp1
    endif

   elseif @change == "4"
    if @mmode2 == "z+|z|"
     z1 = bb^@exp3*@nufunc2(kk+dd)^@exp1
    elseif @mmode2 == "z-|z|"
     z1 = bb^@exp3*@nufunc2(kk-dd)^@exp1
    elseif @mmode2 == "|z|-z"
     z1 = bb^@exp3*@nufunc5(ff-gg)^@exp1
    elseif @mmode2 == "z*|z|"
     z1 = bb^@exp3*@nufunc2(kk*dd)^@exp1
    elseif @mmode2 == "z/|z|"
     z1 = bb^@exp3*@nufunc2(kk/dd)^@exp1
    elseif @mmode2 == "|z|/z"
     z1 = bb^@exp3*@nufunc5(ff/gg)^@exp1
    endif

   elseif @change == "5"
    if @mmode2 == "z+|z|"
     z1 = bb^@exp3/@nufunc2(kk+dd)^@exp1
    elseif @mmode2 == "z-|z|"
     z1 = bb^@exp3/@nufunc2(kk-dd)^@exp1
    elseif @mmode2 == "|z|-z"
     z1 = bb^@exp3/@nufunc5(ff-gg)^@exp1
    elseif @mmode2 == "z*|z|"
     z1 = bb^@exp3/@nufunc2(kk*dd)^@exp1
    elseif @mmode2 == "z/|z|"
     z1 = bb^@exp3/@nufunc2(kk/dd)^@exp1
    elseif @mmode2 == "|z|/z"
     z1 = bb^@exp3/@nufunc5(ff/gg)^@exp1
    endif

   elseif @change == "6"
    if @mmode2 == "z+|z|"
     z1 = bb^@exp3^@nufunc2(kk+dd)^@exp1
    elseif @mmode2 == "z-|z|"
     z1 = bb^@exp3^@nufunc2(kk-dd)^@exp1
    elseif @mmode2 == "|z|-z"
     z1 = bb^@exp3^@nufunc5(ff-gg)^@exp1
    elseif @mmode2 == "z*|z|"
     z1 = bb^@exp3^@nufunc2(kk*dd)^@exp1
    elseif @mmode2 == "z/|z|"
     z1 = bb^@exp3^@nufunc2(kk/dd)^@exp1
    elseif @mmode2 == "|z|/z"
     z1 = bb^@exp3^@nufunc5(ff/gg)^@exp1
    endif

   elseif @change == "7"
    if @op == "+"
     if @mmode2 == "z+|z|"
      if @mmode3 == "z+|z|"
       z1 = bb^@exp3+@nufunc2(kk+dd)^@exp1+@nufunc3(oo+hh)^@exp2
      elseif @mmode3 == "z-|z|"
       z1 = bb^@exp3+@nufunc2(kk+dd)^@exp1+@nufunc3(oo-hh)^@exp2
      elseif @mmode3 == "|z|-z"
       z1 = bb^@exp3+@nufunc2(kk+dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
      elseif @mmode3 == "z*|z|"
       z1 = bb^@exp3+@nufunc2(kk+dd)^@exp1+@nufunc3(oo*hh)^@exp2
      elseif @mmode3 == "z/|z|"
       z1 = bb^@exp3+@nufunc2(kk+dd)^@exp1+@nufunc3(oo/hh)^@exp2
      elseif @mmode3 == "|z|/z"
       z1 = bb^@exp3+@nufunc2(kk+dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
      endif
     elseif @mmode2 == "z-|z|"
      if @mmode3 == "z+|z|"
       z1 = bb^@exp3+@nufunc2(kk-dd)^@exp1+@nufunc3(oo+hh)^@exp2
      elseif @mmode3 == "z-|z|"
       z1 = bb^@exp3+@nufunc2(kk-dd)^@exp1+@nufunc3(oo-hh)^@exp2
      elseif @mmode3 == "|z|-z"
       z1 = bb^@exp3+@nufunc2(kk-dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
      elseif @mmode3 == "z*|z|"
       z1 = bb^@exp3+@nufunc2(kk-dd)^@exp1+@nufunc3(oo*hh)^@exp2
      elseif @mmode3 == "z/|z|"
       z1 = bb^@exp3+@nufunc2(kk-dd)^@exp1+@nufunc3(oo/hh)^@exp2
      elseif @mmode3 == "|z|/z"
       z1 = bb^@exp3+@nufunc2(kk-dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
      endif
     elseif @mmode2 == "|z|-z"
      if @mmode3 == "z+|z|"
       z1 = bb^@exp3+@nufunc5(ff-gg)^@exp1+@nufunc3(oo+hh)^@exp2
      elseif @mmode3 == "z-|z|"
       z1 = bb^@exp3+@nufunc5(ff-gg)^@exp1+@nufunc3(oo-hh)^@exp2
      elseif @mmode3 == "|z|-z"
       z1 = bb^@exp3+@nufunc5(ff-gg)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
      elseif @mmode3 == "z*|z|"
       z1 = bb^@exp3+@nufunc5(ff-gg)^@exp1+@nufunc3(oo*hh)^@exp2
      elseif @mmode3 == "z/|z|"
       z1 = bb^@exp3+@nufunc5(ff-gg)^@exp1+@nufunc3(oo/hh)^@exp2
      elseif @mmode3 == "|z|/z"
       z1 = bb^@exp3+@nufunc5(ff-gg)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
      endif
      elseif @mmode2 == "z*|z|"
       if @mmode3 == "z+|z|"
       z1 = bb^@exp3+@nufunc2(kk*dd)^@exp1+@nufunc3(oo+hh)^@exp2
      elseif @mmode3 == "z-|z|"
       z1 = bb^@exp3+@nufunc2(kk*dd)^@exp1+@nufunc3(oo-hh)^@exp2
      elseif @mmode3 == "|z|-z"
       z1 = bb^@exp3+@nufunc2(kk*dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
      elseif @mmode3 == "z*|z|"
       z1 = bb^@exp3+@nufunc2(kk*dd)^@exp1+@nufunc3(oo*hh)^@exp2
      elseif @mmode3 == "z/|z|"
       z1 = bb^@exp3+@nufunc2(kk*dd)^@exp1+@nufunc3(oo/hh)^@exp2
      elseif @mmode3 == "|z|/z"
       z1 = bb^@exp3+@nufunc2(kk*dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
      endif
     elseif @mmode2 == "z/|z|"
      if @mmode3 == "z+|z|"
       z1 = bb^@exp3+@nufunc2(kk/dd)^@exp1+@nufunc3(oo+hh)^@exp2
      elseif @mmode3 == "z-|z|"
       z1 = bb^@exp3+@nufunc2(kk/dd)^@exp1+@nufunc3(oo-hh)^@exp2
      elseif @mmode3 == "|z|-z"
       z1 = bb^@exp3+@nufunc2(kk/dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
      elseif @mmode3 == "z*|z|"
       z1 = bb^@exp3+@nufunc2(kk/dd)^@exp1+@nufunc3(oo*hh)^@exp2
      elseif @mmode3 == "z/|z|"
       z1 = bb^@exp3+@nufunc2(kk/dd)^@exp1+@nufunc3(oo/ hh)^@exp2
      elseif @mmode3 == "|z|/z"
       z1 = bb^@exp3+@nufunc2(kk/dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
      endif
     elseif @mmode2 == "|z|/z"
      if @mmode3 == "z+|z|"
       z1 = bb^@exp3+@nufunc5(ff/gg)^@exp1+@nufunc3(oo+hh)^@exp2
      elseif @mmode3 == "z-|z|"
       z1 = bb^@exp3+@nufunc5(ff/gg)^@exp1+@nufunc3(oo-hh)^@exp2
      elseif @mmode3 == "|z|-z"
       z1 = bb^@exp3+@nufunc5(ff/gg)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
      elseif @mmode3 == "z*|z|"
       z1 = bb^@exp3+@nufunc5(ff/gg)^@exp1+@nufunc3(oo*hh)^@exp2
      elseif @mmode3 == "z/|z|"
       z1 = bb^@exp3+@nufunc5(ff/gg)^@exp1+@nufunc3(oo/hh)^@exp2
      elseif @mmode3 == "|z|/z"
       z1 = bb^@exp3+@nufunc5(ff/gg)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
      endif
     endif
   elseif @op == "-"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3+@nufunc2(kk+dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3+@nufunc2(kk+dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3+@nufunc2(kk+dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3+@nufunc2(kk+dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3+@nufunc2(kk+dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3+@nufunc2(kk+dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3+@nufunc2(kk-dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3+@nufunc2(kk-dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3+@nufunc2(kk-dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3+@nufunc2(kk-dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3+@nufunc2(kk-dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3+@nufunc2(kk-dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3+@nufunc5(ff-gg)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3+@nufunc5(ff-gg)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3+@nufunc5(ff-gg)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3+@nufunc5(ff-gg)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3+@nufunc5(ff-gg)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3+@nufunc5(ff-gg)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3+@nufunc2(kk*dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3+@nufunc2(kk*dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3+@nufunc2(kk*dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3+@nufunc2(kk*dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3+@nufunc2(kk*dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3+@nufunc2(kk*dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3+@nufunc2(kk/dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3+@nufunc2(kk/dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3+@nufunc2(kk/dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3+@nufunc2(kk/dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3+@nufunc2(kk/dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3+@nufunc2(kk/dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3+@nufunc5(ff/gg)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3+@nufunc5(ff/gg)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3+@nufunc5(ff/gg)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3+@nufunc5(ff/gg)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3+@nufunc5(ff/gg)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3+@nufunc5(ff/gg)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "*"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3+@nufunc2(kk+dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3+@nufunc2(kk+dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3+@nufunc2(kk+dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3+@nufunc2(kk+dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3+@nufunc2(kk+dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3+@nufunc2(kk+dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3+@nufunc2(kk-dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3+@nufunc2(kk-dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3+@nufunc2(kk-dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3+@nufunc2(kk-dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3+@nufunc2(kk-dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3+@nufunc2(kk-dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3+@nufunc5(ff-gg)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3+@nufunc5(ff-gg)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3+@nufunc5(ff-gg)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3+@nufunc5(ff-gg)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3+@nufunc5(ff-gg)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3+@nufunc5(ff-gg)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3+@nufunc2(kk*dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3+@nufunc2(kk*dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3+@nufunc2(kk*dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3+@nufunc2(kk*dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3+@nufunc2(kk*dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3+@nufunc2(kk*dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3+@nufunc2(kk/dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3+@nufunc2(kk/dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3+@nufunc2(kk/dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3+@nufunc2(kk/dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3+@nufunc2(kk/dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3+@nufunc2(kk/dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3+@nufunc5(ff/gg)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3+@nufunc5(ff/gg)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3+@nufunc5(ff/gg)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3+@nufunc5(ff/gg)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3+@nufunc5(ff/gg)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3+@nufunc5(ff/gg)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "/"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3+@nufunc2(kk+dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3+@nufunc2(kk+dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3+@nufunc2(kk+dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3+@nufunc2(kk+dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3+@nufunc2(kk+dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3+@nufunc2(kk+dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3+@nufunc2(kk-dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3+@nufunc2(kk-dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3+@nufunc2(kk-dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3+@nufunc2(kk-dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3+@nufunc2(kk-dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3+@nufunc2(kk-dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3+@nufunc5(ff-gg)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3+@nufunc5(ff-gg)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3+@nufunc5(ff-gg)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3+@nufunc5(ff-gg)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3+@nufunc5(ff-gg)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3+@nufunc5(ff-gg)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3+@nufunc2(kk*dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3+@nufunc2(kk*dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3+@nufunc2(kk*dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3+@nufunc2(kk*dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3+@nufunc2(kk*dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3+@nufunc2(kk*dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3+@nufunc2(kk/dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3+@nufunc2(kk/dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3+@nufunc2(kk/dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3+@nufunc2(kk/dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3+@nufunc2(kk/dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3+@nufunc2(kk/dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3+@nufunc5(ff/gg)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3+@nufunc5(ff/gg)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3+@nufunc5(ff/gg)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3+@nufunc5(ff/gg)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3+@nufunc5(ff/gg)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3+@nufunc5(ff/gg)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "^"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3+@nufunc2(kk+dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3+@nufunc2(kk+dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3+@nufunc2(kk+dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3+@nufunc2(kk+dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3+@nufunc2(kk+dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3+@nufunc2(kk+dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3+@nufunc2(kk-dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3+@nufunc2(kk-dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3+@nufunc2(kk-dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3+@nufunc2(kk-dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3+@nufunc2(kk-dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3+@nufunc2(kk-dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3+@nufunc5(ff-gg)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3+@nufunc5(ff-gg)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3+@nufunc5(ff-gg)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3+@nufunc5(ff-gg)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3+@nufunc5(ff-gg)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3+@nufunc5(ff-gg)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3+@nufunc2(kk*dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3+@nufunc2(kk*dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3+@nufunc2(kk*dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3+@nufunc2(kk*dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3+@nufunc2(kk*dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3+@nufunc2(kk*dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3+@nufunc2(kk/dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3+@nufunc2(kk/dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3+@nufunc2(kk/dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3+@nufunc2(kk/dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3+@nufunc2(kk/dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3+@nufunc2(kk/dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3+@nufunc5(ff/gg)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3+@nufunc5(ff/gg)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3+@nufunc5(ff/gg)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3+@nufunc5(ff/gg)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3+@nufunc5(ff/gg)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3+@nufunc5(ff/gg)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   endif
   elseif @change == "8"
    if @op == "+"
     if @mmode2 == "z+|z|"
      if @mmode3 == "z+|z|"
      z1 = bb^@exp3-@nufunc2(kk+dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3-@nufunc2(kk+dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3-@nufunc2(kk+dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3-@nufunc2(kk+dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3-@nufunc2(kk+dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3-@nufunc2(kk+dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z-|z|"
      if @mmode3 == "z+|z|"
      z1 = bb^@exp3-@nufunc2(kk-dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3-@nufunc2(kk-dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3-@nufunc2(kk-dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3-@nufunc2(kk-dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3-@nufunc2(kk-dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3-@nufunc2(kk-dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "|z|-z"
      if @mmode3 == "z+|z|"
      z1 = bb^@exp3-@nufunc5(ff-gg)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3-@nufunc5(ff-gg)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3-@nufunc5(ff-gg)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3-@nufunc5(ff-gg)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3-@nufunc5(ff-gg)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3-@nufunc5(ff-gg)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z*|z|"
      if @mmode3 == "z+|z|"
      z1 = bb^@exp3-@nufunc2(kk*dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3-@nufunc2(kk*dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3-@nufunc2(kk*dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3-@nufunc2(kk*dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3-@nufunc2(kk*dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3-@nufunc2(kk*dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z/|z|"
      if @mmode3 == "z+|z|"
      z1 = bb^@exp3-@nufunc2(kk/dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3-@nufunc2(kk/dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3-@nufunc2(kk/dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3-@nufunc2(kk/dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3-@nufunc2(kk/dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3-@nufunc2(kk/dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "|z|/z"
      if @mmode3 == "z+|z|"
     z1 = bb^@exp3-@nufunc5(ff/gg)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3-@nufunc5(ff/gg)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3-@nufunc5(ff/gg)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3-@nufunc5(ff/gg)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3-@nufunc5(ff/gg)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3-@nufunc5(ff/gg)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "-"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3-@nufunc2(kk+dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3-@nufunc2(kk+dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3-@nufunc2(kk+dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3-@nufunc2(kk+dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3-@nufunc2(kk+dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3-@nufunc2(kk+dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3-@nufunc2(kk-dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3-@nufunc2(kk-dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3-@nufunc2(kk-dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3-@nufunc2(kk-dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3-@nufunc2(kk-dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3-@nufunc2(kk-dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3-@nufunc5(ff-gg)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3-@nufunc5(ff-gg)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3-@nufunc5(ff-gg)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3-@nufunc5(ff-gg)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3-@nufunc5(ff-gg)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3-@nufunc5(ff-gg)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3-@nufunc2(kk*dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3-@nufunc2(kk*dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3-@nufunc2(kk*dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3-@nufunc2(kk*dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3-@nufunc2(kk*dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3-@nufunc2(kk*dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3-@nufunc2(kk/dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3-@nufunc2(kk/dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3-@nufunc2(kk/dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3-@nufunc2(kk/dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3-@nufunc2(kk/dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3-@nufunc2(kk/dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3-@nufunc5(ff/gg)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3-@nufunc5(ff/gg)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3-@nufunc5(ff/gg)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3-@nufunc5(ff/gg)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3-@nufunc5(ff/gg)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3-@nufunc5(ff/gg)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "*"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3-@nufunc2(kk+dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3-@nufunc2(kk+dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3-@nufunc2(kk+dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3-@nufunc2(kk+dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3-@nufunc2(kk+dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3-@nufunc2(kk+dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3-@nufunc2(kk-dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3-@nufunc2(kk-dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3-@nufunc2(kk-dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3-@nufunc2(kk-dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3-@nufunc2(kk-dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3-@nufunc2(kk-dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3-@nufunc5(ff-gg)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3-@nufunc5(ff-gg)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3-@nufunc5(ff-gg)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3-@nufunc5(ff-gg)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3-@nufunc5(ff-gg)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3-@nufunc5(ff-gg)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3-@nufunc2(kk*dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3-@nufunc2(kk*dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3-@nufunc2(kk*dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3-@nufunc2(kk*dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3-@nufunc2(kk*dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3-@nufunc2(kk*dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3-@nufunc2(kk/dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3-@nufunc2(kk/dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3-@nufunc2(kk/dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3-@nufunc2(kk/dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3-@nufunc2(kk/dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3-@nufunc2(kk/dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3-@nufunc5(ff/gg)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3-@nufunc5(ff/gg)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3-@nufunc5(ff/gg)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3-@nufunc5(ff/gg)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3-@nufunc5(ff/gg)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3-@nufunc5(ff/gg)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "/"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3-@nufunc2(kk+dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3-@nufunc2(kk+dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3-@nufunc2(kk+dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3-@nufunc2(kk+dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3-@nufunc2(kk+dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3-@nufunc2(kk+dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3-@nufunc2(kk-dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3-@nufunc2(kk-dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3-@nufunc2(kk-dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3-@nufunc2(kk-dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3-@nufunc2(kk-dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3-@nufunc2(kk-dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3-@nufunc5(ff-gg)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3-@nufunc5(ff-gg)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3-@nufunc5(ff-gg)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3-@nufunc5(ff-gg)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3-@nufunc5(ff-gg)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3-@nufunc5(ff-gg)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3-@nufunc2(kk*dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3-@nufunc2(kk*dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3-@nufunc2(kk*dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3-@nufunc2(kk*dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3-@nufunc2(kk*dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3-@nufunc2(kk*dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3-@nufunc2(kk/dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3-@nufunc2(kk/dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3-@nufunc2(kk/dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3-@nufunc2(kk/dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3-@nufunc2(kk/dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3-@nufunc2(kk/dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3-@nufunc5(ff/gg)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3-@nufunc5(ff/gg)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3-@nufunc5(ff/gg)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3-@nufunc5(ff/gg)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3-@nufunc5(ff/gg)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3-@nufunc5(ff/gg)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "^"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3-@nufunc2(kk+dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3-@nufunc2(kk+dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3-@nufunc2(kk+dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3-@nufunc2(kk+dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3-@nufunc2(kk+dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3-@nufunc2(kk+dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3-@nufunc2(kk-dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3-@nufunc2(kk-dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3-@nufunc2(kk-dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3-@nufunc2(kk-dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3-@nufunc2(kk-dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3-@nufunc2(kk-dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3-@nufunc5(ff-gg)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3-@nufunc5(ff-gg)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3-@nufunc5(ff-gg)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3-@nufunc5(ff-gg)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3-@nufunc5(ff-gg)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3-@nufunc5(ff-gg)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3-@nufunc2(kk*dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3-@nufunc2(kk*dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3-@nufunc2(kk*dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3-@nufunc2(kk*dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3-@nufunc2(kk*dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3-@nufunc2(kk*dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3-@nufunc2(kk/dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3-@nufunc2(kk/dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3-@nufunc2(kk/dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3-@nufunc2(kk/dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3-@nufunc2(kk/dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3-@nufunc2(kk/dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3-@nufunc5(ff/gg)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3-@nufunc5(ff/gg)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3-@nufunc5(ff/gg)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3-@nufunc5(ff/gg)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3-@nufunc5(ff/gg)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3-@nufunc5(ff/gg)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   endif
   elseif @change == "9"
    if @op == "+"
     if @mmode2 == "z+|z|"
      if @mmode3 == "z+|z|"
      z1 = bb^@exp3*@nufunc2(kk+dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3*@nufunc2(kk+dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3*@nufunc2(kk+dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3*@nufunc2(kk+dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3*@nufunc2(kk+dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3*@nufunc2(kk+dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z-|z|"
      if @mmode3 == "z+|z|"
      z1 = bb^@exp3*@nufunc2(kk-dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3*@nufunc2(kk-dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3*@nufunc2(kk-dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3*@nufunc2(kk-dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3*@nufunc2(kk-dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3*@nufunc2(kk-dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "|z|-z"
      if @mmode3 == "z+|z|"
     z1 = bb^@exp3*@nufunc5(ff-gg)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3*@nufunc5(ff-gg)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3*@nufunc5(ff-gg)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3*@nufunc5(ff-gg)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3*@nufunc5(ff-gg)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3*@nufunc5(ff-gg)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z*|z|"
      if @mmode3 == "z+|z|"
      z1 = bb^@exp3*@nufunc2(kk*dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3*@nufunc2(kk*dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3*@nufunc2(kk*dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3*@nufunc2(kk*dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3*@nufunc2(kk*dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3*@nufunc2(kk*dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z/|z|"
      if @mmode3 == "z+|z|"
      z1 = bb^@exp3*@nufunc2(kk/dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3*@nufunc2(kk/dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3*@nufunc2(kk/dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3*@nufunc2(kk/dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3*@nufunc2(kk/dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3*@nufunc2(kk/dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "|z|/z"
      if @mmode3 == "z+|z|"
      z1 = bb^@exp3*@nufunc5(ff/gg)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3*@nufunc5(ff/gg)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3*@nufunc5(ff/gg)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3*@nufunc5(ff/gg)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3*@nufunc5(ff/gg)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3*@nufunc5(ff/gg)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "-"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3*@nufunc2(kk+dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3*@nufunc2(kk+dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3*@nufunc2(kk+dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3*@nufunc2(kk+dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3*@nufunc2(kk+dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3*@nufunc2(kk+dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3*@nufunc2(kk-dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3*@nufunc2(kk-dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3*@nufunc2(kk-dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3*@nufunc2(kk-dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3*@nufunc2(kk-dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3*@nufunc2(kk-dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3*@nufunc5(ff-gg)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3*@nufunc5(ff-gg)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3*@nufunc5(ff-gg)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3*@nufunc5(ff-gg)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3*@nufunc5(ff-gg)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3*@nufunc5(ff-gg)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3*@nufunc2(kk*dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3*@nufunc2(kk*dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3*@nufunc2(kk*dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3*@nufunc2(kk*dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3*@nufunc2(kk*dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3*@nufunc2(kk*dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3*@nufunc2(kk/dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3*@nufunc2(kk/dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3*@nufunc2(kk/dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3*@nufunc2(kk/dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3*@nufunc2(kk/dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3*@nufunc2(kk/dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3*@nufunc5(ff/gg)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3*@nufunc5(ff/gg)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3*@nufunc5(ff/gg)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3*@nufunc5(ff/gg)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3*@nufunc5(ff/gg)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3*@nufunc5(ff/gg)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "*"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3*@nufunc2(kk+dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3*@nufunc2(kk+dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3*@nufunc2(kk+dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3*@nufunc2(kk+dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3*@nufunc2(kk+dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3*@nufunc2(kk+dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3*@nufunc2(kk-dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3*@nufunc2(kk-dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3*@nufunc2(kk-dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3*@nufunc2(kk-dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3*@nufunc2(kk-dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3*@nufunc2(kk-dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3*@nufunc5(ff-gg)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3*@nufunc5(ff-gg)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3*@nufunc5(ff-gg)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3*@nufunc5(ff-gg)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3*@nufunc5(ff-gg)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3*@nufunc5(ff-gg)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3*@nufunc2(kk*dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3*@nufunc2(kk*dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3*@nufunc2(kk*dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3*@nufunc2(kk*dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3*@nufunc2(kk*dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3*@nufunc2(kk*dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3*@nufunc2(kk/dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3*@nufunc2(kk/dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3*@nufunc2(kk/dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3*@nufunc2(kk/dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3*@nufunc2(kk/dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3*@nufunc2(kk/dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3*@nufunc5(ff/gg)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3*@nufunc5(ff/gg)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3*@nufunc5(ff/gg)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3*@nufunc5(ff/gg)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3*@nufunc5(ff/gg)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3*@nufunc5(ff/gg)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "/"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3*@nufunc2(kk+dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3*@nufunc2(kk+dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3*@nufunc2(kk+dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3*@nufunc2(kk+dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3*@nufunc2(kk+dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3*@nufunc2(kk+dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3*@nufunc2(kk-dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3*@nufunc2(kk-dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3*@nufunc2(kk-dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3*@nufunc2(kk-dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3*@nufunc2(kk-dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3*@nufunc2(kk-dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3*@nufunc5(ff-gg)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3*@nufunc5(ff-gg)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3*@nufunc5(ff-gg)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3*@nufunc5(ff-gg)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3*@nufunc5(ff-gg)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3*@nufunc5(ff-gg)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3*@nufunc2(kk*dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3*@nufunc2(kk*dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3*@nufunc2(kk*dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3*@nufunc2(kk*dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3*@nufunc2(kk*dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3*@nufunc2(kk*dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3*@nufunc2(kk/dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3*@nufunc2(kk/dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3*@nufunc2(kk/dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3*@nufunc2(kk/dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3*@nufunc2(kk/dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3*@nufunc2(kk/dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3*@nufunc5(ff/gg)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3*@nufunc5(ff/gg)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3*@nufunc5(ff/gg)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3*@nufunc5(ff/gg)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3*@nufunc5(ff/gg)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3*@nufunc5(ff/gg)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "^"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3*@nufunc2(kk+dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3*@nufunc2(kk+dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3*@nufunc2(kk+dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3*@nufunc2(kk+dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3*@nufunc2(kk+dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3*@nufunc2(kk+dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3*@nufunc2(kk-dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3*@nufunc2(kk-dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3*@nufunc2(kk-dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3*@nufunc2(kk-dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3*@nufunc2(kk-dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3*@nufunc2(kk-dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3*@nufunc5(ff-gg)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3*@nufunc5(ff-gg)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3*@nufunc5(ff-gg)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3*@nufunc5(ff-gg)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3*@nufunc5(ff-gg)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3*@nufunc5(ff-gg)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3*@nufunc2(kk*dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3*@nufunc2(kk*dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3*@nufunc2(kk*dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3*@nufunc2(kk*dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3*@nufunc2(kk*dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3*@nufunc2(kk*dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3*@nufunc2(kk/dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3*@nufunc2(kk/dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3*@nufunc2(kk/dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3*@nufunc2(kk/dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3*@nufunc2(kk/dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3*@nufunc2(kk/dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3*@nufunc5(ff/gg)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3*@nufunc5(ff/gg)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3*@nufunc5(ff/gg)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3*@nufunc5(ff/gg)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3*@nufunc5(ff/gg)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3*@nufunc5(ff/gg)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   endif
   elseif @change == "10"
    if @op == "+"
     if @mmode2 == "z+|z|"
      if @mmode3 == "z+|z|"
      z1 = bb^@exp3/@nufunc2(kk+dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3/@nufunc2(kk+dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3/@nufunc2(kk+dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3/@nufunc2(kk+dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3/@nufunc2(kk+dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3/@nufunc2(kk+dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z-|z|"
      if @mmode3 == "z+|z|"
      z1 = bb^@exp3/@nufunc2(kk-dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3/@nufunc2(kk-dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3/@nufunc2(kk-dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3/@nufunc2(kk-dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3/@nufunc2(kk-dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3/@nufunc2(kk-dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "|z|-z"
      if @mmode3 == "z+|z|"
     z1 = bb^@exp3/@nufunc5(ff-gg)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3/@nufunc5(ff-gg)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3/@nufunc5(ff-gg)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3/@nufunc5(ff-gg)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3/@nufunc5(ff-gg)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3/@nufunc5(ff-gg)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z*|z|"
      if @mmode3 == "z+|z|"
      z1 = bb^@exp3/@nufunc2(kk*dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3/@nufunc2(kk*dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3/@nufunc2(kk*dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3/@nufunc2(kk*dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3/@nufunc2(kk*dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3/@nufunc2(kk*dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z/|z|"
      if @mmode3 == "z+|z|"
      z1 = bb^@exp3/@nufunc2(kk/dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3/@nufunc2(kk/dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3/@nufunc2(kk/dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3/@nufunc2(kk/dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3/@nufunc2(kk/dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3/@nufunc2(kk/dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "|z|/z"
      if @mmode3 == "z+|z|"
      z1 = bb^@exp3/@nufunc5(ff/gg)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3/@nufunc5(ff/gg)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3/@nufunc5(ff/gg)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3/@nufunc5(ff/gg)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3/@nufunc5(ff/gg)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3/@nufunc5(ff/gg)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "-"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3/@nufunc2(kk+dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3/@nufunc2(kk+dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3/@nufunc2(kk+dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3/@nufunc2(kk+dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3/@nufunc2(kk+dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3/@nufunc2(kk+dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3/@nufunc2(kk-dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3/@nufunc2(kk-dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3/@nufunc2(kk-dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3/@nufunc2(kk-dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3/@nufunc2(kk-dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3/@nufunc2(kk-dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3/@nufunc5(ff-gg)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3/@nufunc5(ff-gg)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3/@nufunc5(ff-gg)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3/@nufunc5(ff-gg)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3/@nufunc5(ff-gg)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3/@nufunc5(ff-gg)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3/@nufunc2(kk*dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3/@nufunc2(kk*dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3/@nufunc2(kk*dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3/@nufunc2(kk*dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3/@nufunc2(kk*dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3/@nufunc2(kk*dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3/@nufunc2(kk/dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3/@nufunc2(kk/dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3/@nufunc2(kk/dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3/@nufunc2(kk/dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3/@nufunc2(kk/dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3/@nufunc2(kk/dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3/@nufunc5(ff/gg)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3/@nufunc5(ff/gg)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3/@nufunc5(ff/gg)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3/@nufunc5(ff/gg)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3/@nufunc5(ff/gg)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3/@nufunc5(ff/gg)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "*"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3/@nufunc2(kk+dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3/@nufunc2(kk+dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3/@nufunc2(kk+dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3/@nufunc2(kk+dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3/@nufunc2(kk+dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3/@nufunc2(kk+dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3/@nufunc2(kk-dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3/@nufunc2(kk-dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3/@nufunc2(kk-dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3/@nufunc2(kk-dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3/@nufunc2(kk-dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3/@nufunc2(kk-dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3/@nufunc5(ff-gg)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3/@nufunc5(ff-gg)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3/@nufunc5(ff-gg)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3/@nufunc5(ff-gg)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3/@nufunc5(ff-gg)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3/@nufunc5(ff-gg)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3/@nufunc2(kk*dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3/@nufunc2(kk*dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3/@nufunc2(kk*dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3/@nufunc2(kk*dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3/@nufunc2(kk*dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3/@nufunc2(kk*dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3/@nufunc2(kk/dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3/@nufunc2(kk/dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3/@nufunc2(kk/dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3/@nufunc2(kk/dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3/@nufunc2(kk/dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3/@nufunc2(kk/dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3/@nufunc5(ff/gg)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3/@nufunc5(ff/gg)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3/@nufunc5(ff/gg)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3/@nufunc5(ff/gg)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3/@nufunc5(ff/gg)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3/@nufunc5(ff/gg)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "/"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3/@nufunc2(kk+dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3/@nufunc2(kk+dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3/@nufunc2(kk+dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3/@nufunc2(kk+dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3/@nufunc2(kk+dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3/@nufunc2(kk+dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3/@nufunc2(kk-dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3/@nufunc2(kk-dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3/@nufunc2(kk-dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3/@nufunc2(kk-dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3/@nufunc2(kk-dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3/@nufunc2(kk-dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3/@nufunc5(ff-gg)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3/@nufunc5(ff-gg)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3/@nufunc5(ff-gg)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3/@nufunc5(ff-gg)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3/@nufunc5(ff-gg)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3/@nufunc5(ff-gg)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3/@nufunc2(kk*dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3/@nufunc2(kk*dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3/@nufunc2(kk*dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3/@nufunc2(kk*dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3/@nufunc2(kk*dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3/@nufunc2(kk*dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3/@nufunc2(kk/dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3/@nufunc2(kk/dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3/@nufunc2(kk/dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3/@nufunc2(kk/dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3/@nufunc2(kk/dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3/@nufunc2(kk/dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3/@nufunc5(ff/gg)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3/@nufunc5(ff/gg)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3/@nufunc5(ff/gg)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3/@nufunc5(ff/gg)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3/@nufunc5(ff/gg)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3/@nufunc5(ff/gg)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "^"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3/@nufunc2(kk+dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3/@nufunc2(kk+dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3/@nufunc2(kk+dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3/@nufunc2(kk+dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3/@nufunc2(kk+dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3/@nufunc2(kk+dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3/@nufunc2(kk-dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3/@nufunc2(kk-dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3/@nufunc2(kk-dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3/@nufunc2(kk-dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3/@nufunc2(kk-dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3/@nufunc2(kk-dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3/@nufunc5(ff-gg)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3/@nufunc5(ff-gg)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3/@nufunc5(ff-gg)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3/@nufunc5(ff-gg)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3/@nufunc5(ff-gg)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3/@nufunc5(ff-gg)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3/@nufunc2(kk*dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3/@nufunc2(kk*dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3/@nufunc2(kk*dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3/@nufunc2(kk*dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3/@nufunc2(kk*dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3/@nufunc2(kk*dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3/@nufunc2(kk/dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3/@nufunc2(kk/dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3/@nufunc2(kk/dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3/@nufunc2(kk/dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3/@nufunc2(kk/dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3/@nufunc2(kk/dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3/@nufunc5(ff/gg)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3/@nufunc5(ff/gg)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3/@nufunc5(ff/gg)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3/@nufunc5(ff/gg)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3/@nufunc5(ff/gg)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3/@nufunc5(ff/gg)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   endif
   elseif @change == "11"
    if @op == "+"
     if @mmode2 == "z+|z|"
      if @mmode3 == "z+|z|"
      z1 = bb^@exp3^@nufunc2(kk+dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3^@nufunc2(kk+dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3^@nufunc2(kk+dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3^@nufunc2(kk+dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3^@nufunc2(kk+dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3^@nufunc2(kk+dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z-|z|"
      if @mmode3 == "z+|z|"
      z1 = bb^@exp3^@nufunc2(kk-dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3^@nufunc2(kk-dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3^@nufunc2(kk-dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3^@nufunc2(kk-dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3^@nufunc2(kk-dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3^@nufunc2(kk-dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "|z|-z"
      if @mmode3 == "z+|z|"
     z1 = bb^@exp3^@nufunc5(ff-gg)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3^@nufunc5(ff-gg)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3^@nufunc5(ff-gg)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3^@nufunc5(ff-gg)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3^@nufunc5(ff-gg)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3^@nufunc5(ff-gg)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z*|z|"
      if @mmode3 == "z+|z|"
      z1 = bb^@exp3^@nufunc2(kk*dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3^@nufunc2(kk*dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3^@nufunc2(kk*dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3^@nufunc2(kk*dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3^@nufunc2(kk*dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3^@nufunc2(kk*dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z/|z|"
      if @mmode3 == "z+|z|"
      z1 = bb^@exp3^@nufunc2(kk/dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3^@nufunc2(kk/dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3^@nufunc2(kk/dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3^@nufunc2(kk/dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3^@nufunc2(kk/dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3^@nufunc2(kk/dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "|z|/z"
      if @mmode3 == "z+|z|"
      z1 = bb^@exp3^@nufunc5(ff/gg)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3^@nufunc5(ff/gg)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3^@nufunc5(ff/gg)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3^@nufunc5(ff/gg)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3^@nufunc5(ff/gg)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3^@nufunc5(ff/gg)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "-"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3^@nufunc2(kk+dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3^@nufunc2(kk+dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3^@nufunc2(kk+dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3^@nufunc2(kk+dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3^@nufunc2(kk+dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3^@nufunc2(kk+dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3^@nufunc2(kk-dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3^@nufunc2(kk-dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3^@nufunc2(kk-dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3^@nufunc2(kk-dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3^@nufunc2(kk-dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3^@nufunc2(kk-dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3^@nufunc5(ff-gg)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3^@nufunc5(ff-gg)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3^@nufunc5(ff-gg)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3^@nufunc5(ff-gg)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3^@nufunc5(ff-gg)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3^@nufunc5(ff-gg)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3^@nufunc2(kk*dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3^@nufunc2(kk*dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3^@nufunc2(kk*dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3^@nufunc2(kk*dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3^@nufunc2(kk*dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3^@nufunc2(kk*dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3^@nufunc2(kk/dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3^@nufunc2(kk/dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3^@nufunc2(kk/dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3^@nufunc2(kk/dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3^@nufunc2(kk/dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3^@nufunc2(kk/dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3^@nufunc5(ff/gg)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3^@nufunc5(ff/gg)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3^@nufunc5(ff/gg)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3^@nufunc5(ff/gg)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3^@nufunc5(ff/gg)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3^@nufunc5(ff/gg)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "*"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3^@nufunc2(kk+dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3^@nufunc2(kk+dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3^@nufunc2(kk+dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3^@nufunc2(kk+dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3^@nufunc2(kk+dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3^@nufunc2(kk+dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3^@nufunc2(kk-dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3^@nufunc2(kk-dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3^@nufunc2(kk-dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3^@nufunc2(kk-dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3^@nufunc2(kk-dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3^@nufunc2(kk-dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3^@nufunc5(ff-gg)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3^@nufunc5(ff-gg)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3^@nufunc5(ff-gg)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3^@nufunc5(ff-gg)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3^@nufunc5(ff-gg)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3^@nufunc5(ff-gg)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3^@nufunc2(kk*dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3^@nufunc2(kk*dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3^@nufunc2(kk*dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3^@nufunc2(kk*dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3^@nufunc2(kk*dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3^@nufunc2(kk*dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3^@nufunc2(kk/dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3^@nufunc2(kk/dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3^@nufunc2(kk/dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3^@nufunc2(kk/dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3^@nufunc2(kk/dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3^@nufunc2(kk/dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3^@nufunc5(ff/gg)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3^@nufunc5(ff/gg)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3^@nufunc5(ff/gg)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3^@nufunc5(ff/gg)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3^@nufunc5(ff/gg)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3^@nufunc5(ff/gg)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "/"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3^@nufunc2(kk+dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3^@nufunc2(kk+dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3^@nufunc2(kk+dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3^@nufunc2(kk+dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3^@nufunc2(kk+dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3^@nufunc2(kk+dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3^@nufunc2(kk-dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3^@nufunc2(kk-dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3^@nufunc2(kk-dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3^@nufunc2(kk-dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3^@nufunc2(kk-dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3^@nufunc2(kk-dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3^@nufunc5(ff-gg)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3^@nufunc5(ff-gg)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3^@nufunc5(ff-gg)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3^@nufunc5(ff-gg)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3^@nufunc5(ff-gg)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3^@nufunc5(ff-gg)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3^@nufunc2(kk*dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3^@nufunc2(kk*dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3^@nufunc2(kk*dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3^@nufunc2(kk*dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3^@nufunc2(kk*dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3^@nufunc2(kk*dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3^@nufunc2(kk/dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3^@nufunc2(kk/dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3^@nufunc2(kk/dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3^@nufunc2(kk/dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3^@nufunc2(kk/dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3^@nufunc2(kk/dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3^@nufunc5(ff/gg)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3^@nufunc5(ff/gg)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3^@nufunc5(ff/gg)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3^@nufunc5(ff/gg)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3^@nufunc5(ff/gg)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3^@nufunc5(ff/gg)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "^"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3^@nufunc2(kk+dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3^@nufunc2(kk+dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3^@nufunc2(kk+dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3^@nufunc2(kk+dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3^@nufunc2(kk+dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3^@nufunc2(kk+dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3^@nufunc2(kk-dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3^@nufunc2(kk-dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3^@nufunc2(kk-dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3^@nufunc2(kk-dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3^@nufunc2(kk-dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3^@nufunc2(kk-dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3^@nufunc5(ff-gg)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3^@nufunc5(ff-gg)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3^@nufunc5(ff-gg)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3^@nufunc5(ff-gg)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3^@nufunc5(ff-gg)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3^@nufunc5(ff-gg)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3^@nufunc2(kk*dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3^@nufunc2(kk*dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3^@nufunc2(kk*dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3^@nufunc2(kk*dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3^@nufunc2(kk*dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3^@nufunc2(kk*dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3^@nufunc2(kk/dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3^@nufunc2(kk/dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3^@nufunc2(kk/dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3^@nufunc2(kk/dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3^@nufunc2(kk/dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3^@nufunc2(kk/dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = bb^@exp3^@nufunc5(ff/gg)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = bb^@exp3^@nufunc5(ff/gg)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = bb^@exp3^@nufunc5(ff/gg)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = bb^@exp3^@nufunc5(ff/gg)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = bb^@exp3^@nufunc5(ff/gg)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = bb^@exp3^@nufunc5(ff/gg)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   endif
  endif

 elseif @mmode == "|z|-z"
   if @change == "1"
     z1 = cc^@exp1

   elseif @change == "2"
    if @mmode2 == "z+|z|"
     z1 = cc^@exp3+@nufunc2(kk+dd)^@exp1
    elseif @mmode2 == "z-|z|"
     z1 = cc^@exp3+@nufunc2(kk-dd)^@exp1
    elseif @mmode2 == "|z|-z"
     z1 = cc^@exp3+@nufunc5(ff-gg)^@exp1
    elseif @mmode2 == "z*|z|"
     z1 = cc^@exp3+@nufunc2(kk*dd)^@exp1
    elseif @mmode2 == "z/|z|"
     z1 = cc^@exp3+@nufunc2(kk/dd)^@exp1
    elseif @mmode2 == "|z|/z"
     z1 = cc^@exp3+@nufunc5(ff/gg)^@exp1
    endif

   elseif @change == "3"
    if @mmode2 == "z+|z|"
     z1 = cc^@exp3-@nufunc2(kk+dd)^@exp1
    elseif @mmode2 == "z-|z|"
     z1 = cc^@exp3-@nufunc2(kk-dd)^@exp1
    elseif @mmode2 == "|z|-z"
     z1 = cc^@exp3-@nufunc5(ff-gg)^@exp1
    elseif @mmode2 == "z*|z|"
     z1 = cc^@exp3-@nufunc2(kk*dd)^@exp1
    elseif @mmode2 == "z/|z|"
     z1 = cc^@exp3-@nufunc2(kk/dd)^@exp1
    elseif @mmode2 == "|z|/z"
     z1 = cc^@exp3-@nufunc5(ff/gg)^@exp1
    endif

   elseif @change == "4"
    if @mmode2 == "z+|z|"
     z1 = cc^@exp3*@nufunc2(kk+dd)^@exp1
    elseif @mmode2 == "z-|z|"
     z1 = cc^@exp3*@nufunc2(kk-dd)^@exp1
    elseif @mmode2 == "|z|-z"
     z1 = cc^@exp3*@nufunc5(ff-gg)^@exp1
    elseif @mmode2 == "z*|z|"
     z1 = cc^@exp3*@nufunc2(kk*dd)^@exp1
    elseif @mmode2 == "z/|z|"
     z1 = cc^@exp3*@nufunc2(kk/dd)^@exp1
    elseif @mmode2 == "|z|/z"
     z1 = cc^@exp3*@nufunc5(ff/gg)^@exp1
    endif

   elseif @change == "5"
    if @mmode2 == "z+|z|"
     z1 = cc^@exp3/@nufunc2(kk+dd)^@exp1
    elseif @mmode2 == "z-|z|"
     z1 = cc^@exp3/@nufunc2(kk-dd)^@exp1
    elseif @mmode2 == "|z|-z"
     z1 = cc^@exp3/@nufunc5(ff-gg)^@exp1
    elseif @mmode2 == "z*|z|"
     z1 = cc^@exp3/@nufunc2(kk*dd)^@exp1
    elseif @mmode2 == "z/|z|"
     z1 = cc^@exp3/@nufunc2(kk/dd)^@exp1
    elseif @mmode2 == "|z|/z"
     z1 = cc^@exp3/@nufunc5(ff/gg)^@exp1
    endif

   elseif @change == "6"
    if @mmode2 == "z+|z|"
     z1 = cc^@exp3^@nufunc2(kk+dd)^@exp1
    elseif @mmode2 == "z-|z|"
     z1 = cc^@exp3^@nufunc2(kk-dd)^@exp1
    elseif @mmode2 == "|z|-z"
     z1 = cc^@exp3^@nufunc5(ff-gg)^@exp1
    elseif @mmode2 == "z*|z|"
     z1 = cc^@exp3^@nufunc2(kk*dd)^@exp1
    elseif @mmode2 == "z/|z|"
     z1 = cc^@exp3^@nufunc2(kk/dd)^@exp1
    elseif @mmode2 == "|z|/z"
     z1 = cc^@exp3^@nufunc5(ff/gg)^@exp1
    endif

   elseif @change == "7"
    if @op == "+"
     if @mmode2 == "z+|z|"
      if @mmode3 == "z+|z|"
       z1 = cc^@exp3+@nufunc2(kk+dd)^@exp1+@nufunc3(oo+hh)^@exp2
      elseif @mmode3 == "z-|z|"
       z1 = cc^@exp3+@nufunc2(kk+dd)^@exp1+@nufunc3(oo-hh)^@exp2
      elseif @mmode3 == "|z|-z"
       z1 = cc^@exp3+@nufunc2(kk+dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
      elseif @mmode3 == "z*|z|"
       z1 = cc^@exp3+@nufunc2(kk+dd)^@exp1+@nufunc3(oo*hh)^@exp2
      elseif @mmode3 == "z/|z|"
       z1 = cc^@exp3+@nufunc2(kk+dd)^@exp1+@nufunc3(oo/hh)^@exp2
      elseif @mmode3 == "|z|/z"
       z1 = cc^@exp3+@nufunc2(kk+dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
      endif
     elseif @mmode2 == "z-|z|"
      if @mmode3 == "z+|z|"
       z1 = cc^@exp3+@nufunc2(kk-dd)^@exp1+@nufunc3(oo+hh)^@exp2
      elseif @mmode3 == "z-|z|"
       z1 = cc^@exp3+@nufunc2(kk-dd)^@exp1+@nufunc3(oo-hh)^@exp2
      elseif @mmode3 == "|z|-z"
       z1 = cc^@exp3+@nufunc2(kk-dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
      elseif @mmode3 == "z*|z|"
       z1 = cc^@exp3+@nufunc2(kk-dd)^@exp1+@nufunc3(oo*hh)^@exp2
      elseif @mmode3 == "z/|z|"
       z1 = cc^@exp3+@nufunc2(kk-dd)^@exp1+@nufunc3(oo/hh)^@exp2
      elseif @mmode3 == "|z|/z"
       z1 = cc^@exp3+@nufunc2(kk-dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
      endif
     elseif @mmode2 == "|z|-z"
      if @mmode3 == "z+|z|"
       z1 = cc^@exp3+@nufunc5(ff-gg)^@exp1+@nufunc3(oo+hh)^@exp2
      elseif @mmode3 == "z-|z|"
       z1 = cc^@exp3+@nufunc5(ff-gg)^@exp1+@nufunc3(oo-hh)^@exp2
      elseif @mmode3 == "|z|-z"
       z1 = cc^@exp3+@nufunc5(ff-gg)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
      elseif @mmode3 == "z*|z|"
       z1 = cc^@exp3+@nufunc5(ff-gg)^@exp1+@nufunc3(oo*hh)^@exp2
      elseif @mmode3 == "z/|z|"
       z1 = cc^@exp3+@nufunc5(ff-gg)^@exp1+@nufunc3(oo/hh)^@exp2
      elseif @mmode3 == "|z|/z"
       z1 = cc^@exp3+@nufunc5(ff-gg)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
      endif
      elseif @mmode2 == "z*|z|"
       if @mmode3 == "z+|z|"
       z1 = cc^@exp3+@nufunc2(kk*dd)^@exp1+@nufunc3(oo+hh)^@exp2
      elseif @mmode3 == "z-|z|"
       z1 = cc^@exp3+@nufunc2(kk*dd)^@exp1+@nufunc3(oo-hh)^@exp2
      elseif @mmode3 == "|z|-z"
       z1 = cc^@exp3+@nufunc2(kk*dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
      elseif @mmode3 == "z*|z|"
       z1 = cc^@exp3+@nufunc2(kk*dd)^@exp1+@nufunc3(oo*hh)^@exp2
      elseif @mmode3 == "z/|z|"
       z1 = cc^@exp3+@nufunc2(kk*dd)^@exp1+@nufunc3(oo/hh)^@exp2
      elseif @mmode3 == "|z|/z"
       z1 = cc^@exp3+@nufunc2(kk*dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
      endif
     elseif @mmode2 == "z/|z|"
      if @mmode3 == "z+|z|"
       z1 = cc^@exp3+@nufunc2(kk/dd)^@exp1+@nufunc3(oo+hh)^@exp2
      elseif @mmode3 == "z-|z|"
       z1 = cc^@exp3+@nufunc2(kk/dd)^@exp1+@nufunc3(oo-hh)^@exp2
      elseif @mmode3 == "|z|-z"
       z1 = cc^@exp3+@nufunc2(kk/dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
      elseif @mmode3 == "z*|z|"
       z1 = cc^@exp3+@nufunc2(kk/dd)^@exp1+@nufunc3(oo*hh)^@exp2
      elseif @mmode3 == "z/|z|"
       z1 = cc^@exp3+@nufunc2(kk/dd)^@exp1+@nufunc3(oo/ hh)^@exp2
      elseif @mmode3 == "|z|/z"
       z1 = cc^@exp3+@nufunc2(kk/dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
      endif
     elseif @mmode2 == "|z|/z"
      if @mmode3 == "z+|z|"
       z1 = cc^@exp3+@nufunc5(ff/gg)^@exp1+@nufunc3(oo+hh)^@exp2
      elseif @mmode3 == "z-|z|"
       z1 = cc^@exp3+@nufunc5(ff/gg)^@exp1+@nufunc3(oo-hh)^@exp2
      elseif @mmode3 == "|z|-z"
       z1 = cc^@exp3+@nufunc5(ff/gg)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
      elseif @mmode3 == "z*|z|"
       z1 = cc^@exp3+@nufunc5(ff/gg)^@exp1+@nufunc3(oo*hh)^@exp2
      elseif @mmode3 == "z/|z|"
       z1 = cc^@exp3+@nufunc5(ff/gg)^@exp1+@nufunc3(oo/hh)^@exp2
      elseif @mmode3 == "|z|/z"
       z1 = cc^@exp3+@nufunc5(ff/gg)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
      endif
     endif
   elseif @op == "-"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3+@nufunc2(kk+dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3+@nufunc2(kk+dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3+@nufunc2(kk+dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3+@nufunc2(kk+dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3+@nufunc2(kk+dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3+@nufunc2(kk+dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3+@nufunc2(kk-dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3+@nufunc2(kk-dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3+@nufunc2(kk-dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3+@nufunc2(kk-dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3+@nufunc2(kk-dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3+@nufunc2(kk-dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3+@nufunc5(ff-gg)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3+@nufunc5(ff-gg)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3+@nufunc5(ff-gg)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3+@nufunc5(ff-gg)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3+@nufunc5(ff-gg)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3+@nufunc5(ff-gg)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3+@nufunc2(kk*dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3+@nufunc2(kk*dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3+@nufunc2(kk*dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3+@nufunc2(kk*dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3+@nufunc2(kk*dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3+@nufunc2(kk*dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3+@nufunc2(kk/dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3+@nufunc2(kk/dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3+@nufunc2(kk/dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3+@nufunc2(kk/dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3+@nufunc2(kk/dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3+@nufunc2(kk/dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3+@nufunc5(ff/gg)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3+@nufunc5(ff/gg)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3+@nufunc5(ff/gg)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3+@nufunc5(ff/gg)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3+@nufunc5(ff/gg)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3+@nufunc5(ff/gg)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "*"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3+@nufunc2(kk+dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3+@nufunc2(kk+dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3+@nufunc2(kk+dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3+@nufunc2(kk+dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3+@nufunc2(kk+dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3+@nufunc2(kk+dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3+@nufunc2(kk-dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3+@nufunc2(kk-dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3+@nufunc2(kk-dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3+@nufunc2(kk-dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3+@nufunc2(kk-dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3+@nufunc2(kk-dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3+@nufunc5(ff-gg)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3+@nufunc5(ff-gg)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3+@nufunc5(ff-gg)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3+@nufunc5(ff-gg)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3+@nufunc5(ff-gg)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3+@nufunc5(ff-gg)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3+@nufunc2(kk*dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3+@nufunc2(kk*dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3+@nufunc2(kk*dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3+@nufunc2(kk*dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3+@nufunc2(kk*dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3+@nufunc2(kk*dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3+@nufunc2(kk/dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3+@nufunc2(kk/dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3+@nufunc2(kk/dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3+@nufunc2(kk/dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3+@nufunc2(kk/dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3+@nufunc2(kk/dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3+@nufunc5(ff/gg)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3+@nufunc5(ff/gg)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3+@nufunc5(ff/gg)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3+@nufunc5(ff/gg)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3+@nufunc5(ff/gg)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3+@nufunc5(ff/gg)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "/"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3+@nufunc2(kk+dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3+@nufunc2(kk+dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3+@nufunc2(kk+dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3+@nufunc2(kk+dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3+@nufunc2(kk+dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3+@nufunc2(kk+dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3+@nufunc2(kk-dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3+@nufunc2(kk-dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3+@nufunc2(kk-dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3+@nufunc2(kk-dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3+@nufunc2(kk-dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3+@nufunc2(kk-dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3+@nufunc5(ff-gg)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3+@nufunc5(ff-gg)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3+@nufunc5(ff-gg)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3+@nufunc5(ff-gg)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3+@nufunc5(ff-gg)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3+@nufunc5(ff-gg)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3+@nufunc2(kk*dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3+@nufunc2(kk*dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3+@nufunc2(kk*dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3+@nufunc2(kk*dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3+@nufunc2(kk*dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3+@nufunc2(kk*dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3+@nufunc2(kk/dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3+@nufunc2(kk/dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3+@nufunc2(kk/dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3+@nufunc2(kk/dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3+@nufunc2(kk/dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3+@nufunc2(kk/dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3+@nufunc5(ff/gg)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3+@nufunc5(ff/gg)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3+@nufunc5(ff/gg)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3+@nufunc5(ff/gg)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3+@nufunc5(ff/gg)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3+@nufunc5(ff/gg)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "^"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3+@nufunc2(kk+dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3+@nufunc2(kk+dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3+@nufunc2(kk+dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3+@nufunc2(kk+dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3+@nufunc2(kk+dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3+@nufunc2(kk+dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3+@nufunc2(kk-dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3+@nufunc2(kk-dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3+@nufunc2(kk-dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3+@nufunc2(kk-dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3+@nufunc2(kk-dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3+@nufunc2(kk-dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3+@nufunc5(ff-gg)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3+@nufunc5(ff-gg)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3+@nufunc5(ff-gg)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3+@nufunc5(ff-gg)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3+@nufunc5(ff-gg)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3+@nufunc5(ff-gg)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3+@nufunc2(kk*dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3+@nufunc2(kk*dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3+@nufunc2(kk*dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3+@nufunc2(kk*dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3+@nufunc2(kk*dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3+@nufunc2(kk*dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3+@nufunc2(kk/dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3+@nufunc2(kk/dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3+@nufunc2(kk/dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3+@nufunc2(kk/dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3+@nufunc2(kk/dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3+@nufunc2(kk/dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3+@nufunc5(ff/gg)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3+@nufunc5(ff/gg)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3+@nufunc5(ff/gg)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3+@nufunc5(ff/gg)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3+@nufunc5(ff/gg)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3+@nufunc5(ff/gg)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   endif
   elseif @change == "8"
    if @op == "+"
     if @mmode2 == "z+|z|"
      if @mmode3 == "z+|z|"
      z1 = cc^@exp3-@nufunc2(kk+dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3-@nufunc2(kk+dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3-@nufunc2(kk+dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3-@nufunc2(kk+dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3-@nufunc2(kk+dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3-@nufunc2(kk+dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z-|z|"
      if @mmode3 == "z+|z|"
      z1 = cc^@exp3-@nufunc2(kk-dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3-@nufunc2(kk-dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3-@nufunc2(kk-dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3-@nufunc2(kk-dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3-@nufunc2(kk-dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3-@nufunc2(kk-dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "|z|-z"
      if @mmode3 == "z+|z|"
      z1 = cc^@exp3-@nufunc5(ff-gg)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3-@nufunc5(ff-gg)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3-@nufunc5(ff-gg)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3-@nufunc5(ff-gg)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3-@nufunc5(ff-gg)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3-@nufunc5(ff-gg)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z*|z|"
      if @mmode3 == "z+|z|"
      z1 = cc^@exp3-@nufunc2(kk*dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3-@nufunc2(kk*dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3-@nufunc2(kk*dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3-@nufunc2(kk*dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3-@nufunc2(kk*dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3-@nufunc2(kk*dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z/|z|"
      if @mmode3 == "z+|z|"
      z1 = cc^@exp3-@nufunc2(kk/dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3-@nufunc2(kk/dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3-@nufunc2(kk/dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3-@nufunc2(kk/dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3-@nufunc2(kk/dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3-@nufunc2(kk/dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "|z|/z"
      if @mmode3 == "z+|z|"
     z1 = cc^@exp3-@nufunc5(ff/gg)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3-@nufunc5(ff/gg)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3-@nufunc5(ff/gg)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3-@nufunc5(ff/gg)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3-@nufunc5(ff/gg)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3-@nufunc5(ff/gg)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "-"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3-@nufunc2(kk+dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3-@nufunc2(kk+dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3-@nufunc2(kk+dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3-@nufunc2(kk+dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3-@nufunc2(kk+dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3-@nufunc2(kk+dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3-@nufunc2(kk-dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3-@nufunc2(kk-dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3-@nufunc2(kk-dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3-@nufunc2(kk-dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3-@nufunc2(kk-dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3-@nufunc2(kk-dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3-@nufunc5(ff-gg)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3-@nufunc5(ff-gg)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3-@nufunc5(ff-gg)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3-@nufunc5(ff-gg)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3-@nufunc5(ff-gg)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3-@nufunc5(ff-gg)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3-@nufunc2(kk*dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3-@nufunc2(kk*dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3-@nufunc2(kk*dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3-@nufunc2(kk*dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3-@nufunc2(kk*dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3-@nufunc2(kk*dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3-@nufunc2(kk/dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3-@nufunc2(kk/dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3-@nufunc2(kk/dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3-@nufunc2(kk/dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3-@nufunc2(kk/dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3-@nufunc2(kk/dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3-@nufunc5(ff/gg)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3-@nufunc5(ff/gg)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3-@nufunc5(ff/gg)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3-@nufunc5(ff/gg)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3-@nufunc5(ff/gg)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3-@nufunc5(ff/gg)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "*"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3-@nufunc2(kk+dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3-@nufunc2(kk+dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3-@nufunc2(kk+dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3-@nufunc2(kk+dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3-@nufunc2(kk+dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3-@nufunc2(kk+dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3-@nufunc2(kk-dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3-@nufunc2(kk-dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3-@nufunc2(kk-dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3-@nufunc2(kk-dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3-@nufunc2(kk-dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3-@nufunc2(kk-dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3-@nufunc5(ff-gg)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3-@nufunc5(ff-gg)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3-@nufunc5(ff-gg)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3-@nufunc5(ff-gg)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3-@nufunc5(ff-gg)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3-@nufunc5(ff-gg)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3-@nufunc2(kk*dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3-@nufunc2(kk*dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3-@nufunc2(kk*dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3-@nufunc2(kk*dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3-@nufunc2(kk*dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3-@nufunc2(kk*dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3-@nufunc2(kk/dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3-@nufunc2(kk/dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3-@nufunc2(kk/dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3-@nufunc2(kk/dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3-@nufunc2(kk/dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3-@nufunc2(kk/dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3-@nufunc5(ff/gg)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3-@nufunc5(ff/gg)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3-@nufunc5(ff/gg)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3-@nufunc5(ff/gg)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3-@nufunc5(ff/gg)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3-@nufunc5(ff/gg)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "/"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3-@nufunc2(kk+dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3-@nufunc2(kk+dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3-@nufunc2(kk+dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3-@nufunc2(kk+dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3-@nufunc2(kk+dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3-@nufunc2(kk+dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3-@nufunc2(kk-dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3-@nufunc2(kk-dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3-@nufunc2(kk-dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3-@nufunc2(kk-dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3-@nufunc2(kk-dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3-@nufunc2(kk-dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3-@nufunc5(ff-gg)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3-@nufunc5(ff-gg)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3-@nufunc5(ff-gg)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3-@nufunc5(ff-gg)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3-@nufunc5(ff-gg)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3-@nufunc5(ff-gg)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3-@nufunc2(kk*dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3-@nufunc2(kk*dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3-@nufunc2(kk*dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3-@nufunc2(kk*dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3-@nufunc2(kk*dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3-@nufunc2(kk*dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3-@nufunc2(kk/dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3-@nufunc2(kk/dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3-@nufunc2(kk/dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3-@nufunc2(kk/dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3-@nufunc2(kk/dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3-@nufunc2(kk/dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3-@nufunc5(ff/gg)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3-@nufunc5(ff/gg)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3-@nufunc5(ff/gg)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3-@nufunc5(ff/gg)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3-@nufunc5(ff/gg)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3-@nufunc5(ff/gg)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "^"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3-@nufunc2(kk+dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3-@nufunc2(kk+dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3-@nufunc2(kk+dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3-@nufunc2(kk+dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3-@nufunc2(kk+dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3-@nufunc2(kk+dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3-@nufunc2(kk-dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3-@nufunc2(kk-dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3-@nufunc2(kk-dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3-@nufunc2(kk-dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3-@nufunc2(kk-dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3-@nufunc2(kk-dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3-@nufunc5(ff-gg)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3-@nufunc5(ff-gg)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3-@nufunc5(ff-gg)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3-@nufunc5(ff-gg)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3-@nufunc5(ff-gg)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3-@nufunc5(ff-gg)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3-@nufunc2(kk*dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3-@nufunc2(kk*dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3-@nufunc2(kk*dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3-@nufunc2(kk*dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3-@nufunc2(kk*dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3-@nufunc2(kk*dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3-@nufunc2(kk/dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3-@nufunc2(kk/dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3-@nufunc2(kk/dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3-@nufunc2(kk/dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3-@nufunc2(kk/dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3-@nufunc2(kk/dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3-@nufunc5(ff/gg)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3-@nufunc5(ff/gg)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3-@nufunc5(ff/gg)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3-@nufunc5(ff/gg)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3-@nufunc5(ff/gg)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3-@nufunc5(ff/gg)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   endif
   elseif @change == "9"
    if @op == "+"
     if @mmode2 == "z+|z|"
      if @mmode3 == "z+|z|"
      z1 = cc^@exp3*@nufunc2(kk+dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3*@nufunc2(kk+dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3*@nufunc2(kk+dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3*@nufunc2(kk+dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3*@nufunc2(kk+dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3*@nufunc2(kk+dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z-|z|"
      if @mmode3 == "z+|z|"
      z1 = cc^@exp3*@nufunc2(kk-dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3*@nufunc2(kk-dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3*@nufunc2(kk-dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3*@nufunc2(kk-dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3*@nufunc2(kk-dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3*@nufunc2(kk-dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "|z|-z"
      if @mmode3 == "z+|z|"
     z1 = cc^@exp3*@nufunc5(ff-gg)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3*@nufunc5(ff-gg)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3*@nufunc5(ff-gg)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3*@nufunc5(ff-gg)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3*@nufunc5(ff-gg)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3*@nufunc5(ff-gg)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z*|z|"
      if @mmode3 == "z+|z|"
      z1 = cc^@exp3*@nufunc2(kk*dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3*@nufunc2(kk*dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3*@nufunc2(kk*dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3*@nufunc2(kk*dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3*@nufunc2(kk*dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3*@nufunc2(kk*dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z/|z|"
      if @mmode3 == "z+|z|"
      z1 = cc^@exp3*@nufunc2(kk/dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3*@nufunc2(kk/dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3*@nufunc2(kk/dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3*@nufunc2(kk/dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3*@nufunc2(kk/dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3*@nufunc2(kk/dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "|z|/z"
      if @mmode3 == "z+|z|"
      z1 = cc^@exp3*@nufunc5(ff/gg)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3*@nufunc5(ff/gg)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3*@nufunc5(ff/gg)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3*@nufunc5(ff/gg)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3*@nufunc5(ff/gg)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3*@nufunc5(ff/gg)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "-"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3*@nufunc2(kk+dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3*@nufunc2(kk+dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3*@nufunc2(kk+dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3*@nufunc2(kk+dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3*@nufunc2(kk+dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3*@nufunc2(kk+dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3*@nufunc2(kk-dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3*@nufunc2(kk-dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3*@nufunc2(kk-dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3*@nufunc2(kk-dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3*@nufunc2(kk-dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3*@nufunc2(kk-dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3*@nufunc5(ff-gg)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3*@nufunc5(ff-gg)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3*@nufunc5(ff-gg)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3*@nufunc5(ff-gg)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3*@nufunc5(ff-gg)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3*@nufunc5(ff-gg)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3*@nufunc2(kk*dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3*@nufunc2(kk*dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3*@nufunc2(kk*dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3*@nufunc2(kk*dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3*@nufunc2(kk*dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3*@nufunc2(kk*dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3*@nufunc2(kk/dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3*@nufunc2(kk/dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3*@nufunc2(kk/dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3*@nufunc2(kk/dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3*@nufunc2(kk/dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3*@nufunc2(kk/dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3*@nufunc5(ff/gg)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3*@nufunc5(ff/gg)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3*@nufunc5(ff/gg)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3*@nufunc5(ff/gg)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3*@nufunc5(ff/gg)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3*@nufunc5(ff/gg)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "*"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3*@nufunc2(kk+dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3*@nufunc2(kk+dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3*@nufunc2(kk+dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3*@nufunc2(kk+dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3*@nufunc2(kk+dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3*@nufunc2(kk+dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3*@nufunc2(kk-dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3*@nufunc2(kk-dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3*@nufunc2(kk-dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3*@nufunc2(kk-dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3*@nufunc2(kk-dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3*@nufunc2(kk-dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3*@nufunc5(ff-gg)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3*@nufunc5(ff-gg)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3*@nufunc5(ff-gg)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3*@nufunc5(ff-gg)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3*@nufunc5(ff-gg)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3*@nufunc5(ff-gg)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3*@nufunc2(kk*dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3*@nufunc2(kk*dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3*@nufunc2(kk*dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3*@nufunc2(kk*dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3*@nufunc2(kk*dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3*@nufunc2(kk*dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3*@nufunc2(kk/dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3*@nufunc2(kk/dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3*@nufunc2(kk/dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3*@nufunc2(kk/dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3*@nufunc2(kk/dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3*@nufunc2(kk/dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3*@nufunc5(ff/gg)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3*@nufunc5(ff/gg)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3*@nufunc5(ff/gg)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3*@nufunc5(ff/gg)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3*@nufunc5(ff/gg)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3*@nufunc5(ff/gg)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "/"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3*@nufunc2(kk+dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3*@nufunc2(kk+dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3*@nufunc2(kk+dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3*@nufunc2(kk+dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3*@nufunc2(kk+dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3*@nufunc2(kk+dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3*@nufunc2(kk-dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3*@nufunc2(kk-dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3*@nufunc2(kk-dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3*@nufunc2(kk-dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3*@nufunc2(kk-dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3*@nufunc2(kk-dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3*@nufunc5(ff-gg)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3*@nufunc5(ff-gg)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3*@nufunc5(ff-gg)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3*@nufunc5(ff-gg)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3*@nufunc5(ff-gg)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3*@nufunc5(ff-gg)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3*@nufunc2(kk*dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3*@nufunc2(kk*dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3*@nufunc2(kk*dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3*@nufunc2(kk*dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3*@nufunc2(kk*dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3*@nufunc2(kk*dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3*@nufunc2(kk/dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3*@nufunc2(kk/dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3*@nufunc2(kk/dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3*@nufunc2(kk/dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3*@nufunc2(kk/dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3*@nufunc2(kk/dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3*@nufunc5(ff/gg)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3*@nufunc5(ff/gg)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3*@nufunc5(ff/gg)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3*@nufunc5(ff/gg)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3*@nufunc5(ff/gg)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3*@nufunc5(ff/gg)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "^"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3*@nufunc2(kk+dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3*@nufunc2(kk+dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3*@nufunc2(kk+dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3*@nufunc2(kk+dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3*@nufunc2(kk+dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3*@nufunc2(kk+dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3*@nufunc2(kk-dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3*@nufunc2(kk-dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3*@nufunc2(kk-dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3*@nufunc2(kk-dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3*@nufunc2(kk-dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3*@nufunc2(kk-dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3*@nufunc5(ff-gg)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3*@nufunc5(ff-gg)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3*@nufunc5(ff-gg)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3*@nufunc5(ff-gg)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3*@nufunc5(ff-gg)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3*@nufunc5(ff-gg)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3*@nufunc2(kk*dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3*@nufunc2(kk*dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3*@nufunc2(kk*dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3*@nufunc2(kk*dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3*@nufunc2(kk*dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3*@nufunc2(kk*dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3*@nufunc2(kk/dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3*@nufunc2(kk/dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3*@nufunc2(kk/dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3*@nufunc2(kk/dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3*@nufunc2(kk/dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3*@nufunc2(kk/dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3*@nufunc5(ff/gg)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3*@nufunc5(ff/gg)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3*@nufunc5(ff/gg)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3*@nufunc5(ff/gg)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3*@nufunc5(ff/gg)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3*@nufunc5(ff/gg)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   endif
   elseif @change == "10"
    if @op == "+"
     if @mmode2 == "z+|z|"
      if @mmode3 == "z+|z|"
      z1 = cc^@exp3/@nufunc2(kk+dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3/@nufunc2(kk+dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3/@nufunc2(kk+dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3/@nufunc2(kk+dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3/@nufunc2(kk+dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3/@nufunc2(kk+dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z-|z|"
      if @mmode3 == "z+|z|"
      z1 = cc^@exp3/@nufunc2(kk-dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3/@nufunc2(kk-dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3/@nufunc2(kk-dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3/@nufunc2(kk-dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3/@nufunc2(kk-dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3/@nufunc2(kk-dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "|z|-z"
      if @mmode3 == "z+|z|"
     z1 = cc^@exp3/@nufunc5(ff-gg)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3/@nufunc5(ff-gg)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3/@nufunc5(ff-gg)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3/@nufunc5(ff-gg)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3/@nufunc5(ff-gg)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3/@nufunc5(ff-gg)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z*|z|"
      if @mmode3 == "z+|z|"
      z1 = cc^@exp3/@nufunc2(kk*dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3/@nufunc2(kk*dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3/@nufunc2(kk*dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3/@nufunc2(kk*dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3/@nufunc2(kk*dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3/@nufunc2(kk*dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z/|z|"
      if @mmode3 == "z+|z|"
      z1 = cc^@exp3/@nufunc2(kk/dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3/@nufunc2(kk/dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3/@nufunc2(kk/dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3/@nufunc2(kk/dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3/@nufunc2(kk/dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3/@nufunc2(kk/dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "|z|/z"
      if @mmode3 == "z+|z|"
      z1 = cc^@exp3/@nufunc5(ff/gg)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3/@nufunc5(ff/gg)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3/@nufunc5(ff/gg)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3/@nufunc5(ff/gg)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3/@nufunc5(ff/gg)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3/@nufunc5(ff/gg)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "-"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3/@nufunc2(kk+dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3/@nufunc2(kk+dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3/@nufunc2(kk+dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3/@nufunc2(kk+dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3/@nufunc2(kk+dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3/@nufunc2(kk+dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3/@nufunc2(kk-dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3/@nufunc2(kk-dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3/@nufunc2(kk-dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3/@nufunc2(kk-dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3/@nufunc2(kk-dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3/@nufunc2(kk-dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3/@nufunc5(ff-gg)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3/@nufunc5(ff-gg)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3/@nufunc5(ff-gg)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3/@nufunc5(ff-gg)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3/@nufunc5(ff-gg)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3/@nufunc5(ff-gg)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3/@nufunc2(kk*dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3/@nufunc2(kk*dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3/@nufunc2(kk*dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3/@nufunc2(kk*dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3/@nufunc2(kk*dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3/@nufunc2(kk*dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3/@nufunc2(kk/dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3/@nufunc2(kk/dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3/@nufunc2(kk/dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3/@nufunc2(kk/dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3/@nufunc2(kk/dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3/@nufunc2(kk/dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3/@nufunc5(ff/gg)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3/@nufunc5(ff/gg)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3/@nufunc5(ff/gg)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3/@nufunc5(ff/gg)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3/@nufunc5(ff/gg)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3/@nufunc5(ff/gg)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "*"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3/@nufunc2(kk+dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3/@nufunc2(kk+dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3/@nufunc2(kk+dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3/@nufunc2(kk+dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3/@nufunc2(kk+dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3/@nufunc2(kk+dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3/@nufunc2(kk-dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3/@nufunc2(kk-dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3/@nufunc2(kk-dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3/@nufunc2(kk-dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3/@nufunc2(kk-dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3/@nufunc2(kk-dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3/@nufunc5(ff-gg)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3/@nufunc5(ff-gg)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3/@nufunc5(ff-gg)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3/@nufunc5(ff-gg)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3/@nufunc5(ff-gg)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3/@nufunc5(ff-gg)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3/@nufunc2(kk*dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3/@nufunc2(kk*dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3/@nufunc2(kk*dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3/@nufunc2(kk*dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3/@nufunc2(kk*dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3/@nufunc2(kk*dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3/@nufunc2(kk/dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3/@nufunc2(kk/dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3/@nufunc2(kk/dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3/@nufunc2(kk/dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3/@nufunc2(kk/dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3/@nufunc2(kk/dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3/@nufunc5(ff/gg)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3/@nufunc5(ff/gg)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3/@nufunc5(ff/gg)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3/@nufunc5(ff/gg)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3/@nufunc5(ff/gg)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3/@nufunc5(ff/gg)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "/"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3/@nufunc2(kk+dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3/@nufunc2(kk+dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3/@nufunc2(kk+dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3/@nufunc2(kk+dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3/@nufunc2(kk+dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3/@nufunc2(kk+dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3/@nufunc2(kk-dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3/@nufunc2(kk-dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3/@nufunc2(kk-dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3/@nufunc2(kk-dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3/@nufunc2(kk-dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3/@nufunc2(kk-dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3/@nufunc5(ff-gg)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3/@nufunc5(ff-gg)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3/@nufunc5(ff-gg)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3/@nufunc5(ff-gg)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3/@nufunc5(ff-gg)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3/@nufunc5(ff-gg)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3/@nufunc2(kk*dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3/@nufunc2(kk*dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3/@nufunc2(kk*dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3/@nufunc2(kk*dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3/@nufunc2(kk*dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3/@nufunc2(kk*dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3/@nufunc2(kk/dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3/@nufunc2(kk/dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3/@nufunc2(kk/dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3/@nufunc2(kk/dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3/@nufunc2(kk/dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3/@nufunc2(kk/dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3/@nufunc5(ff/gg)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3/@nufunc5(ff/gg)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3/@nufunc5(ff/gg)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3/@nufunc5(ff/gg)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3/@nufunc5(ff/gg)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3/@nufunc5(ff/gg)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "^"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3/@nufunc2(kk+dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3/@nufunc2(kk+dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3/@nufunc2(kk+dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3/@nufunc2(kk+dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3/@nufunc2(kk+dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3/@nufunc2(kk+dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3/@nufunc2(kk-dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3/@nufunc2(kk-dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3/@nufunc2(kk-dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3/@nufunc2(kk-dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3/@nufunc2(kk-dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3/@nufunc2(kk-dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3/@nufunc5(ff-gg)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3/@nufunc5(ff-gg)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3/@nufunc5(ff-gg)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3/@nufunc5(ff-gg)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3/@nufunc5(ff-gg)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3/@nufunc5(ff-gg)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3/@nufunc2(kk*dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3/@nufunc2(kk*dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3/@nufunc2(kk*dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3/@nufunc2(kk*dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3/@nufunc2(kk*dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3/@nufunc2(kk*dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3/@nufunc2(kk/dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3/@nufunc2(kk/dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3/@nufunc2(kk/dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3/@nufunc2(kk/dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3/@nufunc2(kk/dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3/@nufunc2(kk/dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3/@nufunc5(ff/gg)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3/@nufunc5(ff/gg)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3/@nufunc5(ff/gg)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3/@nufunc5(ff/gg)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3/@nufunc5(ff/gg)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3/@nufunc5(ff/gg)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   endif
   elseif @change == "11"
    if @op == "+"
     if @mmode2 == "z+|z|"
      if @mmode3 == "z+|z|"
      z1 = cc^@exp3^@nufunc2(kk+dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3^@nufunc2(kk+dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3^@nufunc2(kk+dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3^@nufunc2(kk+dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3^@nufunc2(kk+dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3^@nufunc2(kk+dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z-|z|"
      if @mmode3 == "z+|z|"
      z1 = cc^@exp3^@nufunc2(kk-dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3^@nufunc2(kk-dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3^@nufunc2(kk-dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3^@nufunc2(kk-dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3^@nufunc2(kk-dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3^@nufunc2(kk-dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "|z|-z"
      if @mmode3 == "z+|z|"
     z1 = cc^@exp3^@nufunc5(ff-gg)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3^@nufunc5(ff-gg)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3^@nufunc5(ff-gg)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3^@nufunc5(ff-gg)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3^@nufunc5(ff-gg)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3^@nufunc5(ff-gg)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z*|z|"
      if @mmode3 == "z+|z|"
      z1 = cc^@exp3^@nufunc2(kk*dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3^@nufunc2(kk*dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3^@nufunc2(kk*dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3^@nufunc2(kk*dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3^@nufunc2(kk*dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3^@nufunc2(kk*dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "z/|z|"
      if @mmode3 == "z+|z|"
      z1 = cc^@exp3^@nufunc2(kk/dd)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3^@nufunc2(kk/dd)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3^@nufunc2(kk/dd)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3^@nufunc2(kk/dd)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3^@nufunc2(kk/dd)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3^@nufunc2(kk/dd)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
     elseif @mmode2 == "|z|/z"
      if @mmode3 == "z+|z|"
      z1 = cc^@exp3^@nufunc5(ff/gg)^@exp1+@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3^@nufunc5(ff/gg)^@exp1+@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3^@nufunc5(ff/gg)^@exp1+@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3^@nufunc5(ff/gg)^@exp1+@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3^@nufunc5(ff/gg)^@exp1+@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3^@nufunc5(ff/gg)^@exp1+@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "-"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3^@nufunc2(kk+dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3^@nufunc2(kk+dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3^@nufunc2(kk+dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3^@nufunc2(kk+dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3^@nufunc2(kk+dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3^@nufunc2(kk+dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3^@nufunc2(kk-dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3^@nufunc2(kk-dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3^@nufunc2(kk-dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3^@nufunc2(kk-dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3^@nufunc2(kk-dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3^@nufunc2(kk-dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3^@nufunc5(ff-gg)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3^@nufunc5(ff-gg)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3^@nufunc5(ff-gg)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3^@nufunc5(ff-gg)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3^@nufunc5(ff-gg)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3^@nufunc5(ff-gg)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3^@nufunc2(kk*dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3^@nufunc2(kk*dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3^@nufunc2(kk*dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3^@nufunc2(kk*dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3^@nufunc2(kk*dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3^@nufunc2(kk*dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3^@nufunc2(kk/dd)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3^@nufunc2(kk/dd)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3^@nufunc2(kk/dd)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3^@nufunc2(kk/dd)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3^@nufunc2(kk/dd)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3^@nufunc2(kk/dd)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3^@nufunc5(ff/gg)^@exp1-@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3^@nufunc5(ff/gg)^@exp1-@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3^@nufunc5(ff/gg)^@exp1-@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3^@nufunc5(ff/gg)^@exp1-@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3^@nufunc5(ff/gg)^@exp1-@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3^@nufunc5(ff/gg)^@exp1-@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "*"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3^@nufunc2(kk+dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3^@nufunc2(kk+dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3^@nufunc2(kk+dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3^@nufunc2(kk+dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3^@nufunc2(kk+dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3^@nufunc2(kk+dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3^@nufunc2(kk-dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3^@nufunc2(kk-dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3^@nufunc2(kk-dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3^@nufunc2(kk-dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3^@nufunc2(kk-dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3^@nufunc2(kk-dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3^@nufunc5(ff-gg)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3^@nufunc5(ff-gg)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3^@nufunc5(ff-gg)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3^@nufunc5(ff-gg)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3^@nufunc5(ff-gg)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3^@nufunc5(ff-gg)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3^@nufunc2(kk*dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3^@nufunc2(kk*dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3^@nufunc2(kk*dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3^@nufunc2(kk*dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3^@nufunc2(kk*dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3^@nufunc2(kk*dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3^@nufunc2(kk/dd)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3^@nufunc2(kk/dd)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3^@nufunc2(kk/dd)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3^@nufunc2(kk/dd)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3^@nufunc2(kk/dd)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3^@nufunc2(kk/dd)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3^@nufunc5(ff/gg)^@exp1*@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3^@nufunc5(ff/gg)^@exp1*@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3^@nufunc5(ff/gg)^@exp1*@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3^@nufunc5(ff/gg)^@exp1*@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3^@nufunc5(ff/gg)^@exp1*@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3^@nufunc5(ff/gg)^@exp1*@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "/"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3^@nufunc2(kk+dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3^@nufunc2(kk+dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3^@nufunc2(kk+dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3^@nufunc2(kk+dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3^@nufunc2(kk+dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3^@nufunc2(kk+dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3^@nufunc2(kk-dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3^@nufunc2(kk-dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3^@nufunc2(kk-dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3^@nufunc2(kk-dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3^@nufunc2(kk-dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3^@nufunc2(kk-dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3^@nufunc5(ff-gg)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3^@nufunc5(ff-gg)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3^@nufunc5(ff-gg)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3^@nufunc5(ff-gg)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3^@nufunc5(ff-gg)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3^@nufunc5(ff-gg)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3^@nufunc2(kk*dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3^@nufunc2(kk*dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3^@nufunc2(kk*dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3^@nufunc2(kk*dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3^@nufunc2(kk*dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3^@nufunc2(kk*dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3^@nufunc2(kk/dd)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3^@nufunc2(kk/dd)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3^@nufunc2(kk/dd)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3^@nufunc2(kk/dd)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3^@nufunc2(kk/dd)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3^@nufunc2(kk/dd)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3^@nufunc5(ff/gg)^@exp1/@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3^@nufunc5(ff/gg)^@exp1/@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3^@nufunc5(ff/gg)^@exp1/@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3^@nufunc5(ff/gg)^@exp1/@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3^@nufunc5(ff/gg)^@exp1/@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3^@nufunc5(ff/gg)^@exp1/@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   elseif @op == "^"
    if @mmode2 == "z+|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3^@nufunc2(kk+dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3^@nufunc2(kk+dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3^@nufunc2(kk+dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3^@nufunc2(kk+dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3^@nufunc2(kk+dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3^@nufunc2(kk+dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z-|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3^@nufunc2(kk-dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3^@nufunc2(kk-dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3^@nufunc2(kk-dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3^@nufunc2(kk-dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3^@nufunc2(kk-dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3^@nufunc2(kk-dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "|z|-z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3^@nufunc5(ff-gg)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3^@nufunc5(ff-gg)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3^@nufunc5(ff-gg)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3^@nufunc5(ff-gg)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3^@nufunc5(ff-gg)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3^@nufunc5(ff-gg)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z*|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3^@nufunc2(kk*dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3^@nufunc2(kk*dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3^@nufunc2(kk*dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3^@nufunc2(kk*dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3^@nufunc2(kk*dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3^@nufunc2(kk*dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    elseif @mmode2 == "z/|z|"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3^@nufunc2(kk/dd)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3^@nufunc2(kk/dd)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3^@nufunc2(kk/dd)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3^@nufunc2(kk/dd)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3^@nufunc2(kk/dd)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3^@nufunc2(kk/dd)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
    endif
    elseif @mmode2 == "|z|/z"
     if @mmode3 == "z+|z|"
      z1 = cc^@exp3^@nufunc5(ff/gg)^@exp1^@nufunc3(oo+hh)^@exp2
     elseif @mmode3 == "z-|z|"
      z1 = cc^@exp3^@nufunc5(ff/gg)^@exp1^@nufunc3(oo-hh)^@exp2
     elseif @mmode3 == "|z|-z"
      z1 = cc^@exp3^@nufunc5(ff/gg)^@exp1^@nufunc6(jj^@exp6-pp)^@exp2
     elseif @mmode3 == "z*|z|"
      z1 = cc^@exp3^@nufunc5(ff/gg)^@exp1^@nufunc3(oo*hh)^@exp2
     elseif @mmode3 == "z/|z|"
      z1 = cc^@exp3^@nufunc5(ff/gg)^@exp1^@nufunc3(oo/hh)^@exp2
     elseif @mmode3 == "|z|/z"
      z1 = cc^@exp3^@nufunc5(ff/gg)^@exp1^@nufunc6(jj^@exp6/pp)^@exp2
     endif
    endif
   endif
  endif
 endif
endif

  p = @fn5(z1 + @start)
  x = real(@fnr(p)^@p2) * 1/@scale
  y = imag(@fni(p)^@p3) * 1/@scale

; Iterate the Popcorn formula
  pop_iter = 0
  while pop_iter < @max_iterations
    xx = x
    x = x - @a * real(@fn1(y + @fn2(@C * y)))
    y = y - @a * real(@fn3(xx + @fn4(@C * xx)))
    pop_iter = pop_iter + 1
  endwhile
  p = (x-@p1) + flip(y)
  f_p = @fn7(p)^@p4

  if @trap_mode == 0

    ; Closest

    dist = abs(|z1| - real(@fnd(|f_p|)))

    if (iter >= @skip && iter < max_iter) \
      && dist < min_dist

      min_dist = dist
      distance = dist
      trap_iter = iter
      trap_z = z1
      trap_p = f_p

    endif

  elseif @trap_mode == 1

    ; Smallest trap

    dist = real(@fnd(f_p))

    if (iter >= @skip && iter < max_iter) \
      && dist < min_dist

      min_dist = dist
      distance = abs(|z1| - |f_p|)
      trap_iter = iter
      trap_z = z1
      trap_p = f_p
    endif
  endif

  iter = iter + 1
  iter = i
  i = i + 1
  z_values[i] = #z

final:
  if tx > 0
   if @ztyp == "#z"
     tz = ((#z-@txia1)*@txib1)^@txic1
   elseif @ztyp == "Morph z"
     tz = ((z1-@txia1)*@txib1)^@txic1
   elseif @ztyp == "Trap z"
     tz = ((trap_z-@txia1)*@txib1)^@txic1
   elseif @ztyp == "Dist"
     tz = ((dist-@txia1)*@txib1)^@txic1
   endif

    if @tt == 0
      tz = @fntx2(@fntx1(tz))^@exad1
    elseif @tt == 1
      tz = @fntx1(real(tz))^@exad1+@fntx2(imag(tz))^@exad2
    elseif @tt == 2
      tz = @fntx1(real(tz))^@exad1-@fntx2(imag(tz))^@exad2
    elseif @tt == 3
      tz = @fntx1(real(tz))^@exad1*@fntx2(imag(tz))^@exad2
    elseif @tt == 4
      tz = @fntx1(imag(tz))^@exad1-@fntx2(real(tz))^@exad2
    elseif @tt == 5
      tz = @fntx2(@fntx1(x))^@exad1
    elseif @tt == 6
      tz = @fntx2(@fntx1(y))^@exad1
    elseif @tt == 7
      tz = @fntx1(x)^@exad1+@fntx2(y)^@exad2
    elseif @tt == 8
      tz = @fntx1(x)^@exad1-@fntx2(y)^@exad2
    elseif @tt == 9
      tz = @fntx2(y)^@exad2-@fntx1(x)^@exad1
    elseif @tt == 10
      tz = @fntx1(x)^@exad1*@fntx2(y)^@exad2
    elseif @tt == 11
      tz = @fntx1(x)^@exad1/@fntx2(y)^@exad2
    elseif @tt == 12
      tz = @fntx2(y)^@exad2/@fntx1(x)^@exad1
    elseif @tt == 13
      tz = @fntx1(x)^@exad1^@fntx2(y)^@exad2
    elseif @tt == 14
      tz = @fntx2(y)^@exad1^@fntx1(x)^@exad2
    elseif @tt == 15
      tz = @fntx1(x)^@exad1+@fntx2(tz)^@exad2
    elseif @tt == 16
      tz = @fntx1(x)^@exad1-@fntx2(tz)^@exad2
    elseif @tt == 17
      tz = @fntx2(tz)^@exad2-@fntx1(x)^@exad1
    elseif @tt == 18
      tz = @fntx1(x)^@exad1*@fntx2(tz)^@exad2
    elseif @tt == 19
      tz = @fntx1(x)^@exad1/@fntx2(tz)^@exad2
    elseif @tt == 20
      tz = @fntx2(tz)^@exad2/@fntx1(x)^@exad1
    elseif @tt == 21
      tz = @fntx1(y)^@exad1+@fntx2(tz)^@exad2
    elseif @tt == 22
      tz = @fntx1(y)^@exad1-@fntx2(tz)^@exad2
    elseif @tt == 23
      tz = @fntx2(tz)^@exad2-@fntx1(y)^@exad1
    elseif @tt == 24
      tz = @fntx1(y)^@exad1*@fntx2(tz)^@exad2
    elseif @tt == 25
      tz = @fntx1(y)^@exad1/@fntx2(tz)^@exad2
    elseif @tt == 26
      tz = @fntx2(tz)^@exad2/@fntx1(y)^@exad1
    endif

    float zr = real(tz)%(@tv/10)/@ts*10
    float zi = imag(tz)%(@tv/10)/@ts*10
    float rz = floor(zr)
    float iz = floor(zi)
    if @tc > 0
      float a1 = (rz + iz - 2)/ct
      float a2 = (rz + iz + 2)/ct
    else
      float a1 = (rz + iz - 2)%ct
      float a2 = (rz + iz + 2)%ct
    endif
    float a3 = a1
    float a4 = a2
    i = 0
    float ez = 0
    float h = 1
    repeat
      h = h / 2
      float fr = rz + h
      float fi = iz + h
      float za = (a1 + a2 + a3 + a4) / 4
      ez = ez + za
      if (zr > fr)
        rz = fr
        if (zi > fi)
          iz = fi
          a1 = ez
        else
          a2 = ez
        endif
      else
        if (zi > fi)
          iz = fi
          a3 = ez
        else
          a4 = ez
        endif
      endif
      it = it + 1
    until it >= 20
    t2 = abs((za-real(@fntx3(za))))
  endif

  ;Random
    complex hasard = #random
    texture_rnd = 10 * @rnd2 * (real(hasard)+ imag(hasard))
  ; fBm
    if (@fbmtxt != 0)
      r1 = (0,1) ^ (@fbmangle / 90.0)
      r2 = (0,1) ^ (@fbmastep / 90.0)
   if @ztyp4 == "#z"
     tz = ((#z-@txia4)*@txib4)^@txic4
   elseif @ztyp4 == "Morph z"
     tz = ((z1-@txia4)*@txib4)^@txic4
   elseif @ztyp4 == "Trap z"
     tz = ((trap_z-@txia4)*@txib4)^@txic4
   elseif @ztyp4 == "Dist"
     tz = ((dist-@txia4)*@txib4)^@txic4
   endif

    if @fbminit == 0
      pfb = (@fntx9(@fntx8(tz))^@exad8)* @fbmscale * r1 + @fbmoffset
    elseif @fbminit == 1
      pfb = (@fntx8(real(tz))^@exad8+@fntx9(imag(tz))^@exad9)* @fbmscale *r1+ \
             @fbmoffset
    elseif @fbminit == 2
      pfb = (@fntx8(real(tz))^@exad8-@fntx9(imag(tz))^@exad9)* @fbmscale *r1+ \
             @fbmoffset
    elseif @fbminit == 3
      pfb = (@fntx8(real(tz))^@exad8*@fntx9(imag(tz))^@exad9)* @fbmscale *r1+ \
             @fbmoffset
    elseif @fbminit == 4
      pfb = (@fntx8(imag(tz))^@exad8-@fntx9(real(tz))^@exad9)* @fbmscale *r1+ \
             @fbmoffset
    elseif @fbminit == 5
      pfb = (@fntx9(@fntx8(x))^@exad8)* @fbmscale * r1 + @fbmoffset
    elseif @fbminit == 6
      pfb = (@fntx9(@fntx8(y))^@exad8)* @fbmscale * r1 + @fbmoffset
    elseif @fbminit == 7
      pfb = (@fntx8(x)^@exad8+@fntx9(y)^@exad9)* @fbmscale * r1 + @fbmoffset
    elseif @fbminit == 8
      pfb = (@fntx8(x)^@exad8-@fntx9(y)^@exad9)* @fbmscale * r1 + @fbmoffset
    elseif @fbminit == 9
      pfb = (@fntx9(y)^@exad9-@fntx8(x)^@exad8)* @fbmscale * r1 + @fbmoffset
    elseif @fbminit == 10
      pfb = (@fntx8(x)^@exad8*@fntx9(y)^@exad9)* @fbmscale * r1 + @fbmoffset
    elseif @fbminit == 11
      pfb = (@fntx8(x)^@exad8/@fntx9(y)^@exad9)* @fbmscale * r1 + @fbmoffset
    elseif @fbminit == 12
      pfb = (@fntx9(y)^@exad9/@fntx8(x)^@exad8)* @fbmscale * r1 + @fbmoffset
    elseif @fbminit == 13
      pfb = (@fntx8(x)^@exad8^@fntx9(y)^@exad9)* @fbmscale * r1 + @fbmoffset
    elseif @fbminit == 14
      pfb = (@fntx9(y)^@exad9^@fntx8(x)^@exad8)* @fbmscale * r1 + @fbmoffset
    elseif @fbminit == 15
      pfb = (@fntx8(x)^@exad8+@fntx9(tz)^@exad9)* @fbmscale * r1 + @fbmoffset
    elseif @fbminit == 16
      pfb = (@fntx8(x)^@exad8-@fntx9(tz)^@exad9)* @fbmscale * r1 + @fbmoffset
    elseif @fbminit == 17
      pfb = (@fntx9(tz)^@exad9-@fntx8(x)^@exad8)* @fbmscale * r1 + @fbmoffset
    elseif @fbminit == 18
      pfb = (@fntx8(x)^@exad8*@fntx9(tz)^@exad9)* @fbmscale * r1 + @fbmoffset
    elseif @fbminit == 19
      pfb = (@fntx8(x)^@exad8/@fntx9(tz)^@exad9)* @fbmscale * r1 + @fbmoffset
    elseif @fbminit == 20
      pfb = (@fntx9(tz)^@exad9/@fntx8(x)^@exad8)* @fbmscale * r1 + @fbmoffset
    elseif @fbminit == 21
      pfb = (@fntx8(y)^@exad8+@fntx9(tz)^@exad9)* @fbmscale * r1 + @fbmoffset
    elseif @fbminit == 22
      pfb = (@fntx8(y)^@exad8-@fntx9(tz)^@exad9)* @fbmscale * r1 + @fbmoffset
    elseif @fbminit == 23
      pfb = (@fntx9(tz)^@exad9-@fntx8(y)^@exad8)* @fbmscale * r1 + @fbmoffset
    elseif @fbminit == 24
      pfb = (@fntx8(y)^@exad8*@fntx9(tz)^@exad9)* @fbmscale * r1 + @fbmoffset
    elseif @fbminit == 25
      pfb = (@fntx8(y)^@exad8/@fntx9(tz)^@exad9)* @fbmscale * r1 + @fbmoffset
    elseif @fbminit == 26
      pfb = (@fntx9(tz)^@exad9/@fntx8(y)^@exad8)* @fbmscale * r1 + @fbmoffset
    elseif @fbminit == 27
      pfb = (@fntx9(@fntx8(pixel))^@exad8)* @fbmscale * r1 + @fbmoffset
    endif

      float summ = 0.0
      float freq = 1.0
      int i = @fbmoct
      while (i > 0)
        ; determine integer coordinate for corners of square
        ; surrounding p
        float bx0 = floor(real(pfb)) % 256
        float by0 = floor(imag(pfb)) % 256
        IF (bx0 < 0)
          bx0 = bx0 + 256
        ENDIF
        IF (by0 < 0)
          by0 = by0 + 256
        ENDIF
        float bx1 = (bx0 + 1) % 256
        float by1 = (by0 + 1) % 256
        float rx0 = real(pfb) - floor(real(pfb))
        float ry0 = imag(pfb) - floor(imag(pfb))
        float rx1 = rx0 - 1
        float ry1 = ry0 - 1
        float b00 = (bx0^@fbmpower % 65536 + by0)^@fbmpower % 65536
        float b10 = (bx1^@fbmpower % 65536 + by0)^@fbmpower % 65536
        float b01 = (bx0^@fbmpower % 65536 + by1)^@fbmpower % 65536
        float b11 = (bx1^@fbmpower % 65536 + by1)^@fbmpower % 65536
        float g_b00_0 = (b00)^@fbmpower*0.25 % 512 - 256
        float g_b10_0 = (b10)^@fbmpower*0.25 % 512 - 256
        float g_b01_0 = (b01)^@fbmpower*0.25 % 512 - 256
        float g_b11_0 = (b11)^@fbmpower*0.25 % 512 - 256
        float g_b00_1 = (b00+1)^@fbmpower*0.25 % 512 - 256
        float g_b10_1 = (b10+1)^@fbmpower*0.25 % 512 - 256
        float g_b01_1 = (b01+1)^@fbmpower*0.25 % 512 - 256
        float g_b11_1 = (b11+1)^@fbmpower*0.25 % 512 - 256
        float ddd = 0.0;
        ddd = 1 / sqrt(sqr(g_b00_0) + sqr(g_b00_1))
        g_b00_0 = g_b00_0 * ddd
        g_b00_1 = g_b00_1 * ddd
        ddd = 1 / sqrt(sqr(g_b10_0) + sqr(g_b10_1))
        g_b10_0 = g_b10_0 * ddd
        g_b10_1 = g_b10_1 * ddd
        ddd = 1 / sqrt(sqr(g_b01_0) + sqr(g_b01_1))
        g_b01_0 = g_b01_0 * ddd
        g_b01_1 = g_b01_1 * ddd
        ddd = 1 / sqrt(sqr(g_b11_0) + sqr(g_b11_1))
        g_b11_0 = g_b11_0 * ddd
        g_b11_1 = g_b11_1 * ddd
        float u1 = rx0 * g_b00_0 + ry0 * g_b00_1
        float v1 = rx1 * g_b10_0 + ry0 * g_b10_1
        float u2 = rx0 * g_b01_0 + ry1 * g_b01_1
        float v2 = rx1 * g_b11_0 + ry1 * g_b11_1
        float sx = sqr(rx0) * (3 - rx0*2)
        float sy = sqr(ry0) * (3 - ry0*2)
        float aaa = u1 + sx*(v1-u1)
        float b = u2 + sx*(v2-u2)
        summ = summ + (aaa + sy*(b-aaa))*freq
        freq = freq * @fbmstep
        pfb = pfb * r2 / @fbmstep
        i = i - 1
      endwhile
      texture_fbm = 10 * @fbmtxt * summ
    endif
  ;decimal
  if @dectxt > 0
   if @ztyp2 == "#z"
     tz = ((#z-@txia2)*@txib2)^@txic2
   elseif @ztyp2 == "Morph z"
     tz = ((z1-@txia2)*@txib2)^@txic2
   elseif @ztyp2 == "Trap z"
     tz = ((trap_z-@txia2)*@txib2)^@txic2
   elseif @ztyp2 == "Dist"
     tz = ((dist-@txia2)*@txib2)^@txic2

   endif

    if @dec_init == 0
      pd = real(@fntx5(@fntx4(tz))^@exad4)
    elseif @dec_init == 1
      pd = real(@fntx4(real(tz))^@exad4+@fntx5(imag(tz))^@exad5)
    elseif @dec_init == 2
      pd = real(@fntx4(real(tz))^@exad4-@fntx5(imag(tz))^@exad5)
    elseif @dec_init == 3
      pd = real(@fntx4(real(tz))^@exad4*@fntx5(imag(tz))^@exad5)
    elseif @dec_init == 4
      pd = real(@fntx4(imag(tz))^@exad4-@fntx5(real(tz))^@exad5)
    elseif @dec_init == 5
      pd = real(@fntx5(@fntx4(x))^@exad4)
    elseif @dec_init == 6
      pd = real(@fntx5(@fntx4(y))^@exad4)
    elseif @dec_init == 7
      pd = real(@fntx4(x)^@exad4+@fntx5(y)^@exad5)
    elseif @dec_init == 8
      pd = real(@fntx4(x)^@exad4-@fntx5(y)^@exad5)
    elseif @dec_init == 9
      pd = real(@fntx5(y)^@exad4-@fntx4(x)^@exad5)
    elseif @dec_init == 10
      pd = real(@fntx4(x)^@exad4*@fntx5(y)^@exad5)
    elseif @dec_init == 11
      pd = real(@fntx4(x)^@exad4/@fntx5(y)^@exad5)
    elseif @dec_init == 12
      pd = real(@fntx5(y)^@exad4/@fntx4(x)^@exad5)
    elseif @dec_init == 13
      pd = real(@fntx4(x)^@exad4^@fntx5(y)^@exad5)
    elseif @dec_init == 14
      pd = real(@fntx5(y)^@exad4^@fntx4(x)^@exad5)
    elseif @dec_init == 15
      pd = real(@fntx4(x)^@exad4+@fntx5(tz)^@exad5)
    elseif @dec_init == 16
      pd = real(@fntx4(x)^@exad4-@fntx5(tz)^@exad5)
    elseif @dec_init == 17
      pd = real(@fntx5(tz)^@exad4-@fntx4(x)^@exad5)
    elseif @dec_init == 18
      pd = real(@fntx4(x)^@exad4*@fntx5(tz)^@exad5)
    elseif @dec_init == 19
      pd = real(@fntx4(x)^@exad4/@fntx5(tz)^@exad5)
    elseif @dec_init == 20
      pd = real(@fntx5(tz)^@exad4/@fntx4(x)^@exad5)
    elseif @dec_init == 21
      pd = real(@fntx4(y)^@exad4+@fntx5(tz)^@exad5)
    elseif @dec_init == 22
      pd = real(@fntx4(y)^@exad4-@fntx5(tz)^@exad5)
    elseif @dec_init == 23
      pd = real(@fntx5(tz)^@exad4-@fntx4(y)^@exad5)
    elseif @dec_init == 24
      pd = real(@fntx4(y)^@exad4*@fntx5(tz)^@exad5)
    elseif @dec_init == 25
      pd = real(@fntx4(y)^@exad4/@fntx5(tz)^@exad5)
    elseif @dec_init == 26
      pd = real(@fntx5(tz)^@exad4/@fntx4(y)^@exad5)
    endif

      if @dec_type == 0
        pd = pd-ceil(pd*@dec_scale)/@dec_scale
      elseif @dec_type == 1
        pd = pd-floor(pd*@dec_scale)/@dec_scale
      elseif @dec_type == 2
        pd = pd-trunc(pd*@dec_scale)/@dec_scale
      elseif @dec_type == 3
        pd = pd-round(pd*@dec_scale)/@dec_scale
      elseif @dec_type == 4
        pd = pd-real(@fndec(pd*@dec_scale))/@dec_scale
      elseif @dec_type == 5
        pd = pd-round(pd*@dec_scale)/@dec_scale-ceil(pd*@dec_scale2)/@dec_scale2
      elseif @dec_type == 6
        pd = pd-round(pd*@dec_scale)/@dec_scale*ceil(pd*@dec_scale2)/@dec_scale2
      elseif @dec_type == 7
        pd = pd+round(pd*@dec_scale)/@dec_scale*ceil(pd*@dec_scale2)/@dec_scale2
      elseif @dec_type == 8
        pd =pd-round(pd*@dec_scale)/@dec_scale-trunc(pd*@dec_scale2)/@dec_scale2
      elseif @dec_type == 9
        pd =pd-round(pd*@dec_scale)/@dec_scale*trunc(pd*@dec_scale2)/@dec_scale2
      elseif @dec_type == 10
        pd =pd+round(pd*@dec_scale)/@dec_scale*trunc(pd*@dec_scale2)/@dec_scale2
      elseif @dec_type == 11
        pd =pd-trunc(pd*@dec_scale)/@dec_scale-floor(pd*@dec_scale2)/@dec_scale2
      elseif @dec_type == 12
        pd =pd-trunc(pd*@dec_scale)/@dec_scale*floor(pd*@dec_scale2)/@dec_scale2
      elseif @dec_type == 13
        pd =pd+trunc(pd*@dec_scale)/@dec_scale*floor(pd*@dec_scale2)/@dec_scale2
      elseif @dec_type == 14
        pd = pd-trunc(pd*@dec_scale)/@dec_scale-ceil(pd*@dec_scale2)/@dec_scale2
      elseif @dec_type == 15
        pd = pd-trunc(pd*@dec_scale)/@dec_scale*ceil(pd*@dec_scale2)/@dec_scale2
      elseif @dec_type == 16
        pd = pd+trunc(pd*@dec_scale)/@dec_scale*ceil(pd*@dec_scale2)/@dec_scale2
      elseif @dec_type == 17
        pd = pd-ceil(pd*@dec_scale)/@dec_scale-floor(pd*@dec_scale2)/@dec_scale2
      elseif @dec_type == 18
        pd = pd-ceil(pd*@dec_scale)/@dec_scale*floor(pd*@dec_scale2)/@dec_scale2
      elseif @dec_type == 19
        pd = pd+ceil(pd*@dec_scale)/@dec_scale*floor(pd*@dec_scale)/@dec_scale2
      endif

      if @dec_size != 0
        pd = pd/@dec_size
      endif
      texture_dec = @dectxt*pd
      if @dec_limit !=0
        texture_dec= texture_dec%@dec_limit
      endif
      if @dec_sgn == true
        texture_dec = abs(texture_dec)
      endif
  endif
        texture_dec = 10 * texture_dec * @decamt

  if (@gnarl_amt != 0)
    if @ztyp3 == "#z"
      tz = ((#z-@txia3)*@txib3)^@txic3
    elseif @ztyp3 == "Morph z"
      tz = ((z1-@txia3)*@txib3)^@txic3
    elseif @ztyp3 == "Trap z"
      tz = ((trap_z-@txia3)*@txib3)^@txic3
   elseif @ztyp3 == "Dist"
     tz = ((dist-@txia3)*@txib3)^@txic3
   endif

    if @gnarl_init == 0
      ppp = @fntx7(@fntx6(tz))^@exad6
    elseif @gnarl_init == 1
      ppp = @fntx6(real(tz))^@exad6+@fntx7(imag(tz))^@exad7
    elseif @gnarl_init == 2
      ppp = @fntx6(real(tz))^@exad6-@fntx7(imag(tz))^@exad7
    elseif @gnarl_init == 3
      ppp = @fntx6(real(tz))^@exad6*@fntx7(imag(tz))^@exad7
    elseif @gnarl_init == 4
      ppp = @fntx6(imag(tz))^@exad6-@fntx7(real(tz))^@exad7
    elseif @gnarl_init == 5
      ppp = @fntx7(@fntx6(x))^@exad6
    elseif @gnarl_init == 6
      ppp = @fntx7(@fntx6(y))^@exad6
    elseif @gnarl_init == 7
      ppp = @fntx6(x)^@exad6+@fntx7(y)^@exad7
    elseif @gnarl_init == 8
      ppp = @fntx6(x)^@exad6-@fntx7(y)^@exad7
    elseif @gnarl_init == 9
      ppp = @fntx7(y)^@exad6-@fntx6(x)^@exad7
    elseif @gnarl_init == 10
      ppp = @fntx6(x)^@exad6*@fntx7(y)^@exad7
    elseif @gnarl_init == 11
      ppp = @fntx6(x)^@exad6/@fntx7(y)^@exad7
    elseif @gnarl_init == 12
      ppp = @fntx7(y)^@exad6/@fntx6(x)^@exad7
    elseif @gnarl_init == 13
      ppp = @fntx6(x)^@exad6^@fntx7(y)^@exad7
    elseif @gnarl_init == 14
      ppp = @fntx7(y)^@exad6^@fntx6(x)^@exad7
    elseif @gnarl_init == 15
      ppp = @fntx6(x)^@exad6+@fntx7(tz)^@exad7
    elseif @gnarl_init == 16
      ppp = @fntx6(x)^@exad6-@fntx7(tz)^@exad7
    elseif @gnarl_init == 17
      ppp = @fntx7(tz)^@exad6-@fntx6(x)^@exad7
    elseif @gnarl_init == 18
      ppp = @fntx6(x)^@exad6*@fntx7(tz)^@exad7
    elseif @gnarl_init == 19
      ppp = @fntx6(x)^@exad6/@fntx7(tz)^@exad7
    elseif @gnarl_init == 20
      ppp = @fntx7(tz)^@exad6/@fntx6(x)^@exad7
    elseif @gnarl_init == 21
      ppp = @fntx6(y)^@exad6+@fntx7(tz)^@exad7
    elseif @gnarl_init == 22
      ppp = @fntx6(y)^@exad6-@fntx7(tz)^@exad7
    elseif @gnarl_init == 23
      ppp = @fntx7(tz)^@exad6-@fntx6(y)^@exad7
    elseif @gnarl_init == 24
      ppp = @fntx6(y)^@exad6*@fntx7(tz)^@exad7
    elseif @gnarl_init == 25
      ppp = @fntx6(y)^@exad6/@fntx7(tz)^@exad7
    elseif @gnarl_init == 26
      ppp = @fntx7(tz)^@exad6/@fntx6(y)^@exad7
    elseif @gnarl_init == 27
      ppp = @fntx7(@fntx6(pixel))^@exad6
    endif

      if @gnarl_scaling == 0
        ppp = ppp-ceil(ppp*@gnarl_scale)/@gnarl_scale
      elseif @gnarl_scaling == 1
        ppp = ppp-floor(ppp*@gnarl_scale)/@gnarl_scale
      elseif @gnarl_scaling == 2
        ppp = ppp-trunc(ppp*@gnarl_scale)/@gnarl_scale
      elseif @gnarl_scaling == 3
        ppp = ppp-round(ppp*@gnarl_scale)/@gnarl_scale
      elseif @gnarl_scaling == 4
        ppp = ppp-real(@fngnarl(ppp*@gnarl_scale))/@gnarl_scale
      elseif @gnarl_scaling == 5
        ppp = ppp-round(ppp*@gnarl_scale)/@gnarl_scale-ceil(ppp*@gnarl_scale2) \
             /@gnarl_scale2
      elseif @gnarl_scaling == 6
        ppp = ppp-round(ppp*@gnarl_scale)/@gnarl_scale*ceil(ppp*@gnarl_scale2) \
             /@gnarl_scale2
      elseif @gnarl_scaling == 7
        ppp = ppp+round(ppp*@gnarl_scale)/@gnarl_scale*ceil(ppp*@gnarl_scale2) \
              /@gnarl_scale2
      elseif @gnarl_scaling == 8
        ppp = ppp-round(ppp*@gnarl_scale)/@gnarl_scale-trunc(ppp*@gnarl_scale2)\
              /@gnarl_scale2
      elseif @gnarl_scaling == 9
        ppp = ppp-round(ppp*@gnarl_scale)/@gnarl_scale*trunc(ppp*@gnarl_scale2)\
              /@gnarl_scale2
      elseif @gnarl_scaling == 10
        ppp = ppp+round(ppp*@gnarl_scale)/@gnarl_scale*trunc(ppp*@gnarl_scale2)\
              /@gnarl_scale2
      elseif @gnarl_scaling == 11
        ppp = ppp-trunc(ppp*@gnarl_scale)/@gnarl_scale-floor(ppp*@gnarl_scale2)\
              /@gnarl_scale2
      elseif @gnarl_scaling == 12
        ppp = ppp-trunc(ppp*@gnarl_scale)/@gnarl_scale*floor(ppp*@gnarl_scale2)\
              /@gnarl_scale2
      elseif @gnarl_scaling == 13
        ppp = ppp+trunc(ppp*@gnarl_scale)/@gnarl_scale*floor(ppp*@gnarl_scale2)\
              /@gnarl_scale2
      elseif @gnarl_scaling == 14
        ppp = ppp-trunc(ppp*@gnarl_scale)/@gnarl_scale-ceil(ppp*@gnarl_scale2) \
              /@gnarl_scale2
      elseif @gnarl_scaling == 15
        ppp = ppp-trunc(ppp*@gnarl_scale)/@gnarl_scale*ceil(ppp*@gnarl_scale2) \
              /@gnarl_scale2
      elseif @gnarl_scaling == 16
        ppp = ppp+trunc(ppp*@gnarl_scale)/@gnarl_scale*ceil(ppp*@gnarl_scale2) \
              /@gnarl_scale2
      elseif @gnarl_scaling == 17
        ppp = ppp-ceil(ppp*@gnarl_scale)/@gnarl_scale-floor(ppp*@gnarl_scale2) \
              /@gnarl_scale2
      elseif @gnarl_scaling == 18
        ppp = ppp-ceil(ppp*@gnarl_scale)/@gnarl_scale*floor(ppp*@gnarl_scale2) \
              /@gnarl_scale2
      elseif @gnarl_scaling == 19
        ppp = ppp+ceil(ppp*@gnarl_scale)/@gnarl_scale*floor(ppp*@gnarl_scale)  \
              /@gnarl_scale2
      endif

      if @gnarl_size != 0
        ppp = ppp/@gnarl_size
      endif
      xxx = real(ppp)
      yy = imag(ppp)
      float xOld = 0
      int iter3 = @gnarl_octaves
      while (iter3 > 0)
        iter3 = iter3-1
        xOld = xxx
        if @gnarl_form == 0
          xxx = xxx - sin(yy    + sin(yy))
          yy = yy - sin(xOld + sin(xOld))
        elseif @gnarl_form == 1
          xxx = xxx - sin(yy    + log(yy + cos(yy)))
          yy = yy - sin(xOld + log(xOld + cos(xOld)))
        elseif @gnarl_form == 2
          xxx = xxx - sin(yy    + cos(yy))
          yy = yy - sin(xOld + cos(xOld))
        elseif @gnarl_form == 3
          xxx = xxx - sin(yy    + log(yy + tan(yy)))
          yy = yy - sin(xOld + log(xOld + tan(xOld)))
        elseif @gnarl_form == 4
          xxx = xxx - sin(yy    + log(yy + sin(yy)))
          yy = yy - sin(xOld + log(xOld + sin(xOld)))
        endif
      endwhile
      if (@gnarl_type == 0)
        texture_gna = real(@fng(xxx))
      elseif (@gnarl_type == 1)
        texture_gna = real(@fng(yy))
      elseif (@gnarl_type == 2)
        texture_gna = real(@fng(xxx+yy))
      elseif (@gnarl_type == 3)
        texture_gna = real(@fng(xxx*yy))
      elseif (@gnarl_type == 4)
        texture_gna = real(@fng(xxx-yy))
      elseif (@gnarl_type == 5)
        texture_gna = real(@fng(xxx/yy))
      elseif (@gnarl_type == 6)
        texture_gna = real(@fng(yy/xxx))
      elseif (@gnarl_type == 7)
        texture_gna = real(@fng(xxx^yy))
      elseif (@gnarl_type == 8)
        texture_gna = real(@fng(yy^xxx))
      elseif (@gnarl_type == 9)
        texture_gna = real(@fng(1/xxx))
      elseif (@gnarl_type == 10)
        texture_gna = real(@fng(1/yy))
      elseif (@gnarl_type == 11)
        texture_gna = atan2(xxx+1i*yy)/(2*#pi)
        if (texture_gna < 0)
          texture_gna = texture_gna + 1
        endif
      elseif (@gnarl_type == 12)
        texture_gna = |xxx+1i*yy|
      elseif (@gnarl_type == 13)
        texture_gna = (xxx+yy+|xxx+1i*yy|)/3
      elseif (@gnarl_type == 14)
        texture_gna = (xxx*yy*|xxx+1i*yy|)^(1/3)
      endif
      if @gnarl_limit !=0
        texture_gna= 10 * (texture_gna%@gnarl_limit) * @gnarl_amt
      endif
  endif

  ;geometrix
  if (@trtxt != 0)
   if @ztyp5 == "#z"
     tz = ((#z-@trxia)*@trxib)^@trxic
   elseif @ztyp5 == "Morph z"
     tz = ((z1-@trxia)*@trxib)^@trxic
   elseif @ztyp5 == "Trap z"
      tz = ((trap_z-@trxia)*@trxib)^@trxic
   elseif @ztyp5 == "Dist"
      tz = ((dist-@trxia)*@trxib)^@trxic
   endif

    if @trinit == 0
      ptr = (@fntx11(@fntx10(tz))^@exad10)
    elseif @trinit == 1
      ptr = (@fntx10(real(tz))^@exad10+@fntx11(imag(tz))^@exad11)
    elseif @trinit == 2
      ptr = (@fntx10(real(tz))^@exad10-@fntx11(imag(tz))^@exad11)
    elseif @trinit == 3
      ptr = (@fntx10(real(tz))^@exad10*@fntx11(imag(tz))^@exad11)
    elseif @trinit == 4
      ptr = (@fntx10(imag(tz))^@exad10-@fntx11(real(tz))^@exad11)
    elseif @trinit == 5
      ptr = (@fntx11(@fntx10(x))^@exad10)
    elseif @trinit == 6
      ptr = (@fntx11(@fntx10(y))^@exad10)
    elseif @trinit == 7
      ptr = (@fntx10(x)^@exad10+@fntx11(y)^@exad11)
    elseif @trinit == 8
      ptr = (@fntx10(x)^@exad10-@fntx11(y)^@exad11)
    elseif @trinit == 9
      ptr = (@fntx11(y)^@exad11-@fntx10(x)^@exad10)
    elseif @trinit == 10
      ptr = (@fntx10(x)^@exad10*@fntx11(y)^@exad11)
    elseif @trinit == 11
      ptr = (@fntx10(x)^@exad10/@fntx11(y)^@exad11)
    elseif @trinit == 12
      ptr = (@fntx11(y)^@exad11/@fntx10(x)^@exad10)
    elseif @trinit == 13
      ptr = (@fntx10(x)^@exad10^@fntx11(y)^@exad11)
    elseif @trinit == 14
      ptr = (@fntx11(y)^@exad11^@fntx10(x)^@exad10)
    elseif @trinit == 15
      ptr = (@fntx10(x)^@exad10+@fntx11(tz)^@exad11)
    elseif @trinit == 16
      ptr = (@fntx10(x)^@exad10-@fntx11(tz)^@exad11)
    elseif @trinit == 17
      ptr = (@fntx11(tz)^@exad11-@fntx10(x)^@exad10)
    elseif @trinit == 18
      ptr = (@fntx10(x)^@exad10*@fntx11(tz)^@exad11)
    elseif @trinit == 19
      ptr = (@fntx10(x)^@exad10/@fntx11(tz)^@exad11)
    elseif @trinit == 20
      ptr = (@fntx11(tz)^@exad11/@fntx10(x)^@exad10)
    elseif @trinit == 21
      ptr = (@fntx10(y)^@exad10+@fntx11(tz)^@exad11)
    elseif @trinit == 22
      ptr = (@fntx10(y)^@exad10-@fntx11(tz)^@exad11)
    elseif @trinit == 23
      ptr = (@fntx11(tz)^@exad11-@fntx10(y)^@exad10)
    elseif @trinit == 24
      ptr = (@fntx10(y)^@exad10*@fntx11(tz)^@exad11)
    elseif @trinit == 25
      ptr = (@fntx10(y)^@exad10/@fntx11(tz)^@exad11)
    elseif @trinit == 26
      ptr = (@fntx11(tz)^@exad11/@fntx10(y)^@exad10)
    endif
  endif
  complex tz = z_values[#numiter-1]
  complex tz = ptr
  float zrzr = real(@fnzr(ptr))*@scc
  float zizi = imag(@fnzi(ptr))*@scc
  float rzrz = floor(zrzr)
  float iziz = floor(zizi)
  r0r0 = rzrz - 1
  i0i0 = iziz - 1
  r1r1 = rzrz + 1
  i1i1 = iziz + 1
  azaz = cabs(@fn1tx(r0r0) + @fn2tx(i0i0))
  azaz = cabs(@fn3tx(azaz))
  azaz = (azaz % @shad1 * 2)
  bzbz = cabs(@fn1tx(r1r1) + @fn2tx(i0i0))
  bzbz = cabs(@fn3tx(bzbz))
  bzbz = (bzbz % @shad2 * 2)
  czcz = cabs(@fn1tx(r1r1) + @fn2tx(i1i1))
  czcz = cabs(@fn3tx(czcz))
  czcz = (czcz % @shad3 * 2)
  dzdz = cabs(@fn1tx(r0r0) + @fn2tx(i1i1))
  dzdz = cabs(@fn3tx(dzdz))
  dzdz = (dzdz % @shad4 * 2)
  i = 1
  repeat
    avav = avav / (@trp1 * 2)
    xbxb = xbxb / (@trp2 * 2)
    frfr = rzrz + avav
    fifi = iziz + avav
    zaza = (azaz + bzbz + czcz + dzdz) / (@trp3 * 4)
    zzzz = zzzz * xbxb + zaza
    if (zrzr > frfr)
      if (zizi > fifi)
        rzrz = frfr
        iziz = fifi
        azaz = zzzz
      else
        rzrz = frfr
        dzdz = zzzz
      endif
    else
      if (zizi > fifi)
        iziz = fifi
        bzbz = zzzz
      else
        czcz = zzzz
      endif
    endif
    i = i + 1
  until i >= @freq
  texture_tr = (zaza-trunc(zaza)^@exp*2)*@trtxt

  texture = (texture_rnd + texture_fbm + texture_dec + texture_gna  \
            + texture_tr)*@txamt/10000

  if @inv == true
   if real(1/@msk) > min_dist && !(@msk == 0)
     #solid = true
   endif
  else
   if real(1/@msk) < min_dist && !(@msk == 0)
     #solid = true
   endif
  endif
;----------------------------------------------------------
  if @color_mode == 0
    tmp = distance

  elseif @color_mode == 1
    tmp = 0.01 * trap_iter

  elseif @color_mode == 2
     tmp =  ((trap_iter % @iter_mod) / @iter_mod )

  elseif @color_mode == 3
    tmp = cabs(trap_z)

  elseif @color_mode == 4
    tmp = abs(real(trap_z))

  elseif @color_mode == 5
    tmp = abs(imag(trap_z))

  elseif @color_mode == 6
    float angle = atan2(trap_z)
    if angle < 0
      angle = angle + 2 * #pi
    endif
    angle = 1 / (2 * #pi) * angle
    tmp = angle

  elseif @color_mode == 7
    trap_p = @fn6(trap_p)
  ; Use that z as the starting point
    float x = real(trap_p) * 1/@mscale
    float y = imag(trap_p) * 1/@mscale
  ; Iterate the Martin formula
    iter = 0
    while iter < @m_iterations
      float xx = x
      x = y - sin(x)
      y = @a2 - xx
      iter = iter + 1
    endwhile
    trap_p = x + flip(y)
    tmp = cabs(trap_p)

  elseif @color_mode == 8
    tmp = cabs(trap_p)

  elseif @color_mode == 9
    tmp = abs(real(trap_p))

  elseif @color_mode == 10
    tmp = abs(imag(trap_p))

  elseif @color_mode == 11
    float angle = atan2(trap_p)
    if angle < 0
      angle = angle + 2 * #pi
    endif
    angle = 1 / (2 * #pi) * angle
    tmp = angle
  endif

 #index = real(@indfn(tmp^@shad+(texture)))+(tx*@txamt/10)/100 + t2 \
          *(tx*@txamt/10)/100 +rn*@r*(tx*@txamt/10)/100
default:
  title = "Popcorn Orbit Traps +"

  param version
    caption = "Version"
    default = 1.32
    visible = false
  endparam

  param trap_mode
    caption = "Trap mode"
    enum = "Closest" "Smallest trap"
  endparam

  param color_mode
    caption = "Coloring mode"
    enum = "Distance" "Iteration" "Modulated Iter" "Magnitude" "Real" "Imag" \
           "Angle" "Martin" "Trap magnitude" "Trap real" \
           "Trap imag" "Trap angle"
  endparam

  float param a2
    caption = "Martin parameter"
    default = 3.14159
    visible = @color_mode == "Martin"
  endparam

  param m_iterations
    caption = "Martin iterations"
    hint = "This is the number of iterations for the Martin formula."
    default = 10
    visible = @color_mode == "Martin"
  endparam

  float param mscale
    caption = "Martin scale"
    default = 1.0
    visible = @color_mode == "Martin"
  endparam

  float param iter_mod
    caption = "Mod Iter Ranges"
    default = 4
    visible = @color_mode == "Modulated Iter"
  endparam

  complex param start
    caption = "Starting offset"
    default = (0,0)
  endparam

  param skip
    caption = "Iterations to skip"
    hint = "This is the number of iterations to skip before watching \
           the orbit."
    default = 0
    min = 0
  endparam

  param no_of_iters
    caption = "No. of iterations"
    hint = "This is the number of iterations to monitor the orbit."
    default = 0
    min = 0
  endparam

  float param a
    caption = "Step size"
    default = .05
  endparam

  float param C
    caption = "Constant C"
    default = 3.0
  endparam

  param max_iterations
    caption = "Popcorn iterations"
    hint = "This is the number of iterations for the Popcorn formula."
    default = 10
  endparam

  float param scale
    caption = "Popcorn scale"
    default = 1.0
  endparam

  complex param p1
    caption = "Frequency"
    default = (0,0)
  endparam

  complex param p2
    caption = "X Pattern"
    default = (1,0)
  endparam

  complex param p3
    caption = "Y Pattern"
    default = (1,0)
  endparam

  complex param p4
    caption = "P Pattern"
    default = (1,0)
  endparam

  float param shad
    caption = "Shading"
    default = 1
  endparam

heading
  caption = "Functions"
endheading


  func fnd
    caption = "Distance Function"
    default = cabs()
  endfunc


  func fn6
    caption = "Martin function"
    default = ident()
    visible = @color_mode == "Martin"
  endfunc


  func fn1
    caption = "First Function"
    default = sin()
  endfunc

  func fn2
    caption = "Second Function"
    default = tan()
  endfunc

  func fn3
    caption = "Third Function"
    default = sin()
  endfunc

  func fn4
    caption = "Fourth Function"
    default = tan()
  endfunc

  func fn5
    caption = "Fifth Function"
    default = ident()
  endfunc

  func fn7
    caption = "Sixth Function"
    default = ident()
  endfunc

  func fnr
    caption = "Real Function"
    default = ident()
  endfunc

  func fni
    caption = "Imag Function"
    default = ident()
  endfunc

  func indfn
   caption = "Final Index Function"
   default = ident()
   hint = "Changes the 'shading' of the elements."
  endfunc

heading
  caption = "Masking"
  visible = @msk == 0
endheading

heading
  caption = "Masking  [active]"
  visible = @msk != 0
endheading

  float param msk
    caption = "Masking"
    default = 0.0
  endparam

  param inv
    caption = "Invert Mask"
    default = false
  endparam

; -------------------------------------------------------------------
; Morph Parameters
; -------------------------------------------------------------------

heading
  caption = "Morph Parameters"
  visible = (@change == 0 && @exp1 == (1,0) && @exp2 == (1,0) && @exp1 == (1,0)\
   && @tw == (0,0) && @tw2 == (0,0) && @tw3 == (0,0) && @th2 == false)
endheading

heading
  caption = "Morph Parameters  [active]"
  visible = (@change != 0 || @exp1 != (1,0) || @exp2 != (1,0) || @exp1 != (1,0)\
   || @tw != (0,0) || @tw2 != (0,0) || @tw3 != (0,0) || @th2 == true)
endheading

  param adv
    caption = "Morph Parameters"
    hint = "Additional shaping parameters and functions."
    default = false
  endparam

  param th2
    caption = "Morph -> Morph II"
    default = false
    visible = @adv
  endparam

  param change
    caption = "Morph"
    enum = "1""2""3""4""5""6""7""8""9""10""11"
    default = 0
    visible = @adv
  endparam

  param mmode
    caption = "Z1 Mode"
    enum = "z+|z|""z-|z|""|z|-z"
    default = 0
    hint = "Defines relationship of z1 to z in 1st z block"
    visible = @adv && @th2
  endparam

  param zchange1
    caption = "Z1 type"
    enum = "|z|""atan2(z)""real(z)""imag(z)"
    default = 0
    hint = "Determines the character of z1 variable "
    visible = @adv && @th2
  endparam

  param mmode2
    caption = "Z2 Mode"
    enum = "z+|z|""z-|z|""|z|-z""z*|z|""z/|z|""|z|/z"
    default = 0
    hint = "Defines relationship of z2 to z in 2nd z block"
    visible = @adv && @th2 && @change > 0
  endparam

  param zchange2
    caption = "Z2 type"
    enum = "|z|""atan2(z)""real(z)""imag(z)"
    default = 0
    hint = "Determines the character of z2 variable "
    visible = @adv && @th2 && @change > 0
  endparam

  param mmode3
    caption = "Z3 Mode"
    enum = "z+|z|""z-|z|""|z|-z""z*|z|""z/|z|""|z|/z"
    default = 0
    hint = "Defines relationship of z3 to z in 3rd z block"
    visible = @adv && @th2 && @change > 5
  endparam

   param zchange3
    caption = "Z3 type"
    enum = "|z|""atan2(z)""real(z)""imag(z)"
    hint = "Determines the character of z3 variable "
    default = 0
    visible = @adv && @th2 && @change > 5
  endparam

  complex param exp1
    caption = "Bias 1"
    default = (1,0)
    visible = @adv
  endparam

  complex param exp3
    caption = "Bias 2"
    default = (1,0)
    visible = @adv && @change > 0
  endparam

  complex param exp2
    caption = "Bias 3"
    default = (1,0)
    visible = @adv && @change > 5
  endparam

  complex param exp4
    caption = "Bias Z1"
    default = (1,0)
    visible = @th2 && @adv
  endparam

  complex param exp5
    caption = "Bias Z2"
    default = (1,0)
    visible = @th2 && @adv && @change > 0
  endparam

  complex param exp6
    caption = "Bias Z3"
    default = (1,0)
    visible = @th2 && @adv && @change > 5
  endparam

  complex param tw
    caption = "Twist 1"
    default = (0,0)
    visible = @adv
  endparam

  complex param tw2
    caption = "Twist 2"
    default = (0,0)
    visible = @adv && @change > 0
  endparam

  complex param tw3
    caption = "Twist 3"
    default = (0,0)
    visible = @adv && @change > 5
  endparam

  complex param tw4
    caption = "Twist Z1"
    default = (0,0)
    visible = @th2 && @adv
  endparam

  complex param tw5
    caption = "Twist Z2"
    default = (0,0)
    visible = @th2 && @adv && @change > 0
  endparam

  complex param tw6
    caption = "Twist Z3"
    default = (0,0)
    visible = @th2 && @adv && @change > 5
  endparam

  param op
    caption = "Operator"
    enum = "+""-""*""/""^"
    default = 0
    visible = @adv && @change > 5
    endparam

  func nufunc
    caption = "Morph function 1"
    default = ident()
    visible = @adv
  endfunc

  func nufunc2
    caption = "Morph function 2"
    default = ident ()
    visible = @adv && @change > 0
  endfunc

  func nufunc3
    caption = "Morph function 3"
    default = ident ()
    visible = @adv && @change > 5
  endfunc

  func nufunc4
    caption = "Morph function Z1"
    default = ident ()
    visible = @th2 && @adv
  endfunc

  func nufunc5
    caption = "Morph function Z2"
    default = zero ()
    visible = @th2 && @adv && @change > 0
  endfunc

  func nufunc6
    caption = "Morph function Z3"
    default = zero ()
    visible = @th2 && @adv && @change > 5
  endfunc

;-------------------------------------------------------------

heading
  caption = "Texture Parameters"
  visible = (@rnd2 == 0 && @fbmtxt == 0 && @decamt == 0 && @tp == 0 && \
             @gnarl_amt == 0)
endheading

heading
  caption = "Texture Parameters  [active]"
  visible = (@rnd2 != 0 || @fbmtxt != 0 || @decamt != 0 || @tp != 0 || \
             @gnarl_amt != 0)
endheading

  param advt
    caption = "Texture Parameters"
    default = true
  endparam

  float param txamt
    caption = "Overall Tx Percent"
    default = 100.0
    hint = "Controls the amount of \
     Random, fBm, Decimal, Popgnarl and Additional \
     texture applied cumulatively."
    visible = @advt
  endparam

  float param rnd2
    caption = "Random Tx Amount"
    default = 0.0
    hint = "Adds Random texture"
    visible = @advt
  endparam

heading
  caption = "fBm"
  visible = @advt && @fbmtxt == 0
endheading

heading
  caption = "fBm  [active]"
  visible = @advt && @fbmtxt != 0
endheading

  param advfbm
    caption = "fBm Texturing"
    default = true
    visible = @advt
  endparam

  float param fbmtxt
    caption = "fBm Tx Amount"
    default = 0.0
    visible = @advt && @advfbm
  endparam

  param fbminit
    caption = "fBm Initialization"
    enum = "z""real+imag(z)""real-imag(z)""real*imag(z)""imag-real(z)"  \
     "x""y""x+y""x-y""y-x""x/y""x*y""y/x""x^y""y^x""x+z""x-z""z-x""x*z" \
     "x/z""z/x""y+z""y-z""z-y""y*z""y/z""z/y""pixel"
   hint = "Determines which variable(s) initialize(s) the texture"
     default = 0
    visible = @advt && @advfbm
  endparam

  param ztyp4
    caption = "Choose z type"
    enum = "#z""Morph z""Trap z""Dist"
    default = 2
    hint = "Determines which kind of 'z' variable is used in \
      'fBm Initialization' (when z is present). Textures created \
      with 'Trap z' conform to the element shapes and change with changes \
      in the Morph values, 'Trap #z' textures conform to the element shapes \
      but do change. 'Morph z' textures do not conform to element shapes and \
      change with Morph values and '#z' textures do not conform and remain \
      invariant, as do 'Dist' textures."
    visible = @advt && @advfbm && (@fbminit < 5 || @fbminit > 14 && \
              @fbminit < 21)
  endparam

  func fntx8
   caption  = "Init Function 1"
   default = ident()
   hint = "Modifies the 1st variable defined in \
     'fBm Initialization'"
   visible = @advt && @advfbm
  endfunc

  func fntx9
   caption  = "Init Function 2"
   default = ident()
   hint = "Modifies the 2nd variable defined in \
     'fBm Initialization'"
   visible = @advt && @advfbm
  endfunc

  complex param txia4
   caption = "Tx Pattern 1"
   default = (0.0,0.0)
   visible = @advt && @advfbm && (@fbminit < 5 || @fbminit > 14 && \
             @fbminit < 21)
  endparam

  complex param txib4
   caption = "Tx Pattern 2"
   default = (1.0,0.0)
   visible = @advt && @advfbm && (@fbminit < 5 || @fbminit > 14 && \
             @fbminit < 21)
  endparam

  complex param txic4
   caption = "Tx Pattern 3"
   default = (1.0,0.0)
   visible = @advt && @advfbm && (@fbminit < 5 || @fbminit > 14 && \
             @fbminit < 21)
  endparam

  complex param exad8
   caption = "Frequency 1"
   default = (1.0,0.0)
   hint = "Changes the pattern frequency by acting on the 1st (or only) \
          variable defined in 'fBm Initialization'"
   visible = @advt && @advfbm
  endparam

  complex param exad9
   caption = "Frequency 2"
   default = (1.0,0.0)
   hint = "Changes the pattern frequency by acting on the 2nd variable \
     (when present) defined in 'fBm Initialization'"
   visible = @advt && @advfbm  && !(@fbminit == 0 ||@fbminit == 5 || \
             @fbminit == 6 || @fbminit == 21)
  endparam

  float param fbmscale
    caption = "fBm Scale"
    default = 1.0
    visible = @advt && @advfbm
  endparam

  complex param fbmoffset
    caption = "fBm Offset"
    default = (0,0)
    visible = @advt && @advfbm
  endparam

  float param fbmangle
    caption = "fBm Rotation"
    default = 0.0
    visible = @advt && @advfbm
  endparam

  float param fbmstep
    caption = "fBm Scale Step"
    default = 0.5
    visible = @advt && @advfbm
  endparam

  float param fbmastep
    caption = "fBm Rotation Step"
    default = 37.0
    visible = @advt && @advfbm
  endparam

  param fbmoct
    caption = "fBm Octaves"
    default = 7
    min = 1
    visible = @advt && @advfbm
  endparam

  float param fbmpower
    caption = "fBm Exponent"
    default = 2.0
    visible = @advt && @advfbm
  endparam

heading
  caption = "Decimal"
  visible = @advt && @decamt == 0
endheading

heading
  caption = "Decimal  [active]"
  visible = @advt && @decamt != 0
endheading

  param advd
    caption = "Decimal Texturing"
    default = false
    visible = @advt
  endparam

  float param decamt
    caption = "Decimal Tx Amount"
    default = 0.0
    visible = @advt && @advd
  endparam

  param dec_init
   caption = "Decimal Initialisation"
   enum = "z""real+imag(z)""real-imag(z)""real*imag(z)""imag-real(z)"  \
     "x""y""x+y""x-y""y-x""x/y""x*y""y/x""x^y""y^x""x+z""x-z""z-x""x*z" \
     "x/z""z/x""y+z""y-z""z-y""y*z""y/z""z/y"
   default = 0
   hint = "Determines which variable(s) initialize(s) the texture"
   visible = @advt && @advd
  endparam

  param ztyp2
    caption = "Init z type"
    enum = "#z""Morph z""Trap z""Dist"
    default = 2
    hint = "Determines which kind of 'z' variable is used in \
      'Decimal Initialization' (when z is present). Textures created \
      with 'Trap z' conform to the element shapes and change with changes \
      in the Morph values, 'Trap #z' textures conform to the element shapes \
      but do change. 'Morph z' textures do not conform to element shapes and \
      change with Morph values and '#z' textures do not conform and remain \
      invariant, as do 'Dist' textures."
    visible = @advt && @advd  &&  (@dec_init < 5 || @dec_init > 14)
  endparam

  func fntx4
   caption  = "Init Function 1"
   default = ident()
   hint = "Modifies the 1st variable defined in  \
     'Decimal Initialization'"
   visible = @advt && @advd
  endfunc

  func fntx5
   caption  = "Init Function 2"
   default = ident()
   hint = "Modifies the 2nd variable defined in \
     'Decimal Initialization'"
   visible = @advt && @advd
  endfunc

  param dec_type
    caption = "Decimal Type"
    enum = "Ceil" "Floor" "Trunc" "Round""All Functions" \
     "-Round-Ceil""-Round*Ceil""+Round*Ceil""-Round-Trunc" \
     "-Round*Trunc""+Round*Trunc""-Trunc-Floor""-Trunc*Floor" \
     "+Trunc*Floor""-Trunc-Ceil""-Trunc*Ceil""+Trunc*Ceil" \
     "-Ceil-Floor""-Ceil*Floor""+Ceil*Floor"
    visible = @advt && @advd
  endparam

  func fndec
    caption = "Type Function"
    default = atanh ()
    hint = "Active when 'Decimal Type' = 'All Functions'"
    visible =  @advt && @advd  && @dec_type == 4
  endfunc

  complex param txia2
   caption = "Tx Pattern 1"
   default = (0.0,0.0)
   visible = @advt && @advd  &&  (@dec_init < 5 || @dec_init > 14)
  endparam

  complex param txib2
   caption = "Tx Pattern 2"
   default = (1.0,0.0)
   visible = @advt && @advd  &&  (@dec_init < 5 || @dec_init > 14)
  endparam

  complex param txic2
   caption = "Tx Pattern 3"
   default = (1.0,0.0)
   visible = @advt && @advd  &&  (@dec_init < 5 || @dec_init > 14)
  endparam


  float param dec_scale
    caption = "Scale 1st Variable"
    default = 1.0
    hint = "Changes the value of the 1st (or only) variable \
      defined in 'Decimal Type'"
    visible = @advt && @advd
  endparam

  float param dec_scale2
    caption = "Scale 2nd Variable"
    default = 1.0
    hint = "Changes the value of the 2nd variable \
      (when present) defined in 'Decimal Type'"
    visible = @advt && @advd && @dec_type > 4
  endparam

  float param dectxt
    caption = "Decimal Depth"
    default = 1.0
    hint = "Changes the amount and to some extent \
      the pattern of the texture."
    visible = @advt && @advd
  endparam

  float param dec_limit
    caption = "Decimal Limit"
    default = 2.0
    hint = "Limits the texture depth"
    min = 0.0
    visible = @advt && @advd
  endparam

  complex param exad4
    caption = "Frequency 1"
    default = (1.0,0.0)
    hint = "Changes the frequency of the texture elements \
     based on the 1st (or only) variable present defined in \
     'Decimal Initialization'"
    visible = @advt && @advd
  endparam

  complex param exad5
    caption = "Frequency 2"
    default = (1.0,0.0)
    hint = "Changes the frequency of the texture elements \
     based on the 2nd variable (when present) defined in \
     'Decimal Initialization'"
    visible = @advt && @advd && !(@dec_init == 0 ||@dec_init == 5 || \
              @dec_init == 6)
  endparam

  float param dec_size
    caption = "Decimal Size"
    default = 1.0
    visible = @advt && @advd
  endparam

  param dec_sgn
    caption = "Apply Decimal Sign?"
    default = true
    visible = @advt && @advd
  endparam

heading
  caption = "Popgnarl"
  visible = @advt && @gnarl_amt == 0
endheading

heading
  caption = "Popgnarl  [active]"
  visible = @advt && @gnarl_amt != 0
endheading

  param advpg
    caption = "Popgnarl Texturing"
    default = false
    visible = @advt
  endparam

  float param gnarl_amt
    caption = "Popgnarl Amount"
    default = 0.0
    min = 0.0
    visible = @advt && @advpg
  endparam

  param gnarl_init
    caption = "Popgnarl Init"
    enum = "z""real+imag(z)""real-imag(z)""real*imag(z)""imag-real(z)"  \
     "x""y""x+y""x-y""y-x""x/y""x*y""y/x""x^y""y^x""x+z""x-z""z-x""x*z" \
     "x/z""z/x""y+z""y-z""z-y""y*z""y/z""z/y""pixel"
    default = 0
    hint = "Determines which variable(s) initialize(s) the texture"
    visible = @advt && @advpg
  endparam

  param ztyp3
    caption = "Choose z type"
    enum = "#z""Morph z""Trap z""Dist"
    default = 2
    hint = "Determines which kind of 'z' variable is used in \
      'Popgnarl Initialization' (when z is present). Textures created \
      with 'Trap z' conform to the element shapes and change with changes \
      in the Morph values, 'Trap #z' textures conform to the element shapes \
      but do change. 'Morph z' textures do not conform to element shapes and \
      change with Morph values and '#z' textures do not conform and remain \
      invariant, as do 'Dist' textures."
    visible = @advt && @advpg && (@gnarl_init < 5 || @gnarl_init > 14 && \
              @gnarl_init < 21)
  endparam

  func fntx6
   caption  = "Init Function 1"
   default = ident()
   hint = "Modifies the 1st variable defined in \
     'Popgnarl Initialization'"
   visible = @advt && @advpg
  endfunc

  func fntx7
   caption  = "Init Function 2"
   default = ident()
   hint = "Modifies the 2nd variable defined in  \
     'Popgnarl Initialization'"
   visible = @advt && @advpg
  endfunc

  complex param txia3
   caption = "Tx Pattern 1"
   default = (0.0,0.0)
    visible = @advt && @advpg && (@gnarl_init < 5 || @gnarl_init > 14 && \
              @gnarl_init < 21)
  endparam

  complex param txib3
   caption = "Tx Pattern 2"
   default = (1.0,0.0)
    visible = @advt && @advpg && (@gnarl_init < 5 || @gnarl_init > 14 && \
              @gnarl_init < 21)
  endparam

  complex param txic3
   caption = "Tx Pattern 3"
   default = (1.0,0.0)
    visible = @advt && @advpg && (@gnarl_init < 5 || @gnarl_init > 14 && \
              @gnarl_init < 21)
  endparam

  complex param exad6
    caption = "Frequency 1"
    default = (1.0,0.0)
    hint = "Changes the frequency of the texture by altering the value \
      of the 1st (or only) variable defined in 'Popgnarl Initilaization'"
    visible = @advt && @advpg
  endparam

  complex param exad7
    caption = "Frequency 2"
    default = (1.0,0.0)
    hint = "Changes the frequency of the texture by altering the value \
      of the 2nd variable (when present) defined in 'Popgnarl Initilaization'"
    visible = @advt && @advpg && !(@gnarl_init == 0 || @gnarl_init == 5 || \
              @gnarl_init == 6 || @gnarl_init == 21)
  endparam

  param gnarl_type
    caption = "Popgnarl Mode"
    enum    = "real" "imag" "real+imag" "real*imag" "real-imag" \
              "real/imag" "imag/real" "real^imag" "imag^real" \
              "1/real" "1/imag" "angle" "magnitude" "arith. mean" \
              "geom. mean"
    visible = @advt && @advpg
  endparam

  func fng
    caption  = "Mode Function"
    default = abs()
    hint = "Acts on the variables in 'Popgnarl Mode'"
    visible = @advt && @advpg && @gnarl_type < 11
  endfunc

  param gnarl_scaling
    caption = "Popgnarl Scaling"
    enum = "Ceil" "Floor" "Trunc" "Round""All Functions" \
     "-Round-Ceil""-Round*Ceil""+Round*Ceil""-Round-Trunc" \
     "-Round*Trunc""+Round*Trunc""-Trunc-Floor""-Trunc*Floor" \
     "+Trunc*Floor""-Trunc-Ceil""-Trunc*Ceil""+Trunc*Ceil" \
     "-Ceil-Floor""-Ceil*Floor""+Ceil*Floor"
    visible = @advt && @advpg
  endparam

  func fngnarl
    caption = "Scaling Function"
    default = atanh ()
    visible = @advt && @advpg && @gnarl_scaling == 4
  endfunc

  float param gnarl_scale
    caption = "Scale 1st Variable"
    default = 1.0
    hint = "Changes the value of the 1st (or only) variable \
      defined in 'Popgnarl Scaling'"
    visible = @advt && @advpg
  endparam

  float param gnarl_scale2
    caption = "Scale 2nd Variable"
    default = 1.0
    hint = "Changes the value of the 2nd variable \
      (when present)defined in 'Popgnarl Scaling'"
    visible = @advt && @advpg && @gnarl_scaling > 4
  endparam

  param gnarl_form
    caption = "Popgnarl Formula"
    enum = "gnarl" "popcorn" "popsicle" "tannous" "narlog"
    visible = @advt && @advpg
  endparam

  float param gnarl_limit
    caption = "Popgnarl Limit"
    default = 1.0
    hint = "Limits the texture depth"
    min = 0.0
    visible = @advt && @advpg
  endparam

  float param gnarl_size
    caption = "Popgnarl Size"
    default = 1.0
    visible = @advt && @advpg
  endparam

  int param gnarl_octaves
    caption = "Popgnarl Octaves"
    default = 5
    min     = 1
    visible = @advt && @advpg
  endparam


heading
  caption = "Geometrix"
  visible = @advt && @trtxt == 0
endheading

heading
  caption = "Geometrix  [active]"
  visible = @advt && @trtxt != 0
endheading

  param advtr
    caption = "Geometrix Texturing"
    default = true
    visible = @advt
  endparam

  float param trtxt
    caption = "Geometrix Tx Amt"
    default = 0.0
    visible = @advt && @advtr
  endparam

  param trinit
    caption = "Geometrix Init"
    enum = "z""real+imag(z)""real-imag(z)""real*imag(z)""imag-real(z)"  \
     "x""y""x+y""x-y""y-x""x/y""x*y""y/x""x^y""y^x""x+z""x-z""z-x""x*z" \
     "x/z""z/x""y+z""y-z""z-y""y*z""y/z""z/y"
   hint = "Determines which variable(s) initialize(s) the texture"
     default = 0
    visible = @advt && @advtr
  endparam

  param ztyp5
    caption = "Choose z type"
    enum = "#z""Morph z""Trap z""Dist"
    default = 2
    hint = "Determines which kind of 'z' variable is used in \
      'Geometrix Initialization' (when z is present). Textures created \
      with 'Trap z' conform to the element shapes and change with changes \
      in the Morph values, 'Trap #z' textures conform to the element shapes \
      but do change. 'Morph z' textures do not conform to element shapes and \
      change with Morph values and '#z' textures do not conform and remain \
      invariant. 'Dist' needs a high value and may require adjustment \
      of the gradient. It tends to produce border and shading effects rather \
      than textures per se."
    visible = @advt && @advtr && (@trinit < 5 || @trinit > 14 && @trinit < 21)
  endparam

  func fntx10
   caption  = "Init Function 1"
   default = ident()
   hint = "Modifies the 1st variable defined in \
     'Geometrix Initialization'"
   visible = @advt && @advtr
  endfunc

  func fntx11
   caption  = "Init Function 2"
   default = ident()
   hint = "Modifies the 2nd variable defined in \
     'Geometrix Initialization'"
   visible = @advt && @advtr
  endfunc

  complex param trxia
    caption = "Pattern 1"
    default = (0.0,0.0)
    visible = @advt && @advtr && (@trinit < 5 || @trinit > 14 && @trinit < 21)
  endparam

  complex param trxib
    caption = "Pattern 2"
    default = (1.0,0.0)
    visible = @advt && @advtr && (@trinit < 5 || @trinit > 14 && @trinit < 21)
  endparam

  complex param trxic
    caption = "Pattern 3"
    default = (1.0,0.0)
    visible = @advt && @advtr && (@trinit < 5 || @trinit > 14 && @trinit < 21)
  endparam

  complex param exad10
   caption = "Frequency 1"
   default = (1.0,0.0)
   hint = "Changes the pattern frequency by acting on the 1st (or only) \
    variable defined in 'Geometrix Initialization'"
   visible = @advt && @advtr
  endparam

  complex param exad11
   caption = "Frequency 2"
   default = (1.0,0.0)
   hint = "Changes the pattern frequency by acting on the 2nd variable \
     (when present) defined in 'Geometrix Initialization'"
   visible = @advt && @advtr  && !(@trinit == 0 ||@trinit == 5 || @trinit == 6 ||\
             @trinit == 21)
  endparam

  float param exp
    caption = "Contrast"
    default = 0.4
   visible = @advt && @advtr
   hint = "Higher values intensify the contrast between texture sections. If \
           you find burned-out areas of texture try lowering this value"
  endparam


  float param scc
    caption = "Density"
    default = 1.0
    hint = "Higher values create finer detail in the texture"
   visible = @advt && @advtr
  endparam

  float param trp1
    caption = "Scale"
    default = 1
    visible = @advt && @advtr
    hint = "Densest texture is at '1'. Try other values and increase the \
            'Density' value to achieve different texture patterns"
  endparam

  float param freq
    caption = "Definition 1"
    default = 10
   visible = @advt && @advtr
   hint = "Works interactively with other 'Definition' params. Higher values \
           yield more texture definition and/or complexity"
  endparam

  float param trp2
    caption = "Definition 2"
    default = .7
   hint = "Works interactively with other 'Definition' params. Lower values \
           yield more texture definition"
   visible = @advt && @advtr
  endparam

  float param trp3
    caption = "Definition 3"
    default = .7
   hint = "Works interactively with other 'Definition' params. Higher values \
           yield more texture definition"
   visible = @advt && @advtr
  endparam

  float param shad1
    caption = "Shading 1"
    default = 1
    hint = "Affects the shading of certain areas of texture"
    visible = @advt && @advtr
  endparam

    float param shad2
    caption = "Shading 2"
    default = 1
    hint = "Affects the shading of certain areas of texture"
    visible = @advt && @advtr
  endparam

  float param shad3
    caption = "Shading 3"
    default = 1
    hint = "Affects the shading of certain areas of texture"
    visible = @advt && @advtr
  endparam

  float param shad4
    caption = "Shading 4"
    default = 1
    hint = "Affects the shading of certain areas of texture"
    visible = @advt && @advtr
  endparam

  func fnzr
    caption = "Z function 1"
    default = ident()
   visible = @advt && @advtr
  endfunc

  func fnzi
    caption = "Z function 2"
    default = ident()
   visible = @advt && @advtr
  endfunc

  func fn1tx
    caption  = "Real function"
    default = sqrt()
   visible = @advt && @advtr
  endfunc

  func fn2tx
    caption  = "Imag function"
    default = ident()
   visible = @advt && @advtr
  endfunc

  func fn3tx
    caption  = "Overall function"
    default = asin()
   visible = @advt && @advtr
  endfunc



heading
  caption = "Additional Texture"
  visible = @advt && @tp == 0
endheading

heading
  caption = "Additional Texture  [active]"
  visible = @advt && @tp != 0
endheading

  param advatx
    caption = "Additional Texturing"
    default = false
    visible = @advt
  endparam

  float param tp
    caption = "Add'l Tx Amount"
    hint = "'Blends' in texture"
    default = 0.0
    visible = @advt && @advatx
  endparam

  param tt
    caption = "Add'l Tx Initialization"
    enum = "z""real+imag(z)""real-imag(z)""real*imag(z)""imag-real(z)"  \
    "x""y""x+y""x-y""y-x""x/y""x*y""y/x""x^y""y^x""x+z""x-z""z-x""x*z" \
    "x/z""z/x""y+z""y-z""z-y""y*z""y/z""z/y"
    default = 0
    hint = "Determines which variable(s) initialize(s) the texture"
    visible = @advt && @advatx
  endparam

  param ztyp
    caption = "Choose z type"
    enum = "#z""Morph z""Trap z""Dist"
    default = 2
    hint = "Determines which kind of 'z' variable is used in \
      'Add'l Tx Initialization' (when z is present). Textures created \
      with 'Trap z' conform to the element shapes and change with changes \
      in the Morph values, 'Trap #z' textures conform to the element shapes \
      but do change. 'Morph z' textures do not conform to element shapes and \
      change with Morph values and '#z' textures do not conform and remain \
      invariant, as do 'Dist' textures."
    visible = @advt && @advatx && (@tt < 5 || @tt > 14)
  endparam

  func fntx1
    caption  = "Init Function 1"
    default = ident()
    hint = "Modifies the 1st variable defined in \
     'Add'l Tx Initialization'"
    visible = @advt && @advatx
  endfunc

  func fntx2
    caption  = "Init Function 2"
    default = ident()
    hint = "Modifies the 2nd variable defined in\
     'Add'l Tx Initialization'"
    visible = @advt && @advatx
  endfunc

  func fntx3
    caption  = "Add'l Tx Function"
    default = trunc()
    visible = @advt && @advatx
  endfunc

  complex param txia1
    caption = "Tx Pattern 1"
    default = (0.0,0.0)
    visible = @advt && @advatx && (@tt < 5 || @tt > 14)
  endparam

  complex param txib1
    caption = "Tx Pattern 2"
    default = (1.0,0.0)
    visible = @advt && @advatx && (@tt < 5 || @tt > 14)
  endparam

  complex param txic1
    caption = "Tx Pattern 3"
    default = (1.0,0.0)
    visible = @advt && @advatx && (@tt < 5 || @tt > 14)
  endparam

  complex param exad1
    caption = "Frequency 1"
    default = (1.0,0.0)
    hint = "Determines the frequency of the pattern by acting on \
      the 1st (or only) variable defined by 'Add'l Tx Initialization'"
    visible = @advt && @advatx
  endparam

  complex param exad2
    caption = "Frequency 2"
    default = (1.0,0.0)
    hint = "Determines the frequency of the pattern by acting on \
      the 2nd variable (when present) defined by 'Add'l Tx Initialization'"
    visible = @advt && @advatx && !(@tt == 0 ||@tt == 5 || @tt == 6)
  endparam

  float param tv
    caption = "Scale 1"
    hint = "This and the next parameter work together \
            to determine the scale of the texture"
    default = 10.0
    visible = @advt && @advatx
  endparam

  float param ts
    caption = "Scale 2"
    default = 2.0
    visible = @advt && @advatx
  endparam

  float param tc
    caption = "Density"
    hint = "Works similarly to 'Color Density'. Positive \
            numbers use division.  Negative numbers use modulus, \
            producing a slightly different effect."
    default = 5.0
    visible = @advt && @advatx
  endparam

  float param r
    caption = "Randomness"
    default = 0.0
    visible = @advt && @advatx
  endparam

}

gnd-fBmGnarly-traps {
; Modified Gnarly Orbit Traps
; compound with the model of fBm Popcorn Trap
; formulas from Mark Townsend, 27 Aug 1999, 2 April 2000
;
; fBm texture added 6 April 2000
; Texture and pattern enhancements added 23 April 2000
; Masking enhancements added 14 May 2000
;
; The code for the fBm texture comes from Damien M. Jones'
; Fractional Brownian Motion coloring method.
;
; version 1.4, December 2004
; Gilles Nadeau, 27/12/2004
;
init:
  int i = 0
  pat_p = 0
  trap_z = 0
  trap_p = 0
  float x = 0
  float y = 0
  float xx = 0
  int iter = 0
  float sum = 0
  float dist = 0
  float noise = 0
  int trap_iter = 0
  float texture = 0
  bool masked = false
  float min_dist = 1e30
loop:
  p = @fn1(#z / @scale) - @offset
; Iterate the Gnarly formulas
  i = 0
  x = real(p)
  y = imag(p)
  while i < @max_iterations
    xx = x
  if @version < 1.4
   if @formula == 0
    ; Martin
      x = y - real(@mn1(x))
      y = @ma - xx
    elseif @formula == 1
    ; Popcorn
      x = x - real(@h * @pn1(y + @pn2(real(@c) * y)))
      y = y - imag(@h * @pn3(xx + @pn4(imag(@c) * xx)))
    elseif @formula == 2
      ; Vine
      if @flavor == 0
        x = x - real(@h * @vn1(y + @vn2(real(@a) * y )))
        y = y + imag(@h * @vn3(xx + @vn4(imag(@a) * xx)))
      elseif @flavor == 1
        x = x - real(@h * @vn1(y^real(@b) + @vn2(real(@a) * y)))
        y = y + imag(@h * @vn3(xx^imag(@b) + @vn4(imag(@a) * xx)))
      elseif @flavor == 2
       x = x - real(@h * @vn1(y + @vn2(real(@a) * (y + @vn5(real(@a) * y)))))
       y = y + imag(@h * @vn3(xx + @vn4(imag(@a) * (xx + @vn6(imag(@a) * xx)))))
      else
        float newx = y
        float newy = x
        int j = 0
        while j < @flavor
          j = j + 1
          newx = y + real(@vn7(real(@a) * newx))
          newy = x + real(@vn8(imag(@a) * newy))
        endwhile
        x = x - real(@h * @vn9(newx))
        y = y + imag(@h * @vn10(newy))
      endif
    elseif @formula == 3
      ; Gnarl
      x = x - real(@h * @gn1(y + @gn2(real(@a) * (y + @gn3(real(@b) * y)))))
      y = y + imag(@h * @gn4(xx + @gn5(imag(@a) * (xx + @gn6(imag(@b) * xx)))))
    elseif @formula == 4
      ; Dynamic
      x = x - real(@h * @dn1(y + real(@a) * @dn2(real(@b) * y)))
      y = y + imag(@h * @dn3(xx + imag(@a) * @dn4(imag(@b) * xx)))
    endif
  else
   if @formula == 0
    ; Martin
      x = y - real(@mn1(x))
      y = @ma - xx
    elseif @formula == 1
    ; Popcorn
      x = x - real(@h) * real(@pn1(y + @pn2(real(@c) * y)))
      y = y - imag(@h) * real(@pn3(xx + @pn4(imag(@c) * xx)))
    elseif @formula == 2
      ; Vine
      if @flavor == 0
        x = x - real(@h) * real(@vn1(y + @vn2(real(@a) * y )))
        y = y + imag(@h) * real(@vn3(xx + @vn4(imag(@a) * xx)))
      elseif @flavor == 1
        x = x - real(@h) * real(@vn1(y^real(@b) + @vn2(real(@a) * y)))
        y = y + imag(@h) * real(@vn3(xx^imag(@b) + @vn4(imag(@a) * xx)))
      elseif @flavor == 2
       x = x - real(@h) * real(@vn1(y + @vn2(real(@a) * (y + @vn5(real(@a) * y)))))
       y = y + imag(@h) * real(@vn3(xx + @vn4(imag(@a) * (xx + @vn6(imag(@a) * xx)))))
      else
        float newx = y
        float newy = x
        int j = 0
        while j < @flavor
          j = j + 1
          newx = y + real(@vn7(real(@a) * newx))
          newy = x + real(@vn8(imag(@a) * newy))
        endwhile
        x = x - real(@h) * real(@vn9(newx))
        y = y + imag(@h) * real(@vn10(newy))
      endif
    elseif @formula == 3
      ; Gnarl
      x = x - real(@h) * real(@gn1(y + @gn2(real(@a) * (y + @gn3(real(@b) * y)))))
      y = y + imag(@h) * real(@gn4(xx + @gn5(imag(@a) * (xx + @gn6(imag(@b) * xx)))))
    elseif @formula == 4
      ; Dynamic
      x = x - real(@h) * real(@dn1(y + real(@a) * @dn2(real(@b) * y)))
      y = y + imag(@h) * real(@dn3(xx + imag(@a) * @dn4(imag(@b) * xx)))
    endif
  endif
    i = i + 1
  endwhile
  p = @fn2(x + flip(y)) + @offset
  dist = cabs(#z - p)
  if (iter >= @skip) && dist < min_dist
    trap_z = #z
    trap_p = p
    min_dist = dist
    trap_iter = iter
  endif
  iter = iter + 1
final:
  if @mask_type == 0
    if @mask != 0
      if min_dist > @mask
        masked = true
      endif
    endif
  elseif @mask_type == 1
    if @mask != 0
      float mask_val = trap_iter
      if @mask_mod != 0
        mask_val = trap_iter % @mask_mod
      endif
      if mask_val < @mask
        masked = true
      endif
    endif
  elseif @mask_type == 2
    if (trap_iter >= @mask) && (trap_iter <= @mask_mod)
      masked = true
    endif
  endif
  if @inverse
    masked = !masked
  endif
  if masked
    #solid = true
  else
    if (@texture_type == 0)
    ;Random
      texture = @rnd * real(#random)
    else
    ; fBm
      if (@rnd != 0)
        complex r = (0,1) ^ (@angle / 90.0)
        complex r2 = (0,1) ^ (@anglestep / 90.0)
        if @initial == 0
          pat_p = #pixel * r + @fbmOffset
          complex p = #pixel * @fbmscale * r + @fbmoffset
        elseif @initial == 1
          pat_p = trap_z * r + @fbmOffset
          complex p = trap_z * @fbmscale * r + @fbmoffset
        elseif @initial == 2
          pat_p = trap_p * r + @fbmOffset
           complex p = trap_p * @fbmscale * r + @fbmoffset
        endif
        float freq = 1.0
        int i = @octaves
        while (i > 0)
          ; determine integer coordinate for corners of square
          ; surrounding p
          float bx0 = floor(real(p)) % 256
          float by0 = floor(imag(p)) % 256
          if (bx0 < 0)
            bx0 = bx0 + 256
          endif
          if (by0 < 0)
            by0 = by0 + 256
          endif
          float bx1 = (bx0 + 1) % 256
          float by1 = (by0 + 1) % 256
          float rx0 = real(p) - floor(real(p))
          float ry0 = imag(p) - floor(imag(p))
          float rx1 = rx0 - 1
          float ry1 = ry0 - 1
          float b00 = (bx0^@power % 65536 + by0)^@power % 65536
          float b10 = (bx1^@power % 65536 + by0)^@power % 65536
          float b01 = (bx0^@power % 65536 + by1)^@power % 65536
          float b11 = (bx1^@power % 65536 + by1)^@power % 65536
          float g_b00_0 = (b00)^@power*0.25 % 512 - 256
          float g_b10_0 = (b10)^@power*0.25 % 512 - 256
          float g_b01_0 = (b01)^@power*0.25 % 512 - 256
          float g_b11_0 = (b11)^@power*0.25 % 512 - 256
          float g_b00_1 = (b00+1)^@power*0.25 % 512 - 256
          float g_b10_1 = (b10+1)^@power*0.25 % 512 - 256
          float g_b01_1 = (b01+1)^@power*0.25 % 512 - 256
          float g_b11_1 = (b11+1)^@power*0.25 % 512 - 256
          float d = 0.0;
          d = 1 / sqrt(sqr(g_b00_0) + sqr(g_b00_1))
          g_b00_0 = g_b00_0 * d
          g_b00_1 = g_b00_1 * d
          d = 1 / sqrt(sqr(g_b10_0) + sqr(g_b10_1))
          g_b10_0 = g_b10_0 * d
          g_b10_1 = g_b10_1 * d
          d = 1 / sqrt(sqr(g_b01_0) + sqr(g_b01_1))
          g_b01_0 = g_b01_0 * d
          g_b01_1 = g_b01_1 * d
          d = 1 / sqrt(sqr(g_b11_0) + sqr(g_b11_1))
          g_b11_0 = g_b11_0 * d
          g_b11_1 = g_b11_1 * d
          float u1 = rx0 * g_b00_0 + ry0 * g_b00_1
          float v1 = rx1 * g_b10_0 + ry0 * g_b10_1
          float u2 = rx0 * g_b01_0 + ry1 * g_b01_1
          float v2 = rx1 * g_b11_0 + ry1 * g_b11_1
          float sx = sqr(rx0) * (3 - rx0*2)
          float sy = sqr(ry0) * (3 - ry0*2)
          float a = u1 + sx*(v1 - u1)
          float b = u2 + sx*(v2 - u2)
          if @fbmfunc == 0
          ; Ident
            sum = sum + (a + sy * (b - a)) * freq
          elseif @fbmfunc == 1
          ; Abs
            sum = sum + sqrt(2) * abs(a + sy * (b - a)) * freq
          elseif @fbmfunc == 2
          ; Sqr
            sum = sum + 4 * sqr(a + sy * (b - a)) * freq
          elseif @fbmfunc == 3
          ; Sqrt
            float noise = a + sy * (b - a)
            if noise < 0
              noise = imag(sqrt(noise))
            else
              noise = real(sqrt(noise))
            endif
            sum = sum + noise * freq
          elseif @fbmfunc == 4
          ; Ceil
            sum = sum + ceil(a + sy * (b - a)) * freq
          endif
          freq = freq * @step
          p = p * r2 / @step
          i = i - 1
        endwhile
      endif
      if @pattern == 0
        noise = sum
      elseif @pattern == 1
      ; Marble
        noise = real(sin(@pfreq * real(pat_p) + (@turb * sum)))
      elseif @pattern == 2
      ; Wood
        noise = cabs(@pfreq * pat_p) + (@turb * sum)
      elseif @pattern == 3
      ; Cells
        float x = sin(@pfreq * real(pat_p))
        float y = cos(@pfreq * imag(pat_p))
        noise = cabs(x + flip(y)) + (@turb * sum)
      elseif @pattern == 4
        p = round(pat_p * @pfreq) / @pfreq
        noise = 2 * cabs(@pfreq * pat_p - @pfreq * p) + (@turb * sum)
      endif
      if @texture_type == 1
      ; Original fBm
        texture = @rnd * noise
      elseif @texture_type == 2
      ; Corrected fBm
        texture = @rnd * ((noise + 1) * 0.5)
      endif
    endif
    if @color_mode == 0
    ; Distance
      #index = min_dist + texture
    elseif @color_mode == 1
    ; Iteration
      #index = 0.01 * trap_iter + texture
    elseif @color_mode == 2
    ; Magnitude
      #index = cabs(trap_z) + texture
    elseif @color_mode == 3
    ; Real
      #index = abs(real(trap_z)) + texture
    elseif @color_mode == 4
    ; Imag
      #index = abs(imag(trap_z)) + texture
    elseif @color_mode == 5
    ; Angle
      float angle = atan2(trap_z)
      if angle < 0
        angle = angle + 2 * #pi
      endif
      angle = 1 / (2 * #pi) * angle
      #index = angle + (@rnd * real(#random))
    elseif @color_mode == 6
   ; Modulated iteration
        #index =  ((trap_iter) % 8) / 8 + texture
    elseif @color_mode == 7
    ; Angle to Trap
      float angle = atan2(trap_z - trap_p)
      if angle < 0
        angle = angle + 2 * #pi
      endif
      angle = 1 / (2 * #pi) * angle
      #index = angle + texture
    endif
  endif
default:
  title = "fBm Gnarly Orbit Traps"
  param version
    caption = "Version"
    default = 1.4
    visible = false
  endparam
  heading
    caption = "Global Settings"
  endheading
  param color_mode
    caption = "Coloring Mode"
    enum = "Distance" "Iteration" "Magnitude" "Real" "Imag" \
           "Angle" "Modulated Iter" "Angle to Trap"
  endparam
  param max_iterations
    caption = "Iterations"
    default = 20
    min = 1
  endparam
  param @scale
    caption = "Scale"
    default = 0.5
  endparam
  param offset
    caption = "Offset"
    default = (0,0)
  endparam
  param skip
    caption = "Iterations to Skip"
    hint = "This is the number of iterations to skip before watching \
           the orbit."
    default = 0
    min = 0
  endparam
  heading
  caption = "Formula Parameters"
  endheading
  param formula
    caption = "Formula"
    enum = "Martin" "Popcorn" "Vine" "Gnarl" "Dynamic"
    default = 1
  endparam
  float param ma
    caption = "Martin Parameter"
    default = pi
    visible = @formula == 0
  endparam
  param h
    caption = "Step Size"
    default = (0.05, 0.05)
    visible = @formula == 1 || @formula == 2 || @formula == 3 || @formula == 4
  endparam
  param flavor
    caption = "Vine flavor"
    hint = "This is the 'flavor' for the Vine formula."
    default = 2
    min = 0
    visible = @formula == 2
  endparam
  param a
    caption = "Alpha"
    default = (3.0, 3.0)
    visible = @formula == 2 || @formula == 3 || @formula == 4
  endparam
  param b
    caption = "Beta"
    default = (2.0, 2.0)
    visible = @formula == 2 && @flavor == 1 || @formula == 3 || @formula == 4
  endparam
  param c
    caption = "Constant C"
    default = (3.0, 3.0)
    visible = @formula == 1
  endparam
  heading
  caption = "Global functions"
  endheading
  func fn1
    caption = "First function"
    hint = "This function changes the overall shape of \
            the trap."
    default = ident()
  endfunc
  func fn2
    caption = "Second function"
    hint = "This function changes the overall shape of \
            the trap."
    default = ident()
  endfunc
  func mn1
    caption = "Martin function"
    default = sin()
    visible = @formula == 0
  endfunc
  heading
  caption = "Popcorn functions"
  visible = @formula == 1
  endheading
  func pn1
    caption = "Popcorn #1"
    default = sin()
    visible = @formula == 1
  endfunc
  func pn2
    caption = "Popcorn #2"
    default = tan()
    visible = @formula == 1
  endfunc
  func pn3
    caption = "Popcorn #3"
    default = sin()
    visible = @formula == 1
  endfunc
  func pn4
    caption = "Popcorn #4"
    default = tan()
    visible = @formula == 1
  endfunc
  heading
  caption = "Vine functions"
  visible = @formula == 2
  endheading
  func vn1
    caption = "Vine #1"
    default = sin()
    visible = @formula == 2 && @flavor < 3
  endfunc
  func vn2
    caption = "Vine #2"
    default = sin()
    visible = @formula == 2 && @flavor < 3
  endfunc
  func vn3
    caption = "Vine #3"
    default = sin()
    visible = @formula == 2 && @flavor < 3
  endfunc
  func vn4
    caption = "Vine #4"
    default = sin()
    visible = @formula == 2 && @flavor < 3
  endfunc
  func vn5
    caption = "Vine #5"
    default = sin()
    visible = @formula == 2 && @flavor == 2
  endfunc
  func vn6
    caption = "Vine #6"
    default = sin()
    visible = @formula == 2 && @flavor == 2
  endfunc
  func vn7
    caption = "Vine #7"
    default = sin()
    visible = @formula == 2 && @flavor > 2
  endfunc
  func vn8
    caption = "Vine #8"
    default = sin()
    visible = @formula == 2 && @flavor > 2
  endfunc
  func vn9
    caption = "Vine #9"
    default = sin()
    visible = @formula == 2 && @flavor > 2
  endfunc
  func vn10
    caption = "Vine #10"
    default = sin()
    visible = @formula == 2 && @flavor > 2
  endfunc
  heading
  caption = "Gnarl functions"
  visible = @formula == 3
  endheading
  func gn1
    caption = "Gnarl #1"
    default = sin()
    visible = @formula == 3
  endfunc
  func gn2
    caption = "Gnarl #2"
    default = sin()
    visible = @formula == 3
  endfunc
  func gn3
    caption = "Gnarl #3"
    default = sin()
    visible = @formula == 3
  endfunc
  func gn4
    caption = "Gnarl #4"
    default = sin()
    visible = @formula == 3
  endfunc
  func gn5
    caption = "Gnarl #5"
    default = sin()
    visible = @formula == 3
  endfunc
  func gn6
    caption = "Gnarl #6"
    default = sin()
    visible = @formula == 3
  endfunc
  heading
  caption = "Dynamic functions"
  visible = @formula == 4
  endheading
  func dn1
    caption = "Dynamic #1"
    default = sin()
    visible = @formula == 4
  endfunc
  func dn2
    caption = "Dynamic #2"
    default = tan()
    visible = @formula == 4
  endfunc
  func dn3
    caption = "Dynamic #3"
    default = sin()
    visible = @formula == 4
  endfunc
  func dn4
    caption = "Dynamic #4"
    default = tan()
    visible = @formula == 4
  endfunc
  heading
    caption = "Masking"
  endheading
  param mask_type
    caption = "Mask Type"
    enum = "Distance" "Iteration" "Range"
  endparam
  param mask
    caption = "Mask Threshold"
    default = 0.0
    min = 0.0
    hint = "With the Distance Mask Type orbits that don't come at least \
            this close to the trap are made solid. A value of zero means \
            that no pixels are made solid."
  endparam
  param mask_mod
    caption = "Mask Modulation"
    default = 0
    hint = "With the Modulation Mask Type the iteration that the orbit \
            was caught by the trap is modulated by this value, and if \
            the Mask Threshold is smaller the pixel is made solid."
  endparam
  param inverse
    caption = "Mask Reversed"
    default = false
  endparam
  param texture_type
    caption = "Texture Type"
    enum = "Random" "fBm" "Corrected fBm"
    hint = "This is the type of texture to add to the coloring. The \
           Texture Amount parameter must be non-zero for texture to be added."
  endparam
  param rnd
    caption = "Texture Amount"
    default = 0.0
    hint = "This is the amount of texturing to add to the coloring."
  endparam
  heading
  caption = "fBm Parameters"
  endheading
  param initial
    caption = "fBm Initialisation"
    enum = "Pixel" "Orbit" "Trap"
    hint = "Different ways of starting the fBm formula. With \
           Orbit and Trap the texture will follow the orbit trap \
           elements in some way."
  endparam
  param fbmfunc
    caption = "fBm Function"
    enum = "Ident" "Abs" "Sqr" "Sqrt" "Ceil"
    hint = "This is a function that is added to the fBm to chnage \
            the way that it looks."
  endparam
  param fbmscale
    caption = "fBm Scale"
    default = 1.0
    hint = "This is the overall scale of the noise."
  endparam
  param fbmoffset
    caption = "fBm Offset"
    default = (0,0)
    hint = "This is the offset of the pattern. You can use this to shift \
            the pattern around on the complex plane."
  endparam
  param angle
    caption = "fBm Rotation"
    default = 0.0
    hint = "This is the angle, in degrees, of the noise."
  endparam
  param step
    caption = "fBm Scale Step"
    default = 0.5
    hint = "This is the step in scale between noise iterations."
  endparam
  param anglestep
    caption = "fBm Rotation Step"
    default = 37.0
    hint = "This is the angle, in degrees, to rotate between noise \
            iterations."
  endparam
  param octaves
    caption = "fBm Octaves"
    default = 7
    min = 1
    hint = "This is the number of iterations of the noise formula."
  endparam
  param power
    caption = "fBm Exponent"
    default = 2.0
    hint = "This is the exponent used to scramble numbers."
  endparam
  param pattern
    caption = "fBm Pattern"
    enum = "None" "Marble" "Wood" "Cells" "Squares"
    hint = "This creates a repeating pattern to be disturbed by the fBm."
  endparam
  param pfreq
    caption = "fBm Frequency"
    default = 1.0
    hint = "This controls the frequency of the Pattern."
  endparam
  param turb
    caption = "fBm Turbulence"
    default = 1.0
    hint = "With a Pattern other than None this effects how \
           the pattern will be by the fBm."
  endparam
}

gnd-4-D-Gnarly-traps {
; Modified Gnarly Orbit Traps
; compound with the model of fBm Popcorn Trap
; formulas from Mark Townsend, 27 Aug 1999, 2 April 2000
;
; fBm texture added 6 April 2000
; Texture and pattern enhancements added 23 April 2000
; Masking enhancements added 14 May 2000
;
; The code for the fBm texture comes from Damien M. Jones'
; Fractional Brownian Motion coloring method.
;
; version 1.1, May 2005
; Gilles Nadeau, 16/05/2005
;
init:
  int i = 0
  pat_p = 0
  trap_z = 0
  trap_p = 0
  float xa = 0
  float ya = 0
  float xb = 0
  float yb = 0
  float xc = 0
  float xd = 0
  int iter = 0
  float sum = 0
  float dist = 0
  float noise = 0
  int trap_iter = 0
  float texture = 0
  bool masked = false
  float min_dist = 1e30
loop:
 if (@version >= 1.1)
  pa = ((#z + @w*1i) / @scale) - @offset
  pb = ((#z - @w*1i) / @scale) - @offset
; Iterate the Gnarly formula
  i = 0
  xa = real(pa)
  ya = imag(pa)
  xb = real(pb) 
  yb = imag(pb)
 else
  p = (#z / @scale) - @offset
  q = (@w / @scale) - @offset
; Iterate the Gnarly formula
  i = 0
  xa = real(p) - imag(q)
  ya = imag(p) + real(q)
  xb = real(p) + imag(q)
  yb = imag(p) - real(q)
 endif 
  while i < @max_iterations
    xc = xa
    xd = xb
   if @formula == 0
    ; Martin
      xa = ya - real(@mn1(xa))
      ya = @ma - xc
      xb = yb - real(@mn1(xb))
      yb = @ma - xd
    elseif @formula == 1
    ; Popcorn
      xa = xa - real(@h) * real(@pn1(ya + @pn2(real(@c) * ya)))
      ya = ya - imag(@h) * real(@pn3(xc + @pn4(imag(@c) * xc)))
      xb = xb - real(@h) * real(@pn1(yb + @pn2(real(@c) * yb)))
      yb = yb - imag(@h) * real(@pn3(xd + @pn4(imag(@c) * xd)))
    elseif @formula == 2
      ; Vine
      if @flavor == 0
        xa = xa - real(@h) * real(@vn1(ya + @vn2(real(@a) * ya)))
        ya = ya + imag(@h) * real(@vn3(xc + @vn4(imag(@a) * xc)))
        xb = xb - real(@h) * real(@vn1(yb + @vn2(real(@a) * yb)))
        yb = yb + imag(@h) * real(@vn3(xd + @vn4(imag(@a) * xd)))
      elseif @flavor == 1
        xa = xa - real(@h) * real(@vn1(ya^real(@b) + @vn2(real(@a) * ya)))
        ya = ya + imag(@h) * real(@vn3(xc^imag(@b) + @vn4(imag(@a) * xc)))
        xb = xb - real(@h) * real(@vn1(yb^real(@b) + @vn2(real(@a) * yb)))
        yb = yb + imag(@h) * real(@vn3(xd^imag(@b) + @vn4(imag(@a) * xd)))
      elseif @flavor == 2
       xa = xa - real(@h) * real(@vn1(ya + @vn2(real(@a) * (ya + @vn5(real(@a) * ya)))))
       ya = ya + imag(@h) * real(@vn3(xc + @vn4(imag(@a) * (xc + @vn6(imag(@a) * xc)))))
       xb = xb - real(@h) * real(@vn1(yb + @vn2(real(@a) * (yb + @vn5(real(@a) * yb)))))
       yb = yb + imag(@h) * real(@vn3(xd + @vn4(imag(@a) * (xd + @vn6(imag(@a) * xd)))))  
      else
        float newxa = ya
        float newya = xa
        float newxb = yb
        float newyb = xb
        int j = 0
        while j < @flavor
          j = j + 1
          newxa = ya + real(@vn7(real(@a) * newxa))
          newya = xa + real(@vn8(imag(@a) * newya))
          newxb = yb + real(@vn7(real(@a) * newxb))
          newyb = xb + real(@vn8(imag(@a) * newyb))
        endwhile
        xa = xa - real(@h) * real(@vn9(newxa))
        ya = ya + imag(@h) * real(@vn10(newya))
        xb = xb - real(@h) * real(@vn9(newxb))
        yb = yb + imag(@h) * real(@vn10(newyb))
      endif
    elseif @formula == 3
      ; Gnarl  
      xa = xa - real(@h) * real(@gn1(ya + @gn2(real(@a) * (ya + @gn3(real(@b) * ya)))))
      ya = ya + imag(@h) * real(@gn4(xc + @gn5(imag(@a) * (xc + @gn6(imag(@b) * xc)))))
      xb = xb - real(@h) * real(@gn1(yb + @gn2(real(@a) * (yb + @gn3(real(@b) * yb)))))
      yb = yb + imag(@h) * real(@gn4(xd + @gn5(imag(@a) * (xd + @gn6(imag(@b) * xd)))))
    elseif @formula == 4
      ; Dynamic  
      xa = xa - real(@h) * real(@dn1(ya + real(@a) * @dn2(real(@b) * ya)))
      ya = ya + imag(@h) * real(@dn3(xc + imag(@a) * @dn4(imag(@b) * xc)))
      xb = xb - real(@h) * real(@dn1(yb + real(@a) * @dn2(real(@b) * yb)))
      yb = yb + imag(@h) * real(@dn3(xd + imag(@a) * @dn4(imag(@b) * xd)))
    endif
    i = i + 1
  endwhile
 if (@version >= 1.1)
  pa = (xa + flip(ya)) + @offset
  pb = (xb + flip(yb)) + @offset
  p = (pa + pb) / 2
 else
  p = (xa + xb + flip(ya + yb)) / 2 + @offset
  q = (ya - yb + flip(xb - xa)) / 2 + @offset
 endif 
  dist = cabs(#z - p)
  if (iter >= @skip) && dist < min_dist
    trap_z = #z
    trap_p = p
    min_dist = dist
    trap_iter = iter
  endif
  iter = iter + 1  
final:
  if @mask_type == 0 
    if @mask != 0
      if min_dist > @mask
        masked = true
      endif  
    endif  
  elseif @mask_type == 1
    if @mask != 0
      float mask_val = trap_iter
      if @mask_mod != 0
        mask_val = trap_iter % @mask_mod
      endif  
      if mask_val < @mask
        masked = true
      endif  
    endif  
  elseif @mask_type == 2
    if (trap_iter >= @mask) && (trap_iter <= @mask_mod)
      masked = true
    endif  
  endif
  if @inverse
    masked = !masked
  endif  
  if masked
    #solid = true
  else  
    if (@texture_type == 0) 
    ;Random
      texture = @rnd * real(#random)
    else
    ; fBm
      if (@rnd != 0)
        complex r = (0,1) ^ (@angle / 90.0)
        complex r2 = (0,1) ^ (@anglestep / 90.0)
        if @initial == 0
          pat_p = #pixel * r + @fbmOffset
          complex p = #pixel * @fbmscale * r + @fbmoffset
        elseif @initial == 1
          pat_p = trap_z * r + @fbmOffset
          complex p = trap_z * @fbmscale * r + @fbmoffset
        elseif @initial == 2
          pat_p = trap_p * r + @fbmOffset
           complex p = trap_p * @fbmscale * r + @fbmoffset
        endif
        float freq = 1.0
        int i = @octaves
        while (i > 0)
          ; determine integer coordinate for corners of square
          ; surrounding p
          float fx = floor(real(p))
          float fy = floor(imag(p))
          float bx0 = fx % 256
          float by0 = fy % 256
          if (bx0 < 0)
            bx0 = bx0 + 256
          endif
          if (by0 < 0)
            by0 = by0 + 256
          endif
          float bx1 = (bx0 + 1) % 256
          float by1 = (by0 + 1) % 256
          float rx0 = real(p) - fx
          float ry0 = imag(p) - fy
          float rx1 = rx0 - 1
          float ry1 = ry0 - 1
          float b00 = (bx0^@power % 65536 + by0)^@power % 65536
          float b10 = (bx1^@power % 65536 + by0)^@power % 65536
          float b01 = (bx0^@power % 65536 + by1)^@power % 65536
          float b11 = (bx1^@power % 65536 + by1)^@power % 65536
          float g_b00_0 = (b00)^@power*0.25 % 512 - 256
          float g_b10_0 = (b10)^@power*0.25 % 512 - 256
          float g_b01_0 = (b01)^@power*0.25 % 512 - 256
          float g_b11_0 = (b11)^@power*0.25 % 512 - 256
          float g_b00_1 = (b00+1)^@power*0.25 % 512 - 256
          float g_b10_1 = (b10+1)^@power*0.25 % 512 - 256
          float g_b01_1 = (b01+1)^@power*0.25 % 512 - 256
          float g_b11_1 = (b11+1)^@power*0.25 % 512 - 256
          float d = 0.0;
          d = 1 / sqrt(sqr(g_b00_0) + sqr(g_b00_1))
          g_b00_0 = g_b00_0 * d
          g_b00_1 = g_b00_1 * d
          d = 1 / sqrt(sqr(g_b10_0) + sqr(g_b10_1))
          g_b10_0 = g_b10_0 * d
          g_b10_1 = g_b10_1 * d
          d = 1 / sqrt(sqr(g_b01_0) + sqr(g_b01_1))
          g_b01_0 = g_b01_0 * d
          g_b01_1 = g_b01_1 * d
          d = 1 / sqrt(sqr(g_b11_0) + sqr(g_b11_1))
          g_b11_0 = g_b11_0 * d
          g_b11_1 = g_b11_1 * d
          float u1 = rx0 * g_b00_0 + ry0 * g_b00_1
          float v1 = rx1 * g_b10_0 + ry0 * g_b10_1
          float u2 = rx0 * g_b01_0 + ry1 * g_b01_1
          float v2 = rx1 * g_b11_0 + ry1 * g_b11_1
          float sx = sqr(rx0) * (3 - rx0*2)
          float sy = sqr(ry0) * (3 - ry0*2)
          float a = u1 + sx*(v1 - u1)
          float b = u2 + sx*(v2 - u2)
          if @fbmfunc == 0
          ; Ident
            sum = sum + (a + sy * (b - a)) * freq
          elseif @fbmfunc == 1   
          ; Abs
            sum = sum + sqrt(2) * abs(a + sy * (b - a)) * freq
          elseif @fbmfunc == 2
          ; Sqr
            sum = sum + 4 * sqr(a + sy * (b - a)) * freq
          elseif @fbmfunc == 3
          ; Sqrt
            float noise = a + sy * (b - a)
            if noise < 0
              noise = imag(sqrt(noise))
            else
              noise = real(sqrt(noise))
            endif
            sum = sum + noise * freq
          elseif @fbmfunc == 4
          ; Ceil
            sum = sum + ceil(a + sy * (b - a)) * freq
          endif  
          freq = freq * @step
          p = p * r2 / @step
          i = i - 1
        endwhile
      endif
      if @pattern == 0
        noise = sum
      elseif @pattern == 1    
      ; Marble
        noise = real(sin(@pfreq * real(pat_p) + (@turb * sum)))
      elseif @pattern == 2    
      ; Wood
        noise = cabs(@pfreq * pat_p) + (@turb * sum)
      elseif @pattern == 3    
      ; Cells
        float x = sin(@pfreq * real(pat_p))
        float y = cos(@pfreq * imag(pat_p))
        noise = cabs(x + flip(y)) + (@turb * sum)
      elseif @pattern == 4    
        p = round(pat_p * @pfreq) / @pfreq
        noise = 2 * cabs(@pfreq * pat_p - @pfreq * p) + (@turb * sum)
      endif
      if @texture_type == 1
      ; Original fBm
        texture = @rnd * noise
      elseif @texture_type == 2
      ; Corrected fBm
        texture = @rnd * ((noise + 1) * 0.5)
      endif
    endif  
    if @color_mode == 0
    ; Distance  
      #index = min_dist + texture
    elseif @color_mode == 1
    ; Iteration
      #index = 0.01 * trap_iter + texture
    elseif @color_mode == 2
    ; Magnitude
      #index = cabs(trap_z) + texture
    elseif @color_mode == 3
    ; Real
      #index = abs(real(trap_z)) + texture
    elseif @color_mode == 4
    ; Imag
      #index = abs(imag(trap_z)) + texture
    elseif @color_mode == 5
    ; Angle
      float angle = atan2(trap_z)
      if angle < 0
        angle = angle + 2 * #pi
      endif
      angle = 1 / (2 * #pi) * angle
      #index = angle + (@rnd * real(#random))
    elseif @color_mode == 6
   ; Modulated iteration
        #index =  ((trap_iter) % 8) / 8 + texture
    elseif @color_mode == 7
    ; Angle to Trap
      float angle = atan2(trap_z - trap_p)
      if angle < 0
        angle = angle + 2 * #pi
      endif
      angle = 1 / (2 * #pi) * angle
      #index = angle + texture
    endif
  endif
default:
  title = "4-D Gnarly Orbit Traps"
  param version
    caption = "Version"
    default = 1.1
    visible = false
  endparam
  heading
    caption = "Global Settings"
  endheading
  param color_mode
    caption = "Coloring Mode"
    enum = "Distance" "Iteration" "Magnitude" "Real" "Imag" \
           "Angle" "Modulated Iter" "Angle to Trap"
  endparam  
  param max_iterations
    caption = "Iterations"
    default = 20
    min = 1
  endparam  
  param @scale
    caption = "Scale"
    default = 0.5
  endparam
  param w
    caption = "(zj, zk)"
    default = (0.0, 0.0)
  endparam  
  param offset
    caption = "Offset"  
    default = (0,0)
  endparam  
  param skip
    caption = "Iterations to Skip"
    hint = "This is the number of iterations to skip before watching \
           the orbit."
    default = 0
    min = 0
  endparam
  heading
  caption = "Formula Parameters"
  endheading
  param formula
    caption = "Formula"
    enum = "Martin" "Popcorn" "Vine" "Gnarl" "Dynamic"
    default = 1
  endparam
  float param ma
    caption = "Martin Parameter"
    default = #pi
    visible = @formula == 0
  endparam
  param h
    caption = "Step Size"
    default = (0.05, 0.05)
    visible = @formula == 1 || @formula == 2 || @formula == 3 || @formula == 4
  endparam
  param flavor
    caption = "Vine flavor"
    hint = "This is the 'flavor' for the Vine formula."
    default = 2
    min = 0
    visible = @formula == 2
  endparam 
  param a
    caption = "Alpha"
    default = (3.0, 3.0)
    visible = @formula == 2 || @formula == 3 || @formula == 4
  endparam  
  param b
    caption = "Beta"
    default = (2.0, 2.0)
    visible = @formula == 2 && @flavor == 1 || @formula == 3 || @formula == 4
  endparam
  param c
    caption = "Constant C"
    default = (3.0, 3.0)
    visible = @formula == 1
  endparam
  func mn1
    caption = "Martin function"
    default = sin()
    visible = @formula == 0
  endfunc
  heading
  caption = "Popcorn functions"
  visible = @formula == 1
  endheading
  func pn1
    caption = "Popcorn #1"
    default = sin()
    visible = @formula == 1
  endfunc
  func pn2
    caption = "Popcorn #2"
    default = tan()
    visible = @formula == 1
  endfunc
  func pn3
    caption = "Popcorn #3"
    default = sin()
    visible = @formula == 1
  endfunc
  func pn4
    caption = "Popcorn #4"
    default = tan()
    visible = @formula == 1
  endfunc
  heading
  caption = "Vine functions"
  visible = @formula == 2
  endheading
  func vn1
    caption = "Vine #1"
    default = sin()
    visible = @formula == 2 && @flavor < 3
  endfunc
  func vn2
    caption = "Vine #2"
    default = sin()
    visible = @formula == 2 && @flavor < 3
  endfunc
  func vn3
    caption = "Vine #3"
    default = sin()
    visible = @formula == 2 && @flavor < 3
  endfunc
  func vn4
    caption = "Vine #4"
    default = sin()
    visible = @formula == 2 && @flavor < 3
  endfunc
  func vn5
    caption = "Vine #5"
    default = sin()
    visible = @formula == 2 && @flavor == 2
  endfunc
  func vn6
    caption = "Vine #6"
    default = sin()
    visible = @formula == 2 && @flavor == 2
  endfunc
  func vn7
    caption = "Vine #7"
    default = sin()
    visible = @formula == 2 && @flavor > 2
  endfunc
  func vn8
    caption = "Vine #8"
    default = sin()
    visible = @formula == 2 && @flavor > 2
  endfunc
  func vn9
    caption = "Vine #9"
    default = sin()
    visible = @formula == 2 && @flavor > 2
  endfunc
  func vn10
    caption = "Vine #10"
    default = sin()
    visible = @formula == 2 && @flavor > 2
  endfunc
  heading
  caption = "Gnarl functions"
  visible = @formula == 3
  endheading
  func gn1
    caption = "Gnarl #1"
    default = sin()
    visible = @formula == 3
  endfunc
  func gn2
    caption = "Gnarl #2"
    default = sin()
    visible = @formula == 3
  endfunc
  func gn3
    caption = "Gnarl #3"
    default = sin()
    visible = @formula == 3
  endfunc
  func gn4
    caption = "Gnarl #4"
    default = sin()
    visible = @formula == 3
  endfunc
  func gn5
    caption = "Gnarl #5"
    default = sin()
    visible = @formula == 3
  endfunc
  func gn6
    caption = "Gnarl #6"
    default = sin()
    visible = @formula == 3
  endfunc
  heading
  caption = "Dynamic functions"
  visible = @formula == 4
  endheading
  func dn1
    caption = "Dynamic #1"
    default = sin()
    visible = @formula == 4
  endfunc
  func dn2
    caption = "Dynamic #2"
    default = tan()
    visible = @formula == 4
  endfunc
  func dn3
    caption = "Dynamic #3"
    default = sin()
    visible = @formula == 4
  endfunc
  func dn4
    caption = "Dynamic #4"
    default = tan()
    visible = @formula == 4
  endfunc
  heading
    caption = "Masking"
  endheading  
  param mask_type
    caption = "Mask Type"
    enum = "Distance" "Iteration" "Range"
  endparam  
  param mask
    caption = "Mask Threshold"
    default = 0.0
    min = 0.0
    hint = "With the Distance Mask Type orbits that don't come at least \
            this close to the trap are made solid. A value of zero means \
            that no pixels are made solid."
  endparam
  param mask_mod
    caption = "Mask Modulation"
    default = 0
    hint = "With the Modulation Mask Type the iteration that the orbit \
            was caught by the trap is modulated by this value, and if \
            the Mask Threshold is smaller the pixel is made solid."
  endparam
  param inverse
    caption = "Mask Reversed"
    default = false
  endparam
  param texture_type
    caption = "Texture Type"
    enum = "Random" "fBm" "Corrected fBm"
    hint = "This is the type of texture to add to the coloring. The \
           Texture Amount parameter must be non-zero for texture to be added."
  endparam
  param rnd
    caption = "Texture Amount"
    default = 0.0
    hint = "This is the amount of texturing to add to the coloring."
  endparam
  heading
  caption = "fBm Parameters"
  endheading
  param initial
    caption = "fBm Initialisation"
    enum = "Pixel" "Orbit" "Trap"
    hint = "Different ways of starting the fBm formula. With \
           Orbit and Trap the texture will follow the orbit trap \
           elements in some way."
  endparam  
  param fbmfunc
    caption = "fBm Function"
    enum = "Ident" "Abs" "Sqr" "Sqrt" "Ceil"
    hint = "This is a function that is added to the fBm to chnage \
            the way that it looks."
  endparam  
  param fbmscale
    caption = "fBm Scale"
    default = 1.0
    hint = "This is the overall scale of the noise."
  endparam
  param fbmoffset
    caption = "fBm Offset"
    default = (0,0)
    hint = "This is the offset of the pattern. You can use this to shift \
            the pattern around on the complex plane."
  endparam
  param angle
    caption = "fBm Rotation"
    default = 0.0
    hint = "This is the angle, in degrees, of the noise."
  endparam
  param step
    caption = "fBm Scale Step"
    default = 0.5
    hint = "This is the step in scale between noise iterations."
  endparam
  param anglestep
    caption = "fBm Rotation Step"
    default = 37.0
    hint = "This is the angle, in degrees, to rotate between noise \
            iterations."
  endparam
  param octaves
    caption = "fBm Octaves"
    default = 7
    min = 1
    hint = "This is the number of iterations of the noise formula."
  endparam
  param power
    caption = "fBm Exponent"
    default = 2.0
    hint = "This is the exponent used to scramble numbers."
  endparam
  param pattern
    caption = "fBm Pattern"
    enum = "None" "Marble" "Wood" "Cells" "Squares"
    hint = "This creates a repeating pattern to be disturbed by the fBm."
  endparam
  param pfreq
    caption = "fBm Frequency"
    default = 1.0
    hint = "This controls the frequency of the Pattern."
  endparam
  param turb
    caption = "fBm Turbulence"
    default = 1.0
    hint = "With a Pattern other than None this effects how \
           the pattern will be by the fBm."
  endparam
}

gnd-hypercomplex-fBm {
; 4-dimensional Fractional Brownian Motion
; based on original code from Damien M. Jones.
; Convolution method from Mark Townsend,
; "Plasma Convolution" coloring.
; version 1.25, December 2007
; Gilles Nadeau, 12/14/2007
;
final:
  complex pix = (0,0)
  complex a = (0,0)
  complex b = (0,0)
  complex pa = (0,0)
  complex pb = (0,0)
  float xx = 0.0
  float yy = 0.0
  float zz = 0.0
  float ww = 0.0
  float x = 0.0
  float y = 0.0
  float z = 0.0
  float w = 0.0
  float h = 0.0
  float rx = 0.0
  float ry = 0.0
  float rz = 0.0
  float cz = 0.0
  float ez = 0.0
  float vd = 0.0
  float da = 0.0
  float db = 0.0
  int i = 0
  int j = 0
  complex r = (0,1) ^ (@angle / 90.0)
  complex r2 = (0,1) ^ (@anglestep / 90.0)
  if @version < 1.24
    pix = #z
  else
    pix = #z * @scale
  endif
    xx = real(pix)
    yy = imag(pix)
    zz = real(@zh)
    ww = imag(@zh)

; (yz plane rotation)
    ry = yy*cos(#pi*@rotx/180) - zz*sin(#pi*@rotx/180)
    rz = yy*sin(#pi*@rotx/180) + zz*cos(#pi*@rotx/180)
    yy = ry
    zz = rz

; (xz plane rotation)
    rx = zz*sin(#pi*@roty/180) + xx*cos(#pi*@roty/180)
    rz = zz*cos(#pi*@roty/180) - xx*sin(#pi*@roty/180)
    xx = rx
    zz = rz

; (xy plane rotation)
    rx = xx*cos(#pi*@rotz/180) - yy*sin(#pi*@rotz/180)
    ry = xx*sin(#pi*@rotz/180) + yy*cos(#pi*@rotz/180)
    xx = rx
    yy = ry

   if @fourthdim == 3
    x = xx
    y = yy
    z = zz
    w = ww
   elseif @fourthdim == 2
    x = xx
    y = yy
    z = ww
    w = zz
   elseif @fourthdim == 1
    x = zz
    y = ww
    z = xx
    w = yy
   else
    x = ww
    y = zz
    z = xx
    w = yy
   endif

    a = (x - w) + flip(y + z)
    b = (x + w) + flip(y - z)

 if (@convolution == false)

  if @version < 1.24
    pa = a * @scale * r + @offset
    pb = b * @scale * r + @offset
  else
    pa = a * r + @offset
    pb = b * r + @offset
  endif
    float suma = 0.0
    float sumb = 0.0
    float freq = 1.0
    int i = @octaves
  while (i > 0)
    float fxa = floor(real(pa))
    float fya = floor(imag(pa))
    float bx0a = fxa % 256
    float by0a = fya % 256

    if (bx0a < 0)
      bx0a = bx0a + 256
    endif

    if (by0a < 0)
      by0a = by0a + 256
    endif

    float bx1a = (bx0a + 1) % 256
    float by1a = (by0a + 1) % 256

    float rx0a = real(pa) - fxa
    float ry0a = imag(pa) - fya
    float rx1a = rx0a - 1
    float ry1a = ry0a - 1

    float fxb = floor(real(pb))
    float fyb = floor(imag(pb))
    float bx0b = fxb % 256
    float by0b = fyb % 256

    if (bx0b < 0)
      bx0b = bx0b + 256
    endif

    if (by0b < 0)
      by0b = by0b + 256
    endif

    float bx1b = (bx0b + 1) % 256
    float by1b = (by0b + 1) % 256

    float rx0b = real(pb) - fxb
    float ry0b = imag(pb) - fyb
    float rx1b = rx0b - 1
    float ry1b = ry0b - 1

    float b00a = (bx0a^@power % 65536 + by0a)^@power % 65536
    float b10a = (bx1a^@power % 65536 + by0a)^@power % 65536
    float b01a = (bx0a^@power % 65536 + by1a)^@power % 65536
    float b11a = (bx1a^@power % 65536 + by1a)^@power % 65536

    float b00b = (bx0b^@power % 65536 + by0b)^@power % 65536
    float b10b = (bx1b^@power % 65536 + by0b)^@power % 65536
    float b01b = (bx0b^@power % 65536 + by1b)^@power % 65536
    float b11b = (bx1b^@power % 65536 + by1b)^@power % 65536

    float g_b00_0a = (b00a)^@power*0.25 % 512 - 256
    float g_b10_0a = (b10a)^@power*0.25 % 512 - 256
    float g_b01_0a = (b01a)^@power*0.25 % 512 - 256
    float g_b11_0a = (b11a)^@power*0.25 % 512 - 256
    float g_b00_1a = (b00a+1)^@power*0.25 % 512 - 256
    float g_b10_1a = (b10a+1)^@power*0.25 % 512 - 256
    float g_b01_1a = (b01a+1)^@power*0.25 % 512 - 256
    float g_b11_1a = (b11a+1)^@power*0.25 % 512 - 256

    float g_b00_0b = (b00b)^@power*0.25 % 512 - 256
    float g_b10_0b = (b10b)^@power*0.25 % 512 - 256
    float g_b01_0b = (b01b)^@power*0.25 % 512 - 256
    float g_b11_0b = (b11b)^@power*0.25 % 512 - 256
    float g_b00_1b = (b00b+1)^@power*0.25 % 512 - 256
    float g_b10_1b = (b10b+1)^@power*0.25 % 512 - 256
    float g_b01_1b = (b01b+1)^@power*0.25 % 512 - 256
    float g_b11_1b = (b11b+1)^@power*0.25 % 512 - 256

    da = 1 / sqrt(sqr(g_b00_0a) + sqr(g_b00_1a))
    g_b00_0a = g_b00_0a * da
    g_b00_1a = g_b00_1a * da
    da = 1 / sqrt(sqr(g_b10_0a) + sqr(g_b10_1a))
    g_b10_0a = g_b10_0a * da
    g_b10_1a = g_b10_1a * da
    da = 1 / sqrt(sqr(g_b01_0a) + sqr(g_b01_1a))
    g_b01_0a = g_b01_0a * da
    g_b01_1a = g_b01_1a * da
    da = 1 / sqrt(sqr(g_b11_0a) + sqr(g_b11_1a))
    g_b11_0a = g_b11_0a * da
    g_b11_1a = g_b11_1a * da

    db = 1 / sqrt(sqr(g_b00_0b) + sqr(g_b00_1b))
    g_b00_0b = g_b00_0b * db
    g_b00_1b = g_b00_1b * db
    db = 1 / sqrt(sqr(g_b10_0b) + sqr(g_b10_1b))
    g_b10_0b = g_b10_0b * db
    g_b10_1b = g_b10_1b * db
    db = 1 / sqrt(sqr(g_b01_0b) + sqr(g_b01_1b))
    g_b01_0b = g_b01_0b * db
    g_b01_1b = g_b01_1b * db
    db = 1 / sqrt(sqr(g_b11_0b) + sqr(g_b11_1b))
    g_b11_0b = g_b11_0b * db
    g_b11_1b = g_b11_1b * db

    float u1a = rx0a * g_b00_0a + ry0a * g_b00_1a
    float v1a = rx1a * g_b10_0a + ry0a * g_b10_1a
    float u2a = rx0a * g_b01_0a + ry1a * g_b01_1a
    float v2a = rx1a * g_b11_0a + ry1a * g_b11_1a

    float u1b = rx0b * g_b00_0b + ry0b * g_b00_1b
    float v1b = rx1b * g_b10_0b + ry0b * g_b10_1b
    float u2b = rx0b * g_b01_0b + ry1b * g_b01_1b
    float v2b = rx1b * g_b11_0b + ry1b * g_b11_1b

    float sxa = sqr(rx0a) * (3 - rx0a*2)
    float sya = sqr(ry0a) * (3 - ry0a*2)
    float aa = u1a + sxa*(v1a-u1a)
    float ba = u2a + sxa*(v2a-u2a)

    float sxb = sqr(rx0b) * (3 - rx0b*2)
    float syb = sqr(ry0b) * (3 - ry0b*2)
    float ab = u1b + sxb*(v1b-u1b)
    float bb = u2b + sxb*(v2b-u2b)

    suma = suma + real(@nfn1(aa + sya*(ba-aa)))*freq
    sumb = sumb + real(@nfn1(ab + syb*(bb-ab)))*freq
    freq = freq * @step
    pa = pa * r2 / @step
    pb = pb * r2 / @step
    i = i - 1
  endwhile
    suma = (suma + 1) * 0.5
    sumb = (sumb + 1) * 0.5
    #index = (suma + sumb) / 2

 else

 if @method == 0
    complex add[9]
      add[0] = -@dis + flip(-@dis)
      add[1] = flip(-@dis)
      add[2] = @dis + flip(-@dis)
      add[3] = -@dis
      add[4] = (0,0)
      add[5] = @dis
      add[6] = -@dis + flip(@dis)
      add[7] = flip(@dis)
      add[8] = @dis + flip(@dis)
    float coef[9]
      coef[0] = @c0
      coef[1] = @c1
      coef[2] = @c2
      coef[3] = @c3
      coef[4] = @c4
      coef[5] = @c5
      coef[6] = @c6
      coef[7] = @c7
      coef[8] = @c8

  while j < 9
   if @version < 1.21
    pa = (a + add[j]) * @scale * r + @offset
    pb = (b + add[j]) * @scale * r + @offset
   elseif @version >= 1.21 && @version < 1.24
    pa = (a * @scale + add[j]) * r + @offset
    pb = (b * @scale + add[j]) * r + @offset
   else
    pix = #z * @scale + add[j]
    xx = real(pix)
    yy = imag(pix)
    zz = real(@zh)
    ww = imag(@zh)

; (yz plane rotation)
    ry = yy*cos(#pi*@rotx/180) - zz*sin(#pi*@rotx/180)
    rz = yy*sin(#pi*@rotx/180) + zz*cos(#pi*@rotx/180)
    yy = ry
    zz = rz

; (xz plane rotation)
    rx = zz*sin(#pi*@roty/180) + xx*cos(#pi*@roty/180)
    rz = zz*cos(#pi*@roty/180) - xx*sin(#pi*@roty/180)
    xx = rx
    zz = rz

; (xy plane rotation)
    rx = xx*cos(#pi*@rotz/180) - yy*sin(#pi*@rotz/180)
    ry = xx*sin(#pi*@rotz/180) + yy*cos(#pi*@rotz/180)
    xx = rx
    yy = ry

   if @fourthdim == 3
    x = xx
    y = yy
    z = zz
    w = ww
   elseif @fourthdim == 2
    x = xx
    y = yy
    z = ww
    w = zz
   elseif @fourthdim == 1
    x = zz
    y = ww
    z = xx
    w = yy
   else
    x = ww
    y = zz
    z = xx
    w = yy
   endif

    a = (x - w) + flip(y + z)
    b = (x + w) + flip(y - z)
    pa = a * r + @offset
    pb = b * r + @offset
   endif
    cz = cz + coef[j]
    suma = 0.0
    sumb = 0.0
    freq = 1.0
    i = @octaves
  if coef[j] != 0
  while (i > 0)
    fxa = floor(real(pa))
    fya = floor(imag(pa))
    bx0a = fxa % 256
    by0a = fya % 256

    if (bx0a < 0)
      bx0a = bx0a + 256
    endif

    if (by0a < 0)
      by0a = by0a + 256
    endif

    bx1a = (bx0a + 1) % 256
    by1a = (by0a + 1) % 256

    rx0a = real(pa) - fxa
    ry0a = imag(pa) - fya
    rx1a = rx0a - 1
    ry1a = ry0a - 1

    fxb = floor(real(pb))
    fyb = floor(imag(pb))
    bx0b = fxb % 256
    by0b = fyb % 256

    if (bx0b < 0)
      bx0b = bx0b + 256
    endif

    if (by0b < 0)
      by0b = by0b + 256
    endif

    bx1b = (bx0b + 1) % 256
    by1b = (by0b + 1) % 256

    rx0b = real(pb) - fxb
    ry0b = imag(pb) - fyb
    rx1b = rx0b - 1
    ry1b = ry0b - 1

    b00a = (bx0a^@power % 65536 + by0a)^@power % 65536
    b10a = (bx1a^@power % 65536 + by0a)^@power % 65536
    b01a = (bx0a^@power % 65536 + by1a)^@power % 65536
    b11a = (bx1a^@power % 65536 + by1a)^@power % 65536

    b00b = (bx0b^@power % 65536 + by0b)^@power % 65536
    b10b = (bx1b^@power % 65536 + by0b)^@power % 65536
    b01b = (bx0b^@power % 65536 + by1b)^@power % 65536
    b11b = (bx1b^@power % 65536 + by1b)^@power % 65536

    g_b00_0a = (b00a)^@power*0.25 % 512 - 256
    g_b10_0a = (b10a)^@power*0.25 % 512 - 256
    g_b01_0a = (b01a)^@power*0.25 % 512 - 256
    g_b11_0a = (b11a)^@power*0.25 % 512 - 256
    g_b00_1a = (b00a+1)^@power*0.25 % 512 - 256
    g_b10_1a = (b10a+1)^@power*0.25 % 512 - 256
    g_b01_1a = (b01a+1)^@power*0.25 % 512 - 256
    g_b11_1a = (b11a+1)^@power*0.25 % 512 - 256

    g_b00_0b = (b00b)^@power*0.25 % 512 - 256
    g_b10_0b = (b10b)^@power*0.25 % 512 - 256
    g_b01_0b = (b01b)^@power*0.25 % 512 - 256
    g_b11_0b = (b11b)^@power*0.25 % 512 - 256
    g_b00_1b = (b00b+1)^@power*0.25 % 512 - 256
    g_b10_1b = (b10b+1)^@power*0.25 % 512 - 256
    g_b01_1b = (b01b+1)^@power*0.25 % 512 - 256
    g_b11_1b = (b11b+1)^@power*0.25 % 512 - 256

    da = 1 / sqrt(sqr(g_b00_0a) + sqr(g_b00_1a))
    g_b00_0a = g_b00_0a * da
    g_b00_1a = g_b00_1a * da
    da = 1 / sqrt(sqr(g_b10_0a) + sqr(g_b10_1a))
    g_b10_0a = g_b10_0a * da
    g_b10_1a = g_b10_1a * da
    da = 1 / sqrt(sqr(g_b01_0a) + sqr(g_b01_1a))
    g_b01_0a = g_b01_0a * da
    g_b01_1a = g_b01_1a * da
    da = 1 / sqrt(sqr(g_b11_0a) + sqr(g_b11_1a))
    g_b11_0a = g_b11_0a * da
    g_b11_1a = g_b11_1a * da

    db = 1 / sqrt(sqr(g_b00_0b) + sqr(g_b00_1b))
    g_b00_0b = g_b00_0b * db
    g_b00_1b = g_b00_1b * db
    db = 1 / sqrt(sqr(g_b10_0b) + sqr(g_b10_1b))
    g_b10_0b = g_b10_0b * db
    g_b10_1b = g_b10_1b * db
    db = 1 / sqrt(sqr(g_b01_0b) + sqr(g_b01_1b))
    g_b01_0b = g_b01_0b * db
    g_b01_1b = g_b01_1b * db
    db = 1 / sqrt(sqr(g_b11_0b) + sqr(g_b11_1b))
    g_b11_0b = g_b11_0b * db
    g_b11_1b = g_b11_1b * db

    u1a = rx0a * g_b00_0a + ry0a * g_b00_1a
    v1a = rx1a * g_b10_0a + ry0a * g_b10_1a
    u2a = rx0a * g_b01_0a + ry1a * g_b01_1a
    v2a = rx1a * g_b11_0a + ry1a * g_b11_1a

    u1b = rx0b * g_b00_0b + ry0b * g_b00_1b
    v1b = rx1b * g_b10_0b + ry0b * g_b10_1b
    u2b = rx0b * g_b01_0b + ry1b * g_b01_1b
    v2b = rx1b * g_b11_0b + ry1b * g_b11_1b

    sxa = sqr(rx0a) * (3 - rx0a*2)
    sya = sqr(ry0a) * (3 - ry0a*2)
    aa = u1a + sxa*(v1a-u1a)
    ba = u2a + sxa*(v2a-u2a)

    sxb = sqr(rx0b) * (3 - rx0b*2)
    syb = sqr(ry0b) * (3 - ry0b*2)
    ab = u1b + sxb*(v1b-u1b)
    bb = u2b + sxb*(v2b-u2b)

    suma = suma + real(@nfn1(aa + sya*(ba-aa)))*freq
    sumb = sumb + real(@nfn1(ab + syb*(bb-ab)))*freq
    freq = freq * @step
    pa = pa * r2 / @step
    pb = pb * r2 / @step
    i = i - 1
  endwhile
  endif
    suma = (suma + 1) * 0.5
    sumb = (sumb + 1) * 0.5
    h = (suma + sumb) / 2
    ez = ez + coef[j] * h
    j = j + 1
  endwhile
  if cz == 0
     cz = 1
  endif
   #index = ez / cz
 else
    complex c = @c * exp(1i * #pi * @rot / 180.0)
    complex d[2]
    d[0] = @dis*c
    d[1] = (0,0)
    float cw[2]
    cw[0] = @w
    cw[1] = -@w

  while j < 2
   if @version < 1.21
    pa = (a + d[j]) * @scale * r + @offset
    pb = (b + d[j]) * @scale * r + @offset
   elseif @version >= 1.21 && @version < 1.24
    pa = (a * @scale + d[j]) * r + @offset
    pb = (b * @scale + d[j]) * r + @offset
   else
    pix = #z * @scale + d[j]
    xx = real(pix)
    yy = imag(pix)
    zz = real(@zh)
    ww = imag(@zh)

; (yz plane rotation)
    ry = yy*cos(#pi*@rotx/180) - zz*sin(#pi*@rotx/180)
    rz = yy*sin(#pi*@rotx/180) + zz*cos(#pi*@rotx/180)
    yy = ry
    zz = rz

; (xz plane rotation)
    rx = zz*sin(#pi*@roty/180) + xx*cos(#pi*@roty/180)
    rz = zz*cos(#pi*@roty/180) - xx*sin(#pi*@roty/180)
    xx = rx
    zz = rz

; (xy plane rotation)
    rx = xx*cos(#pi*@rotz/180) - yy*sin(#pi*@rotz/180)
    ry = xx*sin(#pi*@rotz/180) + yy*cos(#pi*@rotz/180)
    xx = rx
    yy = ry

   if @fourthdim == 3
    x = xx
    y = yy
    z = zz
    w = ww
   elseif @fourthdim == 2
    x = xx
    y = yy
    z = ww
    w = zz
   elseif @fourthdim == 1
    x = zz
    y = ww
    z = xx
    w = yy
   else
    x = ww
    y = zz
    z = xx
    w = yy
   endif

    a = (x - w) + flip(y + z)
    b = (x + w) + flip(y - z)
    pa = a * r + @offset
    pb = b * r + @offset
   endif
    suma = 0.0
    sumb = 0.0
    freq = 1.0
    i = @octaves
  while (i > 0)
    fxa = floor(real(pa))
    fya = floor(imag(pa))
    bx0a = fxa % 256
    by0a = fya % 256

    if (bx0a < 0)
      bx0a = bx0a + 256
    endif

    if (by0a < 0)
      by0a = by0a + 256
    endif

    bx1a = (bx0a + 1) % 256
    by1a = (by0a + 1) % 256

    rx0a = real(pa) - fxa
    ry0a = imag(pa) - fya
    rx1a = rx0a - 1
    ry1a = ry0a - 1

    fxb = floor(real(pb))
    fyb = floor(imag(pb))
    bx0b = fxb % 256
    by0b = fyb % 256

    if (bx0b < 0)
      bx0b = bx0b + 256
    endif

    if (by0b < 0)
      by0b = by0b + 256
    endif

    bx1b = (bx0b + 1) % 256
    by1b = (by0b + 1) % 256

    rx0b = real(pb) - fxb
    ry0b = imag(pb) - fyb
    rx1b = rx0b - 1
    ry1b = ry0b - 1

    b00a = (bx0a^@power % 65536 + by0a)^@power % 65536
    b10a = (bx1a^@power % 65536 + by0a)^@power % 65536
    b01a = (bx0a^@power % 65536 + by1a)^@power % 65536
    b11a = (bx1a^@power % 65536 + by1a)^@power % 65536

    b00b = (bx0b^@power % 65536 + by0b)^@power % 65536
    b10b = (bx1b^@power % 65536 + by0b)^@power % 65536
    b01b = (bx0b^@power % 65536 + by1b)^@power % 65536
    b11b = (bx1b^@power % 65536 + by1b)^@power % 65536

    g_b00_0a = (b00a)^@power*0.25 % 512 - 256
    g_b10_0a = (b10a)^@power*0.25 % 512 - 256
    g_b01_0a = (b01a)^@power*0.25 % 512 - 256
    g_b11_0a = (b11a)^@power*0.25 % 512 - 256
    g_b00_1a = (b00a+1)^@power*0.25 % 512 - 256
    g_b10_1a = (b10a+1)^@power*0.25 % 512 - 256
    g_b01_1a = (b01a+1)^@power*0.25 % 512 - 256
    g_b11_1a = (b11a+1)^@power*0.25 % 512 - 256

    g_b00_0b = (b00b)^@power*0.25 % 512 - 256
    g_b10_0b = (b10b)^@power*0.25 % 512 - 256
    g_b01_0b = (b01b)^@power*0.25 % 512 - 256
    g_b11_0b = (b11b)^@power*0.25 % 512 - 256
    g_b00_1b = (b00b+1)^@power*0.25 % 512 - 256
    g_b10_1b = (b10b+1)^@power*0.25 % 512 - 256
    g_b01_1b = (b01b+1)^@power*0.25 % 512 - 256
    g_b11_1b = (b11b+1)^@power*0.25 % 512 - 256

    da = 1 / sqrt(sqr(g_b00_0a) + sqr(g_b00_1a))
    g_b00_0a = g_b00_0a * da
    g_b00_1a = g_b00_1a * da
    da = 1 / sqrt(sqr(g_b10_0a) + sqr(g_b10_1a))
    g_b10_0a = g_b10_0a * da
    g_b10_1a = g_b10_1a * da
    da = 1 / sqrt(sqr(g_b01_0a) + sqr(g_b01_1a))
    g_b01_0a = g_b01_0a * da
    g_b01_1a = g_b01_1a * da
    da = 1 / sqrt(sqr(g_b11_0a) + sqr(g_b11_1a))
    g_b11_0a = g_b11_0a * da
    g_b11_1a = g_b11_1a * da

    db = 1 / sqrt(sqr(g_b00_0b) + sqr(g_b00_1b))
    g_b00_0b = g_b00_0b * db
    g_b00_1b = g_b00_1b * db
    db = 1 / sqrt(sqr(g_b10_0b) + sqr(g_b10_1b))
    g_b10_0b = g_b10_0b * db
    g_b10_1b = g_b10_1b * db
    db = 1 / sqrt(sqr(g_b01_0b) + sqr(g_b01_1b))
    g_b01_0b = g_b01_0b * db
    g_b01_1b = g_b01_1b * db
    db = 1 / sqrt(sqr(g_b11_0b) + sqr(g_b11_1b))
    g_b11_0b = g_b11_0b * db
    g_b11_1b = g_b11_1b * db

    u1a = rx0a * g_b00_0a + ry0a * g_b00_1a
    v1a = rx1a * g_b10_0a + ry0a * g_b10_1a
    u2a = rx0a * g_b01_0a + ry1a * g_b01_1a
    v2a = rx1a * g_b11_0a + ry1a * g_b11_1a

    u1b = rx0b * g_b00_0b + ry0b * g_b00_1b
    v1b = rx1b * g_b10_0b + ry0b * g_b10_1b
    u2b = rx0b * g_b01_0b + ry1b * g_b01_1b
    v2b = rx1b * g_b11_0b + ry1b * g_b11_1b

    sxa = sqr(rx0a) * (3 - rx0a*2)
    sya = sqr(ry0a) * (3 - ry0a*2)
    aa = u1a + sxa*(v1a-u1a)
    ba = u2a + sxa*(v2a-u2a)

    sxb = sqr(rx0b) * (3 - rx0b*2)
    syb = sqr(ry0b) * (3 - ry0b*2)
    ab = u1b + sxb*(v1b-u1b)
    bb = u2b + sxb*(v2b-u2b)

    suma = suma + real(@nfn1(aa + sya*(ba-aa)))*freq
    sumb = sumb + real(@nfn1(ab + syb*(bb-ab)))*freq
    freq = freq * @step
    pa = pa * r2 / @step
    pb = pb * r2 / @step
    i = i - 1
  endwhile
    suma = (suma + 1) * 0.5
    sumb = (sumb + 1) * 0.5
    h = (suma + sumb) / 2
    cz = @dis
    ez = ez + 0.5 * cw[j] * h
    j = j + 1
  endwhile
  if @version < 1.25
    #index = ez / cz + 1000.5
  else
    vd = sqrt(sqr(ez) + sqr(cz))
    #index = ez / vd + 2.5
  endif
 endif
 endif
default:
  title = "Hypercomplex fBm"
  param version
    caption = "Version"
    default = 1.25
    visible = false
  endparam
  param fourthdim
    caption = "Fourth dimension"
    enum = "z1" "zi" "zj" "zk"
    default = 3
  endparam
  param zh
    caption = "(zj, zk)"
    default = (0.0, 0.0)
  endparam
  param rotx
    caption = "X Rotation"
    hint = "Rotates yz-plane."
    default = 0.0
    min = -360.0
    max = 360.0
  endparam
  param roty
    caption = "Y Rotation"
    hint = "Rotates zx-plane."
    default = 0.0
    min = -360.0
    max = 360.0
  endparam
  param rotz
    caption = "Z Rotation"
    hint = "Rotates xy-plane."
    default = 0.0
    min = -360.0
    max = 360.0
  endparam
  param offset
    caption = "Offset"
    default = (0,0)
  endparam
  param scale
    caption = "Scale"
    default = 1.0
  endparam
  param angle
    caption = "Rotation"
    default = 0.0
  endparam
  param step
    caption = "Scale Step"
    default = 0.5
  endparam
  param anglestep
    caption = "Rotation Step"
    default = 37.0
  endparam
  param octaves
    caption = "Octaves"
    default = 7
    min = 1
  endparam
  param power
    caption = "Exponent"
    default = 2.0
  endparam
  func nfn1
    caption = "Function"
    default = ident()
  endfunc
  param convolution
    caption = "Convolution"
    default = false
  endparam
  heading
    caption = "Convolution Parameters"
    visible = @convolution == true
  endheading
  param method
    caption = "Method"
    enum = "1" "2"
    default = 0
    visible = @convolution == true
  endparam
  param dis
    caption = "Sample Distance"
    default = 0.0003
    visible = @convolution == true
  endparam
  param w
    caption = "Weight"
    default = 0.35
    visible = @convolution == true && @method == 1
  endparam
  param c
    caption = "C Parameter"
    default = (1.0,0.0)
    visible = @convolution == true && @method == 1
  endparam
  param rot
    caption = "C Rotation"
    default = 90.0
    visible = @convolution == true && @method == 1
  endparam
  param c0
    caption = "NW"
    default = 1.0
    visible = @convolution == true && @method == 0
  endparam
  param c1
    caption = "N"
    default = 1.0
    visible = @convolution == true && @method == 0
  endparam
  param c2
    caption = "NE"
    default = 1.0
    visible = @convolution == true && @method == 0
  endparam
  param c3
    caption = "W"
    default = 1.0
    visible = @convolution == true && @method == 0
  endparam
  param c4
    caption = "Centre"
    default = 0.01
    visible = @convolution == true && @method == 0
  endparam
  param c5
    caption = "E"
    default = -1.0
    visible = @convolution == true && @method == 0
  endparam
  param c6
    caption = "SW"
    default = -1.0
    visible = @convolution == true && @method == 0
  endparam
  param c7
    caption = "S"
    default = -1.0
    visible = @convolution == true && @method == 0
  endparam
  param c8
    caption = "SE"
    default = -1.0
    visible = @convolution == true && @method == 0
  endparam
}

gnd-3d-plasma {
; Slope version of "Plasma" coloring from Mark Townsend.
; Slope method according to Damien M. Jones's work.
;
; Gilles Nadeau, December 2007
;
final:
  complex z = #z
  complex r1 = (0,1) ^ (@angle / 90.0)
  complex r2 = (0,1) ^ (@anglestep / 90.0)

 if (@slope == false)

  int i = 0
  float sum = 0
  float amplitude = 1.0
  complex p = z * @scale * r1 + @offset
  while i < @octaves
    float bx0 = floor(real(p))
    float bx1 = bx0 + 1
    float rx0 = real(p) - bx0
    float rx1 = rx0 - 1
    float by0 = floor(imag(p))
    float by1 = by0 + 1
    float ry0 = imag(p) - by0
    float ry1 = ry0 - 1
    ; Positive offset to stop reflection
    if bx0 < 0
      bx0 = bx0 + 8192
    endif
    if bx1 < 0
      bx1 = bx1 + 8192
    endif
    if by0 < 0
      by0 = by0 + 8192
    endif
    if by1 < 0
      by1 = by1 + 8192
    endif
    float sx = rx0 * rx0 * (3 - 2 * rx0)
    float sy = ry0 * ry0 * (3 - 2 * ry0)
    float b00 = (bx0^2 * 2473 % 65536 + by0)^2 % 65536
    float b01 = (bx0^2 * 2473 % 65536 + by1)^2 % 65536
    float b10 = (bx1^2 * 2473 % 65536 + by0)^2 % 65536
    float b11 = (bx1^2 * 2473 % 65536 + by1)^2 % 65536
    float g_b00_0 = b00^2 * 5381 % 65536 / 4 % 16384 - 8192
    float g_b01_0 = b01^2 * 5381 % 65536 / 4 % 16384 - 8192
    float g_b10_0 = b10^2 * 5381 % 65536 / 4 % 16384 - 8192
    float g_b11_0 = b11^2 * 5381 % 65536 / 4 % 16384 - 8192
    float g_b00_1 = (b00 + 1)^2 * 79997 % 65536 / 4 % 16384 - 8192
    float g_b01_1 = (b01 + 1)^2 * 79997 % 65536 / 4 % 16384 - 8192
    float g_b10_1 = (b10 + 1)^2 * 79997 % 65536 / 4 % 16384 - 8192
    float g_b11_1 = (b11 + 1)^2 * 79997 % 65536 / 4 % 16384 - 8192
    float s = sqrt(g_b00_0^2 + g_b00_1^2)
    g_b00_0 = g_b00_0 / s
    g_b00_1 = g_b00_1 / s
    s = sqrt(g_b01_0^2 + g_b01_1^2)
    g_b01_0 = g_b01_0 / s
    g_b01_1 = g_b01_1 / s
    s = sqrt(g_b10_0^2 + g_b10_1^2)
    g_b10_0 = g_b10_0 / s
    g_b10_1 = g_b10_1 / s
    s = sqrt(g_b11_0^2 + g_b11_1^2)
    g_b11_0 = g_b11_0 / s
    g_b11_1 = g_b11_1 / s
    float u1 = rx0 * g_b00_0 + ry0 * g_b00_1
    float v1 = rx1 * g_b10_0 + ry0 * g_b10_1
    float a = u1 + sx * (v1 - u1)
    float u2 = rx0 * g_b01_0 + ry1 * g_b01_1
    float v2 = rx1 * g_b11_0 + ry1 * g_b11_1
    float b = u2 + sx * (v2 - u2)
    sum = sum + real(@fn1(a + sy * (b - a))) * amplitude
    amplitude = amplitude * @persistence
    p = p * r2 / @scalestep
    i = i + 1
  endwhile
    #index = (sum + 1) * 0.5

 else

  float e1 = 0.0
  float e2 = 0.0
  float e3 = 0.0
  int j = 0

  while j < 3
   if j == 0
    z = #z
   elseif j == 1
    z = #z + @dist
   elseif j == 2
    z = #z + flip(@dist)
   endif

  int i = 0
  float sum = 0
  float amplitude = 1.0
  complex p = z * @scale * r1 + @offset
  while i < @octaves
    float bx0 = floor(real(p))
    float bx1 = bx0 + 1
    float rx0 = real(p) - bx0
    float rx1 = rx0 - 1
    float by0 = floor(imag(p))
    float by1 = by0 + 1
    float ry0 = imag(p) - by0
    float ry1 = ry0 - 1
    ; Positive offset to stop reflection
    if bx0 < 0
      bx0 = bx0 + 8192
    endif
    if bx1 < 0
      bx1 = bx1 + 8192
    endif
    if by0 < 0
      by0 = by0 + 8192
    endif
    if by1 < 0
      by1 = by1 + 8192
    endif
    float sx = rx0 * rx0 * (3 - 2 * rx0)
    float sy = ry0 * ry0 * (3 - 2 * ry0)
    float b00 = (bx0^2 * 2473 % 65536 + by0)^2 % 65536
    float b01 = (bx0^2 * 2473 % 65536 + by1)^2 % 65536
    float b10 = (bx1^2 * 2473 % 65536 + by0)^2 % 65536
    float b11 = (bx1^2 * 2473 % 65536 + by1)^2 % 65536
    float g_b00_0 = b00^2 * 5381 % 65536 / 4 % 16384 - 8192
    float g_b01_0 = b01^2 * 5381 % 65536 / 4 % 16384 - 8192
    float g_b10_0 = b10^2 * 5381 % 65536 / 4 % 16384 - 8192
    float g_b11_0 = b11^2 * 5381 % 65536 / 4 % 16384 - 8192
    float g_b00_1 = (b00 + 1)^2 * 79997 % 65536 / 4 % 16384 - 8192
    float g_b01_1 = (b01 + 1)^2 * 79997 % 65536 / 4 % 16384 - 8192
    float g_b10_1 = (b10 + 1)^2 * 79997 % 65536 / 4 % 16384 - 8192
    float g_b11_1 = (b11 + 1)^2 * 79997 % 65536 / 4 % 16384 - 8192
    float s = sqrt(g_b00_0^2 + g_b00_1^2)
    g_b00_0 = g_b00_0 / s
    g_b00_1 = g_b00_1 / s
    s = sqrt(g_b01_0^2 + g_b01_1^2)
    g_b01_0 = g_b01_0 / s
    g_b01_1 = g_b01_1 / s
    s = sqrt(g_b10_0^2 + g_b10_1^2)
    g_b10_0 = g_b10_0 / s
    g_b10_1 = g_b10_1 / s
    s = sqrt(g_b11_0^2 + g_b11_1^2)
    g_b11_0 = g_b11_0 / s
    g_b11_1 = g_b11_1 / s
    float u1 = rx0 * g_b00_0 + ry0 * g_b00_1
    float v1 = rx1 * g_b10_0 + ry0 * g_b10_1
    float a = u1 + sx * (v1 - u1)
    float u2 = rx0 * g_b01_0 + ry1 * g_b01_1
    float v2 = rx1 * g_b11_0 + ry1 * g_b11_1
    float b = u2 + sx * (v2 - u2)
    sum = sum + real(@fn1(a + sy * (b - a))) * amplitude
    amplitude = amplitude * @persistence
    p = p * r2 / @scalestep
    i = i + 1
  endwhile
    sum = (sum + 1) * 0.5

  if j == 0
    e1 = sum
  elseif j == 1
    e2 = sum
  elseif j == 2
    e3 = sum
  endif
    j = j + 1
  endwhile
  
    e1 = e1 * @zscale
    e2 = e2 * @zscale
    e3 = e3 * @zscale

  if (@xfer == 1)
    e1 = log(e1)
    e2 = log(e2)
    e3 = log(e3)
  elseif (@xfer == 2)
    e1 = sqrt(e1)
    e2 = sqrt(e2)
    e3 = sqrt(e3)
  elseif (@xfer == 3)
    e1 = (e1)^(1/3)
    e2 = (e2)^(1/3)
    e3 = (e3)^(1/3)
  elseif (@xfer == 4)
    e1 = exp(e1)
    e2 = exp(e2)
    e3 = exp(e3)
  elseif (@xfer == 5)
    e1 = sqr(e1)
    e2 = sqr(e2)
    e3 = sqr(e3)
  elseif (@xfer == 6)
    e1 = (e1)^3
    e2 = (e2)^3
    e3 = (e3)^3
  elseif (@xfer == 7)
    e1 = sin(e1)
    e2 = sin(e2)
    e3 = sin(e3)
  elseif (@xfer == 8)
    e1 = cos(e1)
    e2 = cos(e2)
    e3 = cos(e3)
  elseif (@xfer == 9)
    e1 = tan(e1)
    e2 = tan(e2)
    e3 = tan(e3)
  endif

    e1 = e1 * @zscale2
    e2 = e2 * @zscale2
    e3 = e3 * @zscale2

  float vx = e2 - e1
  float vy = e3 - e1
  float vz = -@dist
  float vd = recip(sqrt(sqr(vx) + sqr(vy) + sqr(vz)))
  vx = vx * vd
  vy = vy * vd
  vz = vz * vd
  float dr = #pi / 180
  float fx = cos(@langle*dr)*cos(@elevation*dr)
  float fy = sin(@langle*dr)*cos(@elevation*dr)
  float fz = -sin(@elevation*dr)
  #index = (fx*vx + fy*vy + fz*vz) / 2 + 0.5

 endif

default:
  title = "3D Plasma"
  param version
    caption = "Version"
    default = 1.12
    visible = false
  endparam
  param octaves
    caption = "Octaves"
    default = 7
    min = 1
  endparam
  param persistence
    caption = "Persistence"
    default = 0.5
  endparam
  param scale
    caption = "Scale"
    default = 1.0
  endparam
  param offset
    caption = "Offset"
    default = (0,0)
  endparam
  param angle
    caption = "Rotation"
    default = 0.0
  endparam
  param scalestep
    caption = "Scale Step"
    default = 0.5
  endparam
  param anglestep
    caption = "Rotation Step"
    default = 30.0
  endparam
  func fn1
    caption = "Noise Function"
    default = ident()
  endfunc
  param slope
    caption = "3D"
    default = true
  endparam
  heading
    caption = "Slope Parameters"
    visible = @slope == true
  endheading
  param xfer
    caption = "Height Transfer"
    default = 0
    enum = "linear" "log" "sqrt" "cuberoot" "exp" "sqr" "cube" \
    "sin" "cos" "tan"
    visible = @slope == true
  endparam
  param zscale
    caption = "Height Pre-Scale"
    default = 1.0
    visible = @slope == true
  endparam
  param zscale2
    caption = "Height Post-Scale"
    default = 1.0
    visible = @slope == true
  endparam
  param langle
    caption = "Light Rotation"
    default = 90.0
    visible = @slope == true
  endparam
  param elevation
    caption = "Light Elevation"
    default = 0.0
    visible = @slope == true
  endparam
  param dist
    caption = "Orbit Separation"
    default = 0.0001
    visible = @slope == true
  endparam
}

gnd-4D-Plasma {
; 4-dimensional Plasma coloring
; based on original code from Mark Townsend.
; Slope method according to Damien M. Jones's work.
;
; Gilles Nadeau, 20/01/2008
;
final:
  complex zs = #z * @scale
  complex r1 = exp(1i * #pi * @angle / 180.0)
  complex r2 = exp(1i * #pi * @anglestep / 180.0)
  complex pix = (0,0)
  float xx = 0.0
  float yy = 0.0
  float zz = 0.0
  float ww = 0.0
  float x = 0.0
  float y = 0.0
  float z = 0.0
  float w = 0.0
  float h = 0.0
  float rx = 0.0
  float ry = 0.0
  float rz = 0.0
  float e1 = 0.0
  float e2 = 0.0
  float e3 = 0.0
  float vx = 0.0
  float vy = 0.0
  float vz = 0.0
  float vd = 0.0
  float fx = 0.0
  float fy = 0.0
  float fz = 0.0
  float dr = 0.0
  int i = 0
  int j = 0

 if (@slope == false)
 
    pix = zs
    xx = real(pix)
    yy = imag(pix)
    zz = @z
    ww = @w

; (yz plane rotation)
    ry = yy*cos(#pi*@rotx/180) - zz*sin(#pi*@rotx/180)
    rz = yy*sin(#pi*@rotx/180) + zz*cos(#pi*@rotx/180)
    yy = ry
    zz = rz

; (xz plane rotation)
    rx = zz*sin(#pi*@roty/180) + xx*cos(#pi*@roty/180)
    rz = zz*cos(#pi*@roty/180) - xx*sin(#pi*@roty/180)
    xx = rx
    zz = rz

; (xy plane rotation)
    rx = xx*cos(#pi*@rotz/180) - yy*sin(#pi*@rotz/180)
    ry = xx*sin(#pi*@rotz/180) + yy*cos(#pi*@rotz/180)
    xx = rx
    yy = ry

    if @fourthdim == 3
     x = xx
     y = yy
     z = zz
     w = ww
    elseif @fourthdim == 2
     x = xx
     y = yy
     z = ww
     w = zz
    elseif @fourthdim == 1
     x = zz
     y = ww
     z = xx
     w = yy
    else
     x = ww
     y = zz
     z = xx
     w = yy
    endif

    complex a = (x - w) + flip(y + z)
    complex b = (x + w) + flip(y - z)
    complex pa = a * r1 + @offset
    complex pb = b * r1 + @offset
    float suma = 0.0
    float sumb = 0.0
    float amplitude = 1.0
    int i = 0
  while i < @octaves
    float bx0a = floor(real(pa))
    float bx1a = bx0a + 1
    float rx0a = real(pa) - bx0a
    float rx1a = rx0a - 1
    float by0a = floor(imag(pa))
    float by1a = by0a + 1
    float ry0a = imag(pa) - by0a
    float ry1a = ry0a - 1

    float bx0b = floor(real(pb))
    float bx1b = bx0b + 1
    float rx0b = real(pb) - bx0b
    float rx1b = rx0b - 1
    float by0b = floor(imag(pb))
    float by1b = by0b + 1
    float ry0b = imag(pb) - by0b
    float ry1b = ry0b - 1

    if bx0a < 0
      bx0a = bx0a + 8192
    endif
    if bx1a < 0
      bx1a = bx1a + 8192
    endif
    if by0a < 0
      by0a = by0a + 8192
    endif
    if by1a < 0
      by1a = by1a + 8192
    endif

    if bx0b < 0
      bx0b = bx0b + 8192
    endif
    if bx1b < 0
      bx1b = bx1b + 8192
    endif
    if by0b < 0
      by0b = by0b + 8192
    endif
    if by1b < 0
      by1b = by1b + 8192
    endif

    float sxa = rx0a * rx0a * (3 - 2 * rx0a)
    float sya = ry0a * ry0a * (3 - 2 * ry0a)

    float sxb = rx0b * rx0b * (3 - 2 * rx0b)
    float syb = ry0b * ry0b * (3 - 2 * ry0b)

    float b00a = (bx0a^2 * 2473 % 65536 + by0a)^2 % 65536
    float b01a = (bx0a^2 * 2473 % 65536 + by1a)^2 % 65536
    float b10a = (bx1a^2 * 2473 % 65536 + by0a)^2 % 65536
    float b11a = (bx1a^2 * 2473 % 65536 + by1a)^2 % 65536

    float b00b = (bx0b^2 * 2473 % 65536 + by0b)^2 % 65536
    float b01b = (bx0b^2 * 2473 % 65536 + by1b)^2 % 65536
    float b10b = (bx1b^2 * 2473 % 65536 + by0b)^2 % 65536
    float b11b = (bx1b^2 * 2473 % 65536 + by1b)^2 % 65536

    float g_b00_0a = b00a^2 * 5381 % 65536 / 4 % 16384 - 8192
    float g_b01_0a = b01a^2 * 5381 % 65536 / 4 % 16384 - 8192
    float g_b10_0a = b10a^2 * 5381 % 65536 / 4 % 16384 - 8192
    float g_b11_0a = b11a^2 * 5381 % 65536 / 4 % 16384 - 8192

    float g_b00_0b = b00b^2 * 5381 % 65536 / 4 % 16384 - 8192
    float g_b01_0b = b01b^2 * 5381 % 65536 / 4 % 16384 - 8192
    float g_b10_0b = b10b^2 * 5381 % 65536 / 4 % 16384 - 8192
    float g_b11_0b = b11b^2 * 5381 % 65536 / 4 % 16384 - 8192

    float g_b00_1a = (b00a + 1)^2 * 79997 % 65536 / 4 % 16384 - 8192
    float g_b01_1a = (b01a + 1)^2 * 79997 % 65536 / 4 % 16384 - 8192
    float g_b10_1a = (b10a + 1)^2 * 79997 % 65536 / 4 % 16384 - 8192
    float g_b11_1a = (b11a + 1)^2 * 79997 % 65536 / 4 % 16384 - 8192

    float g_b00_1b = (b00b + 1)^2 * 79997 % 65536 / 4 % 16384 - 8192
    float g_b01_1b = (b01b + 1)^2 * 79997 % 65536 / 4 % 16384 - 8192
    float g_b10_1b = (b10b + 1)^2 * 79997 % 65536 / 4 % 16384 - 8192
    float g_b11_1b = (b11b + 1)^2 * 79997 % 65536 / 4 % 16384 - 8192

    float sa = sqrt(g_b00_0a^2 + g_b00_1a^2)
    g_b00_0a = g_b00_0a / sa
    g_b00_1a = g_b00_1a / sa
    sa = sqrt(g_b01_0a^2 + g_b01_1a^2)
    g_b01_0a = g_b01_0a / sa
    g_b01_1a = g_b01_1a / sa
    sa = sqrt(g_b10_0a^2 + g_b10_1a^2)
    g_b10_0a = g_b10_0a / sa
    g_b10_1a = g_b10_1a / sa
    sa = sqrt(g_b11_0a^2 + g_b11_1a^2)
    g_b11_0a = g_b11_0a / sa
    g_b11_1a = g_b11_1a / sa

    float sb = sqrt(g_b00_0b^2 + g_b00_1b^2)
    g_b00_0b = g_b00_0b / sb
    g_b00_1b = g_b00_1b / sb
    sb = sqrt(g_b01_0b^2 + g_b01_1b^2)
    g_b01_0b = g_b01_0b / sb
    g_b01_1b = g_b01_1b / sb
    sb = sqrt(g_b10_0b^2 + g_b10_1b^2)
    g_b10_0b = g_b10_0b / sb
    g_b10_1b = g_b10_1b / sb
    sb = sqrt(g_b11_0b^2 + g_b11_1b^2)
    g_b11_0b = g_b11_0b / sb
    g_b11_1b = g_b11_1b / sb

    float u1a = rx0a * g_b00_0a + ry0a * g_b00_1a
    float v1a = rx1a * g_b10_0a + ry0a * g_b10_1a
    float aa = u1a + sxa * (v1a - u1a)
    float u2a = rx0a * g_b01_0a + ry1a * g_b01_1a
    float v2a = rx1a * g_b11_0a + ry1a * g_b11_1a
    float ba = u2a + sxa * (v2a - u2a)

    float u1b = rx0b * g_b00_0b + ry0b * g_b00_1b
    float v1b = rx1b * g_b10_0b + ry0b * g_b10_1b
    float ab = u1b + sxb * (v1b - u1b)
    float u2b = rx0b * g_b01_0b + ry1b * g_b01_1b
    float v2b = rx1b * g_b11_0b + ry1b * g_b11_1b
    float bb = u2b + sxb * (v2b - u2b)

    suma = suma + real(@fn1(aa + sya * (ba - aa))) * amplitude
    sumb = sumb + real(@fn1(ab + syb * (bb - ab))) * amplitude
    amplitude = amplitude * @persistence
    pa = pa * r2 / @scalestep
    pb = pb * r2 / @scalestep
    i = i + 1
  endwhile
    suma = (suma + 1) * 0.5
    sumb = (sumb + 1) * 0.5
    h = (suma + sumb) / 2
    #index = h

 else

  while j < 3
   if j == 0
    pix = zs
   elseif j == 1
    pix = zs + @dist
   elseif j == 2
    pix = zs + flip(@dist)
   endif

    xx = real(pix)
    yy = imag(pix)
    zz = @z
    ww = @w

; (yz plane rotation)
    ry = yy*cos(#pi*@rotx/180) - zz*sin(#pi*@rotx/180)
    rz = yy*sin(#pi*@rotx/180) + zz*cos(#pi*@rotx/180)
    yy = ry
    zz = rz

; (xz plane rotation)
    rx = zz*sin(#pi*@roty/180) + xx*cos(#pi*@roty/180)
    rz = zz*cos(#pi*@roty/180) - xx*sin(#pi*@roty/180)
    xx = rx
    zz = rz

; (xy plane rotation)
    rx = xx*cos(#pi*@rotz/180) - yy*sin(#pi*@rotz/180)
    ry = xx*sin(#pi*@rotz/180) + yy*cos(#pi*@rotz/180)
    xx = rx
    yy = ry

    if @fourthdim == 3
     x = xx
     y = yy
     z = zz
     w = ww
    elseif @fourthdim == 2
     x = xx
     y = yy
     z = ww
     w = zz
    elseif @fourthdim == 1
     x = zz
     y = ww
     z = xx
     w = yy
    else
     x = ww
     y = zz
     z = xx
     w = yy
    endif

    a = (x - w) + flip(y + z)
    b = (x + w) + flip(y - z)
    pa = a * r1 + @offset
    pb = b * r1 + @offset
    suma = 0.0
    sumb = 0.0
    amplitude = 1.0
  while i < @octaves
    bx0a = floor(real(pa))
    bx1a = bx0a + 1
    rx0a = real(pa) - bx0a
    rx1a = rx0a - 1
    by0a = floor(imag(pa))
    by1a = by0a + 1
    ry0a = imag(pa) - by0a
    ry1a = ry0a - 1

    bx0b = floor(real(pb))
    bx1b = bx0b + 1
    rx0b = real(pb) - bx0b
    rx1b = rx0b - 1
    by0b = floor(imag(pb))
    by1b = by0b + 1
    ry0b = imag(pb) - by0b
    ry1b = ry0b - 1

    if bx0a < 0
      bx0a = bx0a + 8192
    endif
    if bx1a < 0
      bx1a = bx1a + 8192
    endif
    if by0a < 0
      by0a = by0a + 8192
    endif
    if by1a < 0
      by1a = by1a + 8192
    endif

    if bx0b < 0
      bx0b = bx0b + 8192
    endif
    if bx1b < 0
      bx1b = bx1b + 8192
    endif
    if by0b < 0
      by0b = by0b + 8192
    endif
    if by1b < 0
      by1b = by1b + 8192
    endif

    sxa = rx0a * rx0a * (3 - 2 * rx0a)
    sya = ry0a * ry0a * (3 - 2 * ry0a)

    sxb = rx0b * rx0b * (3 - 2 * rx0b)
    syb = ry0b * ry0b * (3 - 2 * ry0b)

    b00a = (bx0a^2 * 2473 % 65536 + by0a)^2 % 65536
    b01a = (bx0a^2 * 2473 % 65536 + by1a)^2 % 65536
    b10a = (bx1a^2 * 2473 % 65536 + by0a)^2 % 65536
    b11a = (bx1a^2 * 2473 % 65536 + by1a)^2 % 65536

    b00b = (bx0b^2 * 2473 % 65536 + by0b)^2 % 65536
    b01b = (bx0b^2 * 2473 % 65536 + by1b)^2 % 65536
    b10b = (bx1b^2 * 2473 % 65536 + by0b)^2 % 65536
    b11b = (bx1b^2 * 2473 % 65536 + by1b)^2 % 65536

    g_b00_0a = b00a^2 * 5381 % 65536 / 4 % 16384 - 8192
    g_b01_0a = b01a^2 * 5381 % 65536 / 4 % 16384 - 8192
    g_b10_0a = b10a^2 * 5381 % 65536 / 4 % 16384 - 8192
    g_b11_0a = b11a^2 * 5381 % 65536 / 4 % 16384 - 8192

    g_b00_0b = b00b^2 * 5381 % 65536 / 4 % 16384 - 8192
    g_b01_0b = b01b^2 * 5381 % 65536 / 4 % 16384 - 8192
    g_b10_0b = b10b^2 * 5381 % 65536 / 4 % 16384 - 8192
    g_b11_0b = b11b^2 * 5381 % 65536 / 4 % 16384 - 8192

    g_b00_1a = (b00a + 1)^2 * 79997 % 65536 / 4 % 16384 - 8192
    g_b01_1a = (b01a + 1)^2 * 79997 % 65536 / 4 % 16384 - 8192
    g_b10_1a = (b10a + 1)^2 * 79997 % 65536 / 4 % 16384 - 8192
    g_b11_1a = (b11a + 1)^2 * 79997 % 65536 / 4 % 16384 - 8192

    g_b00_1b = (b00b + 1)^2 * 79997 % 65536 / 4 % 16384 - 8192
    g_b01_1b = (b01b + 1)^2 * 79997 % 65536 / 4 % 16384 - 8192
    g_b10_1b = (b10b + 1)^2 * 79997 % 65536 / 4 % 16384 - 8192
    g_b11_1b = (b11b + 1)^2 * 79997 % 65536 / 4 % 16384 - 8192

    sa = sqrt(g_b00_0a^2 + g_b00_1a^2)
    g_b00_0a = g_b00_0a / sa
    g_b00_1a = g_b00_1a / sa
    sa = sqrt(g_b01_0a^2 + g_b01_1a^2)
    g_b01_0a = g_b01_0a / sa
    g_b01_1a = g_b01_1a / sa
    sa = sqrt(g_b10_0a^2 + g_b10_1a^2)
    g_b10_0a = g_b10_0a / sa
    g_b10_1a = g_b10_1a / sa
    sa = sqrt(g_b11_0a^2 + g_b11_1a^2)
    g_b11_0a = g_b11_0a / sa
    g_b11_1a = g_b11_1a / sa

    sb = sqrt(g_b00_0b^2 + g_b00_1b^2)
    g_b00_0b = g_b00_0b / sb
    g_b00_1b = g_b00_1b / sb
    sb = sqrt(g_b01_0b^2 + g_b01_1b^2)
    g_b01_0b = g_b01_0b / sb
    g_b01_1b = g_b01_1b / sb
    sb = sqrt(g_b10_0b^2 + g_b10_1b^2)
    g_b10_0b = g_b10_0b / sb
    g_b10_1b = g_b10_1b / sb
    sb = sqrt(g_b11_0b^2 + g_b11_1b^2)
    g_b11_0b = g_b11_0b / sb
    g_b11_1b = g_b11_1b / sb

    u1a = rx0a * g_b00_0a + ry0a * g_b00_1a
    v1a = rx1a * g_b10_0a + ry0a * g_b10_1a
    aa = u1a + sxa * (v1a - u1a)
    u2a = rx0a * g_b01_0a + ry1a * g_b01_1a
    v2a = rx1a * g_b11_0a + ry1a * g_b11_1a
    ba = u2a + sxa * (v2a - u2a)

    u1b = rx0b * g_b00_0b + ry0b * g_b00_1b
    v1b = rx1b * g_b10_0b + ry0b * g_b10_1b
    ab = u1b + sxb * (v1b - u1b)
    u2b = rx0b * g_b01_0b + ry1b * g_b01_1b
    v2b = rx1b * g_b11_0b + ry1b * g_b11_1b
    bb = u2b + sxb * (v2b - u2b)

    suma = suma + real(@fn1(aa + sya * (ba - aa))) * amplitude
    sumb = sumb + real(@fn1(ab + syb * (bb - ab))) * amplitude
    amplitude = amplitude * @persistence
    pa = pa * r2 / @scalestep
    pb = pb * r2 / @scalestep
    i = i + 1
  endwhile
    suma = (suma + 1) * 0.5
    sumb = (sumb + 1) * 0.5
    h = (suma + sumb) / 2

  if j == 0
    e1 = h
  elseif j == 1
    e2 = h
  elseif j == 2
    e3 = h
  endif
    i = 0
    j = j + 1
  endwhile

    e1 = e1 * @zscale
    e2 = e2 * @zscale
    e3 = e3 * @zscale

  if (@xfer == 1); log
    e1 = log(e1)
    e2 = log(e2)
    e3 = log(e3)
  elseif (@xfer == 2); sqrt
    e1 = sqrt(e1)
    e2 = sqrt(e2)
    e3 = sqrt(e3)
  elseif (@xfer == 3); cuberoot
    e1 = (e1)^(1/3)
    e2 = (e2)^(1/3)
    e3 = (e3)^(1/3)
  elseif (@xfer == 4); exp
    e1 = exp(e1)
    e2 = exp(e2)
    e3 = exp(e3)
  elseif (@xfer == 5); sqr
    e1 = sqr(e1)
    e2 = sqr(e2)
    e3 = sqr(e3)
  elseif (@xfer == 6); cube
    e1 = (e1)^3
    e2 = (e2)^3
    e3 = (e3)^3
  elseif (@xfer == 7); sin
    e1 = sin(e1)
    e2 = sin(e2)
    e3 = sin(e3)
  elseif (@xfer == 8); cos
    e1 = cos(e1)
    e2 = cos(e2)
    e3 = cos(e3)
  elseif (@xfer == 9); tan
    e1 = tan(e1)
    e2 = tan(e2)
    e3 = tan(e3)
  endif

    e1 = e1 * @zscale2
    e2 = e2 * @zscale2
    e3 = e3 * @zscale2

    vx = e2 - e1
    vy = e3 - e1
    vz = -@dist
    vd = recip(sqrt(sqr(vx) + sqr(vy) + sqr(vz)))
    vx = vx * vd
    vy = vy * vd
    vz = vz * vd
    dr = #pi / 180
    fx = cos(@langle*dr)*cos(@elevation*dr)
    fy = sin(@langle*dr)*cos(@elevation*dr)
    fz = -sin(@elevation*dr)
    #index = fx*vx + fy*vy + fz*vz + 2.5

 endif

default:
  title = "4D Plasma"

  param version
    caption = "Version"
    default = 1.21
    visible = false
  endparam

  param fourthdim
    caption = "Fourth Dimension"
    enum = "Zr" "Zi" "Zj" "Zk"
    default = 3
  endparam
  param octaves
    caption = "Octaves"
    default = 7
    min = 1
  endparam
  param persistence
    caption = "Persistence"
    default = 0.5
  endparam
  param scale
    caption = "Scale"
    default = 1.0
  endparam
  param offset
    caption = "Offset"
    default = (0,0)
  endparam
  param angle
    caption = "Rotation"
    default = 0.0
  endparam
  param scalestep
    caption = "Scale Step"
    default = 0.5
  endparam
  param anglestep
    caption = "Rotation Step"
    default = 30.0
  endparam
  param z
    caption = "Z Coordinate"
    default = 0.0
  endparam
  param w
    caption = "W Coordinate"
    default = 0.0
  endparam
  param rotx
    caption = "X Rotation"
    hint = "Rotates yz-plane."
    default = 0.0
    min = -360.0
    max = 360.0
  endparam
  param roty
    caption = "Y Rotation"
    hint = "Rotates zx-plane."
    default = 0.0
    min = -360.0
    max = 360.0
  endparam
  param rotz
    caption = "Z Rotation"
    hint = "Rotates xy-plane."
    default = 0.0
    min = -360.0
    max = 360.0
  endparam
  func fn1
    caption = "Noise Function"
    default = ident()
  endfunc
  
  bool param slope
    caption = "3D"
    default = false
  endparam

  heading
    caption = "Slope Parameters"
    visible = @slope==true
  endheading

  param xfer
    caption = "Height Transfer"
    default = 0
    enum = "linear" "log" "sqrt" "cuberoot" "exp" "sqr" "cube" \
    "sin" "cos" "tan"
    visible = @slope==true
  endparam
  param zscale
    caption = "Height Pre-Scale"
    default = 1.0
    visible = @slope==true
  endparam
  param zscale2
    caption = "Height Post-Scale"
    default = 0.2
    visible = @slope==true
  endparam
  param langle
    caption = "Light Rotation"
    default = 90.0
    visible = @slope==true
  endparam
  param elevation
    caption = "Light Elevation"
    default = 0.0
    visible = @slope==true
  endparam
  param dist
    caption = "Orbit Separation"
    default = 0.0001
    visible = @slope==true
  endparam
}

gnd-disk-perlin-noise {
; According to "Disk Plasma" colouring method
; Mark Townsend, June 1st, 2000
; Based on an idea from Earl Hinrich
;
; "Perlin Noise"
; Colouring method by Mark Townsend, Nov 17th, 2000
; Based on original code by Ken Perlin,
; with ideas from Damien M. Jones.
; Slope method according to Damien M. Jones's work.
;
; Gilles Nadeau, April 28th, 2008
;
global:
  int p[514]
  float g[514, 2]
  int i = 0
  int j = 0
  int k = 0
  int seed = @seed
  while i < 256
    p[i] = i
    j = 0
    while j < 2
      seed = random(seed)
      g[i, j] = seed / #randomrange
      j = j + 1
    endwhile
    float s = sqrt(g[i, 0]* g[i, 0] + g[i, 1] * g[i, 1])
    g[i, 0] = g[i, 0] / s
    g[i, 1] = g[i, 1] / s
    i = i + 1
  endwhile
  i = 0
  while i < 256
    k = p[i]
    seed = random(seed)
    j = abs(seed) % 256
    p[i] = p[j]
    p[j] = k
    i = i + 1
  endwhile
  i = 0
  while i < 256
    p[256 + i] = p[i]
    j = 0
    while j < 2
      g[256 + i, j] = g[i, j]
      j = j + 1
    endwhile
    i = i + 1
  endwhile
init:
  float dz = 0.0
  float dr = #pi / 180
  complex zr = exp(1i*@angle*dr)
  complex r = exp(1i*@anglestep*dr)
  complex w = (0,0)
  float e1 = 0.0
  float e2 = 0.0
  float e3 = 0.0
  float vx = 0.0
  float vy = 0.0
  float vz = 0.0
  float vd = 0.0
  float fx = 0.0
  float fy = 0.0
  float fz = 0.0
  float sum = 0.0
  float amplitude = 1.0
  int noiseiter = 0
  int slopeiter = 0
  int iter = 0
  int max_iter = 0
  bool mask = false

loop:
  iter = iter + 1
 if cabs(#z - @doffset) < @r
    dz = (@r - cabs(#z - @doffset)) / @r
    w = w + dz * #z
    max_iter = iter
 endif
final:
 if @solid
   if w == 0
    mask = true
   endif
 endif
 if mask
    #solid = true
 else
  if @coloring == 0
      #index = 0.1 * cabs(w)
  elseif @coloring == 1
      #index = 0.1 * abs(real(w))
  elseif @coloring == 2
      #index = 0.1 * abs(imag(w))
  elseif @coloring == 3
      float bw = atan2(w)
      if bw < 0
        bw = bw + 2 * #pi
      endif
      bw = 1 / (2 * #pi) * bw
      #index = bw
  elseif @coloring == 4
      #index = 0.1 * max_iter
  elseif @coloring == 5
   if (@slope == false)
     complex wz = w * @scale * zr + @offset
   while noiseiter < @octaves
     float t = real(wz) % 4096 + 4096
     int bx0 = floor(t) % 256
     int bx1 = (bx0 + 1) % 256
     float rx0 = t - floor(t)
     float rx1 = rx0 - 1
     t = imag(wz) % 4096 + 4096
     int by0 = floor(t) % 256
     int by1 = (by0 + 1) % 256
     float ry0 = t - floor(t)
     float ry1 = ry0 - 1
     int b00 = p[p[bx0] + by0]
     int b10 = p[p[bx1] + by0]
     int b01 = p[p[bx0] + by1]
     int b11 = p[p[bx1] + by1]
     float sx = (rx0 * rx0 * (3 - 2 * rx0))
     float sy = (ry0 * ry0 * (3 - 2 * ry0))
     float u = rx0 * g[b00, 0] + ry0 * g[b00, 1]
     float v = rx1 * g[b10, 0] + ry0 * g[b10, 1]
     float a = u + sx * (v - u)
     u = rx0 * g[b01, 0] + ry1 * g[b01, 1]
     v = rx1 * g[b11, 0] + ry1 * g[b11, 1]
     float b = u + sx * (v - u)
     sum = sum + real(@fn1(a + sy * (b - a))) * amplitude
     wz = wz * r / 0.5
     amplitude = amplitude * @persistence
     noiseiter = noiseiter + 1
   endwhile
     #index = (sum + 1) * 0.5
   else

     complex z[3]
     float h[3]
     z[0] = w * @scale
     z[1] = z[0] + @dist
     z[2] = z[0] + flip(@dist)

  while slopeiter < 3
     wz = z[slopeiter] * zr + @offset
     sum = 0.0
     amplitude = 1.0
   while noiseiter < @octaves
     t = real(wz) % 4096 + 4096
     bx0 = floor(t) % 256
     bx1 = (bx0 + 1) % 256
     rx0 = t - floor(t)
     rx1 = rx0 - 1
     t = imag(wz) % 4096 + 4096
     by0 = floor(t) % 256
     by1 = (by0 + 1) % 256
     ry0 = t - floor(t)
     ry1 = ry0 - 1
     b00 = p[p[bx0] + by0]
     b10 = p[p[bx1] + by0]
     b01 = p[p[bx0] + by1]
     b11 = p[p[bx1] + by1]
     sx = (rx0 * rx0 * (3 - 2 * rx0))
     sy = (ry0 * ry0 * (3 - 2 * ry0))
     u = rx0 * g[b00, 0] + ry0 * g[b00, 1]
     v = rx1 * g[b10, 0] + ry0 * g[b10, 1]
     a = u + sx * (v - u)
     u = rx0 * g[b01, 0] + ry1 * g[b01, 1]
     v = rx1 * g[b11, 0] + ry1 * g[b11, 1]
     b = u + sx * (v - u)
     sum = sum + real(@fn1(a + sy * (b - a))) * amplitude
     wz = wz * r / 0.5
     amplitude = amplitude * @persistence
     noiseiter = noiseiter + 1
   endwhile
     h[slopeiter] = (sum + 1) * 0.5
     noiseiter = 0
     slopeiter = slopeiter + 1
  endwhile

     e1 = h[0] * @zscale
     e2 = h[1] * @zscale
     e3 = h[2] * @zscale

   if (@xfer == 1)
     e1 = log(e1)
     e2 = log(e2)
     e3 = log(e3)
   elseif (@xfer == 2)
     e1 = sqrt(e1)
     e2 = sqrt(e2)
     e3 = sqrt(e3)
   elseif (@xfer == 3)
     e1 = (e1)^(1/3)
     e2 = (e2)^(1/3)
     e3 = (e3)^(1/3)
   elseif (@xfer == 4)
     e1 = exp(e1)
     e2 = exp(e2)
     e3 = exp(e3)
   elseif (@xfer == 5)
     e1 = sqr(e1)
     e2 = sqr(e2)
     e3 = sqr(e3)
   elseif (@xfer == 6)
     e1 = (e1)^3
     e2 = (e2)^3
     e3 = (e3)^3
   elseif (@xfer == 7)
     e1 = sin(e1)
     e2 = sin(e2)
     e3 = sin(e3)
   elseif (@xfer == 8)
     e1 = cos(e1)
     e2 = cos(e2)
     e3 = cos(e3)
   elseif (@xfer == 9)
     e1 = tan(e1)
     e2 = tan(e2)
     e3 = tan(e3)
   endif

     e1 = e1 * @zscale2
     e2 = e2 * @zscale2
     e3 = e3 * @zscale2
     vx = e2 - e1
     vy = e3 - e1
     vz = -@dist
     vd = recip(sqrt(sqr(vx) + sqr(vy) + sqr(vz)))
     vx = vx * vd
     vy = vy * vd
     vz = vz * vd
     fx = cos(@langle*dr)*cos(@elevation*dr)
     fy = sin(@langle*dr)*cos(@elevation*dr)
     fz = -sin(@elevation*dr)
     #index = fx*vx + fy*vy + fz*vz + 2.5
   endif
  endif
 endif
default:
  title = "Disk Perlin Noise"
  param version
    caption = "Version"
    default = 1.0
    visible = false
  endparam
  param coloring
    caption = "Coloring Mode"
    enum = "Magnitude" "Real" "Imaginary" "Angle" "Iteration" "Perlin Noise"
    default = 5
  endparam
  param solid
    caption = "Solid Background"
    default = false
  endparam
  param r
    caption = "Disk Radius"
    default = 2.0
    min = 0
  endparam
  param doffset
    caption = "Disk Offset"
    default = (0,0)
  endparam
  heading
    caption = "Noise Parameters"
    visible = @coloring == 5
  endheading
  param octaves
    caption = "Octaves"
    default = 7
    min = 1
    visible = @coloring == 5
  endparam
  param persistence
    caption = "Persistence"
    default = 0.5
    visible = @coloring == 5
  endparam
  param scale
    caption = "Scale"
    default = 1.0
    visible = @coloring == 5
  endparam
  param offset
    caption = "Offset"
    default = (0,0)
    visible = @coloring == 5
  endparam
  float param angle
    caption = "Rotation"
    default = 0
    visible = @coloring == 5
  endparam
  param anglestep
    caption = "Rotation Step"
    default = 30.0
    visible = @coloring == 5
  endparam
  param @seed
    caption = "Random Seed"
    default = 1234567
    visible = @coloring == 5
  endparam
  func fn1
    caption = "Function"
    default = ident()
    visible = @coloring == 5
  endfunc
  param slope
    caption = "Slope"
    default = false
    visible = @coloring == 5
  endparam
  heading
    caption = "Slope Parameters"
    visible = @slope == true && @coloring == 5
  endheading
  param xfer
    caption = "Height Transfer"
    default = 0
    enum = "linear" "log" "sqrt" "cuberoot" "exp" "sqr" "cube" \
    "sin" "cos" "tan"
    visible = @slope == true && @coloring == 5
  endparam
  param zscale
    caption = "Height Pre-Scale"
    default = 1.0
    visible = @slope == true && @coloring == 5
  endparam
  param zscale2
    caption = "Height Post-Scale"
    default = 0.2
    visible = @slope == true && @coloring == 5
  endparam
  param langle
    caption = "Light Rotation"
    default = 90.0
    visible = @slope == true && @coloring == 5
  endparam
  param elevation
    caption = "Light Elevation"
    default = 0.0
    visible = @slope == true && @coloring == 5
  endparam
  param dist
    caption = "Orbit Separation"
    default = 0.0001
    visible = @slope == true && @coloring == 5
  endparam
}

gnd-hypercomplex-perlin-noise {
; Hypercomplex version of "Perlin Noise"
; Coloring by Mark Townsend, 17 Nov 2000
; Based on original code by Ken Perlin,
; with ideas from Damien M. Jones.
; Slope method according to Damien M. Jones's work.
;
; Gilles Nadeau, 31 Dec 2007
global:
  int p[514]
  float g[514, 2]
  int i = 0
  int j = 0
  int k = 0
  int seed = @seed
  while i < 256
    p[i] = i
    j = 0
    while j < 2
      seed = random(seed)
      g[i, j] = seed / #randomrange
      j = j + 1
    endwhile
    float s = sqrt(g[i, 0]* g[i, 0] + g[i, 1] * g[i, 1])
    g[i, 0] = g[i, 0] / s
    g[i, 1] = g[i, 1] / s
    i = i + 1
  endwhile
  i = 0
  while i < 256
    k = p[i]
    seed = random(seed)
    j = abs(seed) % 256
    p[i] = p[j]
    p[j] = k
    i = i + 1
  endwhile
  i = 0
  while i < 256
    p[256 + i] = p[i]
    j = 0
    while j < 2
      g[256 + i, j] = g[i, j]
      j = j + 1
    endwhile
    i = i + 1
  endwhile
final:
  complex pix = (0,0)
  float xx = 0.0
  float yy = 0.0
  float zz = 0.0
  float ww = 0.0
  float x = 0.0
  float y = 0.0
  float z = 0.0
  float w = 0.0
  float rx = 0.0
  float ry = 0.0
  float rz = 0.0
  float e1 = 0.0
  float e2 = 0.0
  float e3 = 0.0
  float vx = 0.0
  float vy = 0.0
  float vz = 0.0
  float vd = 0.0
  float dr = #pi / 180
  float fx = 0.0
  float fy = 0.0
  float fz = 0.0
  complex r = exp(1i*@anglestep*dr)
  float suma = 0.0
  float sumb = 0.0
  float c = 0.0
  float d = 0.0
  float amplitude = 1.0
  int noiseiter = 0
  int slopeiter = 0

if (@slope == false)

    pix = #z * @scale
    xx = real(pix)
    yy = imag(pix)
    zz = @z
    ww = @w

; (yz plane rotation)
    ry = yy*cos(#pi*@rotx/180) - zz*sin(#pi*@rotx/180)
    rz = yy*sin(#pi*@rotx/180) + zz*cos(#pi*@rotx/180)
    yy = ry
    zz = rz

; (xz plane rotation)
    rx = zz*sin(#pi*@roty/180) + xx*cos(#pi*@roty/180)
    rz = zz*cos(#pi*@roty/180) - xx*sin(#pi*@roty/180)
    xx = rx
    zz = rz

; (xy plane rotation)
    rx = xx*cos(#pi*@rotz/180) - yy*sin(#pi*@rotz/180)
    ry = xx*sin(#pi*@rotz/180) + yy*cos(#pi*@rotz/180)
    xx = rx
    yy = ry

    if @fourthdim == 3
     x = xx
     y = yy
     z = zz
     w = ww
    elseif @fourthdim == 2
     x = xx
     y = yy
     z = ww
     w = zz
    elseif @fourthdim == 1
     x = zz
     y = ww
     z = xx
     w = yy
    else
     x = ww
     y = zz
     z = xx
     w = yy
    endif

    suma = 0.0
    sumb = 0.0
    amplitude = 1.0
 while noiseiter < @octaves
    complex a = (x - w) + flip(y + z)
    complex b = (x + w) + flip(y - z)
    float xa = real(a) % 4096 + 4096
    int bx0a = floor(xa) % 256
    int bx1a = (bx0a + 1) % 256
    float rx0a = xa - floor(xa)
    float rx1a = rx0a - 1
    float ya = imag(a) % 4096 + 4096
    int by0a = floor(ya) % 256
    int by1a = (by0a + 1) % 256
    float ry0a = ya - floor(ya)
    float ry1a = ry0a - 1
    float xb = real(b) % 4096 + 4096
    int bx0b = floor(xb) % 256
    int bx1b = (bx0b + 1) % 256
    float rx0b = xb - floor(xb)
    float rx1b = rx0b - 1
    float yb = imag(b) % 4096 + 4096
    int by0b = floor(yb) % 256
    int by1b = (by0b + 1) % 256
    float ry0b = yb - floor(yb)
    float ry1b = ry0b - 1
    int b00a = p[p[bx0a] + by0a]
    int b10a = p[p[bx1a] + by0a]
    int b01a = p[p[bx0a] + by1a]
    int b11a = p[p[bx1a] + by1a]
    int b00b = p[p[bx0b] + by0b]
    int b10b = p[p[bx1b] + by0b]
    int b01b = p[p[bx0b] + by1b]
    int b11b = p[p[bx1b] + by1b]
    float sxa = rx0a * rx0a * (3 - 2 * rx0a)
    float sya = ry0a * ry0a * (3 - 2 * ry0a)
    float sxb = rx0b * rx0b * (3 - 2 * rx0b)
    float syb = ry0b * ry0b * (3 - 2 * ry0b)
    float u1a = rx0a * g[b00a, 0] + ry0a * g[b00a, 1]
    float v1a = rx1a * g[b10a, 0] + ry0a * g[b10a, 1]
    float u1b = rx0b * g[b00b, 0] + ry0b * g[b00b, 1]
    float v1b = rx1b * g[b10b, 0] + ry0b * g[b10b, 1]
    float aa = u1a + sxa * (v1a - u1a)
    float ab = u1b + sxb * (v1b - u1b)
    float u2a = rx0a * g[b01a, 0] + ry1a * g[b01a, 1]
    float v2a = rx1a * g[b11a, 0] + ry1a * g[b11a, 1]
    float u2b = rx0b * g[b01b, 0] + ry1b * g[b01b, 1]
    float v2b = rx1b * g[b11b, 0] + ry1b * g[b11b, 1]
    float ba = u2a + sxa * (v2a - u2a)
    float bb = u2b + sxb * (v2b - u2b)
    suma = suma + real(@fn1(aa + sya * (ba - aa))) * amplitude
    sumb = sumb + real(@fn1(ab + syb * (bb - ab))) * amplitude
    amplitude = amplitude * @persistence
    a = a * r / 0.5
    b = b * r / 0.5
    x = (real(a) + real(b)) / 2
    y = (imag(a) + imag(b)) / 2
    z = (imag(a) - imag(b)) / 2
    w = (real(b) - real(a)) / 2
    noiseiter = noiseiter + 1
 endwhile
    c = (suma + 1) * 0.5
    d = (sumb + 1) * 0.5
    #index = (c + d) / 2

else

    complex zs[3]
    float h[3]
    zs[0] = #z * @scale
    zs[1] = zs[0] + @dist
    zs[2] = zs[0] + flip(@dist)

 while slopeiter < 3
    pix = zs[slopeiter]
    xx = real(pix)
    yy = imag(pix)
    zz = @z
    ww = @w

; (yz plane rotation)
    ry = yy*cos(#pi*@rotx/180) - zz*sin(#pi*@rotx/180)
    rz = yy*sin(#pi*@rotx/180) + zz*cos(#pi*@rotx/180)
    yy = ry
    zz = rz

; (xz plane rotation)
    rx = zz*sin(#pi*@roty/180) + xx*cos(#pi*@roty/180)
    rz = zz*cos(#pi*@roty/180) - xx*sin(#pi*@roty/180)
    xx = rx
    zz = rz

; (xy plane rotation)
    rx = xx*cos(#pi*@rotz/180) - yy*sin(#pi*@rotz/180)
    ry = xx*sin(#pi*@rotz/180) + yy*cos(#pi*@rotz/180)
    xx = rx
    yy = ry

    if @fourthdim == 3
     x = xx
     y = yy
     z = zz
     w = ww
    elseif @fourthdim == 2
     x = xx
     y = yy
     z = ww
     w = zz
    elseif @fourthdim == 1
     x = zz
     y = ww
     z = xx
     w = yy
    else
     x = ww
     y = zz
     z = xx
     w = yy
    endif

    suma = 0.0
    sumb = 0.0
    amplitude = 1.0
 while noiseiter < @octaves
    a = (x - w) + flip(y + z)
    b = (x + w) + flip(y - z)
    xa = real(a) % 4096 + 4096
    bx0a = floor(xa) % 256
    bx1a = (bx0a + 1) % 256
    rx0a = xa - floor(xa)
    rx1a = rx0a - 1
    ya = imag(a) % 4096 + 4096
    by0a = floor(ya) % 256
    by1a = (by0a + 1) % 256
    ry0a = ya - floor(ya)
    ry1a = ry0a - 1
    xb = real(b) % 4096 + 4096
    bx0b = floor(xb) % 256
    bx1b = (bx0b + 1) % 256
    rx0b = xb - floor(xb)
    rx1b = rx0b - 1
    yb = imag(b) % 4096 + 4096
    by0b = floor(yb) % 256
    by1b = (by0b + 1) % 256
    ry0b = yb - floor(yb)
    ry1b = ry0b - 1
    b00a = p[p[bx0a] + by0a]
    b10a = p[p[bx1a] + by0a]
    b01a = p[p[bx0a] + by1a]
    b11a = p[p[bx1a] + by1a]
    b00b = p[p[bx0b] + by0b]
    b10b = p[p[bx1b] + by0b]
    b01b = p[p[bx0b] + by1b]
    b11b = p[p[bx1b] + by1b]
    sxa = rx0a * rx0a * (3 - 2 * rx0a)
    sya = ry0a * ry0a * (3 - 2 * ry0a)
    sxb = rx0b * rx0b * (3 - 2 * rx0b)
    syb = ry0b * ry0b * (3 - 2 * ry0b)
    u1a = rx0a * g[b00a, 0] + ry0a * g[b00a, 1]
    v1a = rx1a * g[b10a, 0] + ry0a * g[b10a, 1]
    u1b = rx0b * g[b00b, 0] + ry0b * g[b00b, 1]
    v1b = rx1b * g[b10b, 0] + ry0b * g[b10b, 1]
    aa = u1a + sxa * (v1a - u1a)
    ab = u1b + sxb * (v1b - u1b)
    u2a = rx0a * g[b01a, 0] + ry1a * g[b01a, 1]
    v2a = rx1a * g[b11a, 0] + ry1a * g[b11a, 1]
    u2b = rx0b * g[b01b, 0] + ry1b * g[b01b, 1]
    v2b = rx1b * g[b11b, 0] + ry1b * g[b11b, 1]
    ba = u2a + sxa * (v2a - u2a)
    bb = u2b + sxb * (v2b - u2b)
    suma = suma + real(@fn1(aa + sya * (ba - aa))) * amplitude
    sumb = sumb + real(@fn1(ab + syb * (bb - ab))) * amplitude
    amplitude = amplitude * @persistence
    a = a * r / 0.5
    b = b * r / 0.5
    x = (real(a) + real(b)) / 2
    y = (imag(a) + imag(b)) / 2
    z = (imag(a) - imag(b)) / 2
    w = (real(b) - real(a)) / 2
    noiseiter = noiseiter + 1
 endwhile
    c = (suma + 1) * 0.5
    d = (sumb + 1) * 0.5
    h[slopeiter] = (c + d) / 2
    noiseiter = 0
    slopeiter = slopeiter + 1
 endwhile

    e1 = h[0] * @zscale
    e2 = h[1] * @zscale
    e3 = h[2] * @zscale

    vx = e2 - e1
    vy = e3 - e1
    vz = -@dist
    vd = sqrt(sqr(vx) + sqr(vy) + sqr(vz))
    vx = vx / vd
    vy = vy / vd
    vz = vz / vd
    fx = cos(@langle*dr)*cos(@elevation*dr)
    fy = sin(@langle*dr)*cos(@elevation*dr)
    fz = -sin(@elevation*dr)
    #index = fx*vx + fy*vy + fz*vz + 2.5

endif

default:
  title = "Hypercomplex Perlin Noise"

  param version
    caption = "Version"
    default = 1.0
    visible = false
  endparam

  param fourthdim
    caption = "Fourth Dimension"
    enum = "Zr" "Zi" "Zj" "Zk"
    default = 3
  endparam
  param octaves
    caption = "Octaves"
    default = 7
    min = 1
  endparam
  param persistence
    caption = "Persistence"
    default = 0.5
  endparam
  param scale
    caption = "Scale"
    default = 1.0
  endparam
  param anglestep
    caption = "Rotation Step"
    default = 30.0
  endparam
  param z
    caption = "Z Coordinate"
    default = 0.0
  endparam
  param w
    caption = "W Coordinate"
    default = 0.0
  endparam
  param rotx
    caption = "X Rotation"
    hint = "Rotates yz-plane."
    default = 0.0
    min = -360.0
    max = 360.0
  endparam
  param roty
    caption = "Y Rotation"
    hint = "Rotates zx-plane."
    default = 0.0
    min = -360.0
    max = 360.0
  endparam
  param rotz
    caption = "Z Rotation"
    hint = "Rotates xy-plane."
    default = 0.0
    min = -360.0
    max = 360.0
  endparam
  param @seed
    caption = "Random Seed"
    default = 1234567
  endparam
  func fn1
    caption = "Noise Function"
    default = ident()
  endfunc
  param slope
    caption = "3D"
    default = false
  endparam
  heading
    caption = "Slope Parameters"
    visible = @slope == true
  endheading
  param zscale
    caption = "Height Scale"
    default = 0.2
    visible = @slope == true
  endparam
  param langle
    caption = "Light Rotation"
    default = 90.0
    visible = @slope == true
  endparam
  param elevation
    caption = "Light Elevation"
    default = 0.0
    visible = @slope == true
  endparam
  param dist
    caption = "Orbit Separation"
    default = 0.0001
    visible = @slope == true
  endparam
}

gnd-3d {
final:
  #index = 0.5 * (1 + real(#z))
default:
  title = "3D Coloring"
}