example 9.6    Mapping by w=z+1/z Joukowski airfoil  p.217

w = 
        z + 1/z /. 
          z ->  
            a + I b + r Exp[I θ];
u = Re[w]
v = Im[w]

tabr = {1/3, 1/2, 1, 2, 3}

rn = 
        Table[{u, v} /. {a ->  0, b ->  0} /. 
            r -> tabr[[n]], {n, 5}];

zuall = 
      Table[ParametricPlot[Evaluate[rn[[n]]], {θ, 0, 2 Pi}, 
          PlotRange ->  {{-4, 4}, {-4, 4}}, 
          AspectRatio ->  Automatic, PlotStyle ->  Hue[0.9]], {n, 
          5}]

zu1 = Show[zuall]

off center mapping for drawing a blade

pp = {u, v} /. {a -> - 0.5 , b ->  0.5 }  /. 
          r -> (Sqrt[10])/2 ;

zu2 = 
      ParametricPlot[Evaluate[pp], {θ, 0, 2 Pi}, 
        PlotRange ->  {{-4, 4}, {-4, 4}}, 
        AspectRatio ->  0.3, PlotStyle ->  Hue[0.7]]

Show[zu2, zu1]