summaryrefslogtreecommitdiff
path: root/689/CH8/EX8.15/15.sce
blob: 49dab16ab4c33b03aa7640b40203631271b96d28 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
clc; funcprot(0);
//Example 8.15  Center of Pressure 

// Initialisation of variables
WbyS = 8;        //Wing Loading
V = 100*1.467;
CMo = -0.067;

// Calculations
Cl = (2*WbyS/(rho*V^2))
CM_qtrChrd = CMo;
CP =  0.25 - CM_qtrChrd/Cl;

//Results 
disp(CP*100,"Center of Pressure in % of chord length:");