function angulo=angulo_incidencia(segmento1,segmento2)
%Función que calcula el ángulo que forman dos segmentos, dados de la forma
%[x1 y1;x2 y2)], mediante su producto escalar v1v2=|v1||v2|cos(v1^v2)
vector1=segmento1(1,:)-segmento1(2,:);
vector2=segmento2(1,:)-segmento2(2,:);
angulo=acosd(abs(dot(vector1,vector2)/(norm(vector1)*norm(vector2))));
end
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
