New in Wolfram
Mathematica
8: New and Improved Core Algorithms
◄
previous
|
next
►
Core Algorithms
Solve a Numerical Integration Challenge Problem
Mathematica
8 immediately solves problem 1 of the
SIAM challenge problems
, a difficult, highly oscillatory numerical integration.
In[1]:=
X
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}] \[TildeEqual] sol], 16], Scaled[{0.55, 1}], Top], ImageSize -> 400]]
Out[1]=