3
$\begingroup$

In my course literature these variables are called hf/hg where they also are listed in a table. Now to my question, how do i find this data with the help of Mathematica?

My assignment is to find the thermal efficiency of a rankine cyckle with the given data.

> Data


    T3 = 480 + 273.15;
    P3 = 15 10^6;
    substance = "Water";
    P4 = 7.5 10^3;

So let's start with State 4

> Units



    Pa = Quantity[1, "Pascals"];

    [ScriptCapitalK] = Quantity[1, "Kelvins"];



> Tables

    h[p_, T_] = 
      ThermodynamicData[substance, 
         "Enthalpy", {"Pressure" -> p Pa, "Temperature" -> T \[ScriptCapitalK]}] //
         QuantityMagnitude // Quiet;
    s[p_, T_] = 
      ThermodynamicData[substance, 
         "Entropy", {"Pressure" -> p Pa, "Temperature" -> T \[ScriptCapitalK]}] //
         QuantityMagnitude // Quiet;

Now by knowing the pressure in state 4, 7.5 kPa i can find hf/hg from the table in the literature which is 168.75/2574 kJ/kg. Is there any way to find this data in Mathematica aswell?

$\endgroup$

1 Answer 1

7
$\begingroup$

Try something like this:

p = Quantity[7.5, "Kilopascals"];

t = ThermodynamicData["Water","LiquidVaporPhaseBoundary", 
    {"Pressure" -> p}]

ThermodynamicData["Water", "Enthalpy", 
    {"Temperature" -> t}]

ThermodynamicData["Water", "Enthalpy",
    {"Temperature" -> t, "Pressure" -> p}]



(*   313.44 K           *)
(*   168830. J/kg       *)
(*   2.57403 10^6 J/kg  *)
$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.