CIRCUIT DESCRIPTION
V032: Kreisringspule
ELEMENTS
  EIN,    0-1 = X1 (2000.*TIME)
  RLuft, 1-2 = X2 (PLuft/(PMu0*PALuft))
  JFe,    2-0 = X3 (PAFe*PBFe)
  CF,     2-0 = 1E-6
DEFINED PARAMETERS
  PAFe   = 100.E-4
  PALuft = 100.E-4
  PLuft = 3.0E-3
  PLFe   = 3.0
  PHFe   = X6 (VJFe/PLFe)
  PBFe   = TABLE BH (PHFe)
  PMu0   = 1.257E-6
OUTPUTS
  IRLuft,VRLuft,VJFe,EIN
  PHFe, PBFe
FUNCTIONS
TABLE BH
0, 0
80, 0.66
100, 0.812
120, 0.918
140, 0.99348
.... .....
44000, 1.99519
46000, 1.99781
49000, 2.00159
RUN CONTROLS
  STOP TIME = 9.5
  INTEGRATION ROUTINE = XPO
  TERMINATE IF (VJFe .GT. 49000.)
END
