blob: 3f7c5979118abc5f1e3733a1175febbb7663bca3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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);
|
