紧急求助
高手帮我检查一下这个程序哪里出错了？{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};
4*y^2 + Sum*x^j*y^(8*i + 2 - j), {j, 1, 6*i + 2}], {i, 1, 11}];
D[%, x]*z1 + D[%, y]*z2 - Sum*x^(6*i + 2), {i, 1, 11}];
CoefficientList[% /. {x -> x*s, y -> y*s}, s];
Delete, 1];
Do = %[], {i, 1, 11}]
Do = CoefficientList, y] /. x -> 1, {i, 1, 11}]
Do =
Solve[] == 0, {j, 1, 6*i + 3}],
Union, {j, 1, 6*i + 2}], {e}]][[
1]], {i, 1, 11}]
Do = Expand /. t], {j, 0, i - 1}], {i, 1, 11}]
Do = Factor], {i, 1, 10}]
执行到
Do =
Solve[] == 0, {j, 1, 6*i + 3}],
Union, {j, 1, 6*i + 2}], {e}]][[
1]], {i, 1, 11}] 就提示出错了。高手帮忙啊！谢谢！万分感谢！
路过，看了会儿~~
页:
[1]