1 files changed, 24 insertions, 0 deletions
diff --git a/3819/CH1/EX1.32/Ex1_32.sce b/3819/CH1/EX1.32/Ex1_32.sce
new file mode 100644
index 000000000..bdc9c1d1d
--- /dev/null
+++ b/3819/CH1/EX1.32/Ex1_32.sce
@@ -0,0 +1,24 @@
+// A Textbook of Fluid Mecahnics and Hydraulic Machines - By R K Bansal
+// Chapter 1-Properties of Fluid
+// Problem 1.32
+
+//Given Data Set in the Problem
+visc=5/10
+D=0.5
+N=200
+L=100/10^3
+t=1*10^-3
+
+//Calculations
+//Using , tangential velocity=(pi*D*N)/60
+u_tang=%pi*D*N/60
+du=u_tang-0
+dy=t
+du_dy=du/dy
+ss=visc*(du_dy)                 //Shear stress =viscosity*Velocity gradient
+Area=%pi*D*L
+F_shear=ss*Area
+T=F_shear*D/2                    //Torque=Shear force*D/2
+Power_lost=T*(2*%pi*N/60)        //Power lost =Torque*(2*pi*N/60)
+mprintf("ThePower lost by the sleeve of 100m in oil is %f kW",Power_lost*10^-3)
+