samer@44: function Z=mapels(f,X)
samer@44: % mapels - Map a function of a scalar over one or more arrays
samer@44: %
samer@44: % mapels :: 
samer@44: %    (A->B), 
samer@44: %    [Size->A]
samer@44: % -> [Size->B].
samer@44: 
samer@44: z1=f(X(1));
samer@44: Z=repmat(z1,size(X));
samer@44: for i=2:numel(X)
samer@44: 	Z(i)=f(X(i));
samer@44: end