blob: b00b8e7ea57b162dcd0bbc083241dad5b2b5e929 (
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
26
27
28
29
30
31
32
33
|
clc;
clear;
mprintf('MACHINE DESIGN \n Timothy H. Wentzell, P.E. \n EXAMPLE-16.5 Page No.365\n');
W=3500;
V=73;
g=32.2;
V=50*5280/3600;
V=round(V);
//Kinetic energy to be absorbed
KE=W*V^2/(2*g);
mprintf('\n Kinetic energy to be absorbed = %f ft-lb.',KE);
//Temperature rise
Uf=KE;
Wb=40;
c=93;
deltaT=Uf/(Wb*c);
mprintf('\n Temperature rise = %f deg.',deltaT);
//Stopping time
a=20;
t=V/a;
mprintf('\n Stopping time = %f sec.',t);
//Frictional power
t=round(t*10)/10;
fhp=Uf/(550*t);
mprintf('\n Frictional power = %f hp.',fhp)
|
