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
  • Subject: [mg113020] Re: Generation of polynomials
  • From: Richard Fateman <fateman at>
  • Date: Mon, 11 Oct 2010 05:16:47 -0400 (EDT)
  • References: <i8pgh5$fij$> <i8s5g9$947$>

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