       Re: help in constructing a binomial consequence

• To: mathgroup at smc.vnet.net
• Subject: [mg98276] Re: help in constructing a binomial consequence
• From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
• Date: Fri, 3 Apr 2009 20:13:33 -0500 (EST)
• Organization: Uni Leipzig
• References: <gr4jm9\$ac5\$1@smc.vnet.net>

```Hi,

if it must be that order and you cant give us the rule for that order
you have to type it by hand otherwise

With[{n = 3},
lst = Flatten[
Outer[Times, Table[x^i, {i, 0, n}], Table[y^j, {j, 0, n}]], 1]
]

exponentSum[expr_] := Block[{ex, ey},
ex = Exponent[expr, x];
ey = Exponent[expr, y];
ex + ey
]

and

Sort[lst, exponentSum[#1] < exponentSum[#2] ||  OrderedQ[{#1, #2}] &]

will do something that is very close to your ordering.

Regards
Jens

Galina wrote:
> Hello all,
> I need  to find an eigenvalues of the matrix M [N*N] where elements
> are of the type F[i]*F[j]. I need help to construct the elements F[i]
> which must be in the following order: F=1, F=x, F=y, F
> =x^2, F=x*y, F=y^2, F=y*x^2, F=x*y^2, F=x^3 and etc....