summaryrefslogtreecommitdiff
path: root/2021/CH11/EX11.5/EX11_5.sce
blob: d405bb153ed52bc705210ade7cbd3f9f01727940 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
//Finding of Pressuure gradient.Avg velocity,Discharge,Shear at wall
//Given
mu=0.02;
B=0.01;
b=1;
v=2;
//To Find
A=B*b;
dp=-((16*mu)/B^2);
dp1=-dp;
V=(B^2/(12*mu))*(-dp);
q=A*V;
x=(-dp*(B/2))
disp(" Pressuure Gradient ="+string(dp1)+" N/m^2 per meter");
disp(" Avg velocity ="+string(V)+" m/sec");
disp(" Shear at wall ="+string(x)+" N//m^2");