Extends from Buildings.BaseClasses.BaseIconExamples (Icon for Examples packages).
Name | Description |
---|---|
Stratified | Test model for stratified tank |
model Stratified "Test model for stratified tank" package Medium = Buildings.Media.ConstantPropertyLiquidWater "Medium model"; Buildings.Fluid.Storage.Stratified tanSim( redeclare package Medium = Medium, nSeg=10, hTan=3, dIns=0.3, VTan=5, m_flow_nominal=10) "Tank"; Modelica.Blocks.Sources.TimeTable TWat(table=[0,273.15 + 40; 3600,273.15 + 40; 3600,273.15 + 20; 7200,273.15 + 20]) "Water temperature"; Buildings.Fluid.Sources.Boundary_pT sou_1( p=300000 + 5000, T=273.15 + 50, redeclare package Medium = Medium, use_T_in=true, nPorts=2); Buildings.Fluid.Sources.Boundary_pT sin_1( redeclare package Medium = Medium, T=273.15 + 20, use_p_in=true, p=300000, nPorts=2); FixedResistances.FixedResistanceDpM res_1( from_dp=true, redeclare package Medium = Medium, dp_nominal=5000, m_flow_nominal=10); Buildings.Fluid.Storage.StratifiedEnhanced tanEnh( redeclare package Medium = Medium, nSeg=10, a=1E-4, hTan=3, dIns=0.3, VTan=5, m_flow_nominal=10) "Tank"; FixedResistances.FixedResistanceDpM res_2( from_dp=true, redeclare package Medium = Medium, dp_nominal=5000, m_flow_nominal=10); Buildings.Fluid.Sensors.EnthalpyFlowRate HOut_flow(redeclare package Medium = Medium) "Enthalpy flow rate"; Buildings.Fluid.Sensors.EnthalpyFlowRate HOut_flow1(redeclare package Medium = Medium) "Enthalpy flow rate"; Modelica.Blocks.Continuous.Integrator dH "Differenz in enthalpy (should be zero at steady-state)"; Modelica.Blocks.Math.Add add(k2=-1); Modelica.Blocks.Sources.TimeTable P(table=[0,300000; 4200,300000; 4200, 305000; 7200,305000; 7200,310000; 10800,310000; 10800,305000]) "Pressure boundary condition"; Modelica.Blocks.Sources.Sine sine( freqHz=1/86400, amplitude=10, offset=273.15 + 20); Modelica.Thermal.HeatTransfer.Sources.PrescribedTemperature TBCSid2 "Boundary condition for tank"; Modelica.Thermal.HeatTransfer.Sources.PrescribedTemperature TBCSid1 "Boundary condition for tank"; Modelica.Thermal.HeatTransfer.Sources.PrescribedTemperature TBCTop1 "Boundary condition for tank"; Modelica.Thermal.HeatTransfer.Sources.PrescribedTemperature TBCTop2 "Boundary condition for tank"; inner Modelica.Fluid.System system; equation connect(TWat.y, sou_1.T_in); connect(tanSim.port_b, HOut_flow.port_a); connect(HOut_flow.port_b, res_1.port_a); connect(tanEnh.port_b, HOut_flow1.port_a); connect(HOut_flow1.port_b, res_2.port_a); connect(add.y, dH.u); connect(HOut_flow.H_flow, add.u1); connect(HOut_flow1.H_flow, add.u2); connect(P.y, sin_1.p_in); connect(sine.y, TBCSid1.T); connect(sine.y, TBCTop1.T); connect(sine.y, TBCSid2.T); connect(sine.y, TBCTop2.T); connect(TBCSid2.port, tanEnh.heaPorSid); connect(TBCTop2.port, tanEnh.heaPorTop); connect(sin_1.ports[1], res_1.port_b); connect(sin_1.ports[2], res_2.port_b); connect(sou_1.ports[1], tanSim.port_a); connect(sou_1.ports[2], tanEnh.port_a); end Stratified;