matthiasm@8: function sz = mysize(M)
matthiasm@8: % MYSIZE Like the built-in size, except it returns n if M is a vector of length n, and 1 if M is a scalar.
matthiasm@8: % sz = mysize(M)
matthiasm@8: % 
matthiasm@8: % The behavior is best explained by examples
matthiasm@8: % - M = rand(1,1),   mysize(M) = 1,      size(M) = [1 1]
matthiasm@8: % - M = rand(2,1),   mysize(M) = 2,      size(M) = [2 1]
matthiasm@8: % - M = rand(1,2),   mysize(M) = 2,      size(M) = [1 2]
matthiasm@8: % - M = rand(2,2,1), mysize(M) = [2 2],  size(M) = [2 2]
matthiasm@8: % - M = rand(1,2,1), mysize(M) = 2,      size(M) = [1 2]
matthiasm@8: 
matthiasm@8: if isvector(M)
matthiasm@8:   sz = length(M);
matthiasm@8: else
matthiasm@8:   sz = size(M);
matthiasm@8: end