紧急求助

lf0539

高手帮我检查一下这个程序哪里出错了？
7 Z8 H3 B# i' V% n8 F" z{z1, z2} = {y + a*x^6*y + b*x^5*y^2 + c*x^4*y^3 + d*x^3*y^4 +
% H8 v' j5 X! @) K3 z9 a5 ~    f*x^2*y^5 + g*x*y^6 + h*y^7, -x^7 + v*x^6*y + k*x^5*y^2 +
( u% s2 M4 _# W    l*x^4*y^3 + m*x^3*y^4 + n*x^2*y^5 + p*x*y^6 + q*y^7};
: [  \( ~' U% x6 d, ?5 I4*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}];
  ]9 e% w! Y' xCoefficientList[% /. {x -> x*s, y -> y*s}, s];
Delete[Union[%], 1];
Do[w[i] = %[[i]], {i, 1, 11}]
9 `' s: j! O0 X- a* o7 _' SDo[w[i] = CoefficientList[w[i], y] /. x -> 1, {i, 1, 11}]
Do[t[i] =
* n# ~0 r) \) M8 A  Solve[Table[w[i][[j]] == 0, {j, 1, 6*i + 3}],
, W' o: z& N3 N- W3 I) ~0 O  a6 w    Union[Table[r[j, 6*i + 2 - j], {j, 1, 6*i + 2}], {e[i]}]][[
) q8 s" p! P7 F" w4 Y3 V( f   1]], {i, 1, 11}]
% {9 K7 R3 m8 D$ z  \/ o* K" r) NDo[Do[e[i] = Expand[e[i] /. t[i - j]], {j, 0, i - 1}], {i, 1, 11}]
3 F4 \/ I0 `, X* E- N* S5 d) J# eDo[f[i] = Factor[e[i + 1]], {i, 1, 10}]
& T1 z# `5 v# }5 `% W/ y3 ]  r/ P
执行到
Do[t[i] =
  Solve[Table[w[i][[j]] == 0, {j, 1, 6*i + 3}],
% F3 D, U& X2 w& l    Union[Table[r[j, 6*i + 2 - j], {j, 1, 6*i + 2}], {e[i]}]][[
$ B9 e* R+ p% G- z' R% R   1]], {i, 1, 11}] 就提示出错了。高手帮忙啊！谢谢！万分感谢！

水蜜桃まむ曦

路过，看了会儿~~