Mathematica の FindRoot[] のところをどうするかが問題となる。 Newton 法を使うと良い。
解 が を満たすならば (重解でないならば)、 は “2次の収束” をする (とても速く真の解に近づく) ことが期待できる。