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

// Initialisation of variables
CMo = -0.27;
alpha = 6;
Cl = 0.84;
Cd = 0.06;

// Calculations
CP_approx = -CMo/Cl;
CP_exact = -CMo/(Cl*cosd(alpha)+Cd*sind(alpha));

//Results 
disp(CP_exact*100,"Exact CP (%chord length) :",CP_approx*100,"Approximate CP (%chord length)");