紧急求助

lf0539

高手帮我检查一下这个程序哪里出错了？
1 A7 k1 A- q1 ~. j. |+ D) ]8 Q{z1, z2} = {y + a*x^6*y + b*x^5*y^2 + c*x^4*y^3 + d*x^3*y^4 +
8 H, N2 N; o% w/ |! n3 b    f*x^2*y^5 + g*x*y^6 + h*y^7, -x^7 + v*x^6*y + k*x^5*y^2 +
. y' E4 ^2 q& Y+ J2 R. {( \    l*x^4*y^3 + m*x^3*y^4 + n*x^2*y^5 + p*x*y^6 + q*y^7};
; m- ?+ U# M/ o6 C4*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}];
& K5 C, b$ x2 mCoefficientList[% /. {x -> x*s, y -> y*s}, s];
Delete[Union[%], 1];
Do[w[i] = %[[i]], {i, 1, 11}]
% |1 S: N" Y" w; LDo[w[i] = CoefficientList[w[i], y] /. x -> 1, {i, 1, 11}]
; d8 f3 {% r" M8 R( o- D4 JDo[t[i] =
  Solve[Table[w[i][[j]] == 0, {j, 1, 6*i + 3}],
/ M$ l2 L- X: O! b; Q. B7 i" ]8 J    Union[Table[r[j, 6*i + 2 - j], {j, 1, 6*i + 2}], {e[i]}]][[
' _5 g4 U/ l+ j) K: m% s* h   1]], {i, 1, 11}]
Do[Do[e[i] = Expand[e[i] /. t[i - j]], {j, 0, i - 1}], {i, 1, 11}]
/ w8 K! o1 P3 q/ }+ w1 n* Y' pDo[f[i] = Factor[e[i + 1]], {i, 1, 10}]
! g% ~0 g- @9 n7 H* h' g1 u
执行到
Do[t[i] =
- B3 G2 ]7 r; Q! P" H# T  Solve[Table[w[i][[j]] == 0, {j, 1, 6*i + 3}],
6 s" X: l7 u7 I0 t4 j0 L! b    Union[Table[r[j, 6*i + 2 - j], {j, 1, 6*i + 2}], {e[i]}]][[
   1]], {i, 1, 11}] 就提示出错了。高手帮忙啊！谢谢！万分感谢！

水蜜桃まむ曦

路过，看了会儿~~