F[1] := proc (x) options operator, arrow; x^3+x^2*y+z^2+m*x end proc;
3 2 2
x -> x + x y + z + m x
F[2] := proc (x) options operator, arrow; y^2+x*y-x^3+x*z+m^2*y end proc;
2 3 2
x -> y + x y - x + x z + m y
F[3] := proc (x) options operator, arrow; z^3+y^2*z-x*z^2 end proc;
3 2 2
x -> z + y z - x z
F[4] := proc (x) options operator, arrow; m^3-m*z+y^2 end proc;
3 2
x -> m - m z + y
sq := seq(x[k], k = 1 .. 2);
p := sort(expand(sum((sum(x[k], k = 1 .. 2))*conjugate(u), u = 2)));
MF := {seq(x[i] = add(eta, eta = zip(proc (x, y) options operator, arrow; x*y end proc, [seq(h[i, s], s = 1 .. nops(p))], [seq(op(s, p)/coeffs(op(s, p)), s = 1 .. nops(p))])), i = 3 .. 4)};
for i from 3 to 4 do dh := 0; for j to 2 do dh := (diff(eval(x[i], MF), x[j]))*F[j]+dh end do; sort(select(proc (term) options operator, arrow; degree(term, {sq}) <= r end proc, expand(subs(MF, F[i]-dh)))); eqn[i] := seq(op(j, {coeffs(%, {sq})}) = 0, j = 1 .. nops({coeffs(%, {sq})})) end do; MF := subs(solve({seq(eqn[i], i = 3 .. 4)}, {seq(seq(h[i, s], s = 1 .. nops(p)), i = 3, 4)}), MF); for j to 2 do dx[j] := subs(MF, F[j]) end do;
Error, selecting function must return true or false
Error, invalid input: only two arguments expected for this form of seq, but received 3
F[1]
F[2]
麻烦哪位懂maple的帮忙看看
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
1条回答
- WorldMobile 2014-12-19 15:22关注
没看到报哪行错误,看错误的话应该是函数的返回值弄错了
Error, selecting function must return true or false
解决 无用评论 打赏 举报
悬赏问题
- ¥15 如何在scanpy上做差异基因和通路富集?
- ¥20 关于#硬件工程#的问题,请各位专家解答!
- ¥15 关于#matlab#的问题:期望的系统闭环传递函数为G(s)=wn^2/s^2+2¢wn+wn^2阻尼系数¢=0.707,使系统具有较小的超调量
- ¥15 FLUENT如何实现在堆积颗粒的上表面加载高斯热源
- ¥30 截图中的mathematics程序转换成matlab
- ¥15 动力学代码报错,维度不匹配
- ¥15 Power query添加列问题
- ¥50 Kubernetes&Fission&Eleasticsearch
- ¥15 報錯:Person is not mapped,如何解決?
- ¥15 c++头文件不能识别CDialog