1 files changed, 23 insertions, 0 deletions
diff --git a/3819/CH4/EX4.2/Ex4_2.sce b/3819/CH4/EX4.2/Ex4_2.sce
new file mode 100644
index 000000000..771b3f377
--- /dev/null
+++ b/3819/CH4/EX4.2/Ex4_2.sce
@@ -0,0 +1,23 @@
+// A Textbook of Fluid Mecahnics and Hydraulic Machines - By R K Bansal
+// Chapter 4-Buoyancy and Floatation
+// Problem 4.2
+
+//Given Data Set in the Problem
+dens=1000
+g=9.81
+d=0.6
+l=5
+SG=0.7
+r=0.3
+//W=theta angle
+//calculations
+
+//Equating the Area of ADCA from using geometry,we get;
+function[f] = F(W)
+    f=0.1979-((%pi*0.3^2*(1-W/180))+0.3^2*cos(W/180*%pi)*sin(W/180*%pi))
+endfunction
+W= 10;
+W = fsolve(W,F)
+//so, h=r+r*cos(theta)
+h=r+r*cos(W/180*%pi)
+mprintf("\nThe depth of wooden log in water is %f m\n",h)