紧急求助

lf0539

高手帮我检查一下这个程序哪里出错了？
8 H0 `. t3 Z' H5 l4 p+ u' G; G7 f{z1, z2} = {y + a*x^6*y + b*x^5*y^2 + c*x^4*y^3 + d*x^3*y^4 +
    f*x^2*y^5 + g*x*y^6 + h*y^7, -x^7 + v*x^6*y + k*x^5*y^2 +
    l*x^4*y^3 + m*x^3*y^4 + n*x^2*y^5 + p*x*y^6 + q*y^7};
4 s% W/ e! s5 r: G4*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}];
D[%, x]*z1 + D[%, y]*z2 - Sum[e[i]*x^(6*i + 2), {i, 1, 11}];
! @, j% A3 h. R6 K1 D7 ]5 PCoefficientList[% /. {x -> x*s, y -> y*s}, s];
Delete[Union[%], 1];
: q, W9 f% `, xDo[w[i] = %[[i]], {i, 1, 11}]
Do[w[i] = CoefficientList[w[i], y] /. x -> 1, {i, 1, 11}]
$ M7 L$ H! ]" U3 d, R4 GDo[t[i] =
* D# O/ A4 V; ?+ B4 p  Solve[Table[w[i][[j]] == 0, {j, 1, 6*i + 3}],
& T+ r. a' J+ y! |% F" x3 v$ m% a* l    Union[Table[r[j, 6*i + 2 - j], {j, 1, 6*i + 2}], {e[i]}]][[
   1]], {i, 1, 11}]
( h$ Z' R: d% A% r" h( j1 }Do[Do[e[i] = Expand[e[i] /. t[i - j]], {j, 0, i - 1}], {i, 1, 11}]
* q( r1 [) Y7 s- J/ @Do[f[i] = Factor[e[i + 1]], {i, 1, 10}]
8 \6 a/ f! V9 Q8 M9 X/ `4 s1 [
: M5 Q- s$ w% ?/ U% A执行到
  ^6 J' q5 m7 i& c* bDo[t[i] =
; D6 A. z( V' F# u! H  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]}]][[
   1]], {i, 1, 11}] 就提示出错了。高手帮忙啊！谢谢！万分感谢！

水蜜桃まむ曦

路过，看了会儿~~