wolffd@0: function T = myones(sizes)
wolffd@0: % MYONES Like the built-in ones, except myones(k) produces a k*1 vector instead of a k*k matrix,
wolffd@0: % T = myones(sizes)
wolffd@0: 
wolffd@0: if length(sizes)==0
wolffd@0:   T = 1;
wolffd@0: elseif length(sizes)==1
wolffd@0:   T = ones(sizes, 1);
wolffd@0: else
wolffd@0:   T = ones(sizes(:)');
wolffd@0: end