function b=measure(x,l)
% measure - returns vector in given direction but with a different length
%
% measure :: [[N]] -> [[N]] ~'unit vector of length 1'.
% measure :: [[N]], L:nonneg -> [[N]] ~'vector of length L'.

if nargin<2, l=1; end
b=(l/norm(x))*x;
