summaryrefslogtreecommitdiff
path: root/2021/CH11/EX11.1/EX11_1.sce
blob: 43962c63a8c612b30dccdee74c3a819c3b3381bd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
//Finding of Pressure Difference
//Given
mu=0.09;
spgr=0.8;
rho=800;
D=0.08;
L=15;
//To Find
A=(%pi/4)*D^2;
q=(50/10)*(1/rho);
v=q/A;
p=(128*mu*q*L)/(%pi*D^4);
p1=p/10000;
disp(" Pressure Difference ="+string(p1)+" N/cm^2");