DERIVE for Windows version 5.00 DfW file saved on 17 Dec 2000 CONICACINCOPUNTOS(m, n, p, q, r, s):=[[-1, 0], [1, 0], [m, n], [p, q], [r, s], - n·q·s·(- q·r + p·s + n·(r - p) + m·(q - s)) - y·(- q·s·(p·s - q·r) + n^2·(- r·s + p·q·(r + 1)·(1 - r) + p^2·r·s) - m·n·(- s^2 + q^2·(r + 1)·(1 - r) + p^2·s^2) + m^2·q·s·(p·s - q·r)) + y^2·(- q·s·(p - r) + n·(- r·s + p·q·(1 - r^2) + p^2·r·s) - m·n·(-s + q·(r + 1)·(1 - r) + p^2·s) + m^2·q·s·(p - r)) - x·y·(- q·s·(q - s) + n·(- s^2 + q^2·(r + 1)·(1 - r) + p^2·s^2) - n^2·(-s + q·(r + 1)·(1 - r) + p^2·s) + m^2·q·s·(q - s)) + n·q·s·x^2·(- q·r + p·s + n·(r - p) + m·(q - s)) = 0] ÿÿCExpnObj8 Userð¿?"*************************************************************"€8$ 0Userð¿?"*************************************************************"€8<HUserð¿<"PARA DETERMINAR UNA CONICA QUE PASA POR CINCO PUNTOS DADOS"€8T `Userð¿?"*************************************************************"€8lxUserð¿<"Para simplificar ponemos dos de los puntos (-1,0) y (1,0)."€8„hUserð¿("Los otros tres son (m,n) (p,q) y (r,s)"€8œŒUserð¿ÿžCONICACINCOPUNTOS(m,n,p,q,r,s):=[[-1,0],[1,0],[m,n],[p,q],[r,s],n*q*s*x^2*(m*(q-s)+n*(r-p)+p*s-q*r)-x*y*(m^2*q*s*(q-s)-n^2*(p^2*s+q*(r+1)*(1-r)-s)+n*(p^2*s^2+q^2*(r+1)*(1-r)-s^2)-q*s*(q-s))+y^2*(m^2*q*s*(p-r)-m*n*(p^2*s+q*(r+1)*(1-r)-s)+n*(p^2*r*s+p*q*(1-r^2)-r*s)-q*s*(p-r))-y*(m^2*q*s*(p*s-q*r)-m*n*(p^2*s^2+q^2*(r+1)*(1-r)-s^2)+n^2*(p^2*r*s+p*q*(r+1)*(1-r)-r*s)-q*s*(p*s-q*r))-n*q*s*(m*(q-s)+n*(r-p)+p*s-q*r)=0]€8˜ ¤Userð¿?"*************************************************************"€8°8¼Userð¿ B"Se puede pensar para el caso general en hacer una transformacion"€8ÈÔUserð¿ >"Una transformacion que envie dos puntos a los (-1,0) y (1,0)"€8à0ìUserð¿ !"Ver otro fichero: TRANSFSIMPLIF"€8ø Userð¿ ?"*************************************************************"€8xUserð¿  "EJEMPLOS"€8( 4Userð¿?"*************************************************************"€8@ LUserð¿?"*************************************************************"€8XXdUserð¿CONICACINCOPUNTOS(2,1,3,-1,4,2)€8pX|Userð¿CONICACINCOPUNTOS(0,2,0,-2,1,1)€8ˆˆ¬Userð¿/CONICACINCOPUNTOS(0,1,0,-1,SQRT(2)/2,SQRT(2)/2)€8¸ ÄUserð¿?"*************************************************************"€8Ð ÜUserð¿?"*************************************************************"€8è ôUserð¿?"*************************************************************"€pÈ Approx(#17){®Gázt?:[[-1,0],[1,0],[0,2],[0,-2],[1,1],-16*x^2+4*x*y-4*y^2+16=0]ÿÿÿð