紧急求助

lf0539

高手帮我检查一下这个程序哪里出错了？
6 k( W( x0 e/ c' j1 G: W3 j) ]{z1, z2} = {y + a*x^6*y + b*x^5*y^2 + c*x^4*y^3 + d*x^3*y^4 +
8 J7 z+ P2 q# S) y    f*x^2*y^5 + g*x*y^6 + h*y^7, -x^7 + v*x^6*y + k*x^5*y^2 +
. J4 _+ _; a& S, {1 B# V    l*x^4*y^3 + m*x^3*y^4 + n*x^2*y^5 + p*x*y^6 + q*y^7};
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}];
D[%, x]*z1 + D[%, y]*z2 - Sum[e[i]*x^(6*i + 2), {i, 1, 11}];
+ }8 o( s9 j) H9 }CoefficientList[% /. {x -> x*s, y -> y*s}, s];
Delete[Union[%], 1];
Do[w[i] = %[[i]], {i, 1, 11}]
% \3 U3 ]6 z+ c7 ^, {, ^% [Do[w[i] = CoefficientList[w[i], y] /. x -> 1, {i, 1, 11}]
Do[t[i] =
  Solve[Table[w[i][[j]] == 0, {j, 1, 6*i + 3}],
$ }9 c) G/ G$ [& N+ e0 O    Union[Table[r[j, 6*i + 2 - j], {j, 1, 6*i + 2}], {e[i]}]][[
9 O" {/ v' i! Q5 s1 F3 V   1]], {i, 1, 11}]
$ J1 I6 A/ ?" h( |4 G- p, f; i* q+ ~Do[Do[e[i] = Expand[e[i] /. t[i - j]], {j, 0, i - 1}], {i, 1, 11}]
Do[f[i] = Factor[e[i + 1]], {i, 1, 10}]
# N4 H2 ?) I/ l$ G' G: ?: f; d
( s0 i4 L, U% u9 o) E9 W执行到
& |4 S4 r; {; H+ M1 w3 l& vDo[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]}]][[
& i/ S4 u7 B" z6 U( k! L0 q- E% j   1]], {i, 1, 11}] 就提示出错了。高手帮忙啊！谢谢！万分感谢！
4 t# t& @5 }' G; U- C+ J

水蜜桃まむ曦

路过，看了会儿~~