Buildings.HeatTransfer.WindowsBeta.BaseClasses.Examples

Collection of models that illustrate model use and test models

Information

This package contains examples for the use of models that can be found in Buildings.HeatTransfer.WindowsBeta.BaseClasses.

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

Package Content

Name Description

Shade Test model for exterior shade heat transfer

CenterOfGlass Test model for center of glas heat transfer

GlassLayer Test model for glass layer heat transfer

GasConvection Test problem for convection in the gas layer

WindowRadiation Test model for window radiation

TransmittedRadiation Test model for transmitted radiation through window

AbsorbedRadiation Test model for absorbed radiation by windows

Name	Description
Shade	Test model for exterior shade heat transfer
CenterOfGlass	Test model for center of glas heat transfer
GlassLayer	Test model for glass layer heat transfer
GasConvection	Test problem for convection in the gas layer
WindowRadiation	Test model for window radiation
TransmittedRadiation	Test model for transmitted radiation through window
AbsorbedRadiation	Test model for absorbed radiation by windows

Buildings.HeatTransfer.WindowsBeta.BaseClasses.Examples.Shade

Test model for exterior shade heat transfer

Buildings.HeatTransfer.WindowsBeta.BaseClasses.Examples.Shade

Information

This model tests the shading device. Note that the temperature of the shading device changes slightly as the shade control signal changes (i.e., as the shade is lowered). This is because the shade has a different emissive power than the glass, which changes the energy balance.

Parameters

Type Name Default Description

Area A 1 Window surface area [m2]

Boolean linearize true Set to true to linearize emissive power

Type	Name	Default	Description
Area	A	1	Window surface area [m2]
Boolean	linearize	true	Set to true to linearize emissive power

Modelica definition

model Shade "Test model for exterior shade heat transfer"
  import Buildings;
  parameter Modelica.SIunits.Area A=1 "Window surface area";
  parameter Boolean linearize = true "Set to true to linearize emissive power";

  Buildings.HeatTransfer.WindowsBeta.BaseClasses.Shade extSha(
    A=A,
    linearize=false,
    epsLW_air=0.3,
    epsLW_glass=0.3,
    tauLW_air=0.3,
    tauLW_glass=0.3,
    thisSideHasShade=true) "Model of exterior shade";
  Modelica.Blocks.Sources.Ramp uSha(
    height=0.9,
    duration=1,
    offset=0.05) "Control signal for shade";
  Modelica.Blocks.Sources.Constant TOut(k=273.15) "Outside temperature";
  Buildings.HeatTransfer.Radiosity.OpaqueSurface radOut(A=A, epsLW=0.8,
    linearize=false) "Model for outside radiosity";
  Modelica.Thermal.HeatTransfer.Sources.PrescribedTemperature TRadOut 
    "Outside radiative temperature";

  Buildings.HeatTransfer.Radiosity.OpaqueSurface radIn(A=A, epsLW=0.8,
    linearize=false) "Model for inside radiosity";
  Modelica.Blocks.Sources.Constant TRoo(k=293.15) "Room temperature";
  Modelica.Thermal.HeatTransfer.Sources.PrescribedTemperature TRadRoo 
    "Room radiative temperature";
  Modelica.Blocks.Sources.Constant QSW_shade(k=0) 
    "Short-wave heat flow absorbed by shade";
  Buildings.HeatTransfer.Radiosity.RadiositySplitter radShaInt 
    "Radiosity that strikes shading device";

  Buildings.HeatTransfer.WindowsBeta.BaseClasses.Shade extNonSha(
    A=A,
    linearize=false,
    thisSideHasShade=false,
    epsLW_air=0,
    epsLW_glass=0,
    tauLW_air=0.3,
    tauLW_glass=0.3) "Model for fraction of window that has no shade";
  Buildings.HeatTransfer.Radiosity.RadiositySplitter radShaOut 
    "Radiosity that strikes shading device";
  Modelica.Thermal.HeatTransfer.Sources.PrescribedTemperature TAirOut 
    "Outside air temperature";
  Modelica.Thermal.HeatTransfer.Sources.PrescribedTemperature TAirRoo 
    "Room-side air temperature";
  Buildings.HeatTransfer.WindowsBeta.BaseClasses.ShadingSignal shaCon(haveShade=
        true);
  Modelica.Blocks.Math.Gain GConSha(k=10*A, y(unit="W/K")) 
    "Convection coefficient for shade part of window";
  Modelica.Blocks.Math.Gain GConUns(k=10*A, y(unit="W/K")) 
    "Convection coefficient for unshade part of window";
