Ticket #5414: ThermoPower_HRSG_Econ_Evap.mo

File ThermoPower_HRSG_Econ_Evap.mo, 6.2 KB (added by KieranF <kieran.fung@…>, 6 years ago)
Line 
1model ThermoPower_HRSG_Econ_Evap
2 ThermoPower.Gas.SourceMassFlow Source_FlueGas(
3 redeclare package Medium = ThermoPower.Media.FlueGas,
4 T = 331.59 + 273.15,
5 p0 = 101325,
6 w0 = 169.755) annotation(
7 Placement(visible = true, transformation(origin = {-92, 30}, extent = {{-10, -10}, {10, 10}}, rotation = 0)));
8
9 ThermoPower.Water.SourceMassFlow Source_Steam(
10 T = 46.45 + 273.15,
11 h = 203.22e3,
12 p0 = 80e5,
13 use_T = true,
14 w0 = 21.5) annotation(
15 Placement(visible = true, transformation(origin = {-10, 90}, extent = {{-10, -10}, {10, 10}}, rotation = 0)));
16
17 ThermoPower.Water.SensT sensT_WaterIn_Econ annotation(
18 Placement(visible = true, transformation(origin = {4, 60}, extent = {{-10, -10}, {10, 10}}, rotation = -90)));
19
20 ThermoPower.Water.SensT sensT_WaterOut_Econ annotation(
21 Placement(visible = true, transformation(origin = {4, 0}, extent = {{-10, -10}, {10, 10}}, rotation = -90)));
22
23 ThermoPower.Gas.SensT sensT_ExhaustIn_Econ(
24 redeclare package Medium = ThermoPower.Media.FlueGas) annotation(
25 Placement(visible = true, transformation(origin = {-50, 34}, extent = {{-10, -10}, {10, 10}}, rotation = 0)));
26
27 ThermoPower.Gas.SensT sensT_ExhaustOut_Econ(
28 redeclare package Medium = ThermoPower.Media.FlueGas) annotation(
29 Placement(visible = true, transformation(origin = {50, 34}, extent = {{-10, -10}, {10, 10}}, rotation = 0)));
30
31 inner ThermoPower.System system annotation(
32 Placement(visible = true, transformation(origin = {-90, 90}, extent = {{-10, -10}, {10, 10}}, rotation = 0)));
33
34 ThermoPower.Gas.SinkPressure Sink_FlueGas(
35 redeclare package Medium = ThermoPower.Media.FlueGas,
36 p0 = 101325) annotation(
37 Placement(visible = true, transformation(origin = {94, -70}, extent = {{-10, -10}, {10, 10}}, rotation = 0)));
38
39 ThermoPower.Water.SinkPressure Sink_Steam(
40 p0 = 80e5) annotation(
41 Placement(visible = true, transformation(origin = {10, -90}, extent = {{-10, -10}, {10, 10}}, rotation = 0)));
42
43 ThermoPower.Examples.HRB.Models.Evaporator Evaporator(
44 cm = 480,
45 exchSurface = 2.752,
46 fluidNomFlowRate = 21.5,
47 fluidNomPressure = 8e+06,
48 fluidVol = 0.01376,
49 gamma = 85,
50 gasNomFlowRate = 169.755,
51 gasNomPressure = 101325,
52 gasVol = 0.01376,
53 metalVol = 0.01376,
54 rhom(displayUnit = "kg/m3") = 8055,
55 rhonom_G = 1) annotation(
56 Placement(visible = true, transformation(origin = {0, -50}, extent = {{-10, -10}, {10, 10}}, rotation = 0)));
57
58 ThermoPower.Gas.SensT sensT_ExhaustOut_Evap(
59 redeclare package Medium = ThermoPower.Media.FlueGas) annotation(
60 Placement(visible = true, transformation(origin = {50, -66}, extent = {{-10, -10}, {10, 10}}, rotation = 0)));
61
62 Modelica.Blocks.Continuous.FirstOrder VoidFractionSensor annotation(
63 Placement(visible = true, transformation(origin = {53, -43}, extent = {{-5, -5}, {5, 5}}, rotation = 0)));
64
65 Modelica.Blocks.Interfaces.RealOutput VoidFraction annotation(
66 Placement(visible = true, transformation(origin = {110, -42}, extent = {{-10, -10}, {10, 10}}, rotation = 0), iconTransformation(origin = {110, -42}, extent = {{-10, -10}, {10, 10}}, rotation = 0)));
67
68 ThermoPower.Examples.RankineCycle.Models.HE Economizer(
69 FFtype_G = ThermoPower.Choices.Flow1D.FFtypes.OpPoint,
70 FluidPhaseStart = ThermoPower.Choices.FluidPhase.FluidPhases.Liquid,
71 N_F = 6,
72 N_G = 6,
73 Tstart_G = 604.74,
74 Tstart_M = 573.15, counterCurrent = true,
75 exchSurface_F = 2.752,
76 exchSurface_G = 2.752,
77 extSurfaceTub = 5.504,
78 fluidNomFlowRate = 21.5,
79 fluidNomPressure = 8e+06,
80 fluidVol = 0.01376,
81 gamma_F = 3000,
82 gamma_G = 30,
83 gasNomFlowRate = 169.755,
84 gasNomPressure = 101325,
85 gasVol = 0.01376,
86 lambda = 19.8,
87 metalVol = 0.01376,
88 rhomcm = 8055 * 480,
89 rhonom_F(displayUnit = "kg/m3") = 997,
90 rhonom_G = 1) annotation(
91 Placement(visible = true, transformation(origin = {0, 30}, extent = {{-10, -10}, {10, 10}}, rotation = 0)));
92
93equation
94 connect(Economizer.gasOut, sensT_ExhaustOut_Econ.inlet) annotation(
95 Line(points = {{10, 30}, {44, 30}, {44, 30}, {44, 30}}, color = {159, 159, 223}));
96 connect(sensT_ExhaustIn_Econ.outlet, Economizer.gasIn) annotation(
97 Line(points = {{-44, 30}, {-10, 30}, {-10, 30}, {-10, 30}}, color = {159, 159, 223}));
98 connect(Economizer.waterOut, sensT_WaterOut_Econ.inlet) annotation(
99 Line(points = {{0, 20}, {0, 20}, {0, 6}, {0, 6}}, color = {0, 0, 255}));
100 connect(sensT_WaterIn_Econ.outlet, Economizer.waterIn) annotation(
101 Line(points = {{0, 54}, {0, 54}, {0, 40}, {0, 40}}, color = {0, 0, 255}));
102 connect(VoidFractionSensor.y, VoidFraction) annotation(
103 Line(points = {{58, -42}, {104, -42}, {104, -42}, {110, -42}}, color = {0, 0, 127}));
104 connect(Evaporator.voidFraction, VoidFractionSensor.u) annotation(
105 Line(points = {{10, -44}, {46, -44}, {46, -42}, {46, -42}}, color = {0, 0, 127}));
106 connect(sensT_ExhaustOut_Evap.outlet, Sink_FlueGas.flange) annotation(
107 Line(points = {{56, -70}, {70, -70}, {70, -70}, {84, -70}, {84, -70}, {84, -70}}, color = {159, 159, 223}));
108 connect(Evaporator.gasOut, sensT_ExhaustOut_Evap.inlet) annotation(
109 Line(points = {{10, -50}, {26, -50}, {26, -70}, {44, -70}}, color = {159, 159, 223}));
110 connect(sensT_ExhaustOut_Econ.outlet, Evaporator.gasIn) annotation(
111 Line(points = {{56, 30}, {68, 30}, {68, -20}, {-50, -20}, {-50, -20}, {-70, -20}, {-70, -50}, {-10, -50}, {-10, -50}}, color = {159, 159, 223}));
112 connect(sensT_WaterOut_Econ.outlet, Evaporator.waterIn) annotation(
113 Line(points = {{0, -6}, {0, -40}}, color = {0, 0, 255}));
114 connect(Evaporator.waterOut, Sink_Steam.flange) annotation(
115 Line(points = {{0, -60}, {0, -90}}, color = {0, 0, 255}));
116 connect(Source_FlueGas.flange, sensT_ExhaustIn_Econ.inlet) annotation(
117 Line(points = {{-82, 30}, {-56, 30}}, color = {159, 159, 223}));
118 connect(Source_Steam.flange, sensT_WaterIn_Econ.inlet) annotation(
119 Line(points = {{0, 90}, {0, 66}}, color = {0, 0, 255}));
120 annotation(
121 uses(ThermoPower(version = "3.1"), Modelica(version = "3.2.3")));end ThermoPower_HRSG_Econ_Evap;