summaryrefslogtreecommitdiff
path: root/689/CH10/EX10.2/2.sce
blob: 0963a4df75b4256fa70e0613486e8d6fba504f07 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
clc; funcprot(0);
//Example 10.2 Horse Power Required for Induce Drag

// Initialisation of variables
W = 2000;
b = 38;
alt = 10000;
V = 80*1.467;

// Calculations
Di = (363*(W/b)^2)/V^2
HP_Di = Di*V/550;

//Results 
disp(HP_Di,"Horse power required to overcome induced drag (HP) :");