1 files changed, 42 insertions, 0 deletions
diff --git a/3819/CH3/EX3.15/Ex3_15.sce b/3819/CH3/EX3.15/Ex3_15.sce
new file mode 100644
index 000000000..ed482de74
--- /dev/null
+++ b/3819/CH3/EX3.15/Ex3_15.sce
@@ -0,0 +1,42 @@
+// A Textbook of Fluid Mecahnics and Hydraulic Machines - By R K Bansal
+// Chapter 3-Hydrostatic Forces on surfaces
+// Problem 3.15
+
+                                    //Part a)
+//Data given in the Problem
+d=3
+A=%pi/4*d^2
+DC=1.5
+BC=d
+dens=1000
+g=9.81
+//Calculations
+//1)
+sin_theta=((4-DC)/BC)
+h=DC+DC*sin_theta
+F=dens*g*A*h
+mprintf("Part A)\nThe total pressure is %f N \n",F)
+//2)
+IG=%pi/64*d^4
+H=IG*(sin_theta)^2/(A*h)+h
+mprintf("The COP is %f m \n",H)
+                                        //Part b)
+//Data given in the Problem
+d=3
+Ao=%pi/4*d^2
+d0=1.5
+DC=1.5
+BC=d
+dens=1000
+g=9.81
+//Calculations
+//1)
+Ap=Ao-(%pi/4*1.5^2)
+sin_theta=((4-DC)/BC)
+h=DC+DC*sin_theta
+F=dens*g*Ap*h
+mprintf("Part A)\nThe total pressure is %f N \n",F)
+//2)
+IG=%pi/64*(d^4-d0^4)
+H=IG*(sin_theta)^2/(Ap*h)+h
+mprintf("The COP is %f m \n",H)