Name | Description |
---|---|
WetBulbTemperature |
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"; Modelica.Blocks.Sources.Constant const; Modelica.Blocks.Math.Feedback feedback; Buildings.Utilities.Controls.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(const.y, feedback.u1); connect(TWBExp.y, assertEquality.u2); connect(TDB.y, wetBul.TDryBul); connect(feedback.y, wetBul.X[2]); connect(p.y, wetBul.p); connect(wetBul.TWetBul, assertEquality.u1); connect(XHum.y, feedback.u2); connect(XHum.y, wetBul.X[1]); end WetBulbTemperature;