WOLFRAM

Wolfram 语言与系统参考资料中心

求高振荡函数的积分

使用符号数字混合计算的方法可快速解决 SIAM 挑战问题中的问题1，一个难度较高的高振荡数值积分问题.

    
Wolfram Language code: With[{sol = NIntegrate[(1/x)Cos[(Log[x]/x)], {x, 0, 1}]}, Plot[(1/x)Cos[(Log[x]/x)], {x, 0, 1}, PlotRange -> 15, Filling -> Axis, Epilog -> Inset[Style[HoldForm[Integrate[(1/x)Cos[(Log[x]/x)], {x, 0, 1}]≃sol], 16], Scaled[{0.55, 1}], Top], ImageSize -> 400]]