Superposition of Waves

Manipulate[Grid[{{Plot[{Sin[freq1 x+t],Sin[freq2 x-t]},{x,-2 π,2 π},PlotRange->{-1.1,1.1},ImageSize->{500,200},AspectRatio->2/5]},{Plot[Sin[freq2 x-t]+Sin[freq1 x+t],{x,-2 π,2 π},PlotRange->{-2,2},ImageSize->{500,200},AspectRatio->2/5]}}],"X1"->{{freq1,1,"frequency of wave 1"},1,10},"X2"->{{freq2,1,"frequency of wave 2"},1,10},"Y1Cyclic"->{{t,1,"time"},0,2 π}]

CAPTION

Two waves traveling in opposite directions will show alternating constructive and destructive interference.

THIS NOTEBOOK IS THE SOURCE CODE FROM

"Superposition of Waves" from the Wolfram Demonstrations Project
 http://demonstrations.wolfram.com/SuperpositionOfWaves/

Contributed by: Jeff Bryant

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 »