Name | Description |
---|---|
Manifold | |
MassExchange | Test model for latent heat exchange |
Type | Name | Default | Description |
---|---|---|---|
replaceable package Medium | Buildings.Media.ConstantProp... | ||
Integer | nPipPar | 3 | Number of parallel pipes |
Integer | nPipSeg | 4 | Number of pipe segments |
Type | Name | Description |
---|---|---|
replaceable package Medium |
model Manifold package Medium = Buildings.Media.ConstantPropertyLiquidWater; parameter Integer nPipPar = 3 "Number of parallel pipes"; parameter Integer nPipSeg = 4 "Number of pipe segments"; Modelica.Blocks.Sources.Constant POut(k=101325); Buildings.Fluids.Sources.PrescribedBoundary_pTX sin_1(T=283.15, redeclare package Medium = Medium); Buildings.Fluids.Sources.PrescribedBoundary_pTX sou_1( T=293.15, redeclare package Medium = Medium, p=101335); Fluids.FixedResistances.FixedResistanceDpM res_1( m0_flow=5, redeclare package Medium = Medium, dp0=10, use_dh=true, from_dp=false); Modelica_Fluid.Sensors.MassFlowRate[nPipPar] mfr_1(redeclare each package Medium = Medium); Modelica.Blocks.Sources.Ramp TDb( height=1, duration=1, offset=293.15); Modelica.Blocks.Sources.Ramp P( duration=1, height=40, offset=101305); Buildings.HeatExchangers.BaseClasses.PipeManifoldFixedResistance pipFixRes_1( redeclare package Medium = Medium, nPipPar=nPipPar, m0_flow=5, dp0=10, linearized=false, mStart_flow_a=5); Buildings.HeatExchangers.BaseClasses.PipeManifoldNoResistance pipNoRes_1( redeclare package Medium = Medium, nPipPar=nPipPar, mStart_flow_a=5); Modelica.Blocks.Sources.Constant POut1( k=101325); Buildings.Fluids.Sources.PrescribedBoundary_pTX sin_2(T=283.15, redeclare package Medium = Medium); Buildings.Fluids.Sources.PrescribedBoundary_pTX sou_2( T=293.15, redeclare package Medium = Medium, p=101335); Fluids.FixedResistances.FixedResistanceDpM res_2( m0_flow=5, redeclare package Medium = Medium, dp0=10, use_dh=true, from_dp=false); Modelica_Fluid.Sensors.MassFlowRate[nPipPar, nPipSeg] mfr_2(redeclare each package Medium = Medium); Modelica.Blocks.Sources.Ramp TDb1( height=1, duration=1, offset=293.15); Modelica.Blocks.Sources.Ramp P1( duration=1, height=40, offset=101305); Buildings.HeatExchangers.BaseClasses.DuctManifoldFixedResistance ducFixRes_2( redeclare package Medium = Medium, nPipPar=nPipPar, nPipSeg=nPipSeg, m0_flow=5, dp0=10, linearized=false, mStart_flow_a=5); Buildings.HeatExchangers.BaseClasses.DuctManifoldNoResistance ducNoRes_2( redeclare package Medium = Medium, nPipPar=nPipPar, nPipSeg=nPipSeg, mStart_flow_a=5); Buildings.HeatExchangers.BaseClasses.CoilHeader hea1( redeclare package Medium = Medium, nPipPar=nPipPar, mStart_flow_a=5) "Header for water-side heat exchanger register"; Buildings.HeatExchangers.BaseClasses.CoilHeader hea2( redeclare package Medium = Medium, nPipPar=nPipPar, mStart_flow_a=5) "Header for water-side heat exchanger register"; equation connect(POut.y, sin_1.p_in); connect(sin_1.port, res_1.port_b); connect(TDb.y, sou_1.T_in); connect(P.y, sou_1.p_in); connect(sou_1.port, pipFixRes_1.port_a); connect(res_1.port_a, pipNoRes_1.port_a); connect(POut1.y, sin_2.p_in); connect(sin_2.port,res_2. port_b); connect(TDb1.y, sou_2.T_in); connect(P1.y, sou_2.p_in); connect(sou_2.port,ducFixRes_2. port_a); connect(res_2.port_a,ducNoRes_2. port_a); connect(pipFixRes_1.port_b, hea1.port_a); connect(hea1.port_b, mfr_1.port_a); connect(mfr_1.port_b, hea2.port_a); connect(hea2.port_b, pipNoRes_1.port_b); connect(ducFixRes_2.port_b, mfr_2.port_a); connect(mfr_2.port_b, ducNoRes_2.port_b); end Manifold;
Type | Name | Default | Description |
---|---|---|---|
replaceable package Medium | Buildings.Media.PerfectGases... |
Type | Name | Description |
---|---|---|
replaceable package Medium |
model MassExchange "Test model for latent heat exchange" package Medium = Buildings.Media.PerfectGases.MoistAir; Buildings.HeatExchangers.BaseClasses.MassExchange masExc(redeclare package Medium = Medium) "Model for mass exchange"; Modelica.Blocks.Sources.Ramp TSur( duration=1, height=20, offset=273.15 + 5) "Surface temperature"; Modelica.Blocks.Sources.Constant XWat(k=0.01) "Humidity mass fraction in medium"; Modelica.Blocks.Sources.Constant Gc(k=1) "Sensible convective thermal conductance"; equation connect(TSur.y, masExc.TSur); connect(Gc.y, masExc.Gc); connect(XWat.y, masExc.XInf); end MassExchange;