summaryrefslogtreecommitdiff
path: root/557/CH12/EX12.1/1.sce
blob: 062e3e404af4a078cb041dc4b3884cb426d3adce (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
clc; funcprot(0);//Example 12.1 

//Initializing the variables
x =35;
T = 50;
m = 1;
g =9.81;
rho = 1.2;
A = 1.2;
U0 = 40*1000/3600; // Velocity in m/s

//Calculations
L = T*sind(x)+m*g;
D =T*cosd(x);
Cl = 2*L/(rho*U0^2*A);
Cd = 2*D/(rho*U0^2*A); 
disp(Cd,"Drag Coefficient :",Cl,"Lift Coefficient :");