Interference Patterns

Manipulate[Graphics[{Thickness[.0125],Table[Circle[c1,r],{r,.1,3 (Sqrt[2]),.1}],Table[Circle[c2,r],{r,.1,3 (Sqrt[2]),.1}]},PlotRange->1.5,ImageSize->{400,400}],{{c1,{-1,0}},{-1.5,-1.5},{1.5,1.5},ControlType->Locator},{{c2,{1,0}},{-1.5,-1.5},{1.5,1.5},ControlType->Locator}]

CAPTION

A simple model of interference: drag the centers of the two sets of superimposed concentric rings to see wonderful patterns. Printing the rings on two clear plastic sheets lets you slide the one over the other to see the patterns.

THIS NOTEBOOK IS THE SOURCE CODE FROM

"Interference Patterns" from the Wolfram Demonstrations Project
 http://demonstrations.wolfram.com/InterferencePatterns/

Contributed by: Enrique Zeleny

A full-function Wolfram Mathematica system (Version 6 or higher) is required to edit this notebook.
GET WOLFRAM MATHEMATICA »

© Wolfram Demonstrations Project & Contributors   |   Terms of Use   |   Make a new version of this Demonstration »