samer@17: function [y,k]=safe_exp(x,l)
samer@17: % safe_exp - high dynamic range exponential
samer@17: %
samer@17: % safe_exp :: X:[[N,M]] -> [[N,M]], [[1,M]].
samer@17: %
samer@17: % returns y and k such that exp(X) = y * exp(k) and
samer@17: % maximum value in y is 1.
samer@17: 
samer@17: k=max(x,[],1);
samer@17: y=exp(x-repmat(k,size(x,1),1));
samer@17: