1 files changed, 28 insertions, 0 deletions
diff --git a/3819/CH1/EX1.19/Ex1_19.sce b/3819/CH1/EX1.19/Ex1_19.sce
new file mode 100644
index 000000000..d32092169
--- /dev/null
+++ b/3819/CH1/EX1.19/Ex1_19.sce
@@ -0,0 +1,28 @@
+// A Textbook of Fluid Mecahnics and Hydraulic Machines - By R K Bansal
+// Chapter 1-Properties of Fluid
+// Problem 1.19
+
+
+//Given Data Set in the Problem(SI Units)
+gap=2.2/100
+visc=2
+SG=0.9
+g=9.81
+W_dens=SG*1000*g
+Vol=1.2*1.2*0.2/100
+Area=1.2*1.2
+t=0.2/100
+vel=0.15
+W=40
+
+//Calculations
+dis_from_plate=(gap-t)/2          //Distance of the plate from each of the two plates
+ss=visc*(vel/dis_from_plate)
+Force_left=ss*1.2*1.2
+Force_right=ss*1.2*1.2
+F=Force_left+Force_right        //Sum of Force on the right + left side of the plate
+Upthrust=W_dens*Vol             //Calculates Buoyant force on the plate 
+F_down=W-Upthrust               //net downward force on the plate except shear forces
+F_ToLift=F+F_down               //som total of all forces on the plate
+mprintf("The Force required to lift the plate is %f N \n",F_ToLift)
+