Elipse

Parábola

Essas construções dos 
lugares geométricos dos pontos 
que equidistam de P e de uma
cônica centrada na origem
são muito similares à construção
dos lugares que equidistam de
um ponto e uma circunferência 
(usando a reta normal
à cônica em C).

No entanto, a equação é muito 
mais complicada de encontrar.

Hipérbole

d: x = -1
I: (1, 0)
I': (-1, 0)
op1 = false
op2 = false
c = If(op1, Ellipse[I, I', 2], If[op2, Parabola[I, d], Hyperbola[I, I', 0.5]])
C = Point(c)
t = Tangent(C, c)
P = Point(xAxis)
r = LineBisector(P, C)
s = OrthogonalLine(C, t)
D = Intersect(r, s)
lugar = Locus(D, C)
anima = 0 (slider from 0 to 1)
O: (0, 0)
op3 = false
f = Segment(D, C)
de = Distance(ClosestPoint[c, O], O)
g = Segment(D, P)