Der Parameter k verschiebt 
den Punkt P zwischen A und B.

Aus der Glasscheibe ABC soll eine rechteckige 
Scheibe PQRB mit möglichst großem 
Flächeninhalt ausgeschnitten werden.

k = 1.9000000000000001 (slider from 0 to 4, step 0.05)
A = Point(xAxis)
B = Point(xAxis)
C = (0, 8)
a = OrthogonalLine(C, xAxis)
b = OrthogonalLine(C, a)
c = OrthogonalLine(A, xAxis)
P: (k - 4, 0)
d = OrthogonalLine(P, xAxis)
g(x) = 2 x + 8
f = Function(g, -4, 0)
Q = Intersect(f, d, (-2.0999999999999996, 3.8000000000000007))
e = OrthogonalLine(Q, a)
R = Intersect(e, a)
Inhalt, f_1, b_1, h, g_1 = Polygon(P, B, R, Q)
I: (k, Inhalt)
poly1, c_1, a_1, b_2 = Polygon(A, B, C)