% Intersection 2D point two lines l and m x = sugr_construct_interection_Point_2D(l,m) Wolfgang Förstner 1/2011 wfoerstn@uni-bonn.de sw 9/2016 See also sugr_Point_2D, sugr_get_isfinite_Point_2D, sugr_Line_2D, sugr_construct_mean_Point_2D, sugr_construct_midpoint_Point_2D, sugr_construct_footpoint_Ol_Point_2D, sugr_construct_footpoint_xl_Point_2D
0001 %% Intersection 2D point two lines l and m 0002 % 0003 % x = sugr_construct_interection_Point_2D(l,m) 0004 % 0005 % Wolfgang Förstner 1/2011 0006 % wfoerstn@uni-bonn.de 0007 % 0008 % sw 9/2016 0009 % 0010 % See also sugr_Point_2D, sugr_get_isfinite_Point_2D, sugr_Line_2D, 0011 % sugr_construct_mean_Point_2D, sugr_construct_midpoint_Point_2D, 0012 % sugr_construct_footpoint_Ol_Point_2D, sugr_construct_footpoint_xl_Point_2D 0013 0014 function Point_2D = sugr_construct_intersection_Point_2D(l,m) 0015 0016 Sl = calc_S(l.h); 0017 Sm = calc_S(m.h); 0018 h = Sl * m.h; 0019 Clhh = sugr_get_CovM_homogeneous_Vector(l); 0020 Cmhh = sugr_get_CovM_homogeneous_Vector(m); 0021 Chh = Sl * Cmhh * Sl' + Sm * Clhh * Sm'; 0022 0023 % generate reduced parameters 0024 Point_2D = sugr_Point_2D(h,Chh);