model FirstNewExperiment

  ThermoPower.Water.SensT sensT annotation(

    Placement(visible = true, transformation(origin = {-16, -66}, extent = {{-10, -10}, {10, 10}}, rotation = 0)));

  ThermoPower.Water.Flow1DFEM flow1DFEM(A = 0.00031416, L = 10, Nw = 2, dpnom(displayUnit = "Pa") = 200000, omega = 1, wnom = 0.3)  annotation(

    Placement(visible = true, transformation(origin = {16, -70}, extent = {{-10, -10}, {10, 10}}, rotation = 0)));

  ThermoPower.Water.ValveLiq valveLiq annotation(

    Placement(visible = true, transformation(origin = {50, -70}, extent = {{-10, -10}, {10, 10}}, rotation = 0)));

  Modelica.Blocks.Sources.Step FlowRateStep(height = -0.1, offset = 0.3, startTime = 50)  annotation(

    Placement(visible = true, transformation(origin = {-80, -30}, extent = {{-10, -10}, {10, 10}}, rotation = 0)));

  Modelica.Blocks.Sources.Step SpecificEnthalpyStep(height = 42000, offset = 100000, startTime = 0)  annotation(

    Placement(visible = true, transformation(origin = {-74, 10}, extent = {{-10, -10}, {10, 10}}, rotation = 0)));

  Modelica.Blocks.Sources.Constant Constant(k = 1)  annotation(

    Placement(visible = true, transformation(origin = {70, -20}, extent = {{10, -10}, {-10, 10}}, rotation = 0)));

  Modelica.Blocks.Sources.Step ExternalPower(height = 12500, offset = 0, startTime = 30)  annotation(

    Placement(visible = true, transformation(origin = {-8, 0}, extent = {{-10, -10}, {10, 10}}, rotation = 0)));

  ThermoPower.Thermal.HeatSource1DFEM heatSource1DFEM(L = 1, omega = 1)  annotation(

    Placement(visible = true, transformation(origin = {16, -34}, extent = {{-10, -10}, {10, 10}}, rotation = 0)));

  inner ThermoPower.System system annotation(

    Placement(visible = true, transformation(origin = {2, 78}, extent = {{-10, -10}, {10, 10}}, rotation = 0)));

  ThermoPower.Water.SourceW sourceW annotation(

    Placement(visible = true, transformation(origin = {-50, -70}, extent = {{-10, -10}, {10, 10}}, rotation = 0)));

  ThermoPower.Water.SinkP sinkP annotation(

    Placement(visible = true, transformation(origin = {84, -70}, extent = {{-10, -10}, {10, 10}}, rotation = 0)));

equation

  connect(Constant.y, valveLiq.theta) annotation(

    Line(points = {{60, -20}, {50, -20}, {50, -62}}, color = {0, 0, 127}));

  connect(sensT.outlet, flow1DFEM.infl) annotation(

    Line(points = {{-10, -70}, {6, -70}}, color = {0, 0, 255}));

  connect(flow1DFEM.outfl, valveLiq.inlet) annotation(

    Line(points = {{26, -70}, {40, -70}}, color = {0, 0, 255}));

  connect(heatSource1DFEM.wall, flow1DFEM.wall) annotation(

    Line(points = {{16, -37}, {16, -64}}, color = {255, 127, 0}));

  connect(heatSource1DFEM.power, ExternalPower.y) annotation(

    Line(points = {{16, -30}, {16, 0}, {4, 0}}, color = {0, 0, 127}));

  connect(FlowRateStep.y, sourceW.in_w0) annotation(

    Line(points = {{-68, -30}, {-54, -30}, {-54, -64}}, color = {0, 0, 127}));

  connect(SpecificEnthalpyStep.y, sourceW.in_h) annotation(

    Line(points = {{-62, 10}, {-46, 10}, {-46, -64}}, color = {0, 0, 127}));

  connect(valveLiq.outlet, sinkP.flange) annotation(

    Line(points = {{60, -70}, {74, -70}}, color = {0, 0, 255}));

  connect(sourceW.flange, sensT.inlet) annotation(

    Line(points = {{-40, -70}, {-22, -70}}, color = {0, 0, 255}));

  annotation(

    uses(ThermoPower(version = "3.1"), Modelica(version = "3.2.3")));

end FirstNewExperiment;