Hier ziehen, um w zu variieren

cm²

A_1 = (-1, 5)
B_1 = (0, 5)
a = Line(A_1, B_1)
b = 4 (slider from 1 to 5, step 0.1)
C_1 = Point(Circle[A_1, b])
c_1 = Segment(A_1, C_1)
A' = Rotate(A_1, 270.0°, A_1)
C' = Rotate(C_1, 270.0°, A_1)
w = Segment(A', C')
d = Line(C', a)
A = Point(d)
C = Point(a)
B = Point(d)
f = Segment(A, B)
G = (3.58, -0.62)
Vieleck1, c, d_1, e_1 = Polygon(A, B, C)
α_1 = Angle(B, C', A_1)
α = Angle(B, A, C)
γ = Angle(A, C, B)
β = Angle(C, B, A)
TextVieleck1: "Fläche " + (Name[A]) + (Name[B]) + (Name[C]) + " = " + Vieleck1