"Tenemos una tangente a la elipse desde el centro. C¢mo viene dada la otra?"

"aqu¡ (e,f) es el centro de la elipse"

"Hacemos el discrimeinate cero y as¡ obtenemos la ecuaci¢n de las dos rectas"

"si sabemos la pendiente de una tangente, la otra es una expresi¢n muy sencil~
la"

(e/a^2+y/x*f/b^2)^2-(1/a^2+(y/x)^2/b^2)*(e^2/a^2+f^2/b^2-1)=0

;Simp(#5)
(x^2*(b^2-f^2)+2*e*f*x*y+y^2*(a^2-e^2))/(a^2*b^2*x^2)=0

x^2*(b^2-f^2)+2*e*f*x*y+y^2*(a^2-e^2)=0

;Sub(#7)
x^2*(b^2-f^2)+2*e*f*x*(p*x)+(p*x)^2*(a^2-e^2)=0

;Simp(#8)
x^2*(a^2*p^2+b^2-e^2*p^2+2*e*f*p-f^2)=0

a^2*p^2+b^2-e^2*p^2+2*e*f*p-f^2=0

"si sabemos que y=mx es tangente, entonces la otra y=nx"

EXPAND(a^2*p^2+b^2-e^2*p^2+2*e*f*p-f^2=0,Rational,p)

;Simp(#12)
p^2*(a^2-e^2)+2*e*f*p+b^2-f^2=0

m+n=-2*e*f/(a^2-e^2)

SOLVE(m+n=-2*e*f/(a^2-e^2),n)

;Simp(#15)
[n=-2*e*f/(a^2-e^2)-m]