| 查看: 424 | 回复: 1 | |||
[求助]
求助Mathematica高手,帮我看看程序有没问题，急！
|
|
附件中是函数的表达式及相关说明，下面是程序，麻烦高手帮忙看下，谢谢先！ 另外还有一个问题：在Mathematica中如何计算Hankel逆变换？ << PlotLegends` Clear["`*"] Mittag = 0; For[i = 0, i < 10, i++, Mittag = Mittag + t^i/Gamma[alpha*i + beta]]; Interme = 0; For[k = 0, k < 6, k++, For[m = 0, m <= k, m++, Interme2 = 0; Interme2 = D[Mittag, {t, k}] /. {t -> -t^alpha/lambda, beta -> alpha - beta*m + k + 2}; Interme = Interme + (-1)^k*(varepsilon^2 + eta^2)^(k + 1)*lambdat^m* t^(alpha*k + alpha - beta*m + k + 1)* Interme2/lambda^(k + 1)/m!/(k - m)!; ] ] pp1 = BesselJ[varepsilon*r, 1]*(1 - Interme) /. {alpha -> 0.5, beta -> 0.8, eta -> 1, lambda -> 6, lambdat -> 4, t -> 1}; pp2 = BesselJ[varepsilon*r, 1]*(1 - Interme) /. {alpha -> 0.5, beta -> 0.8, eta -> 1, lambda -> 6, lambdat -> 4, t -> 5}; pp3 = BesselJ[varepsilon*r, 1]*(1 - Interme) /. {alpha -> 0.5, beta -> 0.8, eta -> 1, lambda -> 6, lambdat -> 4, t -> 10}; \[Omega]1 = Integrate[pp1, {varepsilon, 0, 100}] \[Omega]2 = Integrate[pp2, {varepsilon, 0, 100}] \[Omega]3 = Integrate[pp3, {varepsilon, 0, 100}] Plot[{\[Omega]1, \[Omega]2, \[Omega]3}, {r, 0, 5}, AxesOrigin -> {0, 0}, Frame -> True , FrameLabel -> {r, \[Omega]}, PlotStyle -> {Black, Red, Blue}, PlotLegend -> {"t=1", "t=5", "t=10"}][ Last edited by liangzilixue on 2013-3-10 at 09:37 ] |
回复此楼» 本帖附件资源列表
-
欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com - 附件 1 : 函数表达式.docx
2013-03-10 09:25:26, 38.93 K
» 猜你喜欢
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有6人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有4人回复
-
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有5人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有5人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有6人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有5人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有6人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有5人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有5人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 请高手帮我看看这封邮件的内容
已经有4人回复
- 高手帮我看看，这种示意图用什么软件画比较方便？
已经有7人回复
- 求高手帮我看看这2张核磁图
已经有5人回复
- 各位有机高手，帮我看看一个pKa的问题
已经有6人回复
- 帮我看看这个CETEX程序哪错了 帮我运行出来必有重谢
已经有4人回复
- 高人帮我看一下，是不是氰基水解掉了
已经有9人回复
- 急！请高手们帮我看看这个合成路线！高手帮忙指教
已经有18人回复
- 急！请高手们帮我看看这个合成路线！请指教！
已经有25人回复
- 【求助】【求助】大家帮我看看，这是怎么回事？推荐信~~~~
已经有8人回复
- 【求助】高手帮我看看这个H谱
已经有18人回复
- 【求助】急！请高人帮我看看我的GPC 图
已经有26人回复
- 【求助】大家帮我看看这个反应的合成条件啊 急
已经有4人回复
- 【求助】高手帮我看看这是怎么回事？
已经有5人回复
- 【求助】大家帮我看看这个MATLAB程序？
已经有6人回复
- 【求助】帮我看看这份心电图？
已经有31人回复
liangzilixue
铜虫 (小有名气)
 |
2楼2013-03-16 15:12:32
