Mathematica - FindRoot, While

Mathematica에는 FindRoot라는 좋은 root 찾기 명령어가 있습니다.

equation[x_] := blabla
FindRoot[equation[xx], {xx, 0.00008}]
{xx -> 3.2742693378412034*10^-6})

equation이 어떤 함수인지는 밝히지 않겠습니다.

문득 이 값이 잘 맞는 것인지 의문이 들었습니다.
Bessel function 잔뜩 들어간 함수에 대해 찾으라고 했더니 엉뚱한 거 찾는 것 같았거든요.
그래서 단순 무식하게 다음 방법으로 해를 찾아봤습니다.

n = 1;
delta := 10^-6;
While[equation[n*delta] < 0, n++]
n*delta
equation[n*delta]
equation[(n - 1)*delta]

(3.2743*10^-6)
(3.403470977400222*10^-8)
(-7.696639201144884*^10-8)

FindRoot로 한 경우랑 동일한 값이 나오네요.
결국 Mathematicar가 잘 짜여진 프로그램임을 다시 한 번 확인하게 되었네요
덕분에 Mathematica에서 while 문이 어떻게 쓰여지는지 공부한 셈 치고 넘어가야겠습니다.