summaryrefslogtreecommitdiff
path: root/2021/CH11/EX11.6/EX11_6.sce
blob: 31fd7385a92c4f789909104485b9aa82da70f252 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
//Finding of Pressure Gradient , Shear at wall
//Given
D=15;
f=0.05;
r=4;
tau=0.01962;
//To Find
R=64/f;
dp=-(tau*(2/r));
dp1=-dp;
r1=D/2;
tau2=(tau*r1)/r;
disp("Pressure Gradient ="+string(dp1)+" N/m^3");
disp(" Shear at wall ="+string(tau2)+" N/cm^2");