diff --git a/HeatTransfer/Functions/Radiation/h_rad.mo b/HeatTransfer/Functions/Radiation/h_rad.mo index 746a021b0908157fba73866491da16124f5261a4..7e944bde7afa6c6a4d890c15d4c1a75742ee25ee 100644 --- a/HeatTransfer/Functions/Radiation/h_rad.mo +++ b/HeatTransfer/Functions/Radiation/h_rad.mo @@ -15,7 +15,7 @@ algorithm // the expression bellow is non recursive //h_rad := 1 / R_th * Modelica.Constants.sigma * (T_A^3 + T_A * T_B^2 + T_B * T_A^2 + T_B^3) ; - h_rad := Modelica.Constants.sigma * (T_A + T_B) * (T_A^2 + T_B^2) / R_th ; + h_rad := abs(Modelica.Constants.sigma * (T_A + T_B) * (T_A^2 + T_B^2) / R_th) ; annotation(Documentation( info = " <html>