summaryrefslogtreecommitdiff
path: root/2504/CH7/EX7.6/7_6.sce
blob: 9d2ed5b51e80311416969a3a035b8d9734cff1fd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
clc
//initialisation of variables
clear
Ps1= 1050 //lbf/ft^2
fr= 10.7
p= 36.6 //lbf/ft^2
p1= 195 //lbf/ft^2
fr1= 16
fr2= 1.8
//CALCULATIONS
p2= fr*p
dp= Ps1-p2
lc= dp/p
sp= Ps1+p1-p*(fr1+fr2)
lc1= sp/p
//RESULTS
printf ('Pressure = %.f lbf/ft^2',p1)
printf ('\n pressure difference = %.f lbf/ft^2',dp)
printf ('\n Loss coefficient = %.f ',lc)
printf ('\n Loss coefficient = %.1f ',lc1)