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

Adding reorganised general toolbox, now in several subdirectories.

function W = lambertw(x)
% lambertw - Lambert's W function
%
% lambertw :: real -> real.
%
% evaluates W(y) for -1 branch of Lambert W function where
% y = -exp(-x)
%
% The W function satisfies W(t)*exp(W(t)) = t

if x<1, error('lambertw: argument must be >= 1'); end
W=fixpoint(@(w)(-x-log(abs(w))),-x,'its',60);