equation 
  connect(TRadOut.port, radOut.heatPort);
  connect(TRadOut.T, TOut.y);
  connect(TRadRoo.port, radIn.heatPort);
  connect(TRadRoo.T, TRoo.y);
  connect(radShaOut.JIn, radOut.JOut);
  connect(radIn.JOut, radShaInt.JIn);
  connect(extSha.JOut_air, radOut.JIn);
  connect(extNonSha.JOut_air, radOut.JIn);
  connect(radShaOut.JOut_1, extSha.JIn_air);
  connect(radShaOut.JOut_2, extNonSha.JIn_air);
  connect(QSW_shade.y, extSha.QAbs_flow);
  connect(radShaInt.JOut_1, extSha.JIn_glass);
  connect(radShaInt.JOut_2, extNonSha.JIn_glass);
  connect(extNonSha.JOut_glass, radIn.JIn);
  connect(extSha.JOut_glass, radIn.JIn);
  connect(TAirOut.port, extSha.air);
  connect(TAirOut.T, TOut.y);
  connect(TAirRoo.port, extSha.glass);
  connect(TAirRoo.port, extNonSha.glass);
  connect(TAirOut.port, extNonSha.air);
  connect(TAirRoo.T, TRoo.y);
  connect(QSW_shade.y, extNonSha.QAbs_flow);
  connect(shaCon.y, extSha.u);
  connect(shaCon.y, radShaOut.u);
  connect(uSha.y, shaCon.u);
  connect(shaCon.yCom, extNonSha.u);
  connect(GConSha.y, extSha.Gc);
  connect(GConUns.y, extNonSha.Gc);
  connect(GConSha.u, shaCon.y);
  connect(shaCon.yCom, GConUns.u);
  connect(shaCon.y, radShaInt.u);
end Shade;

Buildings.HeatTransfer.WindowsBeta.BaseClasses.Examples.CenterOfGlass

Test model for center of glas heat transfer

Buildings.HeatTransfer.WindowsBeta.BaseClasses.Examples.CenterOfGlass

Information

This model tests the heat transfer for the center of the glass, with and without a shading device.

Parameters

Type Name Default Description

Area A 1 Window surface area [m2]

Boolean linearize false Set to true to linearize emissive power

Type	Name	Default	Description
Area	A	1	Window surface area [m2]
Boolean	linearize	false	Set to true to linearize emissive power

Modelica definition

