summaryrefslogtreecommitdiff
path: root/689/CH10/EX10.1/1.sce
blob: b1d78f6841214e49c4f1852e0f4cf5e1e8ba9707 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
clc; funcprot(0);
//Example 10.1 Induced Drag

// Initialisation of variables
S = 39;
C = 6;
Cl = 0.8;

// Calculations
AR = S/C;
alpha_i = 18.24*Cl/AR;
Cd_i = Cl^2/(%pi*AR);
 
//Results 
disp(Cd_i,"Induced drag coefficient :", alpha_i, "Induced angle of attack (degree) :");