Zeiten in s
Längen in 100 000 km
Geschwindigkeiten in 100 000 km/s

koppeln

tL = 1.4 (slider from -2 to 20, step 0.1)
w = 1.5 (slider from -2.9 to 2.9, step 0.1)
c: 3
yL: 3
zL: 0
x0 = 1 (slider from -2 to 5, step 0.1)
xL: x0 + (w * tL)
PL: (xL, yL, zL)
v = 1.5 (slider from -2.9 to 2.9, step 0.1)
γ: 1 / sqrt(1 - v^(2) / c^(2))
yB: yL
zB: zL
tB: (γ * (tL - (v / c^(2) * xL)))
xB: (γ * (xL - (v * tL)))
Text1: "t = " + tL + "
x = " + xL + "
y = " + yL + "
z = " + zL + ""
Text2: "t' = " + tB + "
x' = " + xB + "
y' = " + yB + "
z' = " + zB + ""
xLAchse = Vector((-1, 0, 0), (10, 0, 0))
yLAchse = Vector((0, -1, 0), (0, 8, 0))
xBAchse = Vector((-1 + (v * tL), 0, 0), (10 + (v * tL), 0, 0))
yBAchse = Vector(((v * tL), -1, 0), ((v * tL), 8, 0))
l: (sqrt(1 - w^(2) / c^(2)) * 5)
A = Point(Circle[PL, l, xOyPlane])
f = Segment(PL, A)
coupled = true