links: unbewegtes Inertialsystem mit Fokus auf die unbewegte Strecke
rechts: fahrendes Inertialsystem mit Fokus auf die unbewegte Strecke
(* Mathematica Code für synchronisierten Loop *)
(* Zeitleisten: t → 0 .. λ/c | τ → 0 .. λ/c γ *)
v = c/2;
c = 1;
d1 = Sqrt[(c+v)/(c-v)];
d2 = 1/d1;
γ = 1/Sqrt[1-v^2/c^2];
Λ = 2 π;
Manipulate[{
Show[
Table[Plot[{
Sin[x + c т] + Sin[x - c т],
}, {x, 0, 4 π},
PlotStyle->{LightGreen},
Frame -> True,
ImageSize -> 360,
PlotRange -> {{0, 4 π}, {-2, 2}}],
{т, 0, Λ, Λ/90}],
Plot[{
Sin[x + c t] + Sin[x - c t],
2 Sin[x],
2 Sin[x + π]
}, {x, 0, 4 π},
Frame -> True,
PlotRange -> {{0, 4 π}, {-2, 2}},
GridLines -> {{π, 2 π, 3 π}, {}},
PlotStyle -> {{Green, Thick}, Dashed, Dashed},
FrameTicks -> {{{-1, 0, 1}, None},
{{0, π, 2 π, 3 π}, None}}]
],
Show[
Table[Plot[{
Sin[d1 x + c т] + Sin[d2 x - c т],
}, {x, 0, 4 π},
PlotStyle->{LightGreen},
Frame -> True,
ImageSize -> 360,
PlotRange -> {{0, 4 π/γ}, {-2, 2}}],
{т, 0, Λ, Λ/60}],
Plot[{
Sin[d1 x + c t] + Sin[d2 x - c t],
2 Sin[x γ],
2 Sin[π + x γ]
}, {x, 0, 4 π/γ},
Frame -> True,
PlotRange -> {{0, 4 π/γ}, {-2, 2}},
GridLines -> {{π/γ, 2 π/γ, 3 π/γ}, {}},
PlotStyle -> {{Green, Thick}, Dashed, Dashed},
FrameTicks -> {{{-1, 0, 1}, None},
{{0, N[π/γ, 6], N[2 π/γ, 6], N[3 π/γ, 6]}, None}}]
]},
{t, 0, Λ/c}]
(*
Симон Тыран
, Vienna 2015 | proper code:
index
*)
http://www.gratis-besucherzaehler.de/