summaryrefslogtreecommitdiff
path: root/1586/CH7/EX7.11/EXP7_11.sce
blob: 2cc8eb466a39d6ba3efc305f9f7a2e901a8321c4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
clc;funcprot(0);//EXAMPLE 7.11
// Initialisation of Variables
N=5.256*10^5;......//No. of cycles that the shaft will  experience in one year
F=12500;.........//applied load  on shaft in lb
L=96;...........//Length of Kliin produced from tool steel in in.
sigma1=72000;...........//the applied stress on Shaft
f=2;............//Factor of saftey of shaft
sigma2=sigma1/f;......//the maximum allowed stress level
//CALCULATIONS
d1=(16*F*L/(sigma1*%pi))^(1/3);..........//The Diameter of Shaft in in.
d2=(16*F*L/(sigma2*%pi))^(1/3);.......//The minimum diameter required to prevent failure
disp(d1,"The Diameter of Shaft in in.:")
disp(d2,"The minimum diameter required to prevent failure in in.:")