dilatazione dei tempi

β = 0.31 (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.0444444444444443, 0.8755555555555549)
e = Line(P, x_0')
Q = Point(e)
i = Segment(P, Q)
f = Line(P, xAxis)
g = Line(Q, xAxis)
D = Intersect(g, yAxis)
E = Intersect(f, yAxis)
h = Segment(D, E)
distanzaDE = Distance(D, E)
TestoDE: "\overline{" + (Name[D]) + (Name[E]) + "} \, = \, " + distanzaDE
distanzaQP = Distance(Q, P)
TestoQP: "\overline{" + (Name[Q]) + (Name[P]) + "} \, = \, " + distanzaQP
Δt': distanzaQP / distanzaCA
testo1: "\Delta t_m=\gamma \ \Delta t_f\\
Δt_f = " + (LaTeX[Δt']) + "\\
Δt_m = " + (LaTeX[distanzaDE]) + ""