B = (8, -5)
A: (-8, 5)
E = Point(xAxis)
D = Point(xAxis)
K = Point(Segment[(x(A), 0), (x(B), 0)])
f = Segment(A, K)
g = Segment(K, B)
F = (10, -7)
G = (-10, -7)
v1, d, e, f_1, g_1 = Polygon(D, E, F, G)
n_1 = 1 (slider from 1 to 3, step 1 / 3)
n_2 = 1.3333333333333333 (slider from 1 to 3, step 1 / 3)
h = OrthogonalLine(K, d)
C = Point(h)
α = Angle(C, K, A)
H = Point(h)
β = Angle(H, K, B)
Text1: "Die Entfernung von A zu K beträgt  " + (Distance[A, K]) + " Meter
Man benötigt für diese Strecke " + ((Distance[A, K] * n_1)) + " Sekunden.

Die Entfernung von B zu K beträgt " + (Distance[B, K]) + " Meter
Man benötigt für diese Strecke " + ((Distance[B, K] * n_2)) + " Sekunden.

Insgesamt benötigt man  " + ((Distance[A, K] * n_1) + (Distance[B, K] * n_2)) + " Sekunden, um von A nach B zu kommen."
I: (-10, 7)
J: (10, 7)
v2, i, j, k, l = Polygon(I, J, E, D)