Parabel mit Bärenkasten aus der Leitgeradenkonstruktion
Author: Prof. Dr. Dörte Haftendorn

Ha Feb 08

Parabel mit 
Bärenkasten 

RSP_A P_B

m_s(FD)

F = Point(yAxis)
F': (0, -y(F))
leit = OrthogonalLine(F', yAxis)
A = Point(leit)
B = Point(leit)
a = LineBisector(F, A)
b = LineBisector(F, B)
d = OrthogonalLine(A, leit)
e = OrthogonalLine(B, leit)
P_B = Intersect(e, b)
P_A = Intersect(a, d)
C = Intersect(b, a)
loc1 = Locus(P_A, A)
poly1, seh, p_b, p_a = Polygon(P_B, P_A, C)
c = OrthogonalLine(C, leit)
D = Intersect(c, leit)
f = LineBisector(F, D)
M = Intersect(c, f)
E = Intersect(seh, c)
S = Intersect(f, d)
R = Intersect(e, f)
poly2, p_1, r, s, p_2 = Polygon(P_B, R, S, P_A)