blob: eb7296b918c67005839c699eae6dcdabe9682633 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
// example 6
//Extrapolating Tabular Data with the Clapeyron Equation
clear
clc
hfg=97.100 //in Btu/lbm
R=0.01946 //universal Gas constant in Btu/lbm-R
T1=420 //in R
T2=410 //in R
P1=7.432 //in psia
P2=%e^((hfg/R)*(1/T1-1/T2)+log(P1)) //Saturation pressure at -50R in psia
printf("\n Hence, the Saturation Pressure of Refrigerant 134-a at -50 R is = %.2f psia. \n",P2);
|
