summaryrefslogtreecommitdiff
path: root/172/CH9/EX9.9/ex9.sce
blob: b58e59bba2ba659c75ce4a5a8434ab61a1a0a0cd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//example 9
//Rate of Entropy Generation
clear
clc
disp('From R-410a tables,we get')
hi=280.6 //in kJ/kg
he=307.8 //in kJ/kg
si=1.0272 //in kJ/kg
se=1.0140 //in kJ/kg
m=0.08 //flow rate of refrigerant in kg/s
P=3 //electrical power input in kW
Qcv=m*(he-hi)-P //in kW
To=30 //in Celsius
Sgen=m*(se-si)-Qcv/(To+273.2) //rate of entropy generation 
printf("\n Hence,the rate of entropy generation for this process is Sgen=%.5f kW/K. \n",Sgen)