samer@4: function lambda=expdecay(k,d)
samer@4: % expdecay - compute interpolation ratio for exponential decay
samer@4: %
samer@4: % expdecay :: [Size->nonneg], [Size->nonneg] -> [Size->nonneg].
samer@4: %
samer@4: % this gives exponential convergence 
samer@4: 
samer@4: if nargin==2, lambda=1-k;
samer@4: else lambda=@(d)1-k; end