\(うなりと群速度を学ぶスクリプト;\)

\(調和関数の定義;\)
y1 = 
        Sin[-β1 z + ω1 t];
y2 = Sin[-β2 z + ω2 t];

\(角周波数，波数の定義;\)
β1  = 1.0; ω1 = 
      1.0;
β2  = 1.2; ω2 = 
      1.7;

anim = 
        Table[Plot[y1 + y2,   {z,  -60,  60}, 
            PlotPoints -> 1000,  ImageSize -> {600, 232}, 
            AspectRatio -> 0.3], {t, 0, 
            8.0  π,  (π/4)}];