diff options
Diffstat (limited to '2921/CH5/EX5.2/Ex5_2.sce')
-rwxr-xr-x | 2921/CH5/EX5.2/Ex5_2.sce | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/2921/CH5/EX5.2/Ex5_2.sce b/2921/CH5/EX5.2/Ex5_2.sce new file mode 100755 index 000000000..3f7c59791 --- /dev/null +++ b/2921/CH5/EX5.2/Ex5_2.sce @@ -0,0 +1,30 @@ +clc; +clear; +mprintf('MACHINE DESIGN \n Timothy H. Wentzell, P.E. \n EXAMPLE-5.2 Page No.95\n'); + +Su=90000; //[lb/in^2] Ultimate strength (Appendix 8) +Sy=37000; //[lb/in^2] Yield strength (Appendix 8) +Sni=34000; //[lb/in^2] Endurance limit (Appendix 8) +SF=1.6; //[] Safety factor + +F=1000; //[lb] Load +L=12; //[in] Length of cantilever beam + +Mmax=F*L; //[lb*in] Maximum bending moment +Mmin=0; //[lb*in] Minimum bending moment + +Csize=0.85 //[] Assuming 0.5<D<2 in +Ctype=1; //[] Bending stress +Csurface=1; //[] As surface is polished + +Malt=(Mmax-Mmin)/2; //[lb*in] Alternating bending moment + +Mmean=(Mmax+Mmin)/2; //[lb*in] Mean bending moment + +Sn=Csize*Csurface*Ctype*Sni; //[lb/in^2] Modified endurance limit + +Z=((Mmean/Sy)+(Malt/Sn))*SF; //[in^3] Section modulus + +D=(32*(Z)/%pi)^(1/3); //[in] Diameter of bar + +mprintf('\n The required diameter of bar using the soderberg method is %f in.',D); |