initial commit / add all books

4 files changed, 151 insertions, 0 deletions

diff --git a/2921/CH14/EX14.1/Ex14_1.sce b/2921/CH14/EX14.1/Ex14_1.sce
new file mode 100755
index 000000000..25851493f
--- /dev/null
+++ b/2921/CH14/EX14.1/Ex14_1.sce
@@ -0,0 +1,42 @@
+clc;
+clear;
+mprintf('MACHINE DESIGN \n Timothy H. Wentzell, P.E. \n EXAMPLE-14.1 Page No.306\n');
+
+//Torque on small pulley
+hp=2;
+n=2450;
+T=63000*hp/n;
+
+mprintf('\n Torque on small pulley = %f in-lb.',T);
+r=6/2;
+Fd=T/r;
+
+//Front force
+Fb=10;
+Ff=Fd+Fb;
+
+mprintf('\n Front force = %f lb.',Ff);
+
+//Force pulling the shafts
+Ft=Ff+Fb
+
+mprintf('\n Force pulling the shafts = %f lb.',Ft);
+
+//Surface speed
+D=2*r;
+Vm=%pi*D*n/12;
+
+mprintf('\n Surface speed = %f ft/min.',Vm);
+
+//Ratio
+D2=10;
+Mw=D2/D;
+
+mprintf('\n Ratio = %f .',Mw);
+
+//Output speed
+no=n/Mw;
+
+mprintf('\n Output speed = %f rpm.',no);
+
+//Note-There is an error in the answer given in textbook
diff --git a/2921/CH14/EX14.2/Ex14_2.sce b/2921/CH14/EX14.2/Ex14_2.sce
new file mode 100755
index 000000000..465ddf592
--- /dev/null
+++ b/2921/CH14/EX14.2/Ex14_2.sce
@@ -0,0 +1,39 @@
+clc;
+clear;
+mprintf('MACHINE DESIGN \n Timothy H. Wentzell, P.E. \n EXAMPLE-14.2 Page No.310\n');
+
+//Length of belt
+C=19;
+D1=4;
+D2=6;
+
+L1=2*C+1.57*(D1+D2)+(D2-D1)^2/(4*C);
+
+//Assuming a 54-inch belt is available
+L=54;
+
+mprintf('\n Length of belt = %f in.',L);
+
+//Centerline distance
+B=4*L-6.28*(D2+D1);
+
+C=(B+sqrt(B^2-32*(D2-D1)^2))/16;
+
+mprintf('\n Centerline distance = %f in.',C);
+
+//Ratio
+Mw=D2/D1;
+
+mprintf('\n Ratio = %f.',Mw);
+
+//Surface speed
+n=1800;
+Vm=%pi*D1*n/12;
+
+mprintf('\n Surface speed = %f ft/min.',Vm);
+
+//Angle of contact
+
+theta=180-2*(180/%pi)*asin((D2-D1)/(2*C));
+
+mprintf('\n Angle of contact = %f deg.',theta);
diff --git a/2921/CH14/EX14.3/Ex14_3.sce b/2921/CH14/EX14.3/Ex14_3.sce
new file mode 100755
index 000000000..c4921112e
--- /dev/null
+++ b/2921/CH14/EX14.3/Ex14_3.sce
@@ -0,0 +1,22 @@
+clc;
+clear;
+mprintf('MACHINE DESIGN \n Timothy H. Wentzell, P.E. \n EXAMPLE-14.3 Page No.315\n');
+
+//Power rating of belt
+P1=27+2.98;
+SF=1.5;
+P=P1/SF;
+P=round(P);
+
+mprintf('\n Power rating = %f hp.',P);
+
+//Length of belt
+C=20;
+D1=8;
+D2=16;
+L1=2*C+1.57*(D1+D2)+(D2-D1)^2/(4*C);
+
+//Use an 80-inch belt
+L=80;
+
+mprintf('\n Length of belt = %f in.',L);
diff --git a/2921/CH14/EX14.4/Ex14_4.sce b/2921/CH14/EX14.4/Ex14_4.sce
new file mode 100755
index 000000000..6522ab95d
--- /dev/null
+++ b/2921/CH14/EX14.4/Ex14_4.sce
@@ -0,0 +1,48 @@
+clc;
+clear;
+mprintf('MACHINE DESIGN \n Timothy H. Wentzell, P.E. \n EXAMPLE-14.4 Page No.321\n');
+
+P=5.31;
+
+mprintf('\n Horsepower rating = %f hp.',P);
+
+Nti=12;
+N1=1800;
+N2=900;
+
+//Output sprocket
+Nto=(N1/N2)*Nti;
+
+mprintf('\n Number of tooth on output sprocket = %f.',Nto);
+
+//Surface speed
+Pc=0.5;
+D1=Pc*Nti/%pi;
+n=1800;
+Vm=%pi*D1*n/12;
+
+mprintf('\n Surface speed = %f ft/min.',Vm);
+
+mprintf('\n Type of lubrication - Bath or disc lubrication');
+
+//Length of chain
+C=10;
+D2=Pc*Nto/%pi;
+
+L1=2*C+1.57*(D1+D2)+(D2-D1)^2/(4*C);
+
+//Use 29 or 30 inch chain
+
+L=30;
+
+mprintf('\n Length of chain = %f in.', L);
+
+hp=5.31;
+
+T=63000*hp/n;
+
+F=2*T/D1;
+
+mprintf('\n Force in chain = %f lb.',F);
+
+//Comparism with ultimate strength 3700 lb - not a valid comparison because of speed etc.