2 files changed, 40 insertions, 0 deletions
diff --git a/3647/CH7/EX7.2/ex7_2.sce b/3647/CH7/EX7.2/ex7_2.sce
new file mode 100644
index 000000000..d46e1ebe4
--- /dev/null
+++ b/3647/CH7/EX7.2/ex7_2.sce
@@ -0,0 +1,21 @@
+//Solutions to Problems In applied mechanics
+//A N Gobby
+clear all;
+clc
+//initialisation of variables
+R=24.4//tonf
+x=9.7//ft
+M=124//tonf ft
+h=5//in
+q=14//in
+w=20//in
+h1=6//in
+p=3//in
+g=10//in
+//CALCULATIONS
+Ra=h*q/w//tonf
+Mc=Ra*h1//tonf ft
+Rb=p*h1/w*q //tonf ft
+RB=w*g-(2*g^2/2)//tonf ft
+//RESULTS
+printf('the tonf load alone=% f tonf ft',RB)
diff --git a/3647/CH7/EX7.3/Ex7_3.sce b/3647/CH7/EX7.3/Ex7_3.sce
new file mode 100644
index 000000000..337f4a427
--- /dev/null
+++ b/3647/CH7/EX7.3/Ex7_3.sce
@@ -0,0 +1,19 @@
+//Solutions to Problems In applied mechanics
+//A N Gobby
+clear all;
+
+clc
+//initialisation of variables
+p=8//ft
+h=2//tonf/ft
+a=3//tons/ft
+b=11//ft
+w=b*h//tonf
+//CALCULATIONS
+S=(h*b^2/h)/p//tonf
+R=w-S//tonf
+x=R/h//ft
+M=(R*x)-((h*(x^2))/h)//tonf ft
+N=-(h*a^2/h)//tonf ft
+//RESULTS
+printf('the maximum bending moment occurs=% f tonf ft',N)