Wolfram
Mathematica
8의 신기능: 새롭게 향상된 핵심 알고리즘
◄
이전
|
다음
►
핵심 알고리즘
수치 적분 경시 대회 문제 풀이
Mathematica
8은 까다롭고 변화가 큰 진동 함수의 수치 적분에 대한
SIAM 경시 대회 도전
문제 1을 쉽게 해결합니다.
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]=