Teilverhältnis

A = (2.04, 4.580000000000002)
B = (4.340000000000003, -0.9000000000000001)
a = Segment(A, B)
T = Point(a)
abstandAT = Distance(A, T)
TextAT: "\overline{" + (Name[A]) + (Name[T]) + "} \, = \, " + abstandAT
abstandTB = Distance(T, B)
TextTB: "\overline{" + (Name[T]) + (Name[B]) + "} \, = \, " + abstandTB
t: Distance[A, T] / Distance[T, B]
text1: "t =" + t
C = (-2.04, 0.8)
k = 0.5 (slider from -5 to 5, step 0.1)
A' = Dilate(A, k, C)
B' = Dilate(B, k, C)
a' = Segment(A', B')
T' = Dilate(T, k, C)
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']
text3: "t'=" + t'