reorganize file structure

archive/findcLalpha.m

@@ -0,0 +1,24 @@
+%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);