diff options
Diffstat (limited to '1364/CH15/EX15.2.1/15_2_1.sce')
-rwxr-xr-x | 1364/CH15/EX15.2.1/15_2_1.sce | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/1364/CH15/EX15.2.1/15_2_1.sce b/1364/CH15/EX15.2.1/15_2_1.sce new file mode 100755 index 000000000..28a71df0d --- /dev/null +++ b/1364/CH15/EX15.2.1/15_2_1.sce @@ -0,0 +1,15 @@ +clc
+//initialisation of variables
+B= 34 //ft
+z= 6 //ft
+g= 32.2 //ft/sec^2
+d= 6 //in
+do= 2 //in
+l= 6 //ft
+l1= 0.04
+//CALCULATIONS
+s= sqrt((g*do^2*(B-6-z))/(l*d^2*(d/12)))
+s1= s*60/(2*%pi)
+hf= l1*(l/(2*g*(do/12)))*(d^2*s*d/(12*do^2))^2
+//RESULTS
+printf (' maximum friction head= %.2f ft',hf)
|