initial commit / add all books

14 files changed, 279 insertions, 0 deletions

diff --git a/3647/CH6/EX6.1/ex6_1.sce b/3647/CH6/EX6.1/ex6_1.sce
new file mode 100644
index 000000000..208051165
--- /dev/null
+++ b/3647/CH6/EX6.1/ex6_1.sce
@@ -0,0 +1,14 @@
+//Solutions to Problems In applied mechanics
+//A N Gobby
+clear all;
+clc

+//initialisation of variables

+b=0.005//in

+a=2//tonf

+p=10//tonf

+l=13500//tonf/in^2

+//CALCULATIONS

+x=(p/a)*b//in

+E=(l*b*1/2)/a//in

+//RESULTS

+printf('the original length of bar =% f in',E)

diff --git a/3647/CH6/EX6.10/ex6_10.sce b/3647/CH6/EX6.10/ex6_10.sce
new file mode 100644
index 000000000..da97ba545
--- /dev/null
+++ b/3647/CH6/EX6.10/ex6_10.sce
@@ -0,0 +1,19 @@
+//Solutions to Problems In applied mechanics
+//A N Gobby
+clear all;
+clc

+//initialisation of variables

+clear

+E=2*10^6//lbf/in^2

+s=600//lbf/in^2

+w=12//in

+l=80//tonf

+w1=4//ft

+E1=30*10^6//lbf/in^2

+h=2240//in

+s2=10.9//in^2

+F=9000//lbf/in^2

+//CALCULATIONS

+L=(F*w1*w/E1)//in

+//RESULTS

+printf('the column shortens by=% f in',L)

diff --git a/3647/CH6/EX6.11/ex6_11.sce b/3647/CH6/EX6.11/ex6_11.sce
new file mode 100644
index 000000000..6627f3dfd
--- /dev/null
+++ b/3647/CH6/EX6.11/ex6_11.sce
@@ -0,0 +1,27 @@
+//Solutions to Problems In applied mechanics
+//A N Gobby
+clear all;
+clc

+//initialisation of variables

+clear

+E1=30*10^6//lbf/in^2

+E2=15*10^6//lbf/in^2

+alf=6.4*10^-6//degF-1

+alf1=9.5*10^-6//degF-1

+t=170//deg

+t1=50//deg

+w=5//tonf

+ec=0.000248//lbf/in^2

+es=0.000124//lbf/in^2

+h=2240//in

+//CALCULATIONS

+e=(alf1-alf)*(t-t1)//in

+Ec=E2*ec//lbf/in^2

+Es=E1*es//lbf/in^2

+F=E1/E2//fc

+S=w*h/(2*1+1)//lbf/in^2

+S1=S*2//lbf/in^2

+R=-Es+S//lbf/in^2

+R1=Es+S1//lbf/in^2

+//RESULTS

+printf('The final stress in the steel and applied to the compound =% f lbf/in^2',R1)

diff --git a/3647/CH6/EX6.12/ex6_12.sce b/3647/CH6/EX6.12/ex6_12.sce
new file mode 100644
index 000000000..e67dc7c1d
--- /dev/null
+++ b/3647/CH6/EX6.12/ex6_12.sce
@@ -0,0 +1,20 @@
+//Solutions to Problems In applied mechanics
+//A N Gobby
+clear all;
+clc

+//initialisation of variables

+a=1/16//ft/s

+h=100//lbf/in^2

+w=10//lbf/in^2

+q=2//in

+b=%pi/4*(3/16)^2//in^2

+p=5//inch valu per 12.7

+//CALCULATIONS

+H=(h*w)/(q*a)//lbf/in^2

+F=H*1*a//lbf

+A=H/2//lbf/in^2

+R=(b)/(F/A)*5.14*4//per inch

+F1=A*1*a//lbf

+m=(b)/(F1/A)*5.14//per inch

+//RESULTS

+printf('the force per inch of circumferential seam=% f per in',m)

diff --git a/3647/CH6/EX6.13/ex6_13.sce b/3647/CH6/EX6.13/ex6_13.sce
new file mode 100644
index 000000000..a3f0ae115
--- /dev/null
+++ b/3647/CH6/EX6.13/ex6_13.sce
@@ -0,0 +1,26 @@
+//Solutions to Problems In applied mechanics
+//A N Gobby
+clear all;
+clc

+//initialisation of variables

+clear

+p=14.7//lbf/in^2

+w=15000//lbf/in^2

+p1=190//lbf/in^2

+q=0.35//percent

+q1=0.75//percent

+w1=2//ft

