近期收一求助，说需要用matlab去除对角线，并将结果矩阵存储。

      开始时由于问题沟通不畅，理解成是要去除矩阵第i行第i列组成新矩阵，于是给出了如下结果：

程序：

clear;

clc;

A = magic(4)

B = A(:);

[m,n] = size(A);

for ii = 1:n   

    cxd = 1:n;   

    cxd(ii) = []; 

    result_A{ii} = A(cxd,cxd);

end

结果：

A =

    16     2     3    13

     5    11    10     8

     9     7     6    12

     4    14    15     1

>> result_A

result_A =

    [3x3 double]    [3x3 double]    [3x3 double]    [3x3 double]

>> result_A{1,1}

ans =

    11    10     8

     7     6    12

    14    15     1

     而后，发现此结论非需求所要，再次沟通后方才理解是要去除矩阵对角元素，组成新矩阵。问题立马提升一个档次，经百度后发现未有较好现成方法。尝试多种方法，可以对角线先置0或其他值再删除，或者取上下三角，拼接，但总体效率都略低。后想起可以先转向量去除相应位置后，再重构矩阵。方法如下：

程序：

clear;

clc;

A = magic(4)

B = A(:);

[m,n] = size(A);

B(1:n+1:n*n) = [];

disp('删除对角线,左下角上提后：')

result_A1 = reshape(B,n-1,n)

C = A';

C = C(:);

C(1:n+1:n*n) = [];

disp('删除对角线，右上角左移后：')

result_A2 = reshape(C,n-1,n)'

结果：

A =

    16     2     3    13
     5    11    10     8
     9     7     6    12
     4    14    15     1

删除对角线,左下角上提后：

result_A1 =

     5     2     3    13
     9     7    10     8
     4    14    15    12

删除对角线，右上角左移后：

result_A2 =

     2     3    13
     5    10     8
     9     7    12
     4    14    15

     该方法，基本上不涉及矩阵操作，不用循环，当矩阵较大时较其他方法有更高的运行效率，相信其在图像处理中可以获得较好的应用。