%
%
%
%
function [result]=slope(x1,x2,y1,y2)
if (x1==x2) 
    result=9999999;
else    
    result=(y1-y2)/(x1-x2);
end