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]]