* EStat 7.0 - dielectric analysis (default)
* Field Precision LLC, Copyright 2010
* Variables: &Phi, &Exz, &Eyr, &EMag, &Dxz, &Dyr, &EpsSig1, &EpsSig2, &Rho
* Stored quantities
*    Phi: electrostatic potential (V)
*    EpsiRUp: relative permitivity in upper triangle
*    EpsiRDn: relative permitivity in lower triangle
*    RhoUp: space-charge density in upper triangle (C/m3)
*    RhoDn: space-charge density in lower triangle (C/m3)
* Region quantities
*  $RegEps1
*  $RegRho
*  $RegPot
*  $RegEps2
*  $RegAng
*  $RegSinAng
*  $RegCosAng

PROGPARAM
  $Epsi0 = 8.854187E-12
END

RUNPARAM
  $CondFlag = 0.0
END

REALTIMEPARAM
END

INTERPOLATION
  Phi = &Phi
  Ex/Ez = &Exz
  Ey/Er = &Eyr
  |E| = &EMag
  Dx/Dz = $Epsi0 &Exz0 *
  Dy/Dr = $Epsi0 &Eyr0 *
  |D| = $Epsi0 &EMag0 *
  EngDens = &Exz &Exz0 * &Eyr &Eyr0 * + 0.5 * $Epsi0 *
END

VECTOR
  EVect = &Exz;&Eyr
  DVect = &Exz0 $Epsi0 *;&Eyr0 $Epsi0 *
END

VOLUME
  Energy = &Exz &Exz0 * &Eyr &Eyr0 * + 0.5 * $Epsi0 *
  Charge = &Rho
END

SURFACE
  Charge = &Exz0 $Epsi0 *;&Eyr0 $Epsi0 *
END

ENDFILE