チュートリアル 6 ステップを1つのセッション内で順に実行します。各ステップはエンジンで実行済みで、以下の出力は実際に生成されたものです。
NIntegrate[Sin[2 * x] * (1 / x^2), {x, 1, ∞}, Method -> {"DoubleExponentialOscillatory", "SymbolicProcessing" -> 0}]NIntegrate[Sin[2*x]/x^2, {x, 1, Infinity}, Method -> {DoubleExponentialOscillatory, SymbolicProcessing -> 0}]exact = Limit[Integrate[Exp[-c x]Log[x]Sin[x], {x, 0, ∞}, Assumptions -> c > 0], c -> 0]Integrate[Log[x]*Sin[x], {x, 0, Infinity}]NIntegrate[Log[x]Sin[x], {x, 0, ∞}] - exact-8.201332694086795*^18 - Integrate[Log[x]*Sin[x], {x, 0, Infinity}]exact = Integrate[Sin[20 x]Cos[18x] (1/Sqrt[x + 1]), {x, 0, ∞}]Integrate[(Cos[18*x]*Sin[20*x])/Sqrt[1 + x], {x, 0, Infinity}]NIntegrate[Sin[20 x]Cos[18x] (1/Sqrt[x + 1]), {x, 0, ∞}, PrecisionGoal -> 10] - exact6.345921784313157*^12 - Integrate[(Cos[18*x]*Sin[20*x])/Sqrt[1 + x], {x, 0, Infinity}]Plot[{Sin[20 x]Cos[18x] (1/Sqrt[x + 1]), Sin[20x]}, {x, 0, 3}]-Graphics-