summaryrefslogtreecommitdiff
path: root/3819/CH1/EX1.32/Ex1_32.sce
blob: bdc9c1d1df8a4ec611c1953661bc385078f03d99 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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)