Buildings.HeatTransfer.WindowsBeta.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.

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

Package Content

NameDescription
Buildings.HeatTransfer.WindowsBeta.Examples.Window Window Test model for the window
BoundaryHeatTransfer Test model for the heat transfer at the window boundary condition


Buildings.HeatTransfer.WindowsBeta.Examples.Window Buildings.HeatTransfer.WindowsBeta.Examples.Window

Test model for the window

Buildings.HeatTransfer.WindowsBeta.Examples.Window

Parameters

TypeNameDefaultDescription
AreaA1Window surface area [m2]
RealfFra0.2Fraction of frame, = frame area divided by total area
BooleanlinearizefalseSet to true to linearize emissive power
Anglelat0.34906585039887Latitude [rad]
Angleazi0Surface azimuth [rad]
Angletil1.5707963267949Surface tilt [rad]

Connectors

TypeNameDescription
BusweaBus 

Modelica definition

model Window "Test model for the window"
  import Buildings;
  parameter Modelica.SIunits.Area A=1 "Window surface area";
  parameter Real fFra=0.2 
    "Fraction of frame, = frame area divided by total area";
  parameter Boolean linearize = false "Set to true to linearize emissive power";
  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";
  Buildings.HeatTransfer.WindowsBeta.Window window(
    A=A,
    fFra=fFra,
    glaSys=glaSys,
    linearize=linearize,
    til=til);
  Buildings.HeatTransfer.WindowsBeta.InteriorHeatTransfer intCon(A=A, fFra=fFra,
    linearizeRadiation=linearize,
    epsLWSha_air=glaSys.shade.epsLW_a,
    epsLWSha_glass=glaSys.shade.epsLW_b,
    tauLWSha_air=glaSys.shade.tauLW_a,
    tauLWSha_glass=glaSys.shade.tauLW_b,
    haveExteriorShade=glaSys.haveExteriorShade,
    haveInteriorShade=glaSys.haveInteriorShade) 
    "Room-side convective heat transfer";
  Buildings.HeatTransfer.WindowsBeta.ExteriorHeatTransfer extCon(A=A, fFra=fFra,
    linearizeRadiation=linearize,
    epsLWSha_air=glaSys.shade.epsLW_a,
    epsLWSha_glass=glaSys.shade.epsLW_b,
    tauLWSha_air=glaSys.shade.tauLW_a,
    tauLWSha_glass=glaSys.shade.tauLW_b,
    haveExteriorShade=glaSys.haveExteriorShade,
    haveInteriorShade=glaSys.haveInteriorShade,
    F_sky=0.5) "Exterior convective heat transfer";
  Modelica.Blocks.Sources.Constant TRooAir(k=293.15, y(unit="K")) 
    "Room air temperature";
  Modelica.Blocks.Sources.Ramp uSha(duration=0.5, startTime=0.25) 
    "Shading control signal";
  Modelica.Thermal.HeatTransfer.Sources.PrescribedTemperature TOuts 
    "Outside air temperature";
  Modelica.Thermal.HeatTransfer.Sources.PrescribedTemperature TRAir 
    "Room air temperature";
  Modelica.Blocks.Sources.Constant fClr(k=0) "Fraction of sky that is clear";
  Buildings.HeatTransfer.Radiosity.IndoorRadiosity indRad(A=A) 
    "Model for indoor radiosity";
  Modelica.Thermal.HeatTransfer.Sources.FixedHeatFlow fixedHeatFlow(Q_flow=0);
  Buildings.HeatTransfer.Data.GlazingSystems.DoubleClearAir13Clear glaSys(
    shade=Buildings.HeatTransfer.Data.Shades.Gray(),
    haveExteriorShade=false,
    haveInteriorShade=true);
  Buildings.BoundaryConditions.SolarIrradiation.DirectTiltedSurface HDirTil(
    til=til,
    lat=lat,
    azi=azi);
  Buildings.BoundaryConditions.SolarIrradiation.DiffuseIsotropic HDifTilIso(
               til=til);
  Buildings.BoundaryConditions.WeatherData.ReaderTMY3 weaDat(
                                                        filNam=
        "Resources/weatherdata/USA_IL_Chicago-OHare.Intl.AP.725300_TMY3.mos");
  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.BoundaryConditions.WeatherData.Bus weaBus;
