Extremwertaufgabe (Hühnerweide)
Author: Achim Burgermeister
Date: 19.4.05

Maximale Fläche für eine Hühnerweide

Hühnerweide an einer Scheunenwand

Hühnerweide an Scheunenwand

O = (0, 0)
Q = Point(xAxis)
a = OrthogonalLine(Q, xAxis)
d: x = Distance[Q, O]
D = Intersect(d, xAxis)
x1 = Distance(Q, O)
C = Mirror(Q, O)
e = OrthogonalLine(C, xAxis)
E = Intersect(c, e)
f = Line(E, xAxis)
b = OrthogonalLine(Q, xAxis)
A = Intersect(f, b)
B = Intersect(f, yAxis)
P, q, o, b_1, a_1 = Polygon(Q, O, B, A)
Ar: o x1
Fläche: (x1, Ar / 2)
g = Segment(Fläche, C)
T1: "  Area=" + Ar + "m², a= " + x1 + "m"