dilatazione dei tempi

β = 0.23 (slider from 0 to 0.99, step 0.01)
x_1': y = (β * x)
x_0': y = (1 / β * x)
A = Intersect(x_0', x_1')
B, C = Intersect(c, x_1')
distanzaCA = Distance(C, A)
TestoCA: "\overline{" + (Name[C]) + (Name[A]) + "} \, = \, " + distanzaCA
P = (2.462222222222222, 1.1244444444444437)
e = Line(P, yAxis)
Q = Point(e)
distanzaQP = Distance(Q, P)
TestoQP: "\overline{" + (Name[Q]) + (Name[P]) + "} \, = \, " + distanzaQP
f = Line(Q, x_1')
g = Line(P, x_1')
D = Intersect(f, x_0')
E = Intersect(g, x_0')
distanzaDE = Distance(D, E)
TestoDE: "\overline{" + (Name[D]) + (Name[E]) + "} \, = \, " + distanzaDE
Δt': distanzaDE / distanzaCA
h = Segment(Q, P)
i = Segment(D, E)
testo1: "\Delta t_m=\gamma \ \Delta t_f\\
Δt_f = " + (LaTeX[distanzaQP]) + "\\
Δt_m = " + (LaTeX[Δt']) + ""