Buildings.Fluids.HeatExchangers.BaseClasses.Examples

Information

Extends from Buildings.BaseClasses.BaseIconExamples (Icon for Examples packages).

Package Content

Name	Description
Manifold
MassExchange	Test model for latent heat exchange

Buildings.Fluids.HeatExchangers.BaseClasses.Examples.Manifold

Parameters

Type	Name	Default	Description
Integer	nPipPar	3	Number of parallel pipes
Integer	nPipSeg	4	Number of pipe segments

Modelica definition

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);
  Modelica_Fluid.Sources.Boundary_pT sin_1(                       redeclare 
      package Medium = Medium,
    use_p_in=true,
    T=283.15,
    nPorts=2);
  Modelica_Fluid.Sources.Boundary_pT sou_1(
    redeclare package Medium = Medium,
    use_p_in=true,
    use_T_in=true,
    p=101335,
    T=293.15,
    nPorts=2);
    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.Fluids.HeatExchangers.BaseClasses.PipeManifoldFixedResistance
    pipFixRes_1(
    redeclare package Medium = Medium,
    nPipPar=nPipPar,
    m0_flow=5,
    dp0=10,
    linearized=false,
    mStart_flow_a=5);
  Buildings.Fluids.HeatExchangers.BaseClasses.PipeManifoldNoResistance
    pipNoRes_1(
      redeclare package Medium = Medium, nPipPar=nPipPar,
    mStart_flow_a=5);
    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);
  Buildings.Fluids.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.Fluids.HeatExchangers.BaseClasses.DuctManifoldNoResistance
    ducNoRes_2(
      redeclare package Medium = Medium,
      nPipPar=nPipPar,
      nPipSeg=nPipSeg,
    mStart_flow_a=5);
  Buildings.Fluids.HeatExchangers.BaseClasses.CoilHeader hea1(
      redeclare package Medium = Medium,
      nPipPar=nPipPar,
    mStart_flow_a=5) "Header for water-side heat exchanger register";
  Buildings.Fluids.HeatExchangers.BaseClasses.CoilHeader hea2(
      redeclare package Medium = Medium,
      nPipPar=nPipPar,
    mStart_flow_a=5) "Header for water-side heat exchanger register";
  inner Modelica_Fluid.System system;
equation 
  connect(POut.y, sin_1.p_in);
  connect(TDb.y, sou_1.T_in);
  connect(P.y, sou_1.p_in);
  connect(res_1.port_a, pipNoRes_1.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);
  connect(sou_1.ports[1], pipFixRes_1.port_a);
  connect(sou_1.ports[2], ducFixRes_2.port_a);
  connect(sin_1.ports[1], res_1.port_b);
  connect(sin_1.ports[2], res_2.port_b);
end Manifold;

Buildings.Fluids.HeatExchangers.BaseClasses.Examples.MassExchange

Modelica definition

model MassExchange "Test model for latent heat exchange"
   package Medium = Buildings.Media.PerfectGases.MoistAir;
  Buildings.Fluids.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;