view general/numerical/divnorm.m @ 54:9bcf5e133bf0

Added from old stats library.

function [Y,Z]=divnorm(F,X)
% divnorm - Do divisive normalisation of a sequence of vectors.
%
% divnorm ::
%    ([[N,L]] -> [[1,L]]) ~'function to compute norm',
%    [[N,L]]    ~'array of L N-dim vectors'
% -> [[N,L]]    ~'normalised vectors (ie unit 2-norm)',
%    [[1,L]]    ~'array of normalisation factors'.
%
% ie, if [Y,Z]=divnorm(X),
% then X = repmat(Z,size(X,1),1).*Y
%
% TODO: might like to smooth the envelope before dividing.
Y = vecop1(@rdivide,X,F(X));