25 lines
478 B
Matlab
Executable File
25 lines
478 B
Matlab
Executable File
%ascorrea
|
|
|
|
|
|
AR=input('AR:');
|
|
M=input('Mach:');
|
|
clalpha=input('Cl alpha:');
|
|
sweep=input('Sweep at Max Thickness:');
|
|
sex=input('S exposed:');
|
|
sref=input('S reference:');
|
|
doverb=input('Finesse Ratio:');
|
|
|
|
|
|
betasquared=1-M^2;
|
|
beta=sqrt(betasquared);
|
|
eta=clalpha/(2*pi/beta);
|
|
numer=2*pi*AR;
|
|
denom1=(AR^2*beta^2)/eta^2;
|
|
denom2=(tand(sweep)^2/betasquared);
|
|
denom=2+sqrt(4+denom1*(1+denom2));
|
|
F=1.07*(1+doverb)^2;
|
|
|
|
cLalpha=(numer/denom)*(sex/sref)*F;
|
|
|
|
fprintf('CLalpha= %f\n', cLalpha);
|