MultiStar

model MultiStar "Star connection of multi phase systems consisting of multiple base systems"
    parameter Integer m(final min = 1) = 3 "Number of phases";
    final parameter Integer mSystems = Modelica.Electrical.MultiPhase.Functions.numberOfSymmetricBaseSystems(m) "Number of base systems";
    final parameter Integer mBasic = integer(m / mSystems) "Phase number of base systems";
    Modelica.Electrical.MultiPhase.Interfaces.PositivePlug plug_p(final m = m) annotation (Placement(transformation(extent = {
        {-110, -10}, 
        {-90, 10}})));
    Modelica.Electrical.MultiPhase.Interfaces.NegativePlug starpoints(final m = mSystems) annotation (Placement(transformation(extent = {
        {90, -10}, 
        {110, 10}})));
equation
    for k in 1:mSystems loop
        for j in 1:mBasic loop
            connect(plug_p.pin[(k - 1) * mBasic + j],starpoints.pin[k]);
        end for;
    end for;

    annotation (
        Icon(
            coordinateSystem(
                preserveAspectRatio = false,
                extent = {
                    {-100, -100}, 
                    {100, 100}}),
            graphics = {
                Line(
                    points = {
                        {74, -4}, 
                        {-6, -4}},
                    thickness = 0.5,
                    color = {0, 0, 255}), 
                Line(
                    points = {
                        {-6, -4}, 
                        {-45, 64}},
                    thickness = 0.5,
                    color = {0, 0, 255}), 
                Line(
                    points = {
                        {-6, -4}, 
                        {-44, -73}},
                    thickness = 0.5,
                    color = {0, 0, 255}), 
                Line(
                    points = {
                        {-90, 0}, 
                        {-40, 0}},
                    color = {0, 0, 255}), 
                Line(
                    points = {
                        {80, 0}, 
                        {90, 0}},
                    color = {0, 0, 255}), 
                Line(
                    points = {
                        {6, 4}, 
                        {-33, 72}},
                    thickness = 0.5,
                    color = {0, 0, 255}), 
                Line(
                    points = {
                        {86, 4}, 
                        {6, 4}},
                    thickness = 0.5,
                    color = {0, 0, 255}), 
                Line(
                    points = {
                        {6, 4}, 
                        {-32, -65}},
                    thickness = 0.5,
                    color = {0, 0, 255}), 
                Text(
                    extent = {
                        {-150, -110}, 
                        {150, -70}},
                    textString = "m=%m"), 
                Text(
                    extent = {
                        {-150, 70}, 
                        {150, 110}},
                    textString = "%name",
                    lineColor = {0, 0, 255})}),
        Documentation(info = "<html>\n<p>\nStar (wye) connection of a multi phase circuit consisting of multiple base systems (see\n<a href=\"modelica://Modelica.Magnetic.FundamentalWave.UsersGuide.MultiPhase\">multi phase guidelines</a>). The potentials at the star points are all equal.\n</p>\n<h4>See also</h4>\n<p>\n<a href=\"modelica://Modelica.Electrical.MultiPhase.Basic.Star\">Star</a>,\n<a href=\"modelica://Modelica.Electrical.MultiPhase.Basic.Delta\">Delta</a>,\n<a href=\"modelica://Modelica.Electrical.MultiPhase.Basic.MultiDelta\">MultiDelta</a>\n</p></html>"));
end MultiStar;