summaryrefslogtreecommitdiff
path: root/2837/CH13/EX13.4/Ex13_4.sce
blob: 17316bed3bade9e188baa9d02061dab9ff6dd433 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
clc
clear
//Initialization of variables
p1=30 //psia
t1=80+460 //R
R1=48.3
R2=55.2
m1=20 //lb/min
p2=50 //psia
m2=35 //lb/min
t2=160+460 //R
cp1=0.219
cp2=0.248
J=778
//calculations
tf=(m1*cp1*(t1-460) + m2*cp2*(t2-460))/(m1*cp1+m2*cp2)
Po2=m1/32/(m1/32+m2/28) *p1
ds=cp1*log((tf+460)/t1) - R1/J *log(Po2/p1)
dss=ds*m1
//results
printf("Change in entropy = %.4f units/min",dss)