@@ -2820,15 +2820,15 @@ for region 2.
28202820 if (T > = 773.15 ) then
28212821 cp := X[1 ]*
28222822 Modelica.Media.Air.ReferenceMoistAir.Utilities.IF97_new.cp_pT(pd,
2823- T) + X[ 2 ] * Modelica.Media.Air.ReferenceAir.Air_Utilities.cp_pT(pl,
2823+ T) + ( 1 - X[ 1 ]) * Modelica.Media.Air.ReferenceAir.Air_Utilities.cp_pT(pl,
28242824 T) + Modelica.Media.Air.ReferenceMoistAir.Utilities.cp_dis_pTX(
28252825 p,
28262826 T,
28272827 X);
28282828 else
28292829 cp := X[1 ]*
28302830 Modelica.Media.Air.ReferenceMoistAir.Utilities.IF97_new.cp_pT(pd,
2831- T) + X[ 2 ] * Modelica.Media.Air.ReferenceAir.Air_Utilities.cp_pT(pl,
2831+ T) + ( 1 - X[ 1 ]) * Modelica.Media.Air.ReferenceAir.Air_Utilities.cp_pT(pl,
28322832 T);
28332833 end if ;
28342834 else
@@ -2866,7 +2866,7 @@ for region 2.
28662866 if ((xw < = xws) or (xws == - 1 )) then
28672867 cv := X[1 ]*
28682868 Modelica.Media.Air.ReferenceMoistAir.Utilities.IF97_new.cv_pT(pd, T)
2869- + X[ 2 ] * Modelica.Media.Air.ReferenceAir.Air_Utilities.cv_pT(pl, T);
2869+ + ( 1 - X[ 1 ]) * Modelica.Media.Air.ReferenceAir.Air_Utilities.cv_pT(pl, T);
28702870 else
28712871 cv := - 1 ;
28722872 end if ;
@@ -2952,7 +2952,7 @@ for region 2.
29522952 if (useDissociation == false ) then
29532953 u := 0 ;
29542954 else
2955- massFraction := {X[1 ],X[ 2 ] * Xi_Air[1 ],X[ 2 ] * Xi_Air[2 ],X[ 2 ] * Xi_Air[3 ]};
2955+ massFraction := {X[1 ],( 1 - X[ 1 ]) * Xi_Air[1 ],( 1 - X[ 1 ]) * Xi_Air[2 ],( 1 - X[ 1 ]) * Xi_Air[3 ]};
29562956 for i in 1 :4 loop
29572957 invMMX[i] := 1 / MMX[i];
29582958 end for ;
@@ -3113,7 +3113,7 @@ for region 2.
31133113 if (useDissociation == false ) then
31143114 u := 0 ;
31153115 else
3116- massFraction := {X[1 ],X[ 2 ] * Xi_Air[1 ],X[ 2 ] * Xi_Air[2 ],X[ 2 ] * Xi_Air[3 ]};
3116+ massFraction := {X[1 ],( 1 - X[ 1 ]) * Xi_Air[1 ],( 1 - X[ 1 ]) * Xi_Air[2 ],( 1 - X[ 1 ]) * Xi_Air[3 ]};
31173117 for i in 1 :4 loop
31183118 invMMX[i] := 1 / MMX[i];
31193119 end for ;
@@ -3189,7 +3189,7 @@ for region 2.
31893189 if (useDissociation == false ) then
31903190 u := 0 ;
31913191 else
3192- massFraction := {X[1 ],X[ 2 ] * Xi_Air[1 ],X[ 2 ] * Xi_Air[2 ],X[ 2 ] * Xi_Air[3 ]};
3192+ massFraction := {X[1 ],( 1 - X[ 1 ]) * Xi_Air[1 ],( 1 - X[ 1 ]) * Xi_Air[2 ],( 1 - X[ 1 ]) * Xi_Air[3 ]};
31933193 for i in 1 :4 loop
31943194 invMMX[i] := 1 / MMX[i];
31953195 end for ;
@@ -3549,9 +3549,9 @@ for region 2.
35493549 //u := 0;
35503550 u_der := 0 ;
35513551 else
3552- massFraction := {X[1 ],X[ 2 ] * Xi_Air[1 ],X[ 2 ] * Xi_Air[2 ],X[ 2 ] * Xi_Air[3 ]};
3553- massFraction_der := {X_der[1 ],X_der[2 ]* Xi_Air[1 ],X_der[2 ]* Xi_Air[2 ],
3554- X_der[2 ]* Xi_Air[3 ]};
3552+ massFraction := {X[1 ],( 1 - X[ 1 ]) * Xi_Air[1 ],( 1 - X[ 1 ]) * Xi_Air[2 ],( 1 - X[ 1 ]) * Xi_Air[3 ]};
3553+ massFraction_der := {X_der[1 ],- X_der[1 ]* Xi_Air[1 ],- X_der[1 ]* Xi_Air[2 ],
3554+ - X_der[1 ]* Xi_Air[3 ]};
35553555 for i in 1 :4 loop
35563556 invMMX[i] := 1 / MMX[i];
35573557 end for ;
0 commit comments