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.