* 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 END RUNPARAM $Freq = 0.0 END REALTIMEPARAM END INTERPOLATION AzReal/rAtReal = &AR AzImag/rAtImag = &AI BxReal/BzReal = &BxzR BxImag/BzImag = &BxzI ByReal/BrReal = &ByrR ByImag/BrImag = &ByrI |B|Real = &BxzR 2 ^ &ByrR 2 ^ + @SQRT |B|Imag = &BxzI 2 ^ &ByrI 2 ^ + @SQRT EzReal/EThetReal = &ER EzImag/EThetImag = &EI JzReal/JThetReal = &ER $RegSigma * JzImag/JThetImag = &EI $RegSigma * JDriveReal $RegCDensR JDriveImag $RegCDensI END VECTOR END VOLUME END SURFACE END ENDFILE