5 files changed, 86 insertions, 0 deletions
diff --git a/3594/CH14/EX14.1/Ex14_1.sce b/3594/CH14/EX14.1/Ex14_1.sce
new file mode 100644
index 000000000..73ef03a49
--- /dev/null
+++ b/3594/CH14/EX14.1/Ex14_1.sce
@@ -0,0 +1,18 @@
+
+clc
+//given
+W=200//lb
+r=9//in
+b1=15//in
+bm=b1
+l=10//in
+d=50//in
+//case a
+ma=d+l
+Bm1=W*r*l/(d*bm)//From 14.2
+B11=W*r*ma/(d*b1)//from 14.3
+//case b
+mb=d-l
+Bm2=W*r*l/(d*bm)//from 14.2
+B12=W*r*mb/(d*b1)//from 14.3
+printf("\na) Bm= %.f lb ; B1= %.f lb\nb) Bm= %.f lb ; B1= %.f lb",Bm1,B11,Bm2,B12)
diff --git a/3594/CH14/EX14.12/Ex14_12.sce b/3594/CH14/EX14.12/Ex14_12.sce
new file mode 100644
index 000000000..e96b4f3a9
--- /dev/null
+++ b/3594/CH14/EX14.12/Ex14_12.sce
@@ -0,0 +1,15 @@
+
+clc
+//given
+N=1500 //rpm
+R=4//lb
+g=32.2//ft/s^2
+w=%pi*N/30
+stroke=5//in
+r=stroke/2
+l=9//in
+b=3.5//in
+B=(3/2)*R*r/b//primary force
+n=l/r
+F=(3/2)*R*w^2*r/(g*12*n)//secondary force
+printf("\nResultant primary force = %.2f lb\nResultant secondary force = %.f lb",B,F)
diff --git a/3594/CH14/EX14.13/Ex14_13.sce b/3594/CH14/EX14.13/Ex14_13.sce
new file mode 100644
index 000000000..57d21a77b
--- /dev/null
+++ b/3594/CH14/EX14.13/Ex14_13.sce
@@ -0,0 +1,17 @@
+
+clc
+//given
+g=32.2//ft/s^2
+n=2000//rpm
+R=6//lb
+r=3//in
+L=11//in
+w=%pi*n/30
+n=L/r
+//minimum secondary force
+F1=2*R*w^2*r/(g*n*12)
+a=floor(F1)
+//maximum secondary force
+F2=6*R*w^2*r/(g*n*12)
+b=floor(F2)
+printf("\nMinimum secondary force = %.f lb\nMaximum secondary force = %.f lb",a,b)
diff --git a/3594/CH14/EX14.2/Ex14_2.sce b/3594/CH14/EX14.2/Ex14_2.sce
new file mode 100644
index 000000000..7b052f462
--- /dev/null
+++ b/3594/CH14/EX14.2/Ex14_2.sce
@@ -0,0 +1,21 @@
+
+clc
+//given
+Wa=200//lb
+Wb=300//lb
+Wc=240//lb
+W1=260//lb
+ra=9//in
+rb=7//in
+rc=10//in
+r1=12//in
+R=24//in
+alpha=45*%pi/180
+bita=75*%pi/180
+gama=135*%pi/180
+Hb=Wa*ra+Wb*rb*cos(alpha)-Wc*rc*cos(gama-bita)-W1*r1*cos(bita)//horizontal component after resolving
+Vb=Wb*rb*sin(alpha)+Wc*rc*sin(gama-bita)-W1*r1*sin(bita)//vertical component after resolving
+Bb=(Hb^2+Vb^2)^(1/2)
+B=Bb/R
+theta=atand(Vb/Hb)
+printf("\nBalance weight required = %.1f lb\ntheta = %.2f degrees",B,theta)
diff --git a/3594/CH14/EX14.5/Ex14_5.sce b/3594/CH14/EX14.5/Ex14_5.sce
new file mode 100644
index 000000000..50737c8f1
--- /dev/null
+++ b/3594/CH14/EX14.5/Ex14_5.sce
@@ -0,0 +1,15 @@
+clc
+//given
+W=180//lb
+R=150//lb
+c=.5;
+g = 9.81;
+N=300//rpm
+r=7.5/12//ft
+Bb=(W+c*R)*r*12
+b=6//in
+B=Bb/b
+w=(%pi*N)/30
+Uf=(1/2)*(R/g)*w^2*r
+a=floor(Uf)
+printf("Balance weight required = %.1f lb\n The resultant unbalanced force = %.f lb\n",B,a)
+\ No newline at end of file