Wave interference

c1 = ParametricPlot[Evaluate[Table[{3+n Sin[t],n Cos[t]},
                        {n,1,40}]
                       ],
               {t,0,2 Pi},Axes->False,
               AspectRatio->Automatic
              ];

inter12 = Show[c1,c2]

c3 = ParametricPlot[Evaluate[Table[{6+n Sin[t],n Cos[t]},
                        {n,1,40}]
                       ],
               {t,0,2 Pi},Axes->False,
               AspectRatio->Automatic
              ];

inter123 = Show[c1,c2,c3];

Created by Mathematica  (September 7, 2006)