summaryrefslogtreecommitdiff
path: root/3375/CH7/EX7.2/Ex7_2.sce
blob: ad8b5652482083cb246250f8f0a0e25e56ea8fdd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
//Example 7.2
//Power required
//Page No. 429
clc;clear;close;

Q=1;        //in m^3/s
D_i=0.5;         //in m
rho=1000;        //kg/m^3
nu=1.02*10^-6;        //in m^2/s
g=9.81;          //in m/s^2
U_av=Q/(%pi*D_i^2/4);
Re=U_av*D_i/nu;
f=0.01;
Fric_loss=f*U_av^2/(D_i*2*g);
P=Fric_loss*rho*g*Q;
printf('Power required = %f kW/km',P)