model CenterOfGlass "Test model for center of glas heat transfer"
  import Buildings;
  parameter Modelica.SIunits.Area A=1 "Window surface area";
  parameter Boolean linearize = false "Set to true to linearize emissive power";

  Buildings.HeatTransfer.WindowsBeta.BaseClasses.CenterOfGlass sha(
    A=A,
    linearize=linearize,
    til=1.5707963267949,
    glaSys=glaSys) "Model for fraction of window that has a shade";
  Modelica.Blocks.Sources.Ramp uSha(
    height=0.9,
    duration=1,
    offset=0.05) "Control signal for shade";
  Modelica.Thermal.HeatTransfer.Sources.PrescribedTemperature TAirOut 
    "Outside air temperature";
  Modelica.Blocks.Sources.Constant TOut(k=273.15) "Outside temperature";
  Modelica.Thermal.HeatTransfer.Sources.PrescribedTemperature TAirRoo 
    "Room temperature";

  Buildings.HeatTransfer.Radiosity.OpaqueSurface radIn(A=A, epsLW=0.8,
    linearize=false) "Model for inside radiosity";
  Modelica.Blocks.Sources.Constant TRoo(k=293.15) "Room temperature";
  Modelica.Thermal.HeatTransfer.Sources.PrescribedTemperature TRadRoo 
    "Room radiative temperature";
  Buildings.HeatTransfer.Radiosity.RadiositySplitter radShaInt 
    "Radiosity that strikes shading device";

  Buildings.HeatTransfer.WindowsBeta.BaseClasses.CenterOfGlass nonSha(
    A=A,
    linearize=linearize,
    til=1.5707963267949,
    glaSys=glaSys) "Model for fraction of window that has no shade";
  Buildings.HeatTransfer.Radiosity.RadiositySplitter radShaOut 
    "Radiosity that strikes shading device";

  Buildings.HeatTransfer.Data.GlazingSystems.DoubleClearAir13Clear glaSys(
    shade=Buildings.HeatTransfer.Data.Shades.Gray(),
    haveExteriorShade=true,
    haveInteriorShade=true,
    UFra=2) "Parameters for glazing system";
  Buildings.HeatTransfer.Radiosity.OutdoorRadiosity radOut(          A=A, F_sky=
       0.5) "Outdoor radiosity";
  Modelica.Blocks.Sources.Constant fSky_clr(k=0.5) 
    "Fraction of sky that is clear";

  Modelica.Thermal.HeatTransfer.Components.Convection conRooSha 
    "Convection for room-facing surface of shaded part of window";
  Modelica.Thermal.HeatTransfer.Components.Convection conOutSha 
    "Convection for outside-facing surface of shaded part of window";
  Modelica.Thermal.HeatTransfer.Components.Convection conOutNonSha1 
    "Convection for outside-facing surface of non-shaded part of window";
  Modelica.Thermal.HeatTransfer.Components.Convection conRooNonSha 
    "Convection for room-facing surface of non-shaded part of window";
  Modelica.Blocks.Sources.Constant hA(k=4*A) 
    "Convection coefficient times total area";
  Modelica.Blocks.Math.Product hASha "Convection of shaded part of window";
  Modelica.Blocks.Math.Product hANonSha 
    "Convection of non-shaded part of window";
  Buildings.HeatTransfer.WindowsBeta.BaseClasses.ShadingSignal shaCon(haveShade=
        glaSys.haveExteriorShade or glaSys.haveInteriorShade) 
    "Bounds the shading signal";
  Modelica.Blocks.Sources.Constant QAbs[glaSys.nLay](each k=0) 
    "Solar radiation absorbed by glass";
equation 
  connect(TOut.y, TAirOut.T);
  connect(TRoo.y, TAirRoo.T);
  connect(TRadRoo.port, radIn.heatPort);
  connect(TRadRoo.T, TRoo.y);
  connect(radIn.JOut, radShaInt.JIn);
  connect(radOut.JOut, radShaOut.JIn);
  connect(fSky_clr.y, radOut.f_clr);
  connect(hA.y, hANonSha.u1);
  connect(hASha.u1, hA.y);
  connect(hASha.y, conOutSha.Gc);
  connect(hASha.y, conRooSha.Gc);
  connect(hANonSha.y, conOutNonSha1.Gc);
  connect(hANonSha.y, conRooNonSha.Gc);
  connect(conOutSha.solid, sha.glass_a);
  connect(conOutSha.fluid, TAirOut.port);
  connect(nonSha.glass_a, conOutNonSha1.solid);
  connect(conOutNonSha1.fluid, TAirOut.port);
  connect(nonSha.glass_b, conRooNonSha.solid);
  connect(conRooNonSha.fluid, TAirRoo.port);
  connect(conRooSha.fluid, TAirRoo.port);
  connect(conRooSha.solid, sha.glass_b);

  connect(radShaOut.JOut_1, sha.JIn_a);
  connect(radShaOut.JOut_2, nonSha.JIn_a);
  connect(sha.JOut_b, radIn.JIn);
  connect(nonSha.JOut_b, radIn.JIn);
  connect(radShaInt.JOut_1, sha.JIn_b);
  connect(radShaInt.JOut_2, nonSha.JIn_b);
  connect(shaCon.yCom, hANonSha.u2);
  connect(shaCon.yCom, nonSha.u);
  connect(shaCon.y, radShaOut.u);
  connect(shaCon.y, radShaInt.u);
  connect(shaCon.y, sha.u);
  connect(uSha.y, shaCon.u);
  connect(shaCon.y, hASha.u2);
  connect(radOut.heatPort, TAirOut.port);
  connect(QAbs.y, nonSha.QAbs_flow);
  connect(QAbs.y, sha.QAbs_flow);
