| 查看: 264 | 回复: 1 | |||
[求助]
maple，求大神帮我看看这个程序，为何没结果 已有1人参与
|
|
k := 1; R := 1; alpha := 1; H := 1; w[0] := 1; eq[m] := A[m]*(HankelH1(m-1, k*R)-HankelH1(m+1, k*R))+sum(A[n](-exp(-(1/2)*i(m+n)*pi)*HankelH1(-m-n, 2*k*H)*BesselJ(1-m, k*R)+exp(-(1/2)*i(m+n)*pi)*HankelH1(-m-n, 2*k*H)*BesselJ(-1-m, k*R)), n = -2 .. 2) = -i^m*w[0]*(BesselJ(m-1, k*R)-BesselJ(m+1, k*R))*(exp(-i*H*k*sin(alpha)-i*m*alpha)+exp(i*H*k*sin(alpha)+i*m*alpha)); eq[m1] := subs(m = 1, eq[m]); eq[m2] := subs(m = 2, eq[m]); eq[m0] := subs(m = 0, eq[m]); eq[m-1] := subs(m = -1, eq[m]); eq[m-2] := subs(m = -2, eq[m]); solve({eq[m-2], eq[m-1], eq[m0], eq[m1], eq[m2]}, {A[-2], A[-1], A[0], A[1], A[2]}); |
回复此楼» 猜你喜欢
5个%2F，非固定段22个字母
已经有10人回复
-
小木虫没落了，除了祈祷帖子，几乎看不到有价值的帖子
已经有16人回复
-
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急
已经有3人回复
-
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急
已经有6人回复
-
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急
已经有4人回复
-
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急
已经有6人回复
-
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急
已经有6人回复
-
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急
已经有4人回复
-
国社科通讯评审
已经有6人回复
-
面上的水很深
已经有21人回复
Mr__Right
专家顾问 (著名写手)
-
专家经验: +31 - 应助: 317 (大学生)
- 金币: 14456.3
- 散金: 500
- 红花: 54
- 帖子: 2716
- 在线: 950.6小时
- 虫号: 1972612
- 注册: 2012-09-04
- 性别: GG
- 专业: 应用数学方法
- 管辖: 程序语言
2楼2016-10-29 14:48:56
10