summaryrefslogtreecommitdiff
path: root/1466/CH14/EX14.7/14_7.sce
blob: b3b6ecffa19707683b1028e559e78da13409794e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

clc
//initialisation of variables
T=288//c abs
d=1/6
f=0.005
l=300//ft
g=32.2//ft/sec^2
R=96
p1=100//lb/in^2
Q=80//ft^3/min
//CALCULATIONS
a=%pi*d*d/(4)
v1=Q/(a*60)
p2=p1*sqrt(1-((8*f*l*v1*v1)/(2*g*d*R*T)))
//RESULTS
printf (' delivery pressure= %.1f lb/in^2',p2)