blob: 53359286ef5352079f0edce36bf9855a910c3a33 (
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
25
|
// Display mode
mode(0);
// Display warning for floating point exception
ieee(1);
clc;
disp("Principles of Heat Transfer, 7th Ed. Frank Kreith et. al Chapter - 4 Example # 4.2 ")
disp("The given example is theoretical and does not involve any numerical computation")
// Local shear stress is given as:
// tau=0.3*((rho*mu/x)^0.5)*(Uinfinity^1.5)
// Using Local friction coefficient = local shear stress /
// (0.5*rho*Uinfinity*Uinfinity), we get local friction coefficient as:
//disp("Cfx = 0.6/((ReL*xstar))^0.5")
//Integrating the local value of shear stress over length L and dividing by
//area i.e. A=L*1, we get average friction coefficient as:
//disp("Cfbar = 1.2/(ReL^0.5)")
|
