Elipse dadas las longitudes de sus semiejes
Date: 14 de febrero de 2012

$O$

$O(a)$

$O(b)$

$A$

$A'$

$B$

$B'$

D

$D$

$E$

$B(a)$

$F'$

$F$

C = (11.606492889664953, 5.063053475479045)
A_1 = (-1.2186789287503996, 4.947337639523417)
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 = (4.54744718326424, 0.2458010901435999)
c = Circle(O, a_1)
d = Circle(O, Segment[A_1, b])
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')
j = 0.16 (slider from 0 to 1, step 0.0010)
f: 7.68 * j
i: 2 * 3.141592653589793 * j
h: 2 * 3.141592653589793 * j
D = Rotate(A, i, O)
α = Angle(A, O, D)
k = Segment(D, O)
E = Intersect(d, k, 1)
l = OrthogonalLine(D, e)
m = Line(E, e)
P = Intersect(l, m)
p = Circle(B, a_1)
F', F = Intersect(p, e)
q = Ellipse(F', F, P)
n = Segment(F', P)
r = Segment(P, F)
o = Distance(n, r)
texto1: "PF+PF'=2 a:   " + r + "+" + n + "=" + (2 * a_1)
distanciaOB = Distance(O, B)
u = Distance(O, B)
TextoOB: Name[O] + (Name[B]) + " \, = \, " + u
distanciaOA = Distance(O, A)
TextoOA: Name[O] + (Name[A]) + " \, = \, " + distanciaOA