Teilverhältnisse

A = (4.296927980695024, 4.410996817153944)
B = (8.115313494923662, 14.68814080757783)
a = Segment(A, B)
T = Point(a)
Z = Intersect(xAxis, yAxis)
α = 0 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
A' = Rotate(A, α, Z)
B' = Rotate(B, α, Z)
a' = Segment(A', B')
T' = Rotate(T, α, Z)
abstandAT = Distance(A, T)
TextAT: "\overline{" + (Name[A]) + (Name[T]) + "} \, = \, " + abstandAT
abstandTB = Distance(T, B)
TextTB: "\overline{" + (Name[T]) + (Name[B]) + "} \, = \, " + abstandTB
abstandA'T' = Distance(A', T')
TextA'T': "\overline{" + (Name[A']) + (Name[T']) + "} \, = \, " + abstandA'T'
abstandT'B' = Distance(T', B')
TextT'B': "\overline{" + (Name[T']) + (Name[B']) + "} \, = \, " + abstandT'B'
t: Distance[A, T] / Distance[T, B]
t': Distance[A', T'] / Distance[T', B']
text2: "t = " + t
text3: "t' = " + t'