summaryrefslogtreecommitdiff
path: root/1052/CH17/EX17.3/173.sce
blob: ca8c9b63d08fe0e973ba9a4995f31654e63441fc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
clc;
//Example 17.3
//page no. 201
printf("\Example 17.3 page no 201\n\n");
// a gas stream in a process
P_l_m=4.4// minor pressure loss for duct work,valves etc,in
P_l_mz=6.4//major pressure loss due to pieces of equipment,in
P_drop=P_l_m+P_l_mz//total pressure drop
printf("\n total pressure P_drop=%f in H20",P_drop);
//applying eq 17.7
q=6500//flow rate ,acfm
neta=0.63//overall fan-motor effficiency 
bhp=1.575e-4*q*P_drop/neta//brake horse power required
//1.575e-5 is aconversion factor for horse power
printf("\n brake horse power bhp=%f bhp",bhp);