summaryrefslogtreecommitdiff
path: root/1187/CH6/EX6.7/7.sce
blob: 34b9647d5f97460b87f2e7dde7657b527b31a1b3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
clc

V=10; // m/s
h1=0.0005; // m
h2=0.00025; // m
L=0.1; // m
b=0.1; // m
RD=0.87;
u=2*10^-4; // m^2/s
rho_w=1000; // kg/m^3

H=h1/h2;

Q=V/2*(1+H^2)/(1+H^3)*b*h1;
disp("(b) Volumetric flow rate of oil =")
disp(Q)
disp("m^3/s")

F=V/2*(1-(1+H^2)/(1+H^3))*12*RD*rho_w*u/h1^2*L^2/4*b;
disp("The load supported by the bearing =")
disp(F)
disp("N")