end CenterOfGlass;

Buildings.HeatTransfer.WindowsBeta.BaseClasses.Examples.GlassLayer

Test model for glass layer heat transfer

Buildings.HeatTransfer.WindowsBeta.BaseClasses.Examples.GlassLayer

Information

This model tests one glas layer.

Parameters

Type Name Default Description

Area A 1 Window surface area [m2]

Boolean linearize false Set to true to linearize emissive power

Type	Name	Default	Description
Area	A	1	Window surface area [m2]
Boolean	linearize	false	Set to true to linearize emissive power

Modelica definition

model GlassLayer "Test model for glass layer heat transfer"
  import Buildings;
  parameter Modelica.SIunits.Area A=1 "Window surface area";
  parameter Boolean linearize = false "Set to true to linearize emissive power";

  Buildings.HeatTransfer.WindowsBeta.BaseClasses.GlassLayer sha(
    A=A,
    epsLW_a=0.5,
    tauLW=0.2,
    x=0.015,
    k=1,
    linearize=linearize,
    epsLW_b=0.5) "Model for fraction of window that has a shade";
  Modelica.Thermal.HeatTransfer.Sources.PrescribedTemperature TAirOut 
    "Outside air temperature";
  Modelica.Blocks.Sources.Constant TOut(k=273.15) "Outside temperature";
  Modelica.Thermal.HeatTransfer.Sources.PrescribedTemperature TAirRoo 
    "Room temperature";
  Buildings.HeatTransfer.Radiosity.OpaqueSurface radOut(A=A, epsLW=0.8,
    linearize=false) "Model for outside radiosity";
  Modelica.Thermal.HeatTransfer.Sources.PrescribedTemperature TRadOut 
    "Outside radiative temperature";

  Buildings.HeatTransfer.Radiosity.OpaqueSurface radIn(A=A, epsLW=0.8,
    linearize=false) "Model for inside radiosity";
  Modelica.Blocks.Sources.Constant TRoo(k=293.15) "Room temperature";
  Modelica.Thermal.HeatTransfer.Sources.PrescribedTemperature TRadRoo 
    "Room radiative temperature";
  Modelica.Blocks.Sources.Constant QAbs_flow(k=0) 
    "Absorbed short-wave heat flow";
  Buildings.HeatTransfer.Radiosity.RadiositySplitter radShaInt 
    "Radiosity that strikes shading device";

  Buildings.HeatTransfer.WindowsBeta.BaseClasses.GlassLayer nonSha(
    A=A,
    epsLW_a=0.5,
    tauLW=0.2,
    x=0.015,
    k=1,
    linearize=linearize,
    epsLW_b=0.5) "Model for fraction of window that has no shade";
  Buildings.HeatTransfer.Radiosity.RadiositySplitter radShaOut 
    "Radiosity that strikes shading device";

  Modelica.Thermal.HeatTransfer.Components.Convection conRooSha 
    "Convection for room-facing surface of shaded part of window";
  Modelica.Thermal.HeatTransfer.Components.Convection conRooNonSha 
    "Convection for room-facing surface of non-shaded part of window";
  Modelica.Blocks.Sources.Constant hA(k=4*A) 
    "Convection coefficient times total area";
  Modelica.Blocks.Math.Product hASha "Convection of shaded part of window";
  Modelica.Blocks.Math.Product hANonSha 
    "Convection of non-shaded part of window";
  Modelica.Thermal.HeatTransfer.Components.Convection conOutSha 
    "Convection for outside-facing surface of shaded part of window";
  Modelica.Thermal.HeatTransfer.Components.Convection conOutNonSha1 
    "Convection for outside-facing surface of non-shaded part of window";
  Modelica.Blocks.Sources.Ramp uSha(
    height=0.9,
    duration=1,
    offset=0.05) "Control signal for shade";
  Buildings.HeatTransfer.WindowsBeta.BaseClasses.ShadingSignal shaCon(haveShade=
        true) "Bounds the shading signal";
