# Interactive steam tables and phase diagrams in Mathematica

I teach an undergraduate course in Thermodynamics and I would love to use Mathematica to demonstrate the various engineering processes that involve the expansions and compressions of steam and common refrigerants such as R134a.

I know that wolfram alpha does provide steam data but I'd rather have this from Mathematica. I also do know that in the Mathematica guide (guide/ScientificAndTechnicalData), some data is available but it is generally viscosities, molecular formulae etc.

Is there any way I could get steam table data into/from Mathematica? Students generally use steam tables available in their textbooks and that is a fantastic starting point as I would never want to do away with that. However, using Mathematica would be a fantastic way of introducing my students to this wonderful tool that has helped me in my research.

This would be very transformative to the way steam tables are particularly viewed as (with general disdain among sophomores and junior level students)!

-
Not sure what data you want, but if you do a wolfram alpha query with Mathematica (just type == in a new input cell) click the + symbol of the data you want and select Computable data it gives a Mathematica expression to import that data. – ssch Jan 12 '13 at 3:11
So, your students are wanna be engineers wanting to use Mathematica. Please confirm. – Dr. belisarius Jan 12 '13 at 4:07
@belisarius ? You say that like its a bad thing... :P... They are not "wannabe" engineers as that is rather derogatory. They are budding engineers. I would like to familiarize them with mathematica. – drN Jan 12 '13 at 13:26
@drN It was a joke. I forgot the :) - :D – Dr. belisarius Jan 12 '13 at 14:36
@belisarius OmG! the perils of forgetting smileys. It could start a war really!!!!! :P – drN Jan 12 '13 at 14:37

Wolfram|Alpha is integrated in Mathematica. Integration based on function WolframAlpha. To learn basic interactive and programmatic usage see this question. In your case you can get formatted objects in Mathematica like:

WolframAlpha["steam 135C", {{"PhaseDiagramTPPlot:ChemicalData", 1}, "Content"},
PodStates ->{"PhaseComputedThermodynamicProperties:ChemicalData__More"}]


or get commutable data

data = WolframAlpha["steam 135C",
{{"PhaseComputedThermodynamicProperties:ChemicalData", 1}, "ComputableData"},
PodStates -> {"PhaseComputedThermodynamicProperties:ChemicalData__More"}];


and compute with them:

Grid[data, Frame -> All, Alignment -> Left]


Units are integrated too - so quantities can be computed with units - for example

You have to have internet to be able to do this.

-
For years I have wondered why Wolfram hasn't included each steam table as an InterpolatingFunction. – Ted Ersek Jan 12 '13 at 11:45
This is a nice answer! I'll give this question another day or so at least though... thanks! – drN Jan 12 '13 at 13:26
@VitliyKaurov Do you think I could get $P-v$ and $T-s$ diagrams instead of $P-T$ phase diagrams? I hope I am not asking for too much! :P – drN Jan 12 '13 at 13:28
@VitaliyKaurov May I give credit to your important contribution to this answer (by linking this answer in my course webpage) when I discuss this with my students? – drN Jan 13 '13 at 15:02
@drN Sure, use the answer as you wish. Btw, T-S, P-T digrams need to be in W|A - if they are not there you can request on W|A site to add that info via feedback form. Another way would be to extract points from P-V diagrams and do something with that - but I am sure how to go around with this. – Vitaliy Kaurov Jan 13 '13 at 20:31