%% Função de Plota da asa
%
% A função utiliza o padrão adotado para definir a asa trapezoidal e gera a
% visualização.
%
function[]=PlotaAsa(y,c,alpha,m0,fig)

if nargin == 4
    figure
else
    figure(fig)
end

yy = linspace(min(y),max(y),50);

h1=subplot(4,1,[1 2]);

cc = interp1(y,c,yy,'linear');
le =  -cc/4;
te = 3*cc/4;

plot(yy,le,'b',yy,te,'k',yy,yy*0,'--');
ylabel('x')

h2=subplot(4,1,3);

plot(yy,interp1(y,alpha,yy,'linear'));
ylabel('Torcao')

h3=subplot(4,1,4);
plot(yy,interp1(y,m0,yy,'linear'));
ylabel('Cl_{\alpha}')