+q2=36//tonf/in^2

+f=6//in

+r1=3/8//in

+p2=4//in

+h=2240//in

+//CALCULATIONS

+A=w*q//lbf/in^2

+E=w*q1//lbf/in^2

+M1=(p2*A*(1/2)/(p1-p))//in

+M2=(w1*E*(1/2)/(p1-p))//in

+M3=p2*r1*((q2*h)/f)/(w1*12)//lbf/in^2 gauge

+//RESULTS

+printf('the Maximum possible diameter of cylinder =% f in',M2)

+printf('the Maximum allowable pressure=% f lbf/in^2 gauge',M3)

diff --git a/3647/CH6/EX6.14/ex6_14.sce b/3647/CH6/EX6.14/ex6_14.sce
new file mode 100644
index 000000000..97be99d66
--- /dev/null
+++ b/3647/CH6/EX6.14/ex6_14.sce
@@ -0,0 +1,14 @@
+//Solutions to Problems In applied mechanics
+//A N Gobby
+clear all;
+clc

+//initialisation of variables

+clear

+w=450//lbf/in^2

+m=3000//lbf/in^2

+g=32.2//lbf/in^2

+h=144//in

+//CALCULATIONS

+M=sqrt(g*m*h/w)//ft/f

+//RESULTS

+printf('the maximum rim speed of flywheel=% f ft/f',M)

diff --git a/3647/CH6/EX6.2/ex6_2.sce b/3647/CH6/EX6.2/ex6_2.sce
new file mode 100644
index 000000000..31d33c817
--- /dev/null
+++ b/3647/CH6/EX6.2/ex6_2.sce
@@ -0,0 +1,20 @@
+//Solutions to Problems In applied mechanics
+//A N Gobby
+clear all;
+

+clc

+//initialisation of variables

+p1=12000//in

+p2=0.0125//lbf/in

+x=8//in

+w=14300//in

+r=0.122//in

+//CALCULATIONS

+M=(p1/p2)*(x/(%pi/4*1^2))//lbf/in^2

+P=0.1*x/100//in

+S=w/(%pi/4*1^2)//lbf/in^2

+P1=(r*100/x)//percent

+//RESULTS

+printf('the modulus of elasticity=% f lbf/in^2',M)

+printf('non-proportional elongation=% f lbf/in^2',S)

+printf('the percentage elongation=% f percent',P1)

diff --git a/3647/CH6/EX6.3/ex6_3.sce b/3647/CH6/EX6.3/ex6_3.sce
new file mode 100644
index 000000000..5ddd8ab23
--- /dev/null
+++ b/3647/CH6/EX6.3/ex6_3.sce
@@ -0,0 +1,18 @@
+//Solutions to Problems In applied mechanics
+//A N Gobby
+clear all;
+clc

+//initialisation of variables

+w=0.5//tonf/in^2

+w1=7//tonf/in^2

+w2=10//tonf/in^2

+t=12.4//tonf/in^2

+d1=1.5//in

+d2=1.24//in

+x=0.495//in

+d3=3.02//in

+//CALCULATIONS

+Y=sqrt((d3/2)^2-(d2/2)^2)//in

+S=(1/2*t/(2*Y*w))//tonf/in^2

+//RESULTS

+printf('the shear stress in fork end=% f tonf/in^2',S)

diff --git a/3647/CH6/EX6.4/Ex6_4.sce b/3647/CH6/EX6.4/Ex6_4.sce
new file mode 100644
index 000000000..34b0401d7
--- /dev/null
+++ b/3647/CH6/EX6.4/Ex6_4.sce
@@ -0,0 +1,22 @@
+//Solutions to Problems In applied mechanics
+//A N Gobby
+clear all;
+

+clc

+//initialisation of variables

+g=2//in

+t=0.002//in

+l=7500//lbf

+w=11000//lbf

+p=1/4//in

+//CALCULATIONS

+W=1/2*l*t//in lbf

+P=t*(w/l)//in

+S=w/p//lbf/in^2

+E=S*g/P//lbf/in^2

+R=(1/2)*w*P//in lbf

+//RESULTS

+printf('The elongation at the elastic limit=% f in',P)

+printf('The stress at the elastic limit=% f lbf/in^2',S)

+printf('The modulus of elasticity E of the material is=% f lbf/in^2',E)

+printf('The resilience and modulus of elasticity=% f in lbf',R)

