Steam Properties
M.M. Yovanovich
STEAMPROPS2.MWS
Properties of saturated water vapor (steam).
Properties obtained from Table A.4 of Incropera and DeWitt. The temperature range is kelvin. Simple second order fits of thermophysical properties.
> restart:
Correlation equation.
>
k:=
T-> .1381515011e-7*T^2+.6634994575e-4*T-.2673622983e-2;
rho:=
T->.1183296562e-5*T^2-.2120532826e-2*T+1.212341591;
cp:=
T->1557139/974572500*T^2-51563419/32485750*T+934952432/389829;mu:=
T-> .1164692132e-13*T^2+.3606363036e-7*T-.9892226430e-6;
nu:=
T->.1642094445e-9*T^2-.3580788653e-8*T-.5947777730e-6;
alpha:=
T->.1257836049e-9*T^2+.4144281570e-7*T-.1337400871e-4;
Pr:=
T-> .8473108031e-6*T^2-.1090738047e-2*T+1.340425081;
Calculate steam properties at given temperature.
> T:= 650:
> steamprops:= evalf([T, k=k(T), rho=rho(T), cp=cp(T), mu=mu(T), nu=nu(T), alpha=alpha(T), Pr=Pr(T)], 4);
>