Gibt es physikalische Phänomene mit Überlichtgeschwindigkeit?
17.10.2015 um 16:32z = 200; d = 1/2/z;
plot[f_, ta_, tb_, c1_, c2_, c3_] := Manipulate[
P = {Max[Min[(t + 1/4 - 4 n d), 2], 0] Sin[2 n \[Pi]/z],
Max[Min[(t + 1/4 - 4 n d), 2], 0] Cos[2 n \[Pi]/z], 0};
L = {P, {0, 0, 0}};
TP = {c3, Table[Point[P], {n, z/8, 3 z/8}]};
TL = Table[Line[L, VertexColors -> {c2, c1}], {n, z/8, 3 z/8}];
Graphics3D[{TL, TP},
PlotRange -> {{1/2, 0}, {1/2, -1/2}, {-1/2, 1/2}},
ImageSize -> 300, ViewPoint -> {4, 4, 4}], {t, ta, tb}];
p1 = plot[1, 0, 1/Sqrt[2] + 1/2, Red, Magenta, Purple]
Animierend,