blob: 0cdb4760a13a8e8f68fbcbf7eb86af05d0f3e6ad (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
clc
//initialization of varaibles
R=53.34
T1=540 //R
n=1.4
g=n
n2=1.3
P2=90 //psia
P1=15 //psia
cv=0.171
eta=0.95
//calculations
pv=R*T1
Wk=n*R*T1*((P2/P1)^((g-1)/g) -1) /(n-1)
Wn=n2*R*T1*((P2/P1)^((n2-1)/n2) -1) /(n2-1)
Wt=R*T1*log(P2/P1)
Wx=-Wk/eta
dh=cp*T1*(1.52 - 1)
Q=dh+Wx/778
//results
printf("Heat transferred = %.1f B/lb",Q)
|
