ThermodynamicData["Ammonia", "Enthalpy", {"Temperature" -> t,"Pressure" -> p}]
works fine, but how can I get temperature when pressure and enthalpy are given?
Mathematica Stack Exchange is a question and answer site for users of Wolfram Mathematica. It only takes a minute to sign up.
Sign up to join this communityThermodynamicData["Ammonia", "Enthalpy", {"Temperature" -> t,"Pressure" -> p}]
works fine, but how can I get temperature when pressure and enthalpy are given?
i suppose you can use standard numerical methods..
h[t_?NumericQ, p_?NumericQ] :=
QuantityMagnitude[
ThermodynamicData["Ammonia",
"Enthalpy", {"Temperature" -> Quantity[t, "Kelvins"],
"Pressure" -> Quantity[p, "MegaPascals"]}]]
FindRoot[h[t,.4] == 19300, {t, 200}]
{t -> 199.982}