Buildings.Fluids.HeatExchangers.Radiators.Examples

Information

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

Package Content

Name	Description
RadiatorEN442_2	Test model for radiator

Buildings.Fluids.HeatExchangers.Radiators.Examples.RadiatorEN442_2

Parameters

Type	Name	Default	Description
Power	Q_flow_nominal	1000	Nominal power [W]
Temperature	dT_nominalWat	20	Nominal temperature difference [K]
MassFlowRate	m_flow_nominal	Q_flow_nominal/dT_nominalWat...	Nominal mass flow rate [kg/s]
Pressure	dp_nominal	3000	Pressure drop at m_flow_nominal [Pa]

Modelica definition

model RadiatorEN442_2 "Test model for radiator"
  import Buildings;
 package Medium = Buildings.Media.ConstantPropertyLiquidWater "Medium model";
 parameter Modelica.SIunits.Power Q_flow_nominal = 1000 "Nominal power";
 parameter Modelica.SIunits.Temperature dT_nominalWat = 20 
    "Nominal temperature difference";
 parameter Modelica.SIunits.MassFlowRate m_flow_nominal = Q_flow_nominal/dT_nominalWat/Medium.cp_const 
    "Nominal mass flow rate";
 parameter Modelica.SIunits.Pressure dp_nominal = 3000 
    "Pressure drop at m_flow_nominal";

  Modelica_Fluid.Sources.Boundary_pT sou(
    nPorts=2,
    redeclare package Medium = Medium,
    use_p_in=true,
    T=353.15);
  Fluids.FixedResistances.FixedResistanceDpM res2(
    redeclare package Medium = Medium,
    m_flow_nominal=m_flow_nominal,
    dp_nominal=dp_nominal);
  Fluids.FixedResistances.FixedResistanceDpM res1(
    redeclare package Medium = Medium,
    m_flow_nominal=m_flow_nominal,
    dp_nominal=dp_nominal);
  Modelica_Fluid.Sources.Boundary_pT sin(
    redeclare package Medium = Medium,
    nPorts=2,
    p(displayUnit="Pa") = 300000,
    T=333.15) "Sink";
  inner Modelica_Fluid.System system;
  Buildings.Fluids.HeatExchangers.Radiators.RadiatorEN442_2 rad1(redeclare 
      package Medium = 
               Medium, Q_flow_nominal=1000,
    nEle=5,
    m_flow_nominal=m_flow_nominal) "Radiator";
  Buildings.Fluids.HeatExchangers.Radiators.RadiatorEN442_2 rad2(
    redeclare package Medium = Medium,
    Q_flow_nominal=1000,
    energyDynamics=Modelica_Fluid.Types.Dynamics.SteadyState,
    nEle=5,
    m_flow_nominal=m_flow_nominal) "Radiator";
  Modelica.Thermal.HeatTransfer.Sources.FixedTemperature TBCCon1(T=293.15);
  Modelica.Thermal.HeatTransfer.Sources.FixedTemperature TBCCon2(T=293.15);
  Modelica.Blocks.Sources.Step step(
    startTime=3600,
    offset=300000 + dp_nominal,
    height=-dp_nominal);
  Modelica.Thermal.HeatTransfer.Sources.FixedTemperature TBCRad2(T=293.15);
  Modelica.Thermal.HeatTransfer.Sources.FixedTemperature TBCRad1(T=293.15);
equation 
  connect(sou.ports[1], rad1.port_a);
  connect(sou.ports[2], rad2.port_a);
  connect(rad1.port_b, res1.port_a);
  connect(rad2.port_b, res2.port_a);
  connect(res1.port_b, sin.ports[1]);
  connect(res2.port_b, sin.ports[2]);
  connect(step.y, sou.p_in);
  connect(TBCRad2.port, rad2.heatPortRad);
  connect(TBCRad1.port, rad1.heatPortRad);
  connect(TBCCon2.port, rad2.heatPortCon);
  connect(TBCCon1.port, rad1.heatPortCon);
end RadiatorEN442_2;