summaryrefslogtreecommitdiff
path: root/680/CH8/EX8.06/8_06.sce
blob: 07843c91141ebd75b70be389c0ce9257ed756486 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
//Problem 8.06:

//initializing the variables:
Tc = 647; // in K
Tn = 100 + 273; // in K
Pc = 217.6; // in atm
dHe = 970; // in Btu/lb

//calculation:
Tm = Tn/Tc
dH = 2.17*Tn*((log(Pc)) - 1.0)/(0.930 - Tm)
dHn = dH*454/(252*18)
perdiff = (dHn - dHe)*100/dHe

printf("\n\nResult\n\n")
printf("\n the enthalpy of vaporization is %.1f percent",perdiff)