Construct Mollier Diagrams

Calculate the pressure curves for entropy and enthalpy for constant pressure and temperature ranging from 5 to 800 degrees Celsius:

In[1]:=

pressureCurves=Table[Transpose[Values[ThermodynamicData["Water",{"Entropy","Enthalpy"},{"Temperature"Quantity[Table[x,{x,5,800,5}],"DegreesCelsius"],"Pressure"Quantity[i,"Bar"]}]]],{i,{500,200,100,50,20,10,5,2,1,0.5,0.2,0.1,0.05,0.02,0.01}}];

Compute the temperature curves for entropy and enthalpy for constant temperature and pressure ranging from 0.01 to 1000 bars:

In[2]:=

temperatureCurves=Table[Transpose[Values[ThermodynamicData["Water",{"Entropy","Enthalpy"},{"Temperature"Quantity[i,"DegreesCelsius"],"Pressure"Quantity[Table[10^x,{x,-2,3,0.2}],"Bar"]}]]],{i,50,800,50}];

Plot the curves of constant pressure and constant temperature on an enthalpy vs entropy plot:

In[3]:=

ShowListLinePlotpressureCurves,

...

,

,ListLinePlottemperatureCurves,

...

,



Out[3]=

Related Symbols

Publisher Information