initial commit / add all books

1 files changed, 39 insertions, 0 deletions

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);