Huygens's Principle

Manipulate[Graphics[{Thickness[.005],If[pattern=="plane",Table[{ColorData["SouthwestColors"][((n+Mod[t,2])/10)],Circle[{x,0},n+Mod[t,2]]},{n,0,t,2},{x,0,2sources-2,2}],Table[{ColorData["SouthwestColors"][((n+Mod[t,2])/10)],Circle[{Cos[(x+1)π/(2sources)],Sin[(x+1)π/(2sources)]},n+Mod[t,2]]},{n,0,t,2},{x,0,2sources-2,2}]]},PlotRange->{If[pattern=="plane",{-5,2sources-2+5},{-2sources+2-.5,2sources-2+.5}],{-.5,2sources+.5}},ImageSize->{500,350}],{{t,8.15,"time"},0,20},{{sources,5},1,10,1,Appearance->"Labeled"},
{pattern,{"plane","circular"}}]

CAPTION

The Huygens principle states that every point of a wave front at any instant may be considered a source of spherical secondary wavelets with a speed equal to the speed of the the overall wave. Basic wave phenomena like refraction and diffraction can be explained using this principle.

THIS NOTEBOOK IS THE SOURCE CODE FROM

"Huygens's Principle" from the Wolfram Demonstrations Project
 http://demonstrations.wolfram.com/HuygenssPrinciple/

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 »