function result = extreme_spread(r)

rsize = size(r);
N = rsize(1);

for i=1:N
   for j=i:N
      distance(i,j) = norm( r(i,:) - r(j,:) );
   end
end

result = max( max(distance) );

