https://www.geogebra.org/haftendorn
Haftendorn, Buch (Springer):
Kurven erkunden und verstehen
Kap 7.4: S.194
www.kurven-erkunden-und-verstehen.de

Ha 2016

p = 2
ε = 1 (slider from 0 to 2.5, step 0.1)
c: y^(2) = (2 * (p * x)) - ((1 - ε^(2)) * x^(2))
S_p: (0, p)
f_1 = Line(S_p, xAxis)
F_p, D = Intersect(c, f_1)
g = OrthogonalLine(F_p, xAxis)
A, F'_p = Intersect(c, g)
h = Line(F'_p, xAxis)
C = Intersect(h, yAxis)
Q = Point(xAxis)
i = OrthogonalLine(Q, xAxis)
E, P = Intersect(c, i)
ordiQ, j, k, l, m, G, H = Polygon(P, Q, 4)
I = Intersect(i, f_1)
J = Intersect(h, i)
sperrR, s_p, i_1, j_1, c_1 = Polygon(S_p, I, J, C)
n = Segment(F_p, F'_p)
q: x = ((-p)) / 2
f: p / (ε + 1)
F: (f, 0)
Text1: "y^2=" + (LaTeX[ordiQ]) + ""
a = false
Text2: "Sperrungs-Rechteck\\
Größe=" + (LaTeX[sperrR]) + ""
Text5: "Ellipse   elleipein (gr.) 
weniger sein, grün " + sperrR + "<" + ordiQ + " blau, ε<1"
Text6: "Hyperbel   hyperballein (gr.) 
übersteigen, grün" + sperrR + ">" + ordiQ + " blau, ε>1"
Text4: "Parabel   paraballein (gr.) 
gleichkommen, grün " + sperrR + "=" + ordiQ + "  blau, ε=1"