Extremwertaufgabe
Author: Achim Burgermeister
Date: 19.4.05-26.4.05

O = (0, 0)
A = Point(xAxis)
g = OrthogonalLine(A, xAxis)
B = Point(g)
b = Segment(A, B)
c = Segment(B, O)
Q = Point(xAxis)
a = Segment(A, O)
f = OrthogonalLine(Q, c)
d = Line(Q, c)
D = Intersect(b, d)
e = OrthogonalLine(D, c)
C = Intersect(c, e)
E = Intersect(f, c)
R, c_1, r, k, b_1 = Polygon(C, E, Q, D)
x1 = Distance(Q, D)
h = Segment(D, A)
q = Segment(A, Q)
X: (q, 0)
P: (q, r k)
qx = Segment(O, X)
i = Segment(P, X)
T1: "Fläche " + R + " FE"
T2: "Strecke q=" + q