diff options
Diffstat (limited to '650/CH3/EX3.4/4.sce')
| -rwxr-xr-x | 650/CH3/EX3.4/4.sce | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/650/CH3/EX3.4/4.sce b/650/CH3/EX3.4/4.sce new file mode 100755 index 000000000..3518167d5 --- /dev/null +++ b/650/CH3/EX3.4/4.sce @@ -0,0 +1,17 @@ +clc
+del_p=90*10^3; // N/m^2
+d=0.126; // m
+R=0.126/2; // m
+u=1.2;
+L=60; // m
+Rho=1260;
+
+Q=%pi * del_p * R^4 / (8*u*L);
+disp("The glycerol delivery rate is ");
+disp(Q);
+disp("m^3/s");
+
+Re=4*Rho*Q/(u*%pi*d);
+disp("The Reynolds number is ");
+disp(Re);
+disp("As Re is below 2000, therefore confirming laminar flow.");
|