创建对角矩阵（更高维度）

我有一个n* m矩阵，说A。我想创建以下内容m* m*n矩阵，说B

for j=1:n
    B(:,:,j)=diag(A(j,:));
end

我该如何做到这一点而不需要循环？

Thanks

UPDATE:我已经编辑了问题以修复示例代码中的拼写错误。

我相当确定您的示例代码包含一些拼写错误，因为当前矩阵A没有任何作用，你的循环下标也没有j。然而，您实际上想问的似乎很可能是：如何构建一个 3d 数组，其中每个对角线（沿第三维移动）都是来自A，不做循环？

如果这是正确的，那么一个答案如下：

%# A loop-less solution
Soln2 = zeros(M, M, N);
Soln2(bsxfun(@plus, (1:M+1:M*M)', (0:M^2:(N-1)*M^2))) = A';

基本上我所做的就是预先分配解决方案 3d 数组，然后使用bsxfun构造所有对角线的线性索引，沿第三维移动。然后我分配转置A（因为您想要行而不是列）到解决方案数组中的线性索引。

请注意，我在下面粘贴了一些示例代码用于测试目的。请验证我对基于循环的解决方案的解释是否是您真正想要的。

%# Set some parameters and create a random matrix A
N = 3;
M = 4;
A = randi(5, N, M);

%# Your loop based solution
Soln1 = nan(M, M, N);
for n = 1:N
    Soln1(:,:,n) = diag(A(n,:));
end

%# A loop-less solution
Soln2 = zeros(M, M, N);
Soln2(bsxfun(@plus, (1:M+1:M*M)', (0:M^2:(N-1)*M^2))) = A';