Files
senior-design/archive/induceddrag.m
2010-04-17 12:00:00 -05:00

14 lines
285 B
Matlab
Executable File

%ascorrea
%calculates induced drag coefficient for LE sweep > 30 deg
c_L=input('Input c_L: ');
ar=input('Input aspect ratio: ');
sweep_LE=input('Input leading edge sweep (deg): ');
e=4.61*(1-.045*ar^.68)*cosd(sweep_LE)^.15-3.1;
cd_i=c_L^2/(pi*ar*e);
fprintf('cd_i: %f \n', cd_i);