Use FindRoot in Mathematica

Sometimes Solve or NSolve in Mathematica does not work in Complicated
Equations, for this case, FindRoot is a good tool.

http://reference.wolfram.com/mathematica/ref/FindRoot.html