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.