Factor multiple terms in mathematica

[micrain]

Hello, I have a long equation

and using Mathematica 7 I want to factor out terms such as x,y,xy, x^2y,xy^2, etc. so that I'll have it in a form similar to
a + b*x + c*y + d*(xy) + e*(x^2y) + f*(xy^2) + ...
I've tried using the Collect by passing {1,x,y,xy,x^2y,x y^2,...} as the terms to be collected but haven't been successful, I'd appreciate any help!

Thanks!

 

[Hepth]

Do you have that equation in Input form so I can play with it?

Also, have you tried just Expand[%]?

 

[micrain]

Do you have that equation in Input form so I can play with it?

Here you go:
{1, x, y, x^2, y^2, xy, x^3, x^2 y, xy^2,
y^3}.{{Subscript[q, 11], Subscript[q, 12], Subscript[q, 13],
Subscript[q, 14], Subscript[q, 15], Subscript[q, 16],
Subscript[q, 17], Subscript[q, 18], Subscript[q, 19],
Subscript[q, 110]},
{Subscript[q, 12], Subscript[q, 22], Subscript[q, 23],
Subscript[q, 24], Subscript[q, 25], Subscript[q, 26],
Subscript[q, 27], Subscript[q, 28], Subscript[q, 29],
Subscript[q, 210]},
{Subscript[q, 13], Subscript[q, 23], Subscript[q, 33],
Subscript[q, 34], Subscript[q, 35], Subscript[q, 36],
Subscript[q, 37], Subscript[q, 38], Subscript[q, 39],
Subscript[q, 310]},
{Subscript[q, 14], Subscript[q, 24], Subscript[q, 34],
Subscript[q, 44], Subscript[q, 45], Subscript[q, 46],
Subscript[q, 47], Subscript[q, 48], Subscript[q, 49],
Subscript[q, 410]},
{Subscript[q, 15], Subscript[q, 25], Subscript[q, 35],
Subscript[q, 45], Subscript[q, 55], Subscript[q, 56],
Subscript[q, 57], Subscript[q, 58], Subscript[q, 59],
Subscript[q, 510]},
{Subscript[q, 16], Subscript[q, 26], Subscript[q, 36],
Subscript[q, 46], Subscript[q, 56], Subscript[q, 66],
Subscript[q, 67], Subscript[q, 68], Subscript[q, 69],
Subscript[q, 610]},
{Subscript[q, 17], Subscript[q, 27], Subscript[q, 37],
Subscript[q, 47], Subscript[q, 57], Subscript[q, 67],
Subscript[q, 77], Subscript[q, 78], Subscript[q, 79],
Subscript[q, 710]},
{Subscript[q, 18], Subscript[q, 28], Subscript[q, 38],
Subscript[q, 48], Subscript[q, 58], Subscript[q, 68],
Subscript[q, 78], Subscript[q, 88], Subscript[q, 89],
Subscript[q, 810]},
{Subscript[q, 19], Subscript[q, 29], Subscript[q, 39],
Subscript[q, 49], Subscript[q, 59], Subscript[q, 69],
Subscript[q, 79], Subscript[q, 89], Subscript[q, 99],
Subscript[q, 910]},
{Subscript[q, 110], Subscript[q, 210], Subscript[q, 310],
Subscript[q, 410], Subscript[q, 510], Subscript[q, 610],
Subscript[q, 710], Subscript[q, 810], Subscript[q, 910],
Subscript[q,
1010]}} .{{1}, {x}, {y}, {x^2}, {y^2}, {xy}, {x^3}, {x^2 y},
{xy^2}, {y^3}}

Also, have you tried just Expand[%]?

Unfortunately, I've tried it without success.

Thanks for the help!

 

[Hepth]

Well, #1 your :
{1, x, y, x^2, y^2, xy, x^3, x^2 y, xy^2,
y^3}
the xy parts need to have spaces "xy"-> "x y" or xy is a new variable.

Also, the second vector, why do you have the double {{},{},{},..}

Third, how about :

f = {1, x, y, x^2, y^2, x y, x^3, x^2 y, x y^2, 
    y^3}.{{Subscript[q, 11], Subscript[q, 12], Subscript[q, 13], 
     Subscript[q, 14], Subscript[q, 15], Subscript[q, 16], 
     Subscript[q, 17], Subscript[q, 18], Subscript[q, 19], 
     Subscript[q, 110]}, {Subscript[q, 12], Subscript[q, 22], 
     Subscript[q, 23], Subscript[q, 24], Subscript[q, 25], 
     Subscript[q, 26], Subscript[q, 27], Subscript[q, 28], 
     Subscript[q, 29], Subscript[q, 210]}, {Subscript[q, 13], 
     Subscript[q, 23], Subscript[q, 33], Subscript[q, 34], 
     Subscript[q, 35], Subscript[q, 36], Subscript[q, 37], 
     Subscript[q, 38], Subscript[q, 39], 
     Subscript[q, 310]}, {Subscript[q, 14], Subscript[q, 24], 
     Subscript[q, 34], Subscript[q, 44], Subscript[q, 45], 
     Subscript[q, 46], Subscript[q, 47], Subscript[q, 48], 
     Subscript[q, 49], Subscript[q, 410]}, {Subscript[q, 15], 
     Subscript[q, 25], Subscript[q, 35], Subscript[q, 45], 
     Subscript[q, 55], Subscript[q, 56], Subscript[q, 57], 
     Subscript[q, 58], Subscript[q, 59], 
     Subscript[q, 510]}, {Subscript[q, 16], Subscript[q, 26], 
     Subscript[q, 36], Subscript[q, 46], Subscript[q, 56], 
     Subscript[q, 66], Subscript[q, 67], Subscript[q, 68], 
     Subscript[q, 69], Subscript[q, 610]}, {Subscript[q, 17], 
     Subscript[q, 27], Subscript[q, 37], Subscript[q, 47], 
     Subscript[q, 57], Subscript[q, 67], Subscript[q, 77], 
     Subscript[q, 78], Subscript[q, 79], 
     Subscript[q, 710]}, {Subscript[q, 18], Subscript[q, 28], 
     Subscript[q, 38], Subscript[q, 48], Subscript[q, 58], 
     Subscript[q, 68], Subscript[q, 78], Subscript[q, 88], 
     Subscript[q, 89], Subscript[q, 810]}, {Subscript[q, 19], 
     Subscript[q, 29], Subscript[q, 39], Subscript[q, 49], 
     Subscript[q, 59], Subscript[q, 69], Subscript[q, 79], 
     Subscript[q, 89], Subscript[q, 99], 
     Subscript[q, 910]}, {Subscript[q, 110], Subscript[q, 210], 
     Subscript[q, 310], Subscript[q, 410], Subscript[q, 510], 
     Subscript[q, 610], Subscript[q, 710], Subscript[q, 810], 
     Subscript[q, 910], Subscript[q, 1010]}}.{1, x, y, x^2, y^2, x y, 
    x^3, x^2 y, x y^2, y^3};
CoefficientList[Expand[f], {x, y}]
F[i_, j_] := CoefficientList[Expand[f], {x, y}][[i+1]][[j+1]];
F[1, 3]

So it makes an array of the coefficients of the powers of x and y. So F[1,3] would be whatever is in front of x y^3.

 

[micrain]

Thanks!