This package contains examples for the use of models that can be found in Buildings.HeatTransfer.WindowsBeta.BaseClasses.
Extends from Modelica.Icons.ExamplesPackage (Icon for packages containing runnable examples).
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 |
Extends from Modelica.Icons.Example (Icon for runnable examples).
Type | Name | Default | Description |
---|---|---|---|
Area | A | 1 | Window surface area [m2] |
Boolean | linearize | true | Set to true to linearize emissive power |
model Shade "Test model for exterior shade heat transfer" import Buildings; extends Modelica.Icons.Example; 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, absIR_air=0.3, absIR_glass=0.3, tauIR_air=0.3, tauIR_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, absIR=0.8, linearize=false) "Model for outside radiosity"; Buildings.HeatTransfer.Sources.PrescribedTemperature TRadOut "Outside radiative temperature"; Buildings.HeatTransfer.Radiosity.OpaqueSurface radIn(A=A, absIR=0.8, linearize=false) "Model for inside radiosity"; Modelica.Blocks.Sources.Constant TRoo(k=293.15) "Room temperature"; Buildings.HeatTransfer.Sources.PrescribedTemperature TRadRoo "Room radiative temperature"; Modelica.Blocks.Sources.Constant QSol_shade(k=0) "Solar 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, absIR_air=0, absIR_glass=0, tauIR_air=0.3, tauIR_glass=0.3) "Model for fraction of window that has no shade"; Buildings.HeatTransfer.Radiosity.RadiositySplitter radShaOut "Radiosity that strikes shading device"; Buildings.HeatTransfer.Sources.PrescribedTemperature TAirOut "Outside air temperature"; Buildings.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"; equationconnect(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(QSol_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(QSol_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;
Extends from Modelica.Icons.Example (Icon for runnable examples).
Type | Name | Default | Description |
---|---|---|---|
Area | A | 1 | Window surface area [m2] |
Boolean | linearize | false | Set to true to linearize emissive power |
model CenterOfGlass "Test model for center of glas heat transfer" import Buildings; extends Modelica.Icons.Example; 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"; Buildings.HeatTransfer.Sources.PrescribedTemperature TAirOut "Outside air temperature"; Modelica.Blocks.Sources.Constant TOut(k=273.15) "Outside temperature"; Buildings.HeatTransfer.Sources.PrescribedTemperature TAirRoo "Room temperature"; Buildings.HeatTransfer.Radiosity.OpaqueSurface radIn(A=A, absIR=0.8, linearize=false) "Model for inside radiosity"; Modelica.Blocks.Sources.Constant TRoo(k=293.15) "Room temperature"; Buildings.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"; equationconnect(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;
Extends from Modelica.Icons.Example (Icon for runnable examples).
Type | Name | Default | Description |
---|---|---|---|
Area | A | 1 | Window surface area [m2] |
Boolean | linearize | false | Set to true to linearize emissive power |
model GlassLayer "Test model for glass layer heat transfer" import Buildings; extends Modelica.Icons.Example; 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, absIR_a=0.5, tauIR=0.2, x=0.015, k=1, linearize=linearize, absIR_b=0.5) "Model for fraction of window that has a shade"; Buildings.HeatTransfer.Sources.PrescribedTemperature TAirOut "Outside air temperature"; Modelica.Blocks.Sources.Constant TOut(k=273.15) "Outside temperature"; Buildings.HeatTransfer.Sources.PrescribedTemperature TAirRoo "Room temperature"; Buildings.HeatTransfer.Radiosity.OpaqueSurface radOut(A=A, absIR=0.8, linearize=false) "Model for outside radiosity"; Buildings.HeatTransfer.Sources.PrescribedTemperature TRadOut "Outside radiative temperature"; Buildings.HeatTransfer.Radiosity.OpaqueSurface radIn(A=A, absIR=0.8, linearize=false) "Model for inside radiosity"; Modelica.Blocks.Sources.Constant TRoo(k=293.15) "Room temperature"; Buildings.HeatTransfer.Sources.PrescribedTemperature TRadRoo "Room radiative temperature"; Modelica.Blocks.Sources.Constant QAbs_flow(k=0) "Absorbed solar heat flow"; Buildings.HeatTransfer.Radiosity.RadiositySplitter radShaInt "Radiosity that strikes shading device"; Buildings.HeatTransfer.WindowsBeta.BaseClasses.GlassLayer nonSha( A=A, absIR_a=0.5, tauIR=0.2, x=0.015, k=1, linearize=linearize, absIR_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"; equationconnect(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;
model GasConvection "Test problem for convection in the gas layer" import Buildings; extends Modelica.Icons.Example;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"; Buildings.HeatTransfer.Sources.PrescribedTemperature T_a1 "Exterior-side temperature"; Buildings.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"; Buildings.HeatTransfer.Sources.PrescribedTemperature T_a2 "Exterior-side temperature"; Buildings.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"; Buildings.HeatTransfer.Sources.PrescribedTemperature T_a3 "Exterior-side temperature"; Buildings.HeatTransfer.Sources.FixedTemperature T_b3(T=293.15) "Room-side temperature"; equationconnect(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;
Extends from Modelica.Icons.Example (Icon for runnable examples).
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 | Description |
---|---|---|
Bus | weaBus |
model WindowRadiation "Test model for window radiation" import Buildings; extends Modelica.Icons.Example; 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) "Solar irradiation from room"; Buildings.HeatTransfer.WindowsBeta.BaseClasses.WindowRadiation winRad( AWin=1, N=glaSys.nLay, tauGlaSol=glaSys.glass.tauSol, rhoGlaSol_a=glaSys.glass.rhoSol_a, rhoGlaSol_b=glaSys.glass.rhoSol_b, tauShaSol_a=glaSys.shade.tauSol_a, tauShaSol_b=glaSys.shade.tauSol_b, rhoShaSol_a=glaSys.shade.rhoSol_a, rhoShaSol_b=glaSys.shade.rhoSol_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"; equationconnect(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;
Extends from Modelica.Icons.Example (Icon for runnable examples).
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 | Description |
---|---|---|
Bus | weaBus |
model TransmittedRadiation "Test model for transmitted radiation through window" import Buildings; extends Modelica.Icons.Example; 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, tauGlaSol=glaSys.glass.tauSol, rhoGlaSol_a=glaSys.glass.rhoSol_a, rhoGlaSol_b=glaSys.glass.rhoSol_b, tauShaSol_a=glaSys.shade.tauSol_a, tauShaSol_b=glaSys.shade.tauSol_b, rhoShaSol_a=glaSys.shade.rhoSol_a, rhoShaSol_b=glaSys.shade.rhoSol_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"; equationconnect(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;
Extends from Modelica.Icons.Example (Icon for runnable examples).
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 | Description |
---|---|---|
Bus | weaBus |
model AbsorbedRadiation "Test model for absorbed radiation by windows" import Buildings; extends Modelica.Icons.Example; 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, tauGlaSol=glaSys.glass.tauSol, rhoGlaSol_a=glaSys.glass.rhoSol_a, rhoGlaSol_b=glaSys.glass.rhoSol_b, tauShaSol_a=glaSys.shade.tauSol_a, tauShaSol_b=glaSys.shade.tauSol_b, rhoShaSol_a=glaSys.shade.rhoSol_a, rhoShaSol_b=glaSys.shade.rhoSol_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); equationconnect(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;