Propagation of a Plane Electromagnetic Wave

Manipulate[
wave1=ParametricPlot3D[{  t (x/6.28), - strength  Sin[frequency  t (x/6.28)],0},{t, 0, 2 Pi},PlotStyle->Directive[Thickness[.007],Lighter[Red,.5]]];
wave2=ParametricPlot3D[{ t  (x/6.28),0,strength  Sin[frequency  t( x/6.28) ]},{t, 0, 2 Pi},PlotStyle->Directive[Thickness[.007],Lighter[Blue,.5]]];Show[wave1,wave2,Graphics3D[{Opacity[.5],EdgeForm[],(wave1[[1]]/.Line[t___]:>Polygon[Append[t,{Last[t][[1]],0,0}]])}],
Graphics3D[{Opacity[.5],EdgeForm[],wave2[[1]]/.Line[t___]:>Polygon[Append[t,{Last[t][[1]],0,0}]]}],AxesLabel->{Style["x",Medium,Italic],Style["(Subscript[B, y])",Medium,Lighter[Red,.5],Italic],Style["(Subscript[E, z])",Medium,Lighter[Blue,.5],Italic]},PlotRange->{{- strength,7},{- strength, strength},{- strength,strength}},ImageSize->{500,400}],{{x,2 π,"x"},0,2Pi},
{strength,{ 1,1.5,2,2.5}},
{frequency,{1,2,3,4,5}},TrackedSymbols->Manipulate]

THIS NOTEBOOK IS THE SOURCE CODE FROM

"Propagation of a Plane Electromagnetic Wave " from The Wolfram Demonstrations Project
 http://demonstrations.wolfram.com/PropagationOfAPlaneElectromagneticWave/

Contributed by: Alan Fafard

A full-function Wolfram Mathematica 6 system is required to edit this notebook.
GET WOLFRAM MATHEMATICA 6 »

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