Новое в системе Wolfram
Mathematica
8: Новые и усовершенствованные базовые алгоритмы
◄
предыдущая
|
следующая
►
Основные алгоритмы
Решение конкурсной задачи по численному интегрированию
Система
Mathematica
8 сразу решает задачу №1 конкурса
SIAM challenge problems
, сложная задача по интегрированию быстро осциллирующей функции.
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]=