summaryrefslogtreecommitdiff
path: root/1922/CH4/EX4.8/4_8.sce
blob: c36e97bc13eb97949a60ba88f5539c80bace5295 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
clc
clear
//Initialization of variables
m=5000 ///kg/h
cp=3.2 //kJ/kg K
Ts=30+273.1 //K
t1=220 //C
t2=40 //C
Q=2.88*10^6 //kJ
//calculations
Q=m*cp*(t2-t1)
dss=m*cp*log((t2+273.1)/(t1+273.1))
Wlost=Ts*dss-Q
eff=Ts*dss/Q
//results
printf("Lost work = %d kJ",Wlost)
printf("\n Efficiency = %.3f",eff)