(* In diesem Beispiel wird ein nach vorn oder hinten reflektiertes Photon im relativ zur Lampe bewegten System betrachtet *)
(* https://umwelt-wissenschaft.de/forum/sonstige-themen/4699-was-laeuft-falsch-in-der-wissenschaft?start=30#92632 *)
(* https://www.yukterez.net/org/badhofers.scheinwerferparadoxon.doppelbild.htm *)
(* Variablen: Lampenradius R und Geschwindigkeit v *)
(* Syntax: Wolfram Mathematica *)

R = 2;                                     (* Lampenradius *)
v = Sqrt[3] c/2;                        (* Geschwindigkeit *)
c = 1;                             (* Lichtgeschwindigkeit *)
γ = 1/Sqrt[1-v^2/c^2];                      (* Gammafaktor *)
a = ArcCos[v/c];               (* aberrierter Strahlwinkel *)
T = R/Sin[a];                    (* Zeit bis zur Reflexion *)
tMax = 12/v;                           (* Simulationsdauer *)
plot[n_, t_] :=                               (* Animation *)
Grid[{{Graphics[{Piecewise[{
{{Red, PointSize -> 0.013, 
Point[{Cos[a] c t, Sin[a] c t}]}, t <= T}, 
{{Red, PointSize -> 0.013, 
Point[{Cos[a] c T+n c (t-T), Sin[a] c T}]}, t > T}}], 
{Black, Thick, Line[{{v t, -R}, {v t-R n/γ, 0}, {v t, +R}}]}, 
{Gray, Thin, Line[{{v t, -R}, {v t, +R}}]}}, 
Frame -> True, 
PlotRange -> {{-2, 10}, {-3, 3}}, 
GridLines -> {{}, {0}}, 
ImageSize -> 550, 
AspectRatio -> 171/3/114]}, 
{"  t" -> N@t}}, 
Alignment -> Left]
Manipulate[Grid[{{
plot[+1, t]}, {plot[-1, t]}}], 
{t, 0, tMax, 0.1}]