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 - The Fusion of Science and Community**

# Mathematica Help

Have something to add?

- Similar discussions for: Mathematica Help

Loading...

**Physics Forums - The Fusion of Science and Community**