Wave interference

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

[Graphics:../HTMLFiles/MATH5_TUT_1_629.gif]

c2 = ParametricPlot[Evaluate[Table[{n Sin[t], n Cos[t]}, {n, 1, 40}]], {t, 0, 2 Pi}, Axes→False, AspectRatio→Automatic] ;

[Graphics:../HTMLFiles/MATH5_TUT_1_631.gif]

inter12 = Show[c1,c2]

[Graphics:../HTMLFiles/MATH5_TUT_1_632.gif]

-Graphics -

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

[Graphics:../HTMLFiles/MATH5_TUT_1_634.gif]

inter123 = Show[c1,c2,c3];

[Graphics:../HTMLFiles/MATH5_TUT_1_635.gif]

Created by Mathematica  (October 29, 2006) Valid XHTML 1.1!