function igc=gravic(x);
% Syntax: igc=gravic(x)
%
% Calcul du gravicentre d'un vecteur. igc est l'indice de gravicentre

lx=length(x);
xx=x.*(1:lx);

igc=round(sum(xx) / sum(x));
