blob: a17dceaa79fe16907c77dff13a18fc1b57544217 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
clc; funcprot(0);
//Example 5.4 Inclined Flat Plates
// Initialisation of variables
Cl = 0.73; // From Figure
Cd = 0.164; // From Figure
l = 12;
w = 2;
alpha = 12;
V = 50;
rho = 0.002378;
// Calculations
A = l*w;
L = (Cl*rho*A*V^2)/2;
D = (Cd*rho*A*V^2)/2;
R = sqrt(L^2+D^2);
//Results
disp(R,"Total Force (lb) :", D ,"Force Parallel to Airstream (lb):",L,"Force Parallel to Airstream (lb):");
|
