function [d] = dispersion(A) %Measure of the dispersion of the entries of A from the main diagonal. n = size(A,1); for i=1:n, for j=1:n, A(i,j) = A(i,j)* 1/((i+j)^2); end; end; d = norm(A-eye(n));