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

// Initialisation of variables
slope = 0.09;
alp = 9;
AR = 6;

// Calculations
Cl = alp*slope/(1 + 18.24*slope/AR);

//Results 
disp(Cl,"Lift Coefficient for AR = 6 and alpha = 9 :" );