summaryrefslogtreecommitdiff
path: root/689/CH8/EX8.14/14.sce
blob: c2f85347f51b9b3a80b3d11821c925f23029c68b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
clc; funcprot(0);
//Example 8.14  Moment Coefficient and center of pressure

// Initialisation of variables
alpha = 2;
V = 120;
b = 42;
c = 7;
rho = 0.002378;

// Calculations
S = b*c;
Cl = 0.295;     //From fig 8.13
Cd = 0.0156;    //From fig 8.13
CP = .36;       //From fig 8.13
CMo = -CP*(Cl*cosd(alpha)+Cd*sind(alpha));
Mo = CMo*C*S*V^2*(rho/2);

//Results 
disp(Mo,"Moment about leading edge (ft-lb):");