From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 746/CH3/EX3.07/3_07.sce | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100755 746/CH3/EX3.07/3_07.sce

(limited to '746/CH3/EX3.07')

diff --git a/746/CH3/EX3.07/3_07.sce b/746/CH3/EX3.07/3_07.sce
new file mode 100755
index 000000000..8624fca4a
--- /dev/null
+++ b/746/CH3/EX3.07/3_07.sce
@@ -0,0 +1,18 @@
+//force at equilibrium//
+pathname=get_absolute_file_path('3.07.sce')
+filename=pathname+filesep()+'3.07-data.sci'
+exec(filename)
+//Horizontal component of resultant force(in kN):
+Frh=0.5*d*g*w*D^2
+//Line of action of Frh(in m):
+y1=0.5*D+w*D^3/12/(0.5*D)/(w*D)
+//Vertical component of resultant force(in kN):
+function y=q(x), y=d*g*w*(D-sqrt(a*x)),endfunction
+Frv=intg(0,D^2/a,q)
+//Line of acion of Frv(in m):
+function k=f(x), k=d*g*w/Frv*x*(D-sqrt(a*x)),endfunction
+xa=intg(0,D^2/a,f)
+//Force required to keep the gate in equilibrium(in kN):
+Fa=1/l*(xa*Frv+(D-y1)*Frh)
+printf("\n\nRESULTS\n\n")
+printf("\n\nForce required to keep the gate at equilibrium: %f kN\n\n",Fa/1000)
-- 
cgit