s

r=\varepsilon\,s

p

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

Ha 2016

F = Intersect(xAxis, yAxis)
Q = Point(xAxis)
f = OrthogonalLine(Q, xAxis)
G = Point(xAxis)
g = OrthogonalLine(G, xAxis)
s = Segment(G, Q)
ε = 0.9 (slider from -5 to 5, step 0.1)
c = Circle(F, (ε * s))
P', P = Intersect(c, f)
Ortslinie1 = Locus(P, Q)
Ortslinie2 = Locus(P', Q)
h = OrthogonalLine(P, yAxis)
L = Intersect(g, h)
i = Segment(L, P)
r = Segment(P, F)
p = 3 (slider from -5 to 5, step 0.1)
r_1(x) = ((2 * ε)) / (1 - (ε * cos(x)))
a = CurveCartesian((r_1(t) * cos(t)), (r_1(t) * sin(t)), t, 0, (2 * π))
d: x^(2) + y^(2) = (ε^(2) * (2 + x)^(2))
E = Point(c)
G_1 = Point(c)
e = CircleArc(F, G_1, E)
θ = Angle(Q, F, P)
F'_p, F_p = Intersect(d, yAxis)
A, I = Intersect(d, xAxis)
j = Segment(F_p, F)
b = true