blob: 65bd400669db60627a9989276bf9fed377a2b5d3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
// A Textbook of Fluid Mecahnics and Hydraulic Machines - By R K Bansal
// Chapter 1-Properties of Fluid
// Problem 1.7
//Given Data Set in the Problem
Area=0.8*0.8
theta=%pi/6
W=300
du=0.3
dy=1.5/1000
//Calculations
W_alongPlane=W*cos(%pi/2-theta)
Shear_Force=W_alongPlane
ss=Shear_Force/Area
visc=ss/(du/dy) //Shear Stress+Viscosity * Velocity Gradient
mprintf("The Dynamic Viscosity of the Oil is %f poise",visc*10)
|
