User Portlet
| Discussions |
|---|
| Hello everyone! Actually I used the answer from another friend (as he wrote): {vals, vects} = Eigensystem[m = {{0, 0, w}, {0, t, -w}, {w, -w, r}}, Cubics -> True]; P = Transpose@vects; dd = Inverse@Transpose@vects.m.Transpose@vects; ... |