blob: 8df6bc304c62221ffe9f9c94ecbc4b29154fe67f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
clc;
clear;
vis=0.04;//lb*sec/ft^2
vel=2;//ft/sec
h=0.2;//inches
//given u=(3*vel/2)(1-(y/h)^2)
//shearing stress t=vis*(du/dy)
//(du/dy)=-(3*vel*y/h)
//along the bottom of the wall y=-h
//(du/dy)=(3*vel/h)
t=vis*(3*vel/(h/12));//lb/ft^2
disp("lb/ft^2",t,"shaering stress t on bottom wall=")
//along the midplane y=0
//(du/dy)=0
t1=0;//lb/ft^2
disp("lb/ft^2",t1,"shearing stress t on midplane=")
|
