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