求助一个数值积分的问题

我想用Mathematica计算出下图的积分近似值，但总是无法做到，问题出在哪儿？
代码NIntegrate[lbk]Abs[lbk]Sin[lbk]x^4[rbk]/(Sqrt[lbk]x[rbk]+x^2),{x,0,\[lbk]Infinity[rbk]}[rbk][rbk]

我也不知道用何种方法为好，不过可以参见tutorial/NIntegrateIntegrationStrategies

无锡锐赫新科技有限公司

mathematica软件是一款数学分析型工具，可以使用mathematica软件计算比较繁琐的公式。简体中文版，一键安装，永久使用!配套从入门到精通学习教程，提供远程安装服务

2024-12-12 05:20广告

立即查看

堆高"MaxErrorIncreases"子选项的值似乎可以改善：
NIntegrate[Abs[Sin[x^4]]/(Sqrt[x] + x^2), {x, 0, \[Infinity]}, MaxRecursion -> 40,
Method -> {"GlobalAdaptive", "MaxErrorIncreases" -> 3 10^5}] // AbsoluteTiming
(* {109.987, 0.61863} *)
但是如果还要考虑效率的话，仅靠调节NIntegrate的选项大概是不够的。

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

3回复贴，共1页

<<返回mathematica吧

分享到:

日	一	二	三	四	五	六