紧急求助

lf0539

高手帮我检查一下这个程序哪里出错了？
{z1, z2} = {y + a*x^6*y + b*x^5*y^2 + c*x^4*y^3 + d*x^3*y^4 +
    f*x^2*y^5 + g*x*y^6 + h*y^7, -x^7 + v*x^6*y + k*x^5*y^2 +
    l*x^4*y^3 + m*x^3*y^4 + n*x^2*y^5 + p*x*y^6 + q*y^7};
! r# e7 u/ ~# N' J% |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}];
) c- D2 ^3 _$ m  y3 c/ i- uD[%, 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}]
Do[w[i] = CoefficientList[w[i], y] /. x -> 1, {i, 1, 11}]
: W$ l8 x2 m, r/ i9 F. fDo[t[i] =
( A% T/ @! D( }* x: P/ x7 n& v: ^  Solve[Table[w[i][[j]] == 0, {j, 1, 6*i + 3}],
7 T$ o: A4 [9 ^    Union[Table[r[j, 6*i + 2 - j], {j, 1, 6*i + 2}], {e[i]}]][[
7 e  X" r' C) B4 m( p6 }   1]], {i, 1, 11}]
! M1 P+ G4 Y7 B2 j# gDo[Do[e[i] = Expand[e[i] /. t[i - j]], {j, 0, i - 1}], {i, 1, 11}]
& l/ f3 ]. r. M3 T3 ZDo[f[i] = Factor[e[i + 1]], {i, 1, 10}]

8 X4 A# O- W4 X% R3 `0 o6 I0 [执行到
3 I8 ~7 b" ?. C' o8 ?: _% c  b' ZDo[t[i] =
1 u6 p' Q3 E" r. S! y  Solve[Table[w[i][[j]] == 0, {j, 1, 6*i + 3}],
" I/ P8 C# I# _) K) r1 J    Union[Table[r[j, 6*i + 2 - j], {j, 1, 6*i + 2}], {e[i]}]][[
   1]], {i, 1, 11}] 就提示出错了。高手帮忙啊！谢谢！万分感谢！
; s$ ~8 O7 F3 M5 h

水蜜桃まむ曦

路过，看了会儿~~