blob: 8f58bd2170dda3b23a7681cb1194b2f29232772d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
//Finding of Power Lost
//Given
D=0.6;
L=1000;
Q=0.6;
ks=0.003;
rho=1000;
g=9.81;
c=50;
//To Find
//For Turbulant Flow
A=(%pi/4)*D^2;
a=2*log(3.71*(D/ks));
b=sqrt(a);
v=Q/A;
f=1/c;
Hf=(f*L*v^2)/(2*g*D);
P=(rho*g*Q*Hf)/1000;
disp(" Power Lost ="+string(P)+" Kilowatt");
|
