Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2002
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2002

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: Re: Question regarding Compile
  • Next by Date: Re: function assignment to list of functions
  • Previous by thread: function assignment to list of functions
  • Next by thread: Re: function assignment to list of functions