1 files changed, 17 insertions, 0 deletions
diff --git a/650/CH3/EX3.18/18.sce b/650/CH3/EX3.18/18.sce
new file mode 100755
index 000000000..4f25db397
--- /dev/null
+++ b/650/CH3/EX3.18/18.sce
@@ -0,0 +1,17 @@
+clc
+N=600/60; // revolutions per sec 
+r=0.025; // m 
+t=400; // N/m^2
+l=0.002; // m
+
+w=2*%pi*N;
+
+u=t*l/w/r;
+disp("Viscosity =")
+disp(u)
+disp("Ns/m^2")
+
+T=integrate('2*%pi*u*w/l*r^3', 'r', 0, r);
+disp("Torque =")
+disp(T)
+disp("Nm")
+\ No newline at end of file