summaryrefslogtreecommitdiff
path: root/650/CH3/EX3.19/19.sce
blob: d69cb1ea19b84de2d8e7b5cbce5c511ac9dbd267 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
clc;
u=0.153; //Ns/m^2
r=0.05; // m
N=30; // rps
t=2/10^5; //s
L=0.2; // m

tau=u*(2*%pi*N*r/t);

F=tau*2*%pi*r*L;

T=F*r;

w=2*%pi*N;
P=T*w;
 
disp("The torque on the bearing is found to be ");
disp(T);
disp("Nm");
disp("and the power required to overcome the frictional resistance is ");
disp(P);
disp("W");