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