equation 
  connect(TOut.y, TAirOut.T);
  connect(TRadOut.port, radOut.heatPort);
  connect(TRadOut.T, TOut.y);
  connect(TRoo.y, TAirRoo.T);
  connect(TRadRoo.port, radIn.heatPort);
  connect(TRadRoo.T, TRoo.y);
  connect(QAbs_flow.y, sha.QAbs_flow);
  connect(radShaOut.JIn, radOut.JOut);
  connect(radIn.JOut, radShaInt.JIn);
  connect(radShaOut.JOut_1, sha.JIn_a);
  connect(radShaOut.JOut_2, nonSha.JIn_a);
  connect(radShaInt.JOut_1, sha.JIn_b);
  connect(radShaInt.JOut_2, nonSha.JIn_b);
  connect(nonSha.JOut_a, radOut.JIn);
  connect(sha.JOut_a, radOut.JIn);
  connect(sha.JOut_b, radIn.JIn);
  connect(nonSha.JOut_b, radIn.JIn);
  connect(QAbs_flow.y, nonSha.QAbs_flow);
  connect(hA.y, hANonSha.u1);
  connect(hASha.u1, hA.y);
  connect(nonSha.port_a, conOutNonSha1.solid);
  connect(conOutNonSha1.fluid, TAirOut.port);
  connect(sha.port_a, conOutSha.solid);
  connect(conOutSha.fluid, TAirOut.port);
  connect(nonSha.port_b, conRooNonSha.solid);
  connect(sha.port_b, conRooSha.solid);
  connect(conRooSha.fluid, TAirRoo.port);
  connect(conRooNonSha.fluid, TAirRoo.port);
  connect(hASha.y, conOutSha.Gc);
  connect(hASha.y, conRooSha.Gc);
  connect(hANonSha.y, conOutNonSha1.Gc);
  connect(hANonSha.y, conRooNonSha.Gc);
  connect(shaCon.yCom, hANonSha.u2);
  connect(shaCon.yCom, nonSha.u);
  connect(shaCon.y, radShaOut.u);
  connect(shaCon.y, radShaInt.u);
  connect(shaCon.y, sha.u);
  connect(uSha.y,shaCon. u);
  connect(shaCon.y, hASha.u2);
end GlassLayer;

Buildings.HeatTransfer.WindowsBeta.BaseClasses.Examples.GasConvection

Test problem for convection in the gas layer

Buildings.HeatTransfer.WindowsBeta.BaseClasses.Examples.GasConvection

Modelica definition

