Buildings.RoomsBeta.Examples

Information

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

Package Content

Name	Description
MixedAirFreeResponse	Free response of room model
TestConditionalConstructions	Package that tests if constructions can be conditionally removed

Buildings.RoomsBeta.Examples.MixedAirFreeResponse

Information

Information for Windows users:

This example uses the Radau solver. For Dymola 7.4, Microsoft Visual C++ Express 2010 does not work with the Radau solver. Microsoft Visual C++ Express is not officialy supported by Dymola 7.4 and it can not link the model to the Radau solver. To avoid this problem, use another compiler, such as Visual C++ 2008.

Parameters

Type	Name	Default	Description
Integer	nConExtWin	1	Number of constructions with a window
Integer	nConBou	1	Number of surface that are connected to constructions that are modeled inside the room
Integer	nSurBou	1	Number of surface that are connected to the room air volume
ConvectionModel	conMod	Buildings.RoomsBeta.Types.Co...	Convective heat transfer model

Modelica definition

model MixedAirFreeResponse "Free response of room model"
  package MediumA = Buildings.Media.GasesConstantDensity.MoistAirUnsaturated 
    "Medium model";

  inner Modelica.Fluid.System system;

  Buildings.HeatTransfer.Data.OpaqueConstructions.Insulation100Concrete200
    matLayExt "Construction material for exterior walls";

  Buildings.HeatTransfer.Data.OpaqueConstructions.Brick120 matLayPar 
    "Construction material for partition walls";

  Buildings.HeatTransfer.Data.OpaqueConstructions.Generic matLayRoo(
        material={
          HeatTransfer.Data.Solids.InsulationBoard(x=0.2),
          HeatTransfer.Data.Solids.Concrete(x=0.2)},
        final nLay=2) "Construction material for roof";

  Buildings.HeatTransfer.Data.OpaqueConstructions.Generic matLayFlo(
        material={
          HeatTransfer.Data.Solids.Concrete(x=0.2),
          HeatTransfer.Data.Solids.InsulationBoard(x=0.15),
          HeatTransfer.Data.Solids.Concrete(x=0.05)},
        final nLay=3) "Construction material for floor";

  Buildings.HeatTransfer.Data.GlazingSystems.DoubleClearAir13Clear glaSys(
    UFra=2,
    shade=Buildings.HeatTransfer.Data.Shades.Gray(),
    haveInteriorShade=false,
    haveExteriorShade=false) "Data record for the glazing system";

  parameter Integer nConExtWin = 1 "Number of constructions with a window";
  parameter Integer nConBou = 1 
    "Number of surface that are connected to constructions that are modeled inside the room";
  parameter Integer nSurBou = 1 
    "Number of surface that are connected to the room air volume";
  parameter Buildings.RoomsBeta.Types.ConvectionModel conMod=
    Buildings.RoomsBeta.Types.ConvectionModel.Fixed 
    "Convective heat transfer model";

  Buildings.RoomsBeta.MixedAir roo(
    redeclare package Medium = MediumA,
    AFlo=6*4,
    hRoo=2.7,
    nConExt=2,
    datConExt(layers={matLayRoo, matLayExt},
           A={6*4, 6*3},
           til={Types.Tilt.Ceiling, Types.Tilt.Wall},
           azi={Types.Azimuth.S, Types.Azimuth.W},
           each conMod = conMod),
    nConExtWin=nConExtWin,
    datConExtWin(layers={matLayExt}, A={4*3},
              glaSys={glaSys},
              AWin={4*2},
              fFra={0.1},
              til={Types.Tilt.Wall},
              azi={Types.Azimuth.S},
              each conMod = conMod),
    nConPar=1,
    datConPar(layers={matLayPar}, each A=10,
           each til=Types.Tilt.Wall,
           each conMod = conMod),
    nConBou=1,
    datConBou(layers={matLayFlo}, each A=6*4,
           each til=Types.Tilt.Floor,
           each conMod = conMod),
    nSurBou=1,
    surBou(each A=6*3, each epsLW=0.9, each epsSW=0.9, each til=Types.Tilt.Wall,
           each conMod = conMod),
    linearizeRadiation = false,
    nPorts=1,
    energyDynamics=Modelica.Fluid.Types.Dynamics.FixedInitial,
    lat=0.73268921998722) "Room model";

  Modelica.Blocks.Sources.Constant qConGai_flow(k=0) "Convective heat gain";
  Modelica.Blocks.Sources.Constant qRadGai_flow(k=0) "Radiative heat gain";
  Modelica.Blocks.Routing.Multiplex3 multiplex3_1;
  Modelica.Blocks.Sources.Constant qLatGai_flow(k=0) "Latent heat gain";
  Buildings.BoundaryConditions.WeatherData.ReaderTMY3 weaDat(
    filNam="Resources/weatherdata/USA_IL_Chicago-OHare.Intl.AP.725300_TMY3.mos");
  Modelica.Blocks.Sources.Constant uSha(k=0) 
    "Control signal for the shading device";
  Modelica.Blocks.Routing.Replicator replicator(nout=max(1,nConExtWin));
  Modelica.Thermal.HeatTransfer.Sources.FixedTemperature TSoi[nConBou](each T=283.15) 
    "Boundary condition for construction";
  Modelica.Thermal.HeatTransfer.Sources.FixedTemperature TBou[nSurBou](each T=288.15) 
    "Boundary condition for construction";
  HeatTransfer.ConductorMultiLayer conOut[nSurBou](
    redeclare Buildings.HeatTransfer.Data.OpaqueConstructions.Brick120 layers,
    each A=6*4) "Construction that is modeled outside of room";

  Fluid.Sources.FixedBoundary boundary(
    nPorts=1,
    redeclare package Medium = MediumA,
    T=293.15) "Boundary condition";
equation 
  connect(qRadGai_flow.y, multiplex3_1.u1[1]);
  connect(qConGai_flow.y, multiplex3_1.u2[1]);

  connect(qLatGai_flow.y, multiplex3_1.u3[1]);
  connect(multiplex3_1.y, roo.qGai_flow);

  connect(weaDat.weaBus, roo.weaBus);
  connect(uSha.y, replicator.u);
  connect(TSoi.port, roo.surf_conBou);
  connect(TBou.port,conOut. port_b);
  connect(roo.surf_surBou, conOut.port_a);
  connect(roo.uSha, replicator.y);
  connect(roo.ports[1], boundary.ports[1]);
end MixedAirFreeResponse;