www.gusucode.com > rctutil 工具箱 matlab源码程序 > rctutil/private/ssm2vec.m

    % function vec = ssm2vec(mat)

%   Copyright 1991-2004 MUSYN Inc. and The MathWorks, Inc.

function vec = ssm2vec(mat)

    [n,dum] = size(mat);
    vec = zeros(n*(n-1)/2,1);
    cnt = 1;
    for i=1:n-1
        vec(cnt:cnt+n-i-1) = mat(i,i+1:n)';
        cnt = cnt+n-i;
    end