Novos Recursos do
Mathematica
8: Principais Algoritmos Novos e Melhorados
◄
anterior
|
próximo
►
Principais Algoritmos
Resolva um Problema Desafio de Integração Numérica
O
Mathematica
8 resolve rapidamente o problema 1 do "
SIAM challenge problems"
, uma integração numérica difícil e oscilatória.
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]=