1 files changed, 42 insertions, 0 deletions
diff --git a/2921/CH13/EX13.5/Ex13_5.sce b/2921/CH13/EX13.5/Ex13_5.sce
new file mode 100755
index 000000000..4d5f6d9fa
--- /dev/null
+++ b/2921/CH13/EX13.5/Ex13_5.sce
@@ -0,0 +1,42 @@
+clc;
+clear;
+mprintf('MACHINE DESIGN \n Timothy H. Wentzell, P.E. \n EXAMPLE-13.5 Page No.292\n');
+
+//Normal circular pitch
+Pc=0.524;
+LA=4.77*%pi/180;
+Pcn=Pc*cos(LA);
+
+mprintf('\n Normal circular pitch = %f in.',Pcn);
+
+//Force transmitted
+hp=5;
+n=29.2;
+T=63000*hp/n;
+Dp=10;
+Ft=2*T/Dp;
+
+mprintf('\n Force transmitted = %f lb.',Ft);
+
+Vm=%pi*Dp*n/12;
+
+//Dynamic load
+Fd=(1200+Vm)*Ft/1200;
+
+mprintf('\n Dynamic load = %f lb.',Fd);
+
+//Force allowable
+Su=95*10^3;
+Y=0.392;
+b=1;
+Sn=0.5*Su;
+Fs=Sn*Y*b*Pcn/%pi;
+
+mprintf('\n Force allowable = %f lb.',Fs);
+
+//Safty factor
+Nsf=Fs/Fd;
+
+mprintf('\n Safty factor = %f .',Nsf);
+
+//Note-There is an error in the answer given in textbook