替换矩阵的对角线

Question

我很有兴趣将矩阵D的对角线替换为1,2,3,4。 这是矩阵D：

A=[1,2,3,4,2,3,4,5; 3,4,5,6,4,5,6,7]; 
D=[A;A]; 
D=[D D]; % size of matrix [4x16] % 

Answer 1

设置主对角线开始1和递增1的整数：

D(eye(4)==1) = 1:4 

或者来概括它：

n = min(size(D)); 
D(eye(n)==1) = 1:n; 

注意到这里==1用于将单位矩阵eye(n)的输出转换为逻辑类型。

编辑：

这只是一个猜测你的意思是所有的对角线什么，但这里有云：

n = size(D,1); 
m = size(D,2); 
I = repmat(eye(min([n,m])), ceil(n/m), ceil(m/n)); 
I = I(1:n, 1:m)==1 
d = repmat(1:min([n,m]), 1, max([ceil(n/m), ceil(m/n)])); 
d = d(1:max(m,n)); 
D(I) = d