I'm doing a calculation which finds the characteristic polynomial of a matrix, HH, with rather complex entries and then determines the discriminant of that polynomial. For smaller matrices up to around 7x7 it finishes evaluating the Discriminant command within a few hours, but at a 10x10, which is what I need, it takes days to evaluate. Running in parallel won't work for the built in Discriminant command. I was wondering if there was a more efficient way to evaluate the discriminant of high-order polynomial, as I know my code is basic.(adsbygoogle = window.adsbygoogle || []).push({});

CPHH = Collect[CharacteristicPolynomial[HH, x],x]];

DD = Discriminant[CPHH, x, Method -> SylvesterMatrix];

Simplify[DD, TimeConstraint -> Infinity]

If the rest of the code would be useful in determining a solution I'd be happy to post it

***Meant Discriminant in Title***

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

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

# Determinant of Characterisitic Polynomial

Loading...

Similar Threads - Determinant Characterisitic Polynomial | Date |
---|---|

Mathematica Polynomial expansion from Python to Mathematica | Feb 20, 2018 |

LaTeX How to determine leaving space after \ | May 26, 2017 |

Mathematica How to determine arbitrary constants with "Solve?" | Jan 7, 2017 |

Ploting graph with gnuplot: manually determine x axis | Oct 14, 2013 |

How to determine if a row appears more than once in an array in MATLAB | Jan 23, 2013 |

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