initial commit / add all books

7 files changed, 227 insertions, 0 deletions

diff --git a/2921/CH13/EX13.1/Ex13_1.sce b/2921/CH13/EX13.1/Ex13_1.sce
new file mode 100755
index 000000000..5ff997cdd
--- /dev/null
+++ b/2921/CH13/EX13.1/Ex13_1.sce
@@ -0,0 +1,31 @@
+clc;
+clear;
+mprintf('MACHINE DESIGN \n Timothy H. Wentzell, P.E. \n EXAMPLE-13.1 Page No.280\n');
+
+//Pitch-line velocity
+Nt=24;
+Pd=12;
+Dp=Nt/Pd;
+n=1750;
+Vm=%pi*Dp*n/12;
+
+mprintf('\n Pitch-line velocity = %f ft/min.',Vm);
+
+//Transmitted force
+hp=5;
+Ft=33000*hp/Vm;
+
+mprintf('\n Transmitted force = %f lb.',Ft);
+
+//Axial force
+psi=15*%pi/180;
+Fa=Ft*tan(psi);
+
+mprintf('\n Axial force = %f lb.',Fa);
+
+//Separating force
+theta=20*%pi/180;
+psit=atan(tan(theta)/cos(psi));
+Fn=Ft*tan(psit);
+
+mprintf('\n Separating force = %f lb.',Fn);
diff --git a/2921/CH13/EX13.2/Ex13_2.sce b/2921/CH13/EX13.2/Ex13_2.sce
new file mode 100755
index 000000000..6beca29b7
--- /dev/null
+++ b/2921/CH13/EX13.2/Ex13_2.sce
@@ -0,0 +1,35 @@
+clc;
+clear;
+mprintf('MACHINE DESIGN \n Timothy H. Wentzell, P.E. \n EXAMPLE-13.2 Page No.282\n');
+
+//Normal plane pitch
+Pd=16;
+psi=45*%pi/180;
+Pdn=Pd/cos(psi);
+
+mprintf('\n Normal plane pitch = %f in.',Pdn);
+
+N=24;
+S=30000;
+b=0.5;
+Ne=N/cos(psi)^3;
+Y=0.427;
+Fs=S*b*Y/Pdn;
+
+mprintf('\n Allowable force = %f lb.',Fs);
+
+Dp=24/16;
+n=600;
+Vm=%pi*Dp*n/12;
+
+mprintf('\n Surface speed = %f ft/min.',Vm);
+
+Ft=Fs/((600+Vm)/600);
+
+mprintf('\n Force transmitted = %f lb.',Ft);
+
+P=Ft*Vm/33000;
+
+mprintf('\n Power rating = %f hp.',P);
+
+//Note-There is an error in the answer given in textbook
diff --git a/2921/CH13/EX13.3/Ex13_3.sce b/2921/CH13/EX13.3/Ex13_3.sce
new file mode 100755
index 000000000..9f5096f42
--- /dev/null
+++ b/2921/CH13/EX13.3/Ex13_3.sce
@@ -0,0 +1,44 @@
+clc;
+clear;
+mprintf('MACHINE DESIGN \n Timothy H. Wentzell, P.E. \n EXAMPLE-13.3 Page No.286\n');
+
+Np=24;
+Ng=36;
+Pd=8;
+Yp=33.7*%pi/180;
+Yg=56.3*%pi/180;
+theta=14.5*%pi/180;
+
+//Pitch diameter
+Dp=Np/Pd;
+
+mprintf('\n Pitch diameter = %f in.',Dp);
+
+//Transmitted force
+n=2200;
+P=8;
+T=63000*P/n;
+
+Ft=2*T/Dp;
+
+mprintf('\n Transmitted force = %f lb.',Ft);
+
+//Separating force - Pinion
+Fnp=Ft*tan(theta)*cos(Yp);
+
+mprintf('\n Separating force-Pinion = %f lb.',Fnp);
+
+//Separating force-Gear
+Fng=Ft*tan(theta)*cos(Yg);
+
+mprintf('\n Separating force = %f lb.',Fng);
+
+//Axial force-Pinion
+Fap=Ft*tan(theta)*sin(Yp);
+
+mprintf('\n Axial force-Pinion= %f lb.',Fap);
+
+//Axial force-Gear
+Fag=Ft*tan(theta)*sin(Yg);
+
+mprintf('\n Axial force-Gear = %f lb.',Fag);
diff --git a/2921/CH13/EX13.4/Ex13_4.sce b/2921/CH13/EX13.4/Ex13_4.sce
new file mode 100755
index 000000000..d34c6ac06
--- /dev/null
+++ b/2921/CH13/EX13.4/Ex13_4.sce
@@ -0,0 +1,42 @@
+clc;
+clear;
+mprintf('MACHINE DESIGN \n Timothy H. Wentzell, P.E. \n EXAMPLE-13.4 Page No.288\n');
+
+//Pitch diameter
+Ng=60;
+Pd=6;
+Dp=Ng/Pd;
+
+mprintf('\n Pitch diameter = %f in.',Dp);
+
+//Circular pitch
+Pc=%pi*Dp/Ng;
+
+mprintf('\n Circular pitch = %f in.',Pc);
+
+L=Pc;
+
+//Lead angle
+D=2;
+LA=atan(L/(%pi*D));
+LA=LA*180/%pi;
+
+mprintf('\n Lead angle = %f deg.',LA);
+
+//Centerline distance
+CC=(D+Dp)/2;
+
+mprintf('\n Centerline distance = %f in.',CC);
+
+//Velocity ratio
+Ntgear=60;
+Nstarts_worm=1;
+Vr=Ntgear/Nstarts_worm;
+
+mprintf('\n Velocity ratio = %f',Vr);
+
+//Output speed
+nin=1750;
+nout=nin/Vr;
+
+mprintf('\n Output speed = %f rpm.',nout);
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
diff --git a/2921/CH13/EX13.6/Ex13_6.sce b/2921/CH13/EX13.6/Ex13_6.sce
new file mode 100755
index 000000000..7d1876b1a
--- /dev/null
+++ b/2921/CH13/EX13.6/Ex13_6.sce
@@ -0,0 +1,22 @@
+clc;
+clear;
+mprintf('MACHINE DESIGN \n Timothy H. Wentzell, P.E. \n EXAMPLE-13.6 Page No.294\n');
+
+//Efficiency
+LA=4.77*%pi/180;
+f=0.03;
+e=tan(LA)*(1-f*tan(LA))/(f+tan(LA));
+
+mprintf('\n Efficiency = %f .',e);
+
+//Torque input
+hp=5;
+n=1750;
+T=63000*hp/n;
+
+mprintf('\n Torque input = %f in-lb.',T);
+
+Vr=60;
+Tout=0.73*Vr*T;
+
+mprintf('\n Output torque = %f in-lb.',Tout);
diff --git a/2921/CH13/EX13.7/Ex13_7.sce b/2921/CH13/EX13.7/Ex13_7.sce
new file mode 100755
index 000000000..beb0e3326
--- /dev/null
+++ b/2921/CH13/EX13.7/Ex13_7.sce
@@ -0,0 +1,11 @@
+clc;
+clear;
+mprintf('MACHINE DESIGN \n Timothy H. Wentzell, P.E. \n EXAMPLE-13.7 Page No.296\n');
+
+hpin=5
+e=0.73;
+Q=(1-e)*hpin*2544;
+
+mprintf('\n Heat generated by system = %f Btu/hr.',Q);
+
+//Note-There is an error in the answer given in textbook