Punkt C verschiebbar

A = (-2, -2)
H2 = (5, -2)
H = Rotate(H2, 43*°, A)
α = Angle(H2, A, H)
a = Line(A, H)
C = Point(a)
b = Line(A, H2)
c = OrthogonalLine(C, b)
E = Intersect(c, b)
abstandEC = Distance(E, C)
TextEC: "\overline{" + (Name[E]) + (Name[C]) + "} \, = \, " + abstandEC
h_{c} = Segment(C, E)
B = Point(Circle[A, 24 / abstandEC])
f = Segment(A, B)
d = Segment(C, B)
Vieleck1, d_1, c_1, a_1 = Polygon(C, A, B)
β = Angle(h_{c}, f)
TextVieleck1: "Fläche " + (Name[C]) + (Name[A]) + (Name[B]) + " = " + Vieleck1