equation 
  connect(uSha.y, extCon.uSha);
  connect(uSha.y, window.uSha);
  connect(uSha.y, intCon.uSha);
  connect(TOuts.port, extCon.air);
  connect(TRAir.port, intCon.air);
  connect(TRooAir.y, TRAir.T);
  connect(window.glaUns_b, intCon.glaUns);
  connect(window.glaSha_b, intCon.glaSha);
  connect(window.glaUns_a, extCon.glaUns);
  connect(window.glaSha_a, extCon.glaSha);
  connect(window.fra_a, extCon.frame);
  connect(window.fra_b, intCon.frame);
  connect(extCon.JOutUns, window.JInUns_a);
  connect(extCon.JInUns, window.JOutUns_a);
  connect(extCon.JOutSha, window.JInSha_a);
  connect(extCon.JInSha, window.JOutSha_a);
  connect(window.JOutUns_b, intCon.JInUns);
  connect(intCon.JOutUns, window.JInUns_b);
  connect(window.JOutSha_b, intCon.JInSha);
  connect(intCon.JOutSha, window.JInSha_b);
  connect(fClr.y, extCon.f_clr);
  connect(indRad.JOut, intCon.JInRoo);
  connect(intCon.JOutRoo, indRad.JIn);
  connect(fixedHeatFlow.port, indRad.heatPort);
  connect(winRad.QTra_flow,HRoo. u);
  connect(HRoo.y,winRad. HRoo);
  connect(HDifTilIso.H, winRad.HDif);
  connect(HDirTil.H, winRad.HDir);
  connect(HDirTil.inc, winRad.incAng);
  connect(winRad.QAbsExtSha_flow, extCon.QAbs_flow);
  connect(winRad.QAbsIntSha_flow, intCon.QAbs_flow);
  connect(winRad.QAbsGlaUns_flow, window.QAbsUns_flow);
  connect(winRad.QAbsGlaSha_flow, window.QAbsSha_flow);
  connect(weaDat.weaBus, weaBus);
  connect(weaBus, HDirTil.weaBus);
  connect(HDifTilIso.weaBus, weaBus);
  connect(TOuts.T, weaBus.TDryBul);
  connect(uSha.y, winRad.uSha);
  connect(weaBus.winSpe, extCon.vWin);
end Window;

Buildings.HeatTransfer.WindowsBeta.Examples.BoundaryHeatTransfer

Test model for the heat transfer at the window boundary condition

Buildings.HeatTransfer.WindowsBeta.Examples.BoundaryHeatTransfer

Parameters

TypeNameDefaultDescription
AreaA1Window surface area [m2]
RealfFra0.2Fraction of frame, = frame area divided by total area
BooleanlinearizeRadiationfalseSet to true to linearize emissive power

Modelica definition

