summaryrefslogtreecommitdiff
path: root/689/CH10/EX10.4/4.sce
blob: 7b0e9e14aa4683f171dbe57793d19976f03e77f0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
clc; funcprot(0);
//Example 10.4 Coefficient for infinite aspect ratio

// Initialisation of variables
Cl0 = 1.03;
alp0 = 9;
Cd0 = 0.067;
Cl8 = 1.03;
AR8 = 8;

// Calculations
alpi = 18.24*Cl0/AR8
Cdi = Cl0^2/(%pi*AR8)
alp = alp0 +alpi;
Cd =Cd0 +Cdi;

//Results 
disp(Cd,"Drag Coefficient at aspect ratio 8 :", alp,"Angle of attack for aspect ratio 8 (Degree):" );