Mittelwerte im Trapez

A = (-1.22, 1.6600000000000001)
B = (5.2, 1.62)
a = Segment(A, B)
c = Circle(A, 2.0)
d = Circle(B, 2.0)
b = OrthogonalLine(A, a)
e = OrthogonalLine(B, a)
C_1, D_1 = Intersect(d, e)
E, F = Intersect(c, b)
f = Segment(F, D_1)
C = Point(f)
g = Segment(F, C)
D = Point(g)
h = Segment(A, D)
i = Segment(D, C)
j = Segment(C, B)
G = Midpoint(h)
k = Line(G, a)
H = Intersect(k, j)
l = Segment(G, H)
m = Segment(D, B)
n = Segment(C, A)
I = Intersect(m, n)
p = Line(I, a)
J = Intersect(p, h)
K = Intersect(p, j)
q = Segment(J, K)
r = Line(A, D)
s = Line(C, B)
L = Intersect(r, s)
t = Circle(L, D)
M = Intersect(t, a)
N = Intersect(t, r, 2.0)
O = Midpoint(N, A)
c_1 = Circle(O, N)
a_1 = OrthogonalLine(L, r)
P = Intersect(c_1, a_1, 1.0)
d_1 = Circle(L, P)
Q, R = Intersect(d_1, r)
b_1 = Line(Q, a)
S = Intersect(b_1, j)
e_1 = Segment(Q, S)
AM: (Distance[A, B] + Distance[C, D]) / 2.0
HM: 2.0 * Distance[A, B] * Distance[C, D] / (Distance[A, B] + Distance[C, D])
Text2: "Harmonisches Mittel = 
(2*Abstand[A,B]*Abstand[C,D])/(Abstand[A,B]*Abstand[C,D])
= " + HM
GM: (Distance[A, B] * Distance[C, D])^(1.0 / 2.0)
Text3: "Geometrisches Mittel 
= (Abstand[A,B]*Abstand[C,D])^0.5
= " + GM
Text1: "Arithmetisches Mittel 
= (Abstand[A,B]+Abstand[C,D])/2 
= " + AM