sugr_construct_midpoint_Point_2D

% Mid point of two 2D points

 m = sugr_construct_midpoint_Point_2D(x,y)

 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_intersection_Point_2D,
 sugr_construct_footpoint_Ol_Point_2D, sugr_construct_footpoint_xl_Point_2D

0001 %% Mid point of two 2D points
0002 %
0003 % m = sugr_construct_midpoint_Point_2D(x,y)
0004 %
0005 % Wolfgang Förstner 1/2011
0006 % wfoerstn@uni-bonn.de
0007 % sw 9/2016
0008 %
0009 % See also sugr_Point_2D, sugr_get_isfinite_Point_2D, sugr_Line_2D,
0010 % sugr_construct_mean_Point_2D, sugr_construct_intersection_Point_2D,
0011 % sugr_construct_footpoint_Ol_Point_2D, sugr_construct_footpoint_xl_Point_2D
0012 
0013 function Point_2D = sugr_construct_midpoint_Point_2D(x,y)
0014 
0015 A = calc_CentralMatrix(y.h);
0016 B = calc_CentralMatrix(x.h);
0017 h   = A * x.h;
0018 % hc  = B * y.h;
0019 Cxhh = sugr_get_CovM_homogeneous_Vector(x);
0020 Cyhh = sugr_get_CovM_homogeneous_Vector(y);
0021 Chh =  A * Cxhh * A' + B * Cyhh * B';
0022 
0023 % generate reduced parameters
0024 Point_2D = sugr_Point_2D(h,Chh);