From d1e070fe2d77c8e7f6ba4b0c57b1b42e26349059 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Sat, 3 Feb 2018 10:59:42 +0530
Subject: Modified the code

---
 3819/CH3/EX3.3/Ex3_3.sce | 23 ++++++++---------------
 1 file changed, 8 insertions(+), 15 deletions(-)

(limited to '3819/CH3/EX3.3/Ex3_3.sce')

diff --git a/3819/CH3/EX3.3/Ex3_3.sce b/3819/CH3/EX3.3/Ex3_3.sce
index 77c07a745..1828a98fa 100644
--- a/3819/CH3/EX3.3/Ex3_3.sce
+++ b/3819/CH3/EX3.3/Ex3_3.sce
@@ -3,19 +3,12 @@
 // Problem 3.3
 
 //Data given in the Problem
-//d=depth
-//d=width
-//Centroid is 'p' metres below
-b=poly(0,"b")
-d=poly(0,"d")
-p=poly(0,"p")
+//depth of gate=d m
+//width of gate=b m
+//depth of CG from surface=p m
 
-//Proof
-h=p         //Depth of COP from the surface
-I_G=horner(b,d)
-I_G=b*d^2/12
-A=horner(b,d)
-A=b*d           //Area
-H=horner(I_G,A,h))
-H=I_G/(A*h)+h    //H is the depth of the centre of the pressure from the free surface
-mprintf("The depth of the COP from free surface is found to be %p",H)
+//solution:
+//Depth of COP from free surface=(I/(A*h_CG))+h_gate
+//Since I=(b*d^3)/12;
+//h_COP=(b*d^3/12/b/d/p)+p=d^2/12+p
+disp("The depth of centre of pressure from free surface is (d^2/12)+p ")
-- 
cgit