ReferenceMoistAir, corrected error in function pd_pTX_der (issue mode…

…lica#3666)
wischhusen · Apr 11, 2023 · c07ed57 · c07ed57
1 parent 10238e9
commit c07ed57
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/Modelica/Media/Air/ReferenceMoistAir.mo b/Modelica/Media/Air/ReferenceMoistAir.mo
@@ -3283,9 +3283,9 @@ for region 2.
               p_der,
               T_der);
         //pd := xw/(Modelica.Media.Air.ReferenceMoistAir.k_mair + xw)*p;
-        pd_der := (xw_der*(Modelica.Media.Air.ReferenceMoistAir.k_mair + xw) -
-          xw*xw_der)*p + xw/(Modelica.Media.Air.ReferenceMoistAir.k_mair + xw)*
-          p_der;
+        pd_der := xw_der*Modelica.Media.Air.ReferenceMoistAir.k_mair/
+        (Modelica.Media.Air.ReferenceMoistAir.k_mair + xw)^2*p
+         + xw/(Modelica.Media.Air.ReferenceMoistAir.k_mair + xw)*p_der;
         xws := Modelica.Media.Air.ReferenceMoistAir.Utilities.xws_pT(p, T);
         pd_der := if (xw <= xws) then pd_der else pds_der;
       end if;