紧急求助

lf0539

高手帮我检查一下这个程序哪里出错了？
{z1, z2} = {y + a*x^6*y + b*x^5*y^2 + c*x^4*y^3 + d*x^3*y^4 +
" ~1 M+ q2 j) g' g8 N    f*x^2*y^5 + g*x*y^6 + h*y^7, -x^7 + v*x^6*y + k*x^5*y^2 +
3 M; R. F9 y3 d6 z( I- B    l*x^4*y^3 + m*x^3*y^4 + n*x^2*y^5 + p*x*y^6 + q*y^7};
9 ^4 f/ C) B4 d4*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}];
CoefficientList[% /. {x -> x*s, y -> y*s}, s];
% _; f$ |. a% w" l, w+ LDelete[Union[%], 1];
Do[w[i] = %[[i]], {i, 1, 11}]
Do[w[i] = CoefficientList[w[i], y] /. x -> 1, {i, 1, 11}]
Do[t[i] =
) c* Y! U! W3 D( ^7 g; |. N) J  Solve[Table[w[i][[j]] == 0, {j, 1, 6*i + 3}],
1 O2 h3 a$ b8 @0 W2 ?    Union[Table[r[j, 6*i + 2 - j], {j, 1, 6*i + 2}], {e[i]}]][[
7 L$ K6 t. U  {9 A1 |   1]], {i, 1, 11}]
) i& _' q3 d4 I( y0 uDo[Do[e[i] = Expand[e[i] /. t[i - j]], {j, 0, i - 1}], {i, 1, 11}]
2 y- R6 w( o& ^/ X- F8 aDo[f[i] = Factor[e[i + 1]], {i, 1, 10}]

执行到
7 [; L2 b3 N) J0 ]1 X# D' sDo[t[i] =
$ ~1 Q- \- q  B" M7 s) W  Solve[Table[w[i][[j]] == 0, {j, 1, 6*i + 3}],
9 [4 k. b- z9 d. G    Union[Table[r[j, 6*i + 2 - j], {j, 1, 6*i + 2}], {e[i]}]][[
* t+ h8 T1 A6 Z* A/ X- J# `' t' C   1]], {i, 1, 11}] 就提示出错了。高手帮忙啊！谢谢！万分感谢！
$ S3 J2 _" j- l; z7 `, ]0 n

水蜜桃まむ曦

路过，看了会儿~~