calc_CentralMatrix

% CentralMatrix: 
 determines Jacobian dm/dx for determining mean 
 of non-homogeneous vectors x and y 
 
 Usage:
 Z = calc_CentralMatrix(x)

   x - D-vector
 
   Z - CentralMatrix(x), such that 
       Central matrix of d-vector Midpoint z = Z(x) y of x, y

 Wolfgang Förstner
 wfoerstn@uni-bonn.de

0001 %% CentralMatrix:
0002 % determines Jacobian dm/dx for determining mean
0003 % of non-homogeneous vectors x and y
0004 %
0005 % Usage:
0006 % Z = calc_CentralMatrix(x)
0007 %
0008 %   x - D-vector
0009 %
0010 %   Z - CentralMatrix(x), such that
0011 %       Central matrix of d-vector Midpoint z = Z(x) y of x, y
0012 %
0013 % Wolfgang Förstner
0014 % wfoerstn@uni-bonn.de
0015 
0016 function Z = calc_CentralMatrix(x)
0017     D = length(x);
0018     Z = x(D) * eye(D) + x * [zeros(1,D-1) 1];