Elipse dadas las longitudes de sus semiejes

$O$

$O(b)$

$O(a)$

$A$

$A'$

$B$

$B'$

$B(a)$

$F'$

$F$

X

$X$

$F(A'X)$

$F'(AX)$

$P$

$P'$

C = (11.606492889664953, 5.063053475479045)
A_1 = (-2.8449106031318867, 5.327294311531311)
s = Ray(A_1, C)
G = Point(s)
a: G
a_1 = Segment(A_1, a)
b = Point(a_1)
distanciaA1b = Distance(A_1, b)
TextoA1b: distanciaA1b + ""
O = (9.353000881409551, -1.919536947230938)
d = Circle(O, Segment[A_1, b])
c = Circle(O, a_1)
A = Point(c)
A' = Mirror(A, O)
e = Segment(A', A)
g = OrthogonalLine(O, e)
B = Intersect(d, g, 2)
B' = Mirror(B, O)
t = Segment(B, B')
p = Circle(B, a_1)
F', F = Intersect(p, e)
i = Segment(F', F)
j = 0.14 (slider from 0 to 1, step 0.0010)
v: i * j
c_1 = Circle(F', v)
H = Intersect(c_1, i)
D: H
X: D
f: 7.68 * j
h: 2 * 3.141592653589793 * j
u = Distance(O, B)
distanciaOA = Distance(O, A)
k = Circle(F, Segment[A', X])
q = Circle(F', Segment[A, X])
P = Intersect(k, q, 2)
P' = Intersect(k, q, 1)
r = Ellipse(F', F, P)