diagm.m

来自「薛定宇高等应用数学问题的MATLAB求解例子源码」· M 代码 · 共 7 行

function A=diagm(varargin)
A=[]; 
for i=1:length(varargin)
    A2=varargin{i};
    A(size(A,1)+1:size(A,1)+size(A2,1),size(A,2)+1:size(A,2)+size(A2,2))=A2;
end