Modified the code

1 files changed, 8 insertions, 15 deletions

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 ")