view general/numerical/scalar/expdecay.m @ 61:eff6bddf82e3 tip

Finally implemented perceptual brightness thing.

function lambda=expdecay(k,d)
% expdecay - compute interpolation ratio for exponential decay
%
% expdecay :: [Size->nonneg], [Size->nonneg] -> [Size->nonneg].
%
% this gives exponential convergence 

if nargin==2, lambda=1-k;
else lambda=@(d)1-k; end