model GasConvection "Test problem for convection in the gas layer"
  import Buildings;
  Buildings.HeatTransfer.WindowsBeta.BaseClasses.GasConvection conVer(
    A=1,
    linearize=false,
    gas=Buildings.HeatTransfer.Data.Gases.Air(x=0.1),
    til=1.5707963267949) "Model for gas convection in vertical gap";
  Modelica.Blocks.Sources.Ramp TBC(
    duration=1,
    offset=283.15,
    height=20) "Boundary condition for temperature";
  Modelica.Thermal.HeatTransfer.Sources.PrescribedTemperature T_a1 
    "Exterior-side temperature";
  Modelica.Thermal.HeatTransfer.Sources.FixedTemperature T_b1(T=293.15) 
    "Room-side temperature";
  Modelica.Blocks.Sources.Constant u(k=1) "Shading control signal";
  Buildings.HeatTransfer.WindowsBeta.BaseClasses.GasConvection conCei(
    A=1,
    linearize=false,
    gas=Buildings.HeatTransfer.Data.Gases.Air(x=0.1),
    til=0) "Model for gas convection in horizontal gap in a ceiling";
  Modelica.Thermal.HeatTransfer.Sources.PrescribedTemperature T_a2 
    "Exterior-side temperature";
  Modelica.Thermal.HeatTransfer.Sources.FixedTemperature T_b2(T=293.15) 
    "Room-side temperature";
  Buildings.HeatTransfer.WindowsBeta.BaseClasses.GasConvection conFlor(
    A=1,
    linearize=false,
    gas=Buildings.HeatTransfer.Data.Gases.Air(x=0.1),
    til=1.5707963267949) 
    "Model for gas convection in horizontal gap in a floor";
  Modelica.Thermal.HeatTransfer.Sources.PrescribedTemperature T_a3 
    "Exterior-side temperature";
  Modelica.Thermal.HeatTransfer.Sources.FixedTemperature T_b3(T=293.15) 
    "Room-side temperature";
equation 
  connect(TBC.y, T_a1.T);
  connect(T_a1.port, conVer.port_a);
  connect(conVer.port_b, T_b1.port);
  connect(u.y, conVer.u);
  connect(TBC.y, T_a2.T);
  connect(T_a2.port, conCei.port_a);
  connect(conCei.port_b, T_b2.port);
  connect(u.y, conCei.u);
  connect(TBC.y, T_a3.T);
  connect(T_a3.port, conFlor.port_a);
  connect(conFlor.port_b, T_b3.port);
  connect(u.y, conFlor.u);
end GasConvection;

Buildings.HeatTransfer.WindowsBeta.BaseClasses.Examples.WindowRadiation

Test model for window radiation

Buildings.HeatTransfer.WindowsBeta.BaseClasses.Examples.WindowRadiation

Information

This example illustrates modeling of window radiation.

Parameters

Type Name Default Description

Angle lat 0.34906585039887 Latitude [rad]

Angle azi 0 Surface azimuth [rad]

Angle til 1.5707963267949 Surface tilt [rad]

Type	Name	Default	Description
Angle	lat	0.34906585039887	Latitude [rad]
Angle	azi	0	Surface azimuth [rad]
Angle	til	1.5707963267949	Surface tilt [rad]

Connectors

Type Name Description

Bus weaBus

Type	Name	Description
Bus	weaBus

Modelica definition

model WindowRadiation "Test model for window radiation"
  import Buildings;
  parameter Modelica.SIunits.Angle lat=0.34906585039887 "Latitude";
  parameter Modelica.SIunits.Angle azi=0 "Surface azimuth";
  parameter Modelica.SIunits.Angle til=1.5707963267949 "Surface tilt";

  BoundaryConditions.SolarIrradiation.DirectTiltedSurface HDirTil(
    til=til,
    lat=lat,
    azi=azi);
  BoundaryConditions.WeatherData.Bus weaBus;
  BoundaryConditions.WeatherData.ReaderTMY3 weaDat(filNam=
        "Resources/weatherdata/USA_IL_Chicago-OHare.Intl.AP.725300_TMY3.mos");

  BoundaryConditions.SolarIrradiation.DiffuseIsotropic HDifTilIso(
               til=til);
  Modelica.Blocks.Sources.Constant shaCon(k=if (glaSys.haveShade) then 0.5 else 
              0);
  Modelica.Blocks.Math.Gain HRoo(k=0.1) "Short-wave irradiation from room";
  Buildings.HeatTransfer.WindowsBeta.BaseClasses.WindowRadiation winRad(
    AWin=1,
    N=glaSys.nLay,
    tauGlaSW=glaSys.glass.tauSW,
    rhoGlaSW_a=glaSys.glass.rhoSW_a,
    rhoGlaSW_b=glaSys.glass.rhoSW_b,
    tauShaSW_a=glaSys.shade.tauSW_a,
    tauShaSW_b=glaSys.shade.tauSW_b,
    rhoShaSW_a=glaSys.shade.rhoSW_a,
    rhoShaSW_b=glaSys.shade.rhoSW_b,
    haveExteriorShade=glaSys.haveExteriorShade,
    haveInteriorShade=glaSys.haveInteriorShade);
  Buildings.HeatTransfer.Data.GlazingSystems.DoubleClearAir13Clear glaSys(
    shade=Buildings.HeatTransfer.Data.Shades.Gray(),
    UFra=2,
    haveExteriorShade=false,
    haveInteriorShade=true) "Parameters for glazing system";
