setdiag.m

来自「麻省理工学院的人工智能工具箱,很珍贵,希望对大家有用!」· M 代码 · 共 14 行

function M = setdiag(M, v)
% SETDIAG Set the diagonal of a matrix to a specified scalar/vector.
% M = set_diag(M, v)

n = length(M);
if length(v)==1
  v = repmat(v, 1, n);
end
if issparse(M)
  M = triu(M,1) + tril(M,-1) + sparse(diag(v));
else 
  M = triu(M,1) + tril(M,-1) + diag(v);
end