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,
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,
use ==, the test operator for equality, not =, the assignment operator
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?