summaryrefslogtreecommitdiff
path: root/3720/CH10/EX10.11/Ex10_11.sce
blob: 7d56fcd9d5c5896cb3c183f540353d7ec626682f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
// Example 10_11
clc;clear;funcprot(0);
//Given data
T=19;// °C
D=30/100;// Diameter in m
x=30/100;// Length of the tunnel in m 
V_b=4.0;// Velocity at beginning in m/s
nu=1.507*10^-5;// m^2/s

// Calculation
Re_x=(V_b*x)/nu;// Reynolds number
delta=((1.72*x)/(sqrt(Re_x)))*10^3;// The displacement thickness at the end of the test section in mm
R=D/2;// Radius of the tunnel in m
V_end=(V_b*(%pi*R^2))/(%pi*(R-(delta/1000))^2);// The average air speed at the end of the test section in m/s
printf('\nThe average air speed at the end of the test section=%0.2f m/s',V_end);