我想用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

堆高"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的选项大概是不够的。