summaryrefslogtreecommitdiff
path: root/914/CH10/EX10.7/ex10_7.sce
blob: 0bf79aaa27cd3be50589a8118bee0b867b1adc33 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
clc;
warning("off");
printf("\n\n example10.7 - pg422");
// given
L=300;  //[m] - length of pipe
d=0.06;  //[m] - inside diameter
p=1000;  //[kg/m^3] - density
mu=1*10^-3;  //[kg/m*sec] - viscosity
Nre=[10^4 10^5];
U=(Nre*mu)/(d*p);
velocityhead=(U^2)/2;
N=(L/d)/45;  // no of velocity heads
deltap=p*N*(velocityhead);
for i=1:2
    disp(Nre(i),"Nre=");
    printf("\n\n velocity head =%f m^2/sec^2",velocityhead(i));
    printf("\n\n -deltap = %f kPa = %f psi",deltap(i)*10^-3,deltap(i)*1.453*10^-4);
end