1 files changed, 22 insertions, 0 deletions
diff --git a/1187/CH6/EX6.7/7.sce b/1187/CH6/EX6.7/7.sce
new file mode 100755
index 000000000..34b9647d5
--- /dev/null
+++ b/1187/CH6/EX6.7/7.sce
@@ -0,0 +1,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")
+\ No newline at end of file