function x = trans_origin(coor)

% Translate the coordinates stored in vector COOR to the origin

len = size(coor, 1);
center = sum(coor, 1) ./ len;
for i = 1:len
    x(i, :) = coor(i, :) - center;
end