function [g]=Hermite(param)
% Hermite  - Hermite Polynomial
% 
% Usage: g = Hermite(param)
%
% param = [n,dim,sigma,loc]
% This function returns the coefficients of the nth order Hermite
% polynomial generated from a Gaussian of width sigma.
% dim is not used.

% Written by Jeffrey A Bloom


n     = param(1);
sigma = param(3);
p = 1;

for k=1:n
 q = polyder(p);
 q = [zeros(1,(k+1)-size(q,2)),q];
 r = [p,0];
 p = q - (1/sigma^2) * r;
end % for

g = p;

return
end % function