summaryrefslogtreecommitdiff
path: root/2921/CH17/EX17.4/Ex17_4.sce
blob: ba28e5e9f4c2a8c822d2da443557aed96c29a5b0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
clc;
clear;
mprintf('MACHINE DESIGN \n Timothy H. Wentzell, P.E. \n EXAMPLE-17.4 Page No.385\n');

//Modifying factors for Sn
Su=88000;
Csize=0.85;
Csurface=0.88;
Ctype=1;

Sn=Csize*Csurface*Ctype*(0.5*Su);
Kt=2.3;
S=9300;

N=Sn/(Kt*S);

if N>2 then
    mprintf('\n It would be an acceptable design.');
else
    mprintf('\n N<2,So this is not a suitable design for long term use.');
end