summaryrefslogtreecommitdiff
path: root/2921/CH18/EX18.1/Ex18_1.sce
blob: a08dd93d6fd2c865d08821e9fea5a1d5680cfdfb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
clc;
clear;
mprintf('MACHINE DESIGN \n Timothy H. Wentzell, P.E. \n EXAMPLE-18.1 Page No.399\n');

//Torque
Dp=(1.5+1.208)/2;
F=5800;
L=1/3;
f=0.15;

Tup=(F*Dp/4)*(L+%pi*f*Dp)/(%pi*Dp-f*L);

mprintf('\n Torque up = %f in-lb.',Tup);