# Mollierdiagramme erstellen

Erstellen Sie Mollierdiagramme mit den Parametern Luftdruck zu Entropie.

 In[1]:= XpressureCurves = Table[Transpose[{ThermodynamicData["Water", "Entropy", {"Temperature" -> Quantity[Table[x, {x, 5, 800, 5}], "DegreesCelsius"], "Pressure" -> Quantity[i, "Bar"]}], ThermodynamicData["Water", "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}}];
 In[2]:= XtemperatureCurves = Table[Transpose[{ThermodynamicData["Water", "Entropy", {"Temperature" -> Quantity[i, "DegreesCelsius"], "Pressure" -> Quantity[Table[10^x, {x, -2, 3, 0.2}], "Bar"]}], ThermodynamicData["Water", "Enthalpy", {"Temperature" -> Quantity[i, "DegreesCelsius"], "Pressure" -> Quantity[Table[10^x, {x, -2, 3, 0.2}], "Bar"]}]}], {i, 50, 800, 50}];
 In[3]:= XShow[ListLinePlot[pressureCurves, PlotStyle -> Blue, Frame -> True, FrameLabel -> Automatic], ListLinePlot[temperatureCurves, PlotStyle -> Green], PlotRange -> {{5000, 10000}, {2*10^6, 4.2*10^6}}, AspectRatio -> 1]
 Out[3]=

## Mathematica

Questions? Comments? Contact a Wolfram expert »