2楼: Originally posted by feixiaolin at 2014-02-05 13:56:55
rand(m,n); 产生随机数矩阵
for i=1 to m;
for j=1 to n;
cnt=0;
if i<>j
a=-1;       %主对角线赋-1
else
cnt+=a;
end if;
end;
for j=1 to n;
cnt=0;
if i<>j
a= a/cnt;  % 每行 ...

3楼: Originally posted by cobrasq at 2014-02-05 21:56:19
n = 4;
x = rand(n);
x(logical(eye(n))) = 0;
rowsum = sum(x, 2);
x = bsxfun(@rdivide, x, rowsum);
x(logical(eye(n))) = -1;