links: mit c/2 bewegtes Inertialsystem mit Fokus auf die unbewegte Strecke
rechts: mit 0.3c bewegtes Inertialsystem mit Fokus auf die ruhende Strecke


          (* Mathematica Code, synchronisierter Loop *)
          (* т → 0 .. λ/c γ[v1] | τ → 0 .. λ/c γ[v2] *)          

          Clear[v];
         
          v1 = c/2;
          v2 = 3 c/10;
          d1 = Sqrt[(c + v)/(c - v)];
          d2 = 1/d1;
          c  = 1;
          γ  = 1/Sqrt[1 - v^2];
          λ  = 2 π;
         
          Manipulate[Table[Plot[{
         
          Sin[d1 x + c t],
          Sin[d2 x - c t],
          Sin[d1 x + c t] + Sin[d2 x - c t],
         
          2 Sin[x γ],
          2 Sin[π + x γ]
         
          }, {x, 0, 4 π/γ},
         
          Frame -> True,
          ImageSize -> 360,
          PlotRange -> {{0, 4 π/γ}, {-2, 2}},
          GridLines -> {{π/γ, 2 π/γ, 3 π/γ}, {}},
          PlotStyle -> {{Blue, Thick}, { Red, Thick}, {Green, Thick}, {Gray, Dashed}, {Gray, Dashed}},
          FrameTicks -> {{{-1, 0, 1}, None}, {{0, N[π/γ, 6], N[2 π/γ, 6], N[3 π/γ, 6]}, None}}],
         
          {v, v1, v2, v2 - v1}], {t, 0, λ/c}]

          (* Симон Тыран, Vienna 2015 | proper code: index *)

http://www.gratis-besucherzaehler.de/