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

» 猜你喜欢

对氯苯硼酸纯化已经有3人回复
求助:我三月中下旬出站，青基依托单位怎么办？已经有12人回复
不自信的我已经有12人回复
假如你的研究生提出不合理要求已经有5人回复
所感已经有4人回复
论文终于录用啦！满足毕业条件了已经有28人回复
要不要辞职读博？已经有7人回复
北核录用已经有3人回复
实验室接单子已经有3人回复
磺酰氟产物，毕不了业了！已经有8人回复

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

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

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

liangzilixue

铜虫 (小有名气)

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

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

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

返回列表