Extends from Buildings.BaseClasses.BaseIconExamples (Icon for Examples packages).
| Name | Description |
|---|---|
| DewPointTemperature | Unit test for dew point temperature calculation |
| HumidityRatioPressure | Unit test for humidity ratio model |
| WetBulbTemperature |
model DewPointTemperature
"Unit test for dew point temperature calculation"
package Medium = Buildings.Media.PerfectGases.MoistAir "Medium model";
Buildings.Utilities.Psychrometrics.DewPointTemperature TDewPoi;
Buildings.Utilities.Psychrometrics.HumidityRatioPressure humRat;
Modelica.Blocks.Sources.Ramp XHum(
duration=1,
height=(0.01 - 0.1),
offset=0.1) "Humidity concentration";
Modelica.Blocks.Sources.Constant p(k=101325) "Pressure";
equation
connect(humRat.p_w, TDewPoi.p_w);
connect(p.y, humRat.p);
connect(XHum.y, humRat.XWat);
end DewPointTemperature;
model HumidityRatioPressure "Unit test for humidity ratio model"
package Medium = Buildings.Media.PerfectGases.MoistAir "Medium model";
Buildings.Utilities.Psychrometrics.HumidityRatioPressure humRat
"Model for humidity ratio";
Modelica.Blocks.Sources.Ramp XHum(
duration=1,
height=(0.0133 - 0.2),
offset=0.2) "Humidity concentration";
Modelica.Blocks.Sources.Constant p(k=101325) "Pressure";
equation
connect(p.y, humRat.p);
connect(XHum.y, humRat.XWat);
end HumidityRatioPressure;
model WetBulbTemperature
package Medium = Buildings.Media.PerfectGases.MoistAir "Medium model";
Modelica.Blocks.Sources.Ramp TDB(
height=10,
duration=1,
offset=273.15 + 30) "Dry bulb temperature";
Buildings.Utilities.Diagnostics.AssertEquality assertEquality(startTime=0,
threShold=0.05);
Modelica.Blocks.Sources.Constant TWBExp(k=273.15 + 25)
"Expected wet bulb temperature";
Buildings.Utilities.Psychrometrics.WetBulbTemperature wetBul(redeclare
package Medium = Medium) "Model for wet bulb temperature";
Modelica.Blocks.Sources.Constant p(k=101325) "Pressure";
Modelica.Blocks.Sources.Ramp XHum(
duration=1,
height=(0.0133 - 0.0175),
offset=0.0175) "Humidity concentration";
equation
connect(TWBExp.y, assertEquality.u2);
connect(TDB.y, wetBul.TDryBul);
connect(p.y, wetBul.p);
connect(wetBul.TWetBul, assertEquality.u1);
connect(XHum.y, wetBul.Xi[1]);
end WetBulbTemperature;