a_1 = 3 (slider from 0 to 15, step 0.1)
c_1 = 6 (slider from 0 to 15, step 0.1)
h_1 = 4 (slider from 0 to 15, step 0.1)
A = (0.12, 0.16)
b_1: abs(a_1)
B = Point(Circle[A, abs(a_1)])
a = Segment(A, B)
d_1 = OrthogonalLine(A, a)
e_1: abs(h_1)
H = Point(Circle[A, abs(h_1)])
h = Segment(A, H)
f = OrthogonalLine(H, h)
D = Point(f)
g_1: abs(c_1)
C = Point(Circle[D, abs(c_1)])
c = Segment(D, C)
b = Segment(C, B)
d = Segment(A, D)
F: 1 / 2 * (a + c) * h
Text1: "Flächeninhalt = " + F + ""