Ticket #4259: VarLenLine.mo

File VarLenLine.mo, 2.9 KB (added by anonymous, 8 years ago)
Line 
1model VarLenLine "Variable-length Two-wire line trunk (resistances, inductances with coupling)"
2  Modelica.Blocks.Interfaces.RealInput len "line length (m)" annotation(
3    Placement(transformation(extent = {{-20, -20}, {20, 20}}, rotation = 90, origin = {0, -100}), iconTransformation(extent = {{-20, -20}, {20, 20}}, rotation = 90, origin = {0, -80})));
4  Modelica.Electrical.QuasiStationary.SinglePhase.Interfaces.PositivePin pPin[N] annotation(
5    Placement(transformation(extent = {{-110, -10}, {-90, 12}})));
6  Modelica.Electrical.QuasiStationary.SinglePhase.Interfaces.NegativePin nPin[N] annotation(
7    Placement(transformation(extent = {{90, -10}, {110, 10}})));
8  Real x;
9  parameter Real p=1;
10equation
11  x=p;
12  annotation(
13    Icon(coordinateSystem(preserveAspectRatio = false), graphics = {Ellipse(extent = {{-60, -55}, {-30, -25}}, lineColor = {85, 170, 255}), 
14    Ellipse(extent = {{-30, -55}, {0, -25}}, lineColor = {85, 170, 255}),
15        Ellipse(extent = {{0, -55}, {30, -25}}, lineColor = {85, 170, 255}), Ellipse(extent = {{30, -55}, {60, -25}}, lineColor = {85, 170, 255}), 
16        Rectangle(extent = {{-60, -70}, {60, -40}}, lineColor = {255, 255, 255}, fillColor = {255, 255, 255}, fillPattern = FillPattern.Solid), 
17        Line(points = {{60, -40}, {74, -40}}, color = {85, 170, 255}), Line(points = {{-74, -40}, {-60, -40}}, color = {85, 170, 255}),
18        Ellipse(extent = {{-60, 55}, {-30, 25}}, lineColor = {85, 170, 255}), Ellipse(extent = {{-30, 55}, {0, 25}}, lineColor = {85, 170, 255}), 
19        Ellipse(extent = {{0, 55}, {30, 25}}, lineColor = {85, 170, 255}),         
20        Ellipse(extent = {{30, 55}, {60, 25}}, lineColor = {85, 170, 255}),         
21        Rectangle(extent = {{-60, 40}, {60, 70}}, lineColor = {255, 255, 255}, fillColor = {255, 255, 255}, fillPattern = FillPattern.Solid), 
22        Line(points = {{60, 40}, {74, 40}}, color = {85, 170, 255}), 
23        Line(points = {{-74, -40}, {-74, 40}}, color = {85, 170, 255}), Line(points = {{-74, 40}, {-60, 40}}, color = {85, 170, 255}), 
24        Line(points = {{74, -40}, {74, 40}}, color = {85, 170, 255}), 
25        Line(points = {{-98, 0}, {-74, 0}}, color = {85, 170, 255}), Line(points = {{74, 0}, {98, 0}}, color = {85, 170, 255}),
26        Ellipse(extent = {{-68, 10}, {68, -10}}, lineColor = {85, 170, 255}, linePattern = LinePattern.Dash, pattern = LinePattern.Dash), Text(extent = {{-100, 96}, {100, 60}}, lineColor = {0, 0, 255}, textString = "%name")}),
27    Diagram(coordinateSystem(preserveAspectRatio = false)),
28    Documentation(info = "<html>
29<p>Modello sescrivente in approssimazione quasi stationary untronco di linea 2x25.</p>
30<p>I plug di estremit&agrave; contentono due elementi, che sono:</p>
31<p>[1] il filo di contatto</p>
32<p>[2] il feeder.</p>
33<p>Il terreno &egrave; il riferimento per le tensioni e la corrente che transita nel terreno e pari a i[1]+i[2].</p>
34</html>"));
35end VarLenLine;