summaryrefslogtreecommitdiff
path: root/1466/CH3/EX3.6/3_6.sce
diff options
context:
space:
mode:
Diffstat (limited to '1466/CH3/EX3.6/3_6.sce')
-rwxr-xr-x1466/CH3/EX3.6/3_6.sce22
1 files changed, 22 insertions, 0 deletions
diff --git a/1466/CH3/EX3.6/3_6.sce b/1466/CH3/EX3.6/3_6.sce
new file mode 100755
index 000000000..ec60d3ff9
--- /dev/null
+++ b/1466/CH3/EX3.6/3_6.sce
@@ -0,0 +1,22 @@
+
+clc
+//initialisation of variables
+v0=20//ft/sec
+D=12//m
+R=D/2
+t=0.5
+r=1//m
+r1=0.5//m
+k2=34
+g=32.2
+pi=22/7
+//CALCULATIONS
+va=(v0*r*r)/(2*R*t)
+k1=k2+(va*va/(2*g))-(v0*v0/(2*g))
+H=k2+(va*va/(2*g))
+k=(va*va*r1*r1)/(2*g)
+p1=(2*pi*62.4*[(H*(r1^2-(1/(D^2))))/2-(k*log(6))])+(D*r*r*pi)
+p2=14.7*%pi*R*R
+p=p2-p1
+//results
+printf (' net pressure on plate= %.f lb ',p-2)