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; ... |