24小时热门版块排行榜

返回列表

liangzilixue

铜虫 (小有名气)

应助: 0 (幼儿园)
金币: 152.2
帖子: 81
在线: 15小时
虫号: 163666
注册: 2006-01-11
性别: MM
专业: 数学物理

[求助] 求助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

» 猜你喜欢

【博士招生】太原理工大学2026化工博士已经有5人回复
什么是人一生最重要的？已经有5人回复
280求调剂已经有3人回复
网上报道青年教师午睡中猝死、熬夜猝死的越来越多，主要哪些原因引起的？已经有8人回复
面上可以超过30页吧？已经有11人回复
版面费该交吗已经有15人回复
体制内长辈说体制内绝大部分一辈子在底层，如同你们一样大部分普通教师忙且收入低已经有18人回复
为什么中国大学工科教授们水了那么多所谓的顶会顶刊，但还是做不出宇树机器人？已经有10人回复

» 本主题相关价值贴推荐，对您同样有帮助:

1楼 2013-03-10 09:28:03

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

liangzilixue

铜虫 (小有名气)

2楼2013-03-16 15:12:32

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

相关版块跳转我要订阅楼主 liangzilixue 的主题更新

返回列表