% 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
