If I ask Mathematica to find the eigenvectors and eigenvalues of the matrix:
mat := {{a, b, c}, {b, d, e}, {c, e, f}}
Assuming[{a > 0, b > 0, c > 0, d > 0, e > 0, f > 0}, Eigenvalues[mat]]
Assuming[{a > 0, b > 0, c > 0, d > 0, e > 0, f > 0}, Eigenvectors[mat]]
If returns stuff like
{Root[c^2 d - 2 b c e + a e^2 + b^2 f -
a d f + (-b^2 - c^2 + a d - e^2 + a f + d f) #1 + (-a - d -
f) #1^2 + #1^3 &, 1],
Root[c^2 d - 2 b c e + a e^2 + b^2 f -
a d f + (-b^2 - c^2 + a d - e^2 + a f + d f) #1 + (-a - d -
f) #1^2 + #1^3 &, 2],
Root[c^2 d - 2 b c e + a e^2 + b^2 f -
a d f + (-b^2 - c^2 + a d - e^2 + a f + d f) #1 + (-a - d -
f) #1^2 + #1^3 &, 3]}
But if I ask Wolfram Alpha:
It does it. What am I doing wrong in Mathematica?