Animation of Standing Waves

2001/7/1 Takuichi Hirano
Tokyo Institute of Technology

In[1]:=

k = 2 π ; a0 = 1 ; b0 = 0.2 ; a[z_] := a0 * Exp[+ I * k * z] ; b[z_] := b0 * Exp[-I * k * z] ; c[z_] := a[z] + b[z] ;

•Animation

In[7]:=

ω = 2 * π ; Table[ Plot[{Re[ a[z] * Exp[I * ω * t] ], Re[ b[z] * Exp[I * ω ... GBColor[0, 0, 1]}, {Dashing[{0.02, 0.02}]}, {Dashing[{0.02, 0.02}]}}], {t, 0, 1 - 0.001, 0.05}]

[Graphics:HTMLFiles/index_3.gif]

Out[8]=

{-Graphics -, -Graphics -, -Graphics -, -Graphics -, -Graphics -, -Graphics -, -Graphics -, -G ... hics -, -Graphics -, -Graphics -, -Graphics -, -Graphics -, -Graphics -, -Graphics -, -Graphics -}

Converted by Mathematica  (November 19, 2003)