Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

Re: Generation of polynomials

  • To: mathgroup at smc.vnet.net
  • Subject: [mg113020] Re: Generation of polynomials
  • From: Richard Fateman <fateman at cs.berkeley.edu>
  • Date: Mon, 11 Oct 2010 05:16:47 -0400 (EDT)
  • References: <i8pgh5$fij$1@smc.vnet.net> <i8s5g9$947$1@smc.vnet.net>


f[n_] := (Expand[Normal[
     Series[Product[Sum[(q*t)^i, {i, 0, n}], {q , {x, y}}], {t, 0,
       n}]]]) /. t -> 1


from which one can generate polynomials e.g. f[1],f[2],f[3].

Now this does not generate the same display as given since Mathematica
has a different ordering of terms in mind.

Sometimes the simplest way to produce a mathematical expression is to do
mathematics, not hacking lists, tables, etc.




  • Prev by Date: Re: Manipulate Series Expansions
  • Next by Date: local variables - Module, For loop
  • Previous by thread: Re: Generation of polynomials
  • Next by thread: Re: Generation of polynomials