summaryrefslogtreecommitdiff
path: root/1472/CH13/EX13.4.a/13_4a.sce
blob: 8cf0f9321858018e0a57a454bff5d5877f07d0bd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
clc
//initialization of varaibles
P1=150 //psia
T1=400+460 //R
P2=15 //psia
g=1.4
R=53.34
//calculations
Tratio=(P2/P1)^((g-1)/g)
W=53.34*T1*(Tratio-1)/(1-g)
T2=T1*Tratio
v2=R*T2/(P2*144)
u1=147.50
Pr1=7.149
Pr2=Pr1*P2/P1
disp("From tables,")
Pr=0.7149
T2=447 //R
u2=76.13 //B/lb
W=-(u2-u1)
v2=R*T2/(P2*144)
//results
printf("Final specific volume = %.1f cu ft/lb",v2)
printf("\n Work per pound of fluid = %.1f B/lb",W)