x

x

y

y

A = (5.8, 3.92)
B = (4.74, -2.12)
h = Line(A, B)
C = (6.86, -1.6)
g = Line(C, h)
D = (4.46, 3.52)
h_1 = OrthogonalLine(D, h)
E = Intersect(h, h_1)
e = Segment(D, E)
D' = Mirror(D, h)
E' = Mirror(E, h)
e' = Segment(D', E')
F = Intersect(h_1, g)
f = Segment(D', F)
D'' = Mirror(D', g)
F' = Mirror(F, g)
f' = Segment(D'', F')
abstandDD'' = Distance(D, D'')
TextDD'': Name[D] + (Name[D'']) + " = " + abstandDD''
abstandEF = Distance(E, F)
Abstand = 1 (slider from -5 to 5)
TextEF: "" + (Name[Abstand]) + " = " + abstandEF + ""