Wolfram
Mathematica
8의 신기능: 새롭게 향상된 핵심 알고리즘
◄
이전
|
다음
►
핵심 알고리즘
고차 실수 다항 방정식의 수치적 풀이
백만 차수의 sparse 다항식의 실수 해의 근을 근사합니다.
In[1]:=
X
f = x^1000000 - E x^777777 + \[Pi] x^123456 - E^\[Pi] x^33333 + \[Pi]^E x^9876 - E^E^\[Pi] x^545 + E^\[Pi]^E x^99 - E^\[Pi]^\[Pi] x^2 - \[Pi]^\[Pi]^\[Pi]; rts = x /. NSolve[f == 0, x, Reals, WorkingPrecision -> 500];
In[2]:=
X
Grid[{{TraditionalForm[f == 0], SpanFromLeft}, rts}, Frame -> All, Background -> {None, {{LightYellow, LightBlue}}}]
Out[2]=