* RFE2 7.0 - direct display of complex quantities
* Field Precision LLC, Copyright 2010
* Variables
*   &PhiR, &PhiI, &ExzR, &ExzI, &EyrR, &EyrI, &EMag, &PDens
* Stored quantities
* Stored quantities
*   PhiReal  Real part of the quasi-static potential (V)
*   PhiImag  Imaginary part of the quasi-static potential (V)
*   PDens    Time-averaged power density (J/m3)
* Region quantities
*  $RegSigma
*  $RegEpsi
*  $RegPotAmp
*  $RegPotPhase

PROGPARAM
  $Epsi0 = 8.854187E-12
  $TwoPi = 6.283185
END

RUNPARAM
  $Freq = 0.0
END

REALTIMEPARAM
END

INTERPOLATION
* Potential
  PhiReal = &PhiR
  PhiImag = &PhiI
* Electrical field
  EMagReal = &ExzR &ExzR * &EyrR &EyrR * + @SQRT
  EMagImag = &ExzI &ExzI * &EyrI &EyrI * + @SQRT
  ExReal/EzReal = &ExzR
  ExImag/EzImag = &ExzI
  EyReal/ErReal = &EyrR
  EyImag/ErImag = &EyrI
* Conductive current density
  JcMagReal = &ExzR &ExzR * &EyrR &EyrR * + @SQRT $RegSigma *
  JcMagImag = &ExzI &ExzI * &EyrI &EyrI * + @SQRT $RegSigma *
  JcxReal/JczReal = &ExzR $RegSigma *
  JcxImag/JczImag = &ExzI $RegSigma *
  JcyReal/JcrReal = &EyrR $RegSigma *
  JcyImag/JcrImag = &EyrI $RegSigma *
* Displacement current density
  JdMagReal = &ExzI &ExzI * &EyrI &EyrI * + @SQRT $TwoPi * $Freq * $Epsi0 * $RegEpsi *
  JdMagImag = &ExzR &ExzR * &EyrR &EyrR * + @SQRT $TwoPi * $Freq * $Epsi0 * $RegEpsi *
  JdxReal/JdzReal = &ExzI $TwoPi * $Freq * $Epsi0 * $RegEpsi *
  JdxImag/JdzImag = &ExzR $TwoPi * $Freq * $Epsi0 * $RegEpsi *
  JdyReal/JdrReal = &EyrI $TwoPi * $Freq * $Epsi0 * $RegEpsi *
  JdyImag/JdrImag = &EyrR $TwoPi * $Freq * $Epsi0 * $RegEpsi *
* Material properties
  EpsiR = $RegEpsi
  Sigma = $RegSigma
END

VECTOR
  ERealVect = &ExzR;&EyrR
  EImagVect = &ExzI;&EyrI
END

VOLUME
END

SURFACE
* Real and imaginary parts of the conductive current
  IcReal = &ExzR $RegSigma *;&EyrR $RegSigma *
  IcImag = &ExzI $RegSigma *;&EyrI $RegSigma *
* Real and imaginary parts of the displacement current
  IdReal = &ExzI $TwoPi * $Freq * $Epsi0 * $RegEpsi *;&EyrI $TwoPi * $Freq * $Epsi0 * $RegEpsi *
  IdImag = &ExzR $TwoPi * $Freq * $Epsi0 * $RegEpsi *;&EyrR $TwoPi * $Freq * $Epsi0 * $RegEpsi *
END

ENDFILE