summaryrefslogtreecommitdiff
path: root/1052/CH18/EX18.4/184.sce
blob: 43b8500b266c01d0b239fed85ff4c2f78eb972fc (plain)
1
2
3
4
5
6
7
8
9
10
11
clc;
//Example 18.4
//page no 229
printf("\n Example 18.4 pageno 229\n\n");
//refer to example 18.3
//applying eq 18.4 for friction loss by globe valve
K_f=22//coeff of expansion loss
v=10//velocity
gc=32.2//ravitational constant
h_f=K_f*v^2/(2*gc)//friction loss due to globe valve
printf("\n friction loss due to globe valve h_f=%f ft.lbf/lb",h_f);