summaryrefslogtreecommitdiff
path: root/2921/CH15/EX15.2/Ex15_2.sce
blob: bf2070c967e4767cbd561496c06f6f45ced069b0 (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
clc;
clear;
mprintf('MACHINE DESIGN \n Timothy H. Wentzell, P.E. \n EXAMPLE-15.2 Page No.335\n');

//Torque capacity
Ss=30500;
D=1;
L=2;
T1=Ss*%pi*D^2*L/16;

SF=2;

T=T1/SF;

mprintf('\n Torque capacity 1 = %f in-lb.',T);
n=6;
d=0.81;
A=(D-d)*L*n/2;

S=1000;
rm=(1+0.810)/4;

T2=S*A*rm;

mprintf('\n Torque capacity 2 = %f in-lb.',T2);