view general/numerical/safe_exp2.m @ 4:e44f49929e56

Adding reorganised general toolbox, now in several subdirectories.

function [y,k]=safe_exp2(x,l)
% safe_exp2 - high dynamic range exponential
%
% safe_exp2 :: X:[[N,M]], L:real -> [[N,M]], [[1,M]].
%
% returns y and k such that exp(X) = y * exp(k) and
% maximum value in y is exp(L).
% Maximum sensible value of L is log(realmax)=709.78.

k=max(x,[],1)-l; 
y=exp(x-repmat(k,size(x,1),1));