SaturatingInductor

model SaturatingInductor "Simple model of inductors with saturation"
    extends Interfaces.TwoPlug;

    parameter Modelica.SIunits.Current Inom[m](start = fill(1, m)) "Nominal current";
    parameter Modelica.SIunits.Inductance Lnom[m](start = fill(1, m)) "Nominal inductance at Nominal current";
    parameter Modelica.SIunits.Inductance Lzer[m](start = {2 * Lnom[j] for j in 1:m}) "Inductance near current=0";
    parameter Modelica.SIunits.Inductance Linf[m](start = {0.5 * Lnom[j] for j in 1:m}) "Inductance at large currents";
    Modelica.Electrical.Analog.Basic.SaturatingInductor saturatingInductor[m](final Inom = Inom, final Lnom = Lnom, final Lzer = Lzer, final Linf = Linf) annotation (Placement(transformation(extent = {
        {-10, -10}, 
        {10, 10}})));
equation
    connect(saturatingInductor.n,plug_n.pin) annotation (Line(
        points = {
            {10, 0}, 
            {100, 0}},
        color = {0, 0, 255}));
    connect(saturatingInductor.p,plug_p.pin) annotation (Line(
        points = {
            {-10, 0}, 
            {-100, 0}},
        color = {0, 0, 255}));

    annotation (
        defaultComponentName = "inductor",
        Icon(
            coordinateSystem(
                preserveAspectRatio = false,
                extent = {
                    {-100, -100}, 
                    {100, 100}}),
            graphics = {
                Line(
                    points = {
                        {60, 0}, 
                        {90, 0}},
                    color = {0, 0, 255}), 
                Line(
                    points = {
                        {-90, 0}, 
                        {-60, 0}},
                    color = {0, 0, 255}), 
                Rectangle(
                    extent = {
                        {-60, -10}, 
                        {60, -20}},
                    fillPattern = FillPattern.Sphere,
                    fillColor = {0, 0, 255}), 
                Line(
                    points = {
                        {-60, 0}, 
                        {-59, 6}, 
                        {-52, 14}, 
                        {-38, 14}, 
                        {-31, 6}, 
                        {-30, 0}},
                    color = {0, 0, 255},
                    smooth = Smooth.Bezier), 
                Line(
                    points = {
                        {-30, 0}, 
                        {-29, 6}, 
                        {-22, 14}, 
                        {-8, 14}, 
                        {-1, 6}, 
                        {0, 0}},
                    color = {0, 0, 255},
                    smooth = Smooth.Bezier), 
                Line(
                    points = {
                        {0, 0}, 
                        {1, 6}, 
                        {8, 14}, 
                        {22, 14}, 
                        {29, 6}, 
                        {30, 0}},
                    color = {0, 0, 255},
                    smooth = Smooth.Bezier), 
                Line(
                    points = {
                        {30, 0}, 
                        {31, 6}, 
                        {38, 14}, 
                        {52, 14}, 
                        {59, 6}, 
                        {60, 0}},
                    color = {0, 0, 255},
                    smooth = Smooth.Bezier), 
                Text(
                    extent = {
                        {-150, -80}, 
                        {150, -40}},
                    textString = "m=%m"), 
                Text(
                    extent = {
                        {-150, 90}, 
                        {150, 50}},
                    textString = "%name",
                    lineColor = {0, 0, 255})}),
        Documentation(info = "<html>\n<p>\nContains m saturating inductors (Modelica.Electrical.Analog.Basic.SaturatingInductor)\n</p>\n<p>\n<strong>Attention!!!</strong><br>\nEach element of the array of saturatingInductors is only dependent on the current flowing through this element.\n</p>\n</html>"));
end SaturatingInductor;