Ziehe hier, um Grundseite zu variieren

Ziehe hier, um Höhe zu variieren

C_1 = (6, 4)
a = 3 (slider from 1 to 5, step 0.1)
b = 4 (slider from 0 to 6, step 0.1)
A = (0, -2)
B = Point(Circle[A, a])
g_1 = Segment(A, B)
G = Point(g_1)
A_1 = Point(Circle[G, b])
c = Segment(G, A_1)
G' = Rotate(G, 90°, G)
D = Rotate(A_1, 90°, G)
h = Segment(G', D)
C = Point(Circle[D, a])
e = Segment(D, C)
poly1, g, f, d_1, a' = Polygon(A, B, C, D)
α = Angle(B, G, D)
Textpoly1: "Fläche " + (Name[A]) + (Name[B]) + (Name[C]) + (Name[D]) + " = " + poly1
h_1 = Distance(h, g)
d = Distance(h, g)