1 files changed, 14 insertions, 0 deletions
diff --git a/1484/CH6/EX6.30/6_30.sce b/1484/CH6/EX6.30/6_30.sce
new file mode 100755
index 000000000..16891bda8
--- /dev/null
+++ b/1484/CH6/EX6.30/6_30.sce
@@ -0,0 +1,14 @@
+clc 
+//initialisation of variables
+hp= 40 //hp
+w= 62.4 //lb/ft^3
+d= 4 //in
+k= 0.98
+v= 2.395 //ft/sec
+W= 120 //tons
+//CALCULATIONS
+hv= hp*550/(w*(%pi*(d/12)^2/4)*k)
+H= hv/v
+d= sqrt(4*W*2240/(w*H*%pi))
+//RESULTS
+printf ('diameter = %.2f ft',d)