equation 
  connect(weaDat.weaBus, weaBus);
  connect(HDirTil.weaBus, weaBus);
  connect(weaBus, HDifTilIso.weaBus);
  connect(HRoo.y, winRad.HRoo);
  connect(shaCon.y, winRad.uSha);
  connect(winRad.QTra_flow, HRoo.u);
  connect(winRad.HDir, HDirTil.H);
  connect(HDifTilIso.H, winRad.HDif);
  connect(HDirTil.inc, winRad.incAng);
end WindowRadiation;

Buildings.HeatTransfer.WindowsBeta.BaseClasses.Examples.TransmittedRadiation

Test model for transmitted radiation through window

Buildings.HeatTransfer.WindowsBeta.BaseClasses.Examples.TransmittedRadiation

Information

This example illustrates modeling of window transmittance.

Parameters

Type Name Default Description

Angle lat 0.34906585039887 Latitude [rad]

Angle azi 0 Surface azimuth [rad]

Angle til 1.5707963267949 Surface tilt [rad]

Type	Name	Default	Description
Angle	lat	0.34906585039887	Latitude [rad]
Angle	azi	0	Surface azimuth [rad]
Angle	til	1.5707963267949	Surface tilt [rad]

Connectors

Type Name Description

Bus weaBus

Type	Name	Description
Bus	weaBus

Modelica definition

model TransmittedRadiation 
  "Test model for transmitted radiation through window"
  import Buildings;
  parameter Modelica.SIunits.Angle lat=0.34906585039887 "Latitude";
  parameter Modelica.SIunits.Angle azi=0 "Surface azimuth";
  parameter Modelica.SIunits.Angle til=1.5707963267949 "Surface tilt";

  BoundaryConditions.SolarIrradiation.DirectTiltedSurface HDirTil(
    til=til,
    lat=lat,
    azi=azi);
  BoundaryConditions.WeatherData.Bus weaBus;
  BoundaryConditions.WeatherData.ReaderTMY3 weaDat(filNam=
        "Resources/weatherdata/USA_IL_Chicago-OHare.Intl.AP.725300_TMY3.mos");

  BoundaryConditions.SolarIrradiation.DiffuseIsotropic HDifTilIso(
               til=til);
  Modelica.Blocks.Sources.Constant shaCon(k=if (glaSys.haveShade) then 0.5 else 
              0);
  Buildings.HeatTransfer.WindowsBeta.BaseClasses.TransmittedRadiation winTra(
    AWin=1,
    N=glaSys.nLay,
    tauGlaSW=glaSys.glass.tauSW,
    rhoGlaSW_a=glaSys.glass.rhoSW_a,
    rhoGlaSW_b=glaSys.glass.rhoSW_b,
    tauShaSW_a=glaSys.shade.tauSW_a,
    tauShaSW_b=glaSys.shade.tauSW_b,
    rhoShaSW_a=glaSys.shade.rhoSW_a,
    rhoShaSW_b=glaSys.shade.rhoSW_b,
    haveExteriorShade=glaSys.haveExteriorShade,
    haveInteriorShade=glaSys.haveInteriorShade);
  Buildings.HeatTransfer.Data.GlazingSystems.DoubleClearAir13Clear glaSys(
    shade=Buildings.HeatTransfer.Data.Shades.Gray(),
    UFra=2,
    haveExteriorShade=false,
    haveInteriorShade=true) "Parameters for glazing system";
