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/