1 files changed, 22 insertions, 0 deletions
diff --git a/650/CH3/EX3.19/19.sce b/650/CH3/EX3.19/19.sce
new file mode 100755
index 000000000..d69cb1ea1
--- /dev/null
+++ b/650/CH3/EX3.19/19.sce
@@ -0,0 +1,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");
+\ No newline at end of file