Baerenkasten der Parabel
Author: Prof. Dr. Dörte Haftendorn
Date: 24.09.04

p(x) = 1 / 4 x²
A = Point(p)
B = Point(p)
a = Segment(A, B)
M = Midpoint(A, B)
c = OrthogonalLine(M, xAxis)
C = Intersect(p, c)
d = Tangent(C, p)
e = OrthogonalLine(A, xAxis)
f = OrthogonalLine(B, xAxis)
D = Intersect(e, d)
E = Intersect(f, d)
F = Midpoint(C, D)
G = Midpoint(C, E)
H = Midpoint(A, M)
I = Midpoint(M, B)
g = Line(B, G)
h = Line(A, F)
J = Intersect(h, g)
i = Line(J, d)
K = Intersect(e, i)
L = Intersect(f, i)
b = Segment(A, K)
j = Segment(K, L)
k = Segment(L, B)
l = Segment(D, E)
m = Segment(M, J)