$A$

$O$

$b$

$A(b)$

$E$

$F'_h$

$F_h$

$O(b)$

$B$

$B(OA)$

$F'_e$

$F_e$

A = (5.939445512776166, 1.4810085358936391)
O = (2.043647053940757, 1.500487528187816)
B_1 = (-3.7416136574298253, 5.435243971611578)
C = (8.841815364608545, 5.4936809484941085)
a = Ray(B_1, C)
D = Point(a)
b = Segment(B_1, D)
c = Line(O, A)
e = OrthogonalLine(A, c)
f = Circle(A, b)
E = Intersect(f, e, 2)
g = Circle(O, E)
F'_h, F_h = Intersect(g, c)
h = Hyperbola(F_h, F'_h, A)
d = OrthogonalLine(O, c)
k = Circle(O, b)
H, B = Intersect(k, d)
p = Circle(B, Segment[O, A])
F'_e, F_e = Intersect(p, c)
q = Ellipse(F_e, F'_e, A)

Tool: Conica_AbO
Dar el centro, un vértice y un segmento
Input: A, O, b
Output: q, h

$A$

$O$

$b$

$A(b)$

$E$

$F'_h$

$F_h$

O(b)

$B$

$B(OA)$

$F'_e$

$F_e$

B_1 = (-3.7416136574298253, 5.435243971611578)
D = (-1.3849777931143565, 5.446188101012424)
b = Segment(B_1, D)
c = Line(O, A)
e = OrthogonalLine(A, c)
f = Circle(A, b)
E = Intersect(f, e, 2)
g = Circle(O, E)
F'_h, F_h = Intersect(g, c)
h = Hyperbola(F_h, F'_h, A)
d = OrthogonalLine(O, c)
k = Circle(O, b)
H, B = Intersect(k, d)
p = Circle(B, Segment[O, A])
F'_e, F_e = Intersect(p, c)
q = Ellipse(F_e, F'_e, A)