"PARA EXPERIMENTAR CON LAS BISECTRICES DE UN PAR DE RECTAS"

"*****************************************************************"

DISTANCIAPUNTORECTA(p,m,n,r):=ABS((m*p SUB 1+n*p SUB 2+r)/(m^2+n^2)^(1/2))

BISECTRICESRECTAS(a,b,c,e,f,g):=[(a*x+b*y+c)*(e^2+f^2)^(1/2)-(e*x+f*y+g)*(a^2~
+b^2)^(1/2)=0,(a*x+b*y+c)*(e^2+f^2)^(1/2)+(e*x+f*y+g)*(a^2+b^2)^(1/2)=0,0]

MACRORECTASBISECTRICES(a,b,c,u,v,w):=[a*x+b*y+c=0,u*x+v*y+w=0,BISECTRICESRECT~
AS(a,b,c,u,v,w)]

"*****************************************************************"

"EJEMPLO"

BISECTRICESRECTAS(1,1,1,2,-1,3)

MACRORECTASBISECTRICES(1,1,1,2,-1,3)

"*****************************************************************"