summaryrefslogtreecommitdiff
path: root/689/CH8/EX8.10/10.sce
blob: 2f358741df7cb9e87f58838758cd6f7118098b53 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
clc; funcprot(0);
//Example 8.10  Polar Curves

// Initialisation of variables
W = 2000;
S = 180;
V = 120*1.467;
rho = 0.002378;

// Calculations
Cl = 2*(W/S)/(rho*V^2);
Cd = 0.019 ;     //From fig 8.19
LbyD = Cl/Cd;
L = W;         // for level flight lift = weight
D = L/LbyD;
HP = D*V/550;

//Results 
disp(HP,"Horse power required to move the wing forward(hp) :");