summaryrefslogtreecommitdiff
path: root/689/CH8/EX8.4/4.sce
blob: fd1f4d42acb358e46dfeed4595580201ff402154 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
clc; funcprot(0);
//Example 8.4  Power Required by Wing 

// Initialisation of variables
S = 350;
V = 80;
alpha = 6;
Cd = 0.0452;        // Value of Cd from fig 8.8
rho = 0.002378;

// Calculations
D = Cd*rho/2*S*V^2;
HP = D*V/550;

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