% GHM update spherically normalized vector xu = sugr_ghm_update_vector(x,p) * x = N-vector, approximate values * p = (N-1)-vector, reduced corrections xu = updated vector Wolfgang Förstner 03/2011 wfoerstn@uni-bonn.de
0001 %% GHM update spherically normalized vector 0002 % 0003 % xu = sugr_ghm_update_vector(x,p) 0004 % 0005 % * x = N-vector, approximate values 0006 % * p = (N-1)-vector, reduced corrections 0007 % 0008 % xu = updated vector 0009 % 0010 % Wolfgang Förstner 03/2011 0011 % wfoerstn@uni-bonn.de 0012 0013 function xu = sugr_ghm_update_vector(x,p) 0014 0015 % Update in tangent space 0016 xu = x + null(x') * p; 0017 0018 % normalize 0019 xu = xu / norm(xu);