紧急求助

lf0539

高手帮我检查一下这个程序哪里出错了？
& T: Z* A2 s' u% A4 c{z1, z2} = {y + a*x^6*y + b*x^5*y^2 + c*x^4*y^3 + d*x^3*y^4 +
4 B2 x+ r* G1 {9 N! b9 T9 R$ o    f*x^2*y^5 + g*x*y^6 + h*y^7, -x^7 + v*x^6*y + k*x^5*y^2 +
8 v' \7 Z- F2 ], E& ^2 v& M" n    l*x^4*y^3 + m*x^3*y^4 + n*x^2*y^5 + p*x*y^6 + q*y^7};
) L; v8 n/ F0 A6 K* B" Q3 V5 z4*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];
Delete[Union[%], 1];
Do[w[i] = %[[i]], {i, 1, 11}]
( p. p* |5 O8 FDo[w[i] = CoefficientList[w[i], y] /. x -> 1, {i, 1, 11}]
Do[t[i] =
; T9 q1 ~# k. U; g& [9 [# D  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]}]][[
% R' u. Y+ j2 u1 j" [; b6 o9 |   1]], {i, 1, 11}]
# r- X5 D+ c& e0 w3 x4 _Do[Do[e[i] = Expand[e[i] /. t[i - j]], {j, 0, i - 1}], {i, 1, 11}]
5 _* ~" j- }  i% ^4 [% jDo[f[i] = Factor[e[i + 1]], {i, 1, 10}]

执行到
! p: Z; O9 s5 R# d- rDo[t[i] =
2 E3 g' l! v# \# H$ a* x4 [  Solve[Table[w[i][[j]] == 0, {j, 1, 6*i + 3}],
. a2 m( T: F  p1 E% j, l) y' y    Union[Table[r[j, 6*i + 2 - j], {j, 1, 6*i + 2}], {e[i]}]][[
8 X# @0 ?1 o/ Y5 G+ D   1]], {i, 1, 11}] 就提示出错了。高手帮忙啊！谢谢！万分感谢！

水蜜桃まむ曦

路过，看了会儿~~