model Fanger "Test of Comfort Model" extends Modelica.Icons.Example; Buildings.Utilities.Comfort.Fanger theCom( use_vAir_in=true, use_M_in=true, use_pAir_in=true) "Thermal comfort model"; Modelica.Blocks.Sources.Constant ICl(k=0.9) "Clothing insulation"; Modelica.Blocks.Sources.Constant vAir(k=0.05) "Air velocity"; Modelica.Blocks.Sources.Constant M(k=60) "Metabolic heat generated"; Modelica.Blocks.Sources.Ramp TAir( duration=1, height=10, offset=273.15 + 20) "Air temperature"; Modelica.Blocks.Sources.Constant TRad(k=273.15 + 22) "Radiation temperature"; Modelica.Blocks.Sources.Constant pAtm(k=101325); Modelica.Blocks.Sources.Constant phi(k=0.5) "Relative humidity"; Buildings.Utilities.Comfort.Fanger theComFixPar( use_vAir_in=false, use_M_in=false, use_ICl_in=false, use_pAir_in=false, ICl=0.9) "Thermal comfort model with fixed parameters"; equation connect(pAtm.y, theCom.pAir_in); connect(TRad.y, theCom.TRad); connect(theCom.TAir, TAir.y); connect(theCom.vAir_in, vAir.y); connect(M.y, theCom.M_in); connect(ICl.y, theCom.ICl_in); connect(phi.y, theCom.phi); connect(TRad.y, theComFixPar.TRad); connect(theComFixPar.TAir, TAir.y); connect(phi.y, theComFixPar.phi); end Fanger;