* Nelson 7.0 - standard analysis (default)
* Field Precision LLC, Copyright 2010
* Variables
*   &AR, &AI, &BxzR, &BxzI, &ByrR, &ByrI, &ER, &EI, &PDens
* Stored quantities
*   AzReal or rAThetReal  Real part of the vector potential or
*                         stream function (tesla-m or tesla-m2)
*   AzImag or rAThetImag  Imaginary part of the vector potential or
*                         stream function (tesla-m or tesla-m2)
*   PDensUp  Time-averaged power density (J/m3)
*   PDensDn
* Region quantities
*  $RegAAmp  Amplitude: Az or rAthet of fixed-potential region
*  $RegAPhase  Phase: Az or rAthet of fixed-potential region
*  $RegMu Relative magnetic permeability
*  $RegSigma Electrical conductivity (S/m)
*  $RegCDensR Real part of drive current density (A/m2)
*  $RegCDensI Imaginary part of drive current density (A/m2)
*  $RegArea  Cross-section area of region (m2)

PROGPARAM
  $DegToRad = 0.0174533
END

RUNPARAM
  $Freq = 0.0
END

REALTIMEPARAM
  $Phi0 = 0.0
END

INTERPOLATION
* Vector potential
  AzRef/rAtRef = $Phi0 $DegToRad * @ENTER @COS &AR * @EXCH @SIN &AI * -
* Magnetic field
  BxRef/BzRef = $Phi0 $DegToRad * @ENTER @COS &BxzR * @EXCH @SIN &BxzI * -
  ByRef/BrRef = $Phi0 $DegToRad * @ENTER @COS &ByrR * @EXCH @SIN &ByrI * -
  BMagRef = $Phi0 $DegToRad * @ENTER @COS &BxzR * @EXCH @SIN &BxzI * - 2 ^ $Phi0 $DegToRad * @ENTER @COS &ByrR * @EXCH @SIN &ByrI * - 2 ^ + @SQRT
* Material properties
  MuR = $RegMu
  Sigma = $RegSigma
* Eddy current: [Sigma*Er, Sigma*Ei]
  JcZRef/JcThetRef = $Phi0 $DegToRad * @ENTER @COS &ER * @EXCH @SIN &EI * - $RegSigma *
END

VECTOR
* Vector display of magnetic field direction
  BVect = $Phi0 $DegToRad * @ENTER @COS &BxzR * @EXCH @SIN &BxzI * -;$Phi0 $DegToRad * @ENTER @COS &ByrR * @EXCH @SIN &ByrI * -
END

VOLUME
END

SURFACE
END

ENDFILE