Here is my problem: I got A right, but B is wrong... Can point out what I'm doing wrong? Thanks!(adsbygoogle = window.adsbygoogle || []).push({});

Develop a Mathematica procedure to find 5 roots of the following equations.

a.) x^5 + 5x^4 + 4x^3 + 3x^2 + 2x + 1 = 0

b.) e^x sin^2 x - cos x = 0

For part A, I got NSolve[x^5 + 5x^4 + 4x^3 + 3x^2 + 2x + 1 == 0, x]

And got 5 roots of the following:

{{x -> -4.19273}, {x -> -0.564099 -

0.390903 \[ImaginaryI]}, {x -> -0.564099 + 0.390903 \[ImaginaryI]}, {x -> \

0.160462\[InvisibleSpace] - 0.693272 \[ImaginaryI]}, {x -> 0.160462\

\[InvisibleSpace] + 0.693272 \[ImaginaryI]}}

But for part B, I did the procedure:

FindRoot[E^x Sin^2 x - Cos x == 0, x]

And gave me: FindRoot::fdss: Search specification x should be a list with a 2-5 elements. (FindRoot[\[ExponentialE]\^x\ Sin\^2\ x - Cos\ x == 0, x]\)

~TRI~

**Physics Forums | Science Articles, Homework Help, Discussion**

Dismiss Notice

Join Physics Forums Today!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

# Mathematica Help

**Physics Forums | Science Articles, Homework Help, Discussion**