How to solve this equation in Mathematica

333 Views Asked by At

How do I solve this equation in Mathematica? Using the NSolve command doesn't work!

0.59*Sqrt[x]*Sin[0.2*Sqrt[x]] + 1.7*(Cos[0.3*Sqrt[x]] - 
    Coth[0.1*Sqrt[x]]*Sin[0.8*Sqrt[x]]) = 0

Regards,

2

There are 2 best solutions below

2
On

use ==, the test operator for equality, not =, the assignment operator

1
On

May you could use few calls to FindRoot,like this one:

FindRoot[0.59 Sqrt[x] Sin[0.2 Sqrt[x]] + 1.7 (Cos[0.3 Sqrt[x]] - Coth[0.1 Sqrt[x]] Sin[0.8 Sqrt[x]]) ==  0, {x, 2}]

Does this suffices your purpose?