equation 
  connect(weaDat.weaBus, weaBus);
  connect(HDirTil.weaBus, weaBus);
  connect(weaBus, HDifTilIso.weaBus);
  connect(shaCon.y,winTra. uSha);
  connect(winTra.HDir, HDirTil.H);
  connect(HDifTilIso.H,winTra. HDif);
  connect(HDirTil.inc,winTra. incAng);
end TransmittedRadiation;

Buildings.HeatTransfer.WindowsBeta.BaseClasses.Examples.AbsorbedRadiation

Test model for absorbed radiation by windows

Buildings.HeatTransfer.WindowsBeta.BaseClasses.Examples.AbsorbedRadiation

Information

This example illustrates modeling of window radiation.

Parameters

Type Name Default Description

Angle lat 0.34906585039887 Latitude [rad]

Angle azi 0 Surface azimuth [rad]

Angle til 1.5707963267949 Surface tilt [rad]

Type	Name	Default	Description
Angle	lat	0.34906585039887	Latitude [rad]
Angle	azi	0	Surface azimuth [rad]
Angle	til	1.5707963267949	Surface tilt [rad]

Connectors

Type Name Description

Bus weaBus

Type	Name	Description
Bus	weaBus

Modelica definition

model AbsorbedRadiation 
  "Test model for absorbed radiation by windows"
  import Buildings;
  parameter Modelica.SIunits.Angle lat=0.34906585039887 "Latitude";
  parameter Modelica.SIunits.Angle azi=0 "Surface azimuth";
  parameter Modelica.SIunits.Angle til=1.5707963267949 "Surface tilt";

  BoundaryConditions.SolarIrradiation.DirectTiltedSurface HDirTil(
    til=til,
    lat=lat,
    azi=azi);
  BoundaryConditions.WeatherData.Bus weaBus;
  BoundaryConditions.WeatherData.ReaderTMY3 weaDat(filNam=
        "Resources/weatherdata/USA_IL_Chicago-OHare.Intl.AP.725300_TMY3.mos");

  BoundaryConditions.SolarIrradiation.DiffuseIsotropic HDifTilIso(
               til=til);
  Modelica.Blocks.Sources.Constant shaCon(k=if (glaSys.haveShade) then 0.5 else 
              0);
  Buildings.HeatTransfer.WindowsBeta.BaseClasses.AbsorbedRadiation winAbs(
    AWin=1,
    N=glaSys.nLay,
    tauGlaSW=glaSys.glass.tauSW,
    rhoGlaSW_a=glaSys.glass.rhoSW_a,
    rhoGlaSW_b=glaSys.glass.rhoSW_b,
    tauShaSW_a=glaSys.shade.tauSW_a,
    tauShaSW_b=glaSys.shade.tauSW_b,
    rhoShaSW_a=glaSys.shade.rhoSW_a,
    rhoShaSW_b=glaSys.shade.rhoSW_b,
    haveExteriorShade=glaSys.haveExteriorShade,
    haveInteriorShade=glaSys.haveInteriorShade);
  Buildings.HeatTransfer.Data.GlazingSystems.DoubleClearAir13Clear glaSys(
    shade=Buildings.HeatTransfer.Data.Shades.Gray(),
    UFra=2,
    haveExteriorShade=false,
    haveInteriorShade=true) "Parameters for glazing system";
  Modelica.Blocks.Sources.Constant HRoo(k=10);
equation 
  connect(weaDat.weaBus, weaBus);
  connect(HDirTil.weaBus, weaBus);
  connect(weaBus, HDifTilIso.weaBus);
  connect(shaCon.y,winAbs. uSha);
  connect(winAbs.HDir, HDirTil.H);
  connect(HDifTilIso.H,winAbs. HDif);
  connect(HDirTil.inc,winAbs. incAng);
  connect(HRoo.y,winAbs. HRoo);
end AbsorbedRadiation;

HTML-documentation generated by Dymola Thu Mar 17 10:16:09 2011.