characteristic polynomial mathematica