% to1s - return array of ones same size as given
%
% to1s :: [Size->A] -> [Size->real].
function a=to1s(a)
   a=ones(size(a));

