Galgen = (3.4806088321085835, 3.7293357618981924)
Eiche = (5.001768366312017, 8.322427524149807)
Kiefer = (7.669567868336181, 3.750907018254037)
abstandGalgenKiefer = Distance(Galgen, Kiefer)
Midpoint(Galgen, Kiefer)
TextGalgenKiefer: Name[Galgen] + (Name[Kiefer]) + " = " + abstandGalgenKiefer
W1 = Vector(Galgen, Kiefer)
a = OrthogonalLine(Kiefer, W1)
Midpoint(Kiefer, ClosestPoint[a, Kiefer])
c = Circle(Kiefer, abstandGalgenKiefer)
Spieß1 = Intersect(c, a, 1)
W2 = Vector(Kiefer, Spieß1)
W3_1 = Vector(Galgen, Eiche)
abstandEicheGalgen = Distance(Eiche, Galgen)
Midpoint(Eiche, Galgen)
TextEicheGalgen: Name[Eiche] + (Name[Galgen]) + " = " + abstandEicheGalgen
d = Circle(Eiche, Galgen)
b = OrthogonalLine(Eiche, W3_1)
Spieß2 = Intersect(d, b, 2)
W3 = Vector(Eiche, Spieß2)
e = Line(Spieß2, Spieß1)
f = LineBisector(Spieß2, Spieß1)
Schatz = Intersect(e, f)
α = Angle(Kiefer, Schatz, Eiche)
abstandEicheSchatz = Distance(Eiche, Schatz)
Midpoint(Eiche, Schatz)
TextEicheSchatz: Name[Eiche] + (Name[Schatz]) + " = " + abstandEicheSchatz
abstandKieferSchatz = Distance(Kiefer, Schatz)
Midpoint(Kiefer, Schatz)
TextKieferSchatz: Name[Kiefer] + (Name[Schatz]) + " = " + abstandKieferSchatz
g = LineBisector(Eiche, Kiefer)
h = Segment(Kiefer, Eiche)
abstandEicheKiefer = Distance(Eiche, Kiefer)
Midpoint(Eiche, Kiefer)
NeuerSpieß = Intersect(g, h)
abstandAKiefer = Distance(NeuerSpieß, Kiefer)
Midpoint(NeuerSpieß, Kiefer)
TextAKiefer: Name[NeuerSpieß] + (Name[Kiefer]) + " = " + abstandAKiefer
abstandASchatz = Distance(NeuerSpieß, Schatz)
Midpoint(NeuerSpieß, Schatz)
TextASchatz: Name[NeuerSpieß] + (Name[Schatz]) + " = " + abstandASchatz