model BoundaryHeatTransfer 
  "Test model for the heat transfer at the window boundary condition"
  import Buildings;
  parameter Modelica.SIunits.Area A=1 "Window surface area";
  parameter Real fFra=0.2 
    "Fraction of frame, = frame area divided by total area";
  parameter Boolean linearizeRadiation = false 
    "Set to true to linearize emissive power";

  Buildings.HeatTransfer.WindowsBeta.ExteriorHeatTransfer extCon(A=A, fFra=fFra,
    linearizeRadiation=linearizeRadiation,
    epsLWSha_air=glaSys.shade.epsLW_a,
    epsLWSha_glass=glaSys.shade.epsLW_b,
    tauLWSha_air=glaSys.shade.tauLW_a,
    tauLWSha_glass=glaSys.shade.tauLW_b,
    haveExteriorShade=glaSys.haveExteriorShade,
    haveInteriorShade=glaSys.haveInteriorShade,
    F_sky=0.5) "Exterior convective heat transfer";
  Modelica.Blocks.Sources.Constant TOut(y(unit="K"), k=273.15) 
    "Outside air temperature";
  Modelica.Blocks.Sources.Constant TRooAir(k=293.15, y(unit="K")) 
    "Room air temperature";
  Modelica.Blocks.Sources.Constant TRooRad(k=293.15, y(unit="K")) 
    "Room radiative temperature";
  Modelica.Blocks.Sources.Ramp uSha(duration=1, startTime=0) 
    "Shading control signal";
  Modelica.Blocks.Sources.Constant vWin(k=1) "Wind speed";
  Modelica.Thermal.HeatTransfer.Sources.PrescribedTemperature TOuts 
    "Outside air temperature";
  Modelica.Thermal.HeatTransfer.Sources.PrescribedTemperature TRAir 
    "Room air temperature";
  Modelica.Blocks.Sources.Constant fClr(k=0) "Fraction of sky that is clear";

  Buildings.HeatTransfer.Data.GlazingSystems.DoubleClearAir13Clear glaSys2(
    shade=Buildings.HeatTransfer.Data.Shades.Gray(),
    UFra=2,
    haveInteriorShade=false,
    haveExteriorShade=false) "Parameters for glazing system";
  Buildings.HeatTransfer.Data.GlazingSystems.SingleClear3 glaSys1(UFra=2);
  Buildings.HeatTransfer.Data.GlazingSystems.TripleClearAir13ClearAir13Clear
    glaSys3(UFra=1) "Parameters for glazing system";
  Buildings.HeatTransfer.Data.GlazingSystems.DoubleClearAir13Clear glaSys(
    shade=Buildings.HeatTransfer.Data.Shades.Gray(),
    UFra=1.5,
    haveExteriorShade=true,
    haveInteriorShade=false) "Parameters for glazing system";
 Buildings.HeatTransfer.Radiosity.IndoorRadiosity radIn(
    final linearize=linearizeRadiation, final A=A) "Indoor radiosity";
protected 
  Buildings.HeatTransfer.Radiosity.RadiositySplitter radShaOut 
    "Radiosity that strikes shading device";
public 
  Buildings.HeatTransfer.WindowsBeta.BaseClasses.ShadingSignal shaSig(haveShade=true) 
    "Conversion for shading signal";
  Modelica.Thermal.HeatTransfer.Sources.PrescribedTemperature TRAir1 
    "Room air temperature";
  Modelica.Thermal.HeatTransfer.Sources.PrescribedTemperature TRAir2 
    "Room air temperature";
  Modelica.Thermal.HeatTransfer.Sources.PrescribedTemperature TRAir3 
    "Room air temperature";
  Modelica.Blocks.Sources.Constant QAbsSW_flow(k=0) "Absorbed solar radiation";
equation 
  connect(uSha.y, extCon.uSha);
  connect(TOuts.port, extCon.air);
  connect(TRooAir.y, TRAir.T);
  connect(fClr.y, extCon.f_clr);
  connect(extCon.vWin, vWin.y);
  connect(TOuts.T, TOut.y);
  connect(shaSig.y,radShaOut. u);
  connect(radIn.JOut, radShaOut.JIn);
  connect(shaSig.u, uSha.y);
  connect(radShaOut.JOut_2, extCon.JInUns);
  connect(radShaOut.JOut_1, extCon.JInSha);
  connect(radIn.heatPort, TRAir.port);
  connect(extCon.JOutUns, radIn.JIn);
  connect(extCon.JOutSha, radIn.JIn);
  connect(TRooAir.y, TRAir1.T);
  connect(TRooAir.y, TRAir2.T);
  connect(TRooAir.y, TRAir3.T);
  connect(TRAir1.port, extCon.glaUns);
  connect(TRAir2.port, extCon.glaSha);
  connect(TRAir3.port, extCon.frame);
  connect(extCon.QAbs_flow, QAbsSW_flow.y);
end BoundaryHeatTransfer;

HTML-documentation generated by Dymola Thu Mar 17 10:15:58 2011.