Re: function assignment to list of functions

*To*: mathgroup at smc.vnet.net*Subject*: [mg33704] Re: function assignment to list of functions*From*: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>*Date*: Tue, 9 Apr 2002 01:02:30 -0400 (EDT)*Organization*: Universitaet Leipzig*References*: <a8rhie$b79$1@smc.vnet.net>*Reply-to*: kuska at informatik.uni-leipzig.de*Sender*: owner-wri-mathgroup at wolfram.com

Hi, lets call your polynomes hH[] and Clear[hH]; MapIndexed[ SetDelayed[Evaluate[hH[x_, First[#2] - 1]], #1] &, {1, -x, -1 + x^2, -x(-3 + x^2)}] will do what you want. hH[z,3] gives -z(-3 + z^2) Regards Jens Mark Morrissey wrote: > > Hi Folks - I have an alternative form of the set Hermite polynomials I'd > like to use. They are defined differently than the mathematica function > HermiteH. Unfortunately, the recursive generating function takes way > too long. I can generate a list of these functions using the different > order derrivatives of the gaussian PDF (that's how they're defined): > > {1, -x, -1 + x^2, -x(-3 + x^2) .... } > > But I don't seem to be able to assign each function to H[x_,i_]:= > where i is the index from 0 to the number of functions in the list. > > Any ideas?? > > Thanks in advance. > > Regards - Mark > Mark Morrissey > Unv of Oklahoma > Norman, Oklahoma 73026