Разбить выражение в maple

[cupuyc]

Здравствуйте. У меня есть некоторое выражение $w = <a_1 b_2 J_1 + a_1^2 J_3 + a_1^2 + ... , b_3^2 J_1 + .., ... >$, где w, a, b, J - n-мерные векторы. Вектор J входит в выражение линейно. Мне нужно привести его к виду$w = f(a, b) + X(a, b).J$, то есть найти вид функций $f$ и $X$. Как-то можно это сделать автоматически? Выражение очень большое и делать это всё руками очень долго, ещё и кучу ошибок допущу.

[Leox]

f:=subs({seq(J[i]=0,i=1..n)},w);
X:=subs({seq(J[i]=1,i=1..n)},simplify(w-f));