view general/numerical/scalar/expquadf.m @ 16:db7f4afd27c5

Rearranging numerical toolbox.

% gauss_fn - Gaussian kernel function, exp(-t^2/2)
%
% gauss_fn :: [D] ~'any size array', nonneg ~'variance' -> [D->noneg]~'same size result'.
% gauss_fn :: [D] ~'any size array' -> [D->noneg]~'same size result'.
function x=gauss_fn(t,s), if nargin<2, x=exp(quadf(t)); else x=exp(quadf(t,s)); end