function everett extends Modelica.Icons.Function; import Modelica.Constants.pi; input SI.MagneticFieldStrength a_; input SI.MagneticFieldStrength b_; input FluxTubes.Material.HysteresisEverettParameter.BaseData p; input Boolean mirror "If true then J(a,b)=-J(b,a) else J(a,b)=0 for a<b"; output SI.MagneticFluxDensity J "Magnetic polarisation"; end everett;