summaryrefslogtreecommitdiff
path: root/2921/CH16/EX16.2/Ex16_2.sce
blob: d694e5192956b1edf46bbdf3ce19674ac1dd75f7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
clc;
clear;
mprintf('MACHINE DESIGN \n Timothy H. Wentzell, P.E. \n EXAMPLE-16.2 Page No.359\n');

//Normal force
W=100;
L=20;
a=4;
N=(W*L)/a;

mprintf('\n Normal force = %f lb.',N);

//Torque friction
f=0.4;
D=12;
Tf=f*N*D/2;

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