Ernst hat geschrieben:
Deine Aussagen gelten nur für Spezialfälle v/c. Und sind daher für die Katz.
Mein Einwand ist, daß das für beliebige v/c nicht funktioniert.
Wen man zurückblättert sieht man aber dass das nicht dein einziger Einwand den du dummdreist und rotzfrech durch den Faden geschleudert hast ist. Aber Schwamm drüber; was ist wenn es auch mit
Ernst hat geschrieben:
Nimm einfach mal v/c=0,3
L'/λd1 = n *(1-v/c) = 1,4
L'/λd2 = n *(1+v/c) = 2,6
funktioniert?
Code:
v = (3 c)/10; c = 1; d1 = Sqrt[(c + v)/(c - v)]; d2 = 1/d1; γ = 1/Sqrt[1 - v^2/c^2]; λ = 2 π;
(* ruhendes System mit Fokus auf die ruhende Kammer *)
p1 = Manipulate[Plot[{
Sin[x + c t],
Sin[x - c t],
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 -> {{Blue, Thick}, { Red, Thick}, {Green, Thick}, {Gray, Dashed}, {Gray, Dashed}},
FrameTicks -> {{{-1, 0, 1}, None}, {{0, π, 2 π, 3 π}, None}}],
{t, 0, λ}]
(* bewegtes System mit Fokus auf die ruhende Kammer *)
p2 = Manipulate[Plot[{
Sin[d1 x + c τ/γ],
Sin[d2 x - c τ/γ],
Sin[d1 x + c τ/γ] + Sin[d2 x - c τ/γ],
2 Sin[x*γ],
2 Sin[π + x*γ]
}, {x, 0, 4 π/γ},
Frame -> True,
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}}],
{τ, 0, λ γ}]

Eiskalt servierend,