diff --git a/3647/CH6/EX6.5/Ex6_5.sce b/3647/CH6/EX6.5/Ex6_5.sce
new file mode 100644
index 000000000..d58c3db57
--- /dev/null
+++ b/3647/CH6/EX6.5/Ex6_5.sce
@@ -0,0 +1,20 @@
+//Solutions to Problems In applied mechanics
+//A N Gobby
+clear;
+
+clc
+//initialisation of variables
+v=4//in
+w=20//tonf
+d=10//ft
+m=13400//tonf/in^2
+q=2//in
+l=120//in
+//CALCULATIONS
+Fmax=q*(w)/(%pi/v*v^2)//tonf/in^2
+M=Fmax*l/m//in
+P=w*M//in tonf
+//RESULTS
+printf('The maximum instantneous stress=% f tonf/in^2',Fmax)
+printf('The maximum elongation is=% f in',M)
+printf('the strain energy stored=% f in tonf',P)
\ No newline at end of file
diff --git a/3647/CH6/EX6.6/ex6_6.sce b/3647/CH6/EX6.6/ex6_6.sce
new file mode 100644
index 000000000..f8e48961f
--- /dev/null
+++ b/3647/CH6/EX6.6/ex6_6.sce
@@ -0,0 +1,16 @@
+//Solutions to Problems In applied mechanics
+//A N Gobby
+clear all;
+clc

+//initialisation of variables

+d=4//in

+p=2//ft

+d1=1/2//in

+e=13200//tonf/in^2

+f=9.51//tonf/in^2

+k=0.0114//tonf/in^2

+//CALCULATIONS

+E=k*f//in tonf

+F=(p/(%pi/d*d^2))//tonf/in^2

+//RESULTS

+printf('the final stress after oscillation has died aways will load/area=% f tonf/in^2',F)

diff --git a/3647/CH6/EX6.7/ex6_7.sce b/3647/CH6/EX6.7/ex6_7.sce
new file mode 100644
index 000000000..afc707f89
--- /dev/null
+++ b/3647/CH6/EX6.7/ex6_7.sce
@@ -0,0 +1,18 @@
+//Solutions to Problems In applied mechanics
+//A N Gobby
+clear all;
+clc

+//initialisation of variables

+h=3//in

+s=10.2//tonf/in^2

+v=0.006//in

+d=0.5//in

+d1=0.75//in

+w=20//lbf

+q=v/8//tonf/in^2

+x=0.029//in

+//CALCULATIONS

+M=s/q//tonf/in^2

+E=M*(x)/(h*12)//tonf/in^2

+//RESULTS

+printf('the corresponding stress=% f tonf/in^2',E)

diff --git a/3647/CH6/EX6.8/ex6_8.sce b/3647/CH6/EX6.8/ex6_8.sce
new file mode 100644
index 000000000..4cfa6c263
--- /dev/null
+++ b/3647/CH6/EX6.8/ex6_8.sce
@@ -0,0 +1,18 @@
+//Solutions to Problems In applied mechanics
+//A N Gobby
+clear all;
+clc

+//initialisation of variables

+e=30*10^2//lbf/in^2

+b=15//in

+t=50//percent

+p=1.5//in

+v=6//in

+h=2240//lbf

+I=0.0038//in

+//CALCULATIONS

+W=1/2*v*I//in tonf

+w1=W*p//in tonf

+T=sqrt((v^2*h)/(2*%pi/4*e))/((b)/(p)^2/(1)^2)*10//in

+//RESULTS

+printf('the total energy in the bar=% f in',T)

diff --git a/3647/CH6/EX6.9/ex6_9.sce b/3647/CH6/EX6.9/ex6_9.sce
new file mode 100644
index 000000000..43fe6f4be
--- /dev/null
+++ b/3647/CH6/EX6.9/ex6_9.sce
@@ -0,0 +1,27 @@
+//Solutions to Problems In applied mechanics
+//A N Gobby
+clear all;
+clc

+//initialisation of variables

+clear

+E=13400//tonf/in^2

+E1=5600//tonf/in^2

+h=7//tonf/in^2

+h1=3.5//tonf/in^2

+w=1.5//ij

+l=5//tonf

+A=%pi/4*1^2//in^2

+A1=%pi/4*(w^2-1^2)//in^2

+s=1.91//tonf

+t=0.787//in

+pg=1.72//tonf

+//CALCULATIONS\

+m=h*t//tonf

+p=m/s//tonf

+g=p/A1//tonf/in^2

+m1=m+p//tonf

+S=pg/A1//tonf/in^2

+Ps=pg*s//tonf

+S1=Ps/t//tonf/in^2

+//RESULTS

+printf('the stress in the steel=% f tonf/in^2',S1)