summaryrefslogtreecommitdiff
path: root/2762/CH3/EX3.3.3/3_3_3.sce
blob: 6106624c69928aec266d9e17c5b93f8f32231c76 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
//Transport Processes and Seperation Process Principles
//Chapter 3
//Example 3.3-3
//Principles of Momentum Transfer and Applications
//given data
p1=137.9*1000;
p2=551.6*1000;
T1=26.7+273.2;
mmol=7.56/1000;
M=16;
mdot=mmol*M;
gam=1.31;
R=8314.3;
nWs1=(gam/(gam-1))*(R*T1/M)*((p2/p1)^((gam-1)/gam)-1);
n=80/100;
bkW1=(nWs1*mdot)/(n*1000);
mprintf("i) brake power= %f kW",bkW1)
nWs2=(R*T1/M)*log(p2/p1);
bkW2=(nWs2*mdot)/(n*1000);
mprintf("ii) brake power= %f kW",bkW2)