Creating A Camber Plot Using Mathematica

The NACA airfoils are some of the most common airfoils used in smaller lightweight airplanes. Below is a short bit of Mathematica code to draw the airfoils. It is very useful presentation purposes and can save a lot of time manually plotting the curves.

a = .6;
cli = .6;
g = (- 1/(1-a))(a^2(.5 Log(a)-.25)+.25);
h = 1/(1 - a) (.5*(1 - a)^2*Log[1 - a] - .25 (1 - a)^2) + g;
Yc = cli/(
   2*\[Pi]*(a + 1))*(1/(
      1 - a)*(.5*(a - x)^2 Log[Abs[a - x]] - .5*(1 - x)^2*
         Log[1 - x] + .25*(1 - x)^2 - .25*(a - x)^2) - x*Log[x] + g - 
     h*x);

Plot[Yc, {x, 0, 1}]

Leave a Reply

Your email address will not be published.