summaryrefslogtreecommitdiff
path: root/2921/CH5/EX5.2/Ex5_2.sce
diff options
context:
space:
mode:
Diffstat (limited to '2921/CH5/EX5.2/Ex5_2.sce')
-rwxr-xr-x2921/CH5/EX5.2/Ex5_2.sce30
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);