* RFE2 7.0 - standard analysis (default)
* Field Precision LLC, Copyright 2010
* Variables
*   &PhiR, &PhiI, &ExzR, &ExzI, &EyrR, &EyrI, &EMag, &PDens
* 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 (amplitude)
  PhiAmp = &PhiR 2 ^ &PhiI 2 ^ + @SQRT
* Electrical field (peak value)
  EMagAmp = &EMag
* Conductive current (peak value)
  JcMagAmp = &EMag $RegSigma *
* Displacement current (peak value)
  JdMagAmp = &EMag $RegEpsi * $Epsi0 * $Freq * $TwoPi *
* Time-averaged power density
  PDensAvg = &PDens
* Material properties
  EpsiR = $RegEpsi
  Sigma = $RegSigma
* Potential at 0 degrees phase
  Pot00Deg = &PhiR
* Potential at 90 degrees phase
  Pot90Deg = &PhiI @CHS

* Optional quantities
* Amplitude of electrical field components
*  ExAmp/EzAmp = &ExzR 2 ^ &ExzI 2 ^ + @SQRT
*  EyAmp/ErAmp = &EyrR 2 ^ &EyrI 2 ^ + @SQRT
* Amplitude of conductive current components
*  JcxAmp/JczAmp = &ExzR 2 ^ &ExzI 2 ^ + @SQRT $RegSigma *
*  JcyAmp/JcrAmp = &EyrR 2 ^ &EyrI 2 ^ + @SQRT $RegSigma *
* Ampltiude of displacement current components
*  JdxAmp/JdzAmp = &ExzR 2 ^ &ExzI 2 ^ + @SQRT $Epsi0 * $RegEpsi * $Freq * $TwoPi *
*  JdyAmp/JdyAmp = &EyrR 2 ^ &EyrI 2 ^ + @SQRT $Epsi0 * $RegEpsi * $Freq * $TwoPi *
END

VECTOR
  E00Deg = &ExzR;&EyrR
  E90Deg = &ExzI @CHS;&EyrI @CHS
END

VOLUME
* Amplitude of the field energy (peak value)
  FEnergy = &EMag 2 ^ $Epsi0 * $RegEpsi * 0.50 *
* Time-averaged power dissipation
  Power = &PDens
END

SURFACE
END

ENDFILE