function[Cl]=BuscaFoil(x,alpha)

nc = 25;
digit = [x 12];
[xy,x,yt,yc]=NACA4Digits(digit,nc);

xy = [x(:) yc(:)];

[Cl,Cm0,xv,gamma,dCp]=LumpedVortex(xy,alpha);