紧急求助

lf0539

高手帮我检查一下这个程序哪里出错了？
{z1, z2} = {y + a*x^6*y + b*x^5*y^2 + c*x^4*y^3 + d*x^3*y^4 +
; }4 N0 t% f* H  [& V+ N    f*x^2*y^5 + g*x*y^6 + h*y^7, -x^7 + v*x^6*y + k*x^5*y^2 +
1 D+ ?! b& w' E- ~) F) m    l*x^4*y^3 + m*x^3*y^4 + n*x^2*y^5 + p*x*y^6 + q*y^7};
1 o) o+ _& j+ n! S# T& S; ]4*y^2 + Sum[Sum[r[j, 6*i + 2 - j]*x^j*y^(8*i + 2 - j), {j, 1, 6*i + 2}], {i, 1, 11}];
8 u3 _  Y( q' d4 K. gD[%, x]*z1 + D[%, y]*z2 - Sum[e[i]*x^(6*i + 2), {i, 1, 11}];
CoefficientList[% /. {x -> x*s, y -> y*s}, s];
7 u! g  X& k" ?# L. I$ V3 ?7 ?& PDelete[Union[%], 1];
8 |, U! P% P# W2 _' I& y( ]Do[w[i] = %[[i]], {i, 1, 11}]
1 V( ]6 d& W8 n+ X' n; A. M) ~: U# vDo[w[i] = CoefficientList[w[i], y] /. x -> 1, {i, 1, 11}]
% J1 O" f1 R; `) b. V/ _! z* H" YDo[t[i] =
  Solve[Table[w[i][[j]] == 0, {j, 1, 6*i + 3}],
    Union[Table[r[j, 6*i + 2 - j], {j, 1, 6*i + 2}], {e[i]}]][[
# e% }6 W, V$ T# X2 Y+ a   1]], {i, 1, 11}]
Do[Do[e[i] = Expand[e[i] /. t[i - j]], {j, 0, i - 1}], {i, 1, 11}]
& ?6 P8 R+ x5 B1 J4 n4 [4 O& oDo[f[i] = Factor[e[i + 1]], {i, 1, 10}]

执行到
Do[t[i] =
  Solve[Table[w[i][[j]] == 0, {j, 1, 6*i + 3}],
7 Y6 Z' c+ J7 x2 P! G/ M& ]    Union[Table[r[j, 6*i + 2 - j], {j, 1, 6*i + 2}], {e[i]}]][[
7 ~% e$ p) f6 g4 g. G! i   1]], {i, 1, 11}] 就提示出错了。高手帮忙啊！谢谢！万分感谢！

水蜜桃まむ曦

路过，看了会儿~~