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	Q0_flow	1000	Nominal power [W]
Temperature	dT0Wat	20	Nominal temperature difference [K]
MassFlowRate	m0_flow	Q0_flow/dT0Wat/Medium.cp_const	Nominal mass flow rate [kg/s]
Pressure	dp0	3000	Pressure drop at m0_flow [Pa]

Modelica definition

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

  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,
    m0_flow=m0_flow,
    dp0=dp0);
  Fluids.FixedResistances.FixedResistanceDpM res1(
    redeclare package Medium = Medium,
    m0_flow=m0_flow,
    dp0=dp0);
  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, Q0_flow=1000,
    nEle=5,
    m0_flow=m0_flow) "Radiator";
  Buildings.Fluids.HeatExchangers.Radiators.RadiatorEN442_2 rad2(
    redeclare package Medium = Medium,
    Q0_flow=1000,
    energyDynamics=Modelica_Fluid.Types.Dynamics.SteadyState,
    nEle=5,
    m0_flow=m0_flow) "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 + dp0,
    height=-dp0);
  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;