diff options
Diffstat (limited to '914/CH10/EX10.3/ex10_3.sce')
| -rwxr-xr-x | 914/CH10/EX10.3/ex10_3.sce | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/914/CH10/EX10.3/ex10_3.sce b/914/CH10/EX10.3/ex10_3.sce new file mode 100755 index 000000000..19ee26b6c --- /dev/null +++ b/914/CH10/EX10.3/ex10_3.sce @@ -0,0 +1,16 @@ +clc;
+warning("off");
+printf("\n\n example10.3 - pg414");
+// given
+u=1/60; //[m/sec] - velocity
+p=1000; //[kg/m^3] - density
+mu=1*10^-3; //[kg/m*sec] - viscosity
+d=6*10^-2; //[m] - inside diameter of tube
+L=300; //[m] - length of the tube
+Nre=(d*u*p)/(mu);
+disp("therefore the flow is laminar",Nre,"Nre=");
+f=16/Nre;
+disp(f);
+deltap=(4*f)*(L/d)*((p*(u^2))/2);
+printf("\n\n -deltap=%f N/m^2 = %f kPa = %e psi",deltap,deltap*10^-3,deltap*1.453*10^-4);
+
|