3821/CH7/EX7.9/Example7_9.sce


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

///Chapter No 7 Fluid Mechanics
///Example 7.9 Page No 118
///Find Tangential speed of shaft
//Input data 
clc;
clear;
mu=0.1;                 //Oil of viscosity used for lubricant in poise or Ns/m**2
D=0.15;                 //Clearance between the shaft of diameter in m
dy=3*10^-4;            //Clearance in m
N=90;                   //Shaft rorates in rpm
pi=3.14;


///Calculation
du=(pi*D*N)/60;       //Tangential speed of shaft in m/s
tau=mu*(du/dy);       //The shear force in N/m**2

///Output
printf('Tangential speed of shaft=%f m/s \n ',du);
printf('The shear force= %f  N/m^2 \n ',tau);