(*###################################################################*)
(*# Hermite Polinomials are generated by derivatives of e^{-x^2}    #*)
(*# This file simply creates a function of the real variable x and  #*)
(*# the integer variable n, which is the n-th Hermite polynomial in #*)
(*# the variable x. The formula for the n-th Hermite polynomial is  #*)
(*# given by (-1)^n times the coefficient of the n-th derivative of #*)
(*# e^{-x^2}. Run << Hermite.txt in a Mathematica notebook with this#*)
(*# file in the current directory (use Directory[] to see your      #*)
(*# current directory and SetDirectory to change it). Then you can  #*)
(*# define p[x_]:=Hermite[x,5] and p will be the 5th Hermite  	    #*)
(*# polynomial, which can be plotted or evaluated.                  #*)
(*###################################################################*)

Hermite[x_,n_] := Coefficient[(-1)^n*D[Exp[-x^2],{x,n}],Exp[-x^2]];