function interseccion=calcula_intersecciones(segmento1,segmento2)
%Función que calcula el punto de interseccion que hay entre un par de
%segmentos dados, cada uno de la forma [x1 y1;x2 y2]
interseccion = [];
A = segmento1(2,2)-segmento1(1,2);
B = segmento1(1,1)-segmento1(2,1);
C = -(segmento1(1,1)*segmento1(2,2)-segmento1(1,2)*segmento1(2,1));
%C = -det(segmento1);
D = segmento2(2,2)-segmento2(1,2);
E = segmento2(1,1)-segmento2(2,1);
F = -(segmento2(1,1)*segmento2(2,2)-segmento2(1,2)*segmento2(2,1));
%F = -det(segmento2);
if ((A*E-D*B)~=0) %Si los segmentos no son paralelos
xi = (B*F-E*C)/(A*E-D*B);
yi = (C*D-F*A)/(A*E-D*B);
punto = [xi yi];
if (punto_en_segmento(punto,segmento1) && punto_en_segmento(punto,segmento2)) %Comprobamos si el punto pertenece a ambos segmentos
interseccion = punto;
end
end
end
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
