列差的欧几里德范数

Question

我希望矩阵中每两列的差异符合欧几里德标准。因此，例如Column1-Column3在(1,3)和(3,1)的最终矩阵中有其欧几里德范数。我已经有了一个代码，但我想问一下是否有更简单，更快速的方法来获得这种矩阵。

A = rand(4)
B=zeros(size(A));
for i = 2:size(A,1)
   diffCol = A - [A(:,i:end),A(:,1:i-1)];
   normsCol= sqrt(sum(diffCol.^2, 1));
   B=B+diag(normsCol(1:end-i+1),i-1);
end
B = B + B'

随机4x4矩阵的示例：