blob: bcab9843bcbdcc88fe192748d255b5f3227c631a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
//pathname=get_absolute_file_path('7.20.sce')
//filename=pathname+filesep()+'7.20-data.sci'
//exec(filename)
//From steam tables:
//Saturated vapor pressure:
p5=260.96 //kPa
p15=182.60 //kPa
vg10=0.07665 // m^3/kg
vf10=0.00070 //m^3/kg
R=0.06876 //kJ/kg.K
hfg10=156.3 //kJ/kg
T=-5+273
T1=-15+273
T2=-5+273
//By Clapeyron equation:
//Value of hfg:
hfg=T*(vg10-vf10)*(p5-p15)/(15-5)
//By Clapeyron-Clausius equation:
hfg1=log(p5/p15)*R*(T1*T2)/((T2-T1))
//Deviation:
d=(hfg1-hfg)/hfg*100
printf("\nRESULT")
printf("\nhfg by Clapeyron equation = %f kJ/kg",hfg)
printf("\nhfg by Clapeyron-Clausius equation = %f kJ/kg",hfg1)
printf("\nPercentage deviation in hfg value by Clapeyron-Clausius equation compared to the value from Clapeyron equation = %f percent",d)
|
