24小时热门版块排行榜    

查看: 2823  |  回复: 6
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

lqglz

木虫 (正式写手)

[求助] Matlab(或者Mathematica) 如何进行复杂函数的二重积分?

变量两个:theta和t
函数如下:f(theta, t)=(2.391e-7)./(0.00105+t).^4.83.*exp(-4.*((theta-10.94).^2+3.362e-3)./(0.00105+t))./(3.8825e-4+t).^5.*1.021e-4.*exp(-0.5.*((theta-10.91).^2+2.381e-3)./(3.8825e-4+t)), 公式也可见附件1图片。

需要对式中t和theta分别在(0, inf)和(-inf, inf)进行二重积分.

1.jpg



[ Last edited by lqglz on 2012-10-23 at 22:11 ]
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

walk1997

金虫 (著名写手)

这个积分有点意思.....
我觉得估计你最好需要表达式里面有些数值更高精度的,我假设你里面的数值都是解析的 无穷精度
(不过检查了下,用小数 算出来结果一样)
最后2个输出结果应该是对了....
1.74992*10^9  没有求倒数
---------------------------------------------------------------------------
f[theta_, t_] := (2391*10^-10)/(105/100000 + t)^(483/100)*
   Exp[-4*((theta - 1094/100)^2 + 3362*10^-6)/(105/100000 +
         t)]/(38825*10^-8 + t)^5*1021*10^-7*
   Exp[-1/2*((theta - 1091/100)^2 + 2381*10^-6)/(38825*10^-8 + t)];
f[1, 10.91]
NIntegrate[f[theta, t], {theta, -Infinity, Infinity}, {t, 0, Infinity}]
NIntegrate[f[theta, t], {theta, -100, 100}, {t, 0, 10}]
NIntegrate[
f[theta, t], {theta, -Infinity, -10, -5, -1, 0, 1, 5, 1091/100, 20,
  Infinity}, {t, 0, 1, 5, 10, 20, 100, Infinity}, PrecisionGoal -> 12,
  MaxRecursion -> 100]
NIntegrate[
f[theta, t], {theta, -Infinity, 1091/100, 1094/100, Infinity}, {t, 0,
   Infinity}]
--------------------------------
3.15879*10^-39

2.22875*10^-19

2.33261*10^-20

1.74992*10^9
1.74992*10^9
5楼2012-10-27 02:23:06
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 7 个回答

walk1997

金虫 (著名写手)

你贴个jpg文档,想帮的人还得自己输入你的函数表达式。这个有点头痛。。。麻烦的。。。。
粗粗感觉 直接数值积分会有问题么?
方便的话 你把代码发给我 我试试
2楼2012-10-27 01:39:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

walk1997

金虫 (著名写手)

sorry  没看到你最前面给了公式
3楼2012-10-27 01:40:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

walk1997

金虫 (著名写手)

但是你这个不是mathematica格式吧。。。fortran格式。。?
4楼2012-10-27 01:41:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +4 Aj1rhIDL5ixY 2026-09-14 4/200 2026-09-16 07:03 by LH5NkK5Ud4bh
[硕博家园] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +3 0pYnUiPDfdnk 2026-09-14 3/150 2026-09-16 06:51 by LH5NkK5Ud4bh
[博后之家] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +3 6F5UbRU2I5hL 2026-09-14 3/150 2026-09-16 05:35 by LH5NkK5Ud4bh
[硕博家园] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +3 6F5UbRU2I5hL 2026-09-14 3/150 2026-09-16 05:27 by LH5NkK5Ud4bh
[找工作] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +3 6F5UbRU2I5hL 2026-09-14 3/150 2026-09-16 05:15 by LH5NkK5Ud4bh
[找工作] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +5 6F5UbRU2I5hL 2026-09-14 5/250 2026-09-16 04:51 by LH5NkK5Ud4bh
[找工作] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +4 3n8v2C8RimXI 2026-09-13 5/250 2026-09-16 03:02 by DgNGHc3h5tPl
[考博] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +7 3n8v2C8RimXI 2026-09-13 7/350 2026-09-16 02:35 by DgNGHc3h5tPl
[考研] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +3 Aj1rhIDL5ixY 2026-09-14 3/150 2026-09-15 20:14 by zNcEhTcH7ihq
[考研] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 6F5UbRU2I5hL 2026-09-14 3/150 2026-09-15 17:15 by CgyNCDVNhGVg
[硕博家园] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +5 s3fFTmArrBt6 2026-09-14 5/250 2026-09-15 16:35 by CgyNCDVNhGVg
[硕博家园] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +5 LwdutQ8HoqWP 2026-09-13 5/250 2026-09-15 15:14 by CgyNCDVNhGVg
[公派出国] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +4 3n8v2C8RimXI 2026-09-13 5/250 2026-09-15 14:58 by CgyNCDVNhGVg
[公派出国] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +3 6F5UbRU2I5hL 2026-09-14 3/150 2026-09-15 08:58 by C79jjtjAKjEn
[教师之家] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +3 6F5UbRU2I5hL 2026-09-14 3/150 2026-09-15 08:14 by C79jjtjAKjEn
[教师之家] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +4 6F5UbRU2I5hL 2026-09-14 4/200 2026-09-15 07:50 by C79jjtjAKjEn
[博后之家] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +3 s3fFTmArrBt6 2026-09-13 4/200 2026-09-14 23:24 by vZfe6xYu34yj
[找工作] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +3 QUjhNVAcOSff 2026-09-13 5/250 2026-09-14 21:25 by vZfe6xYu34yj
[考博] 西北工业大学材料学院电化学传感与催化课题组招收2027年推免研究生、博士生、博士后 +3 马方园 2026-09-10 4/200 2026-09-14 09:29 by Chem张zz
[教师之家] 浙江师范大学是怎么坑我的 +10 recruit123 2026-09-09 15/750 2026-09-13 10:45 by seaskyy
信息提示
请填处理意见