Sorting Wolfram Mathematica中的特征系统排序

我试图在Mathematica中实现一种反应动力学解析解的方法

从数值上来说，这不是一个问题，但在符号形式中，必须手动重新排列特征向量列，以获得“正确”的结果

请检查，例如第41-44页

我用的是矩阵

K={{-k1 - k2, 0, 0, 0}, {k1, 0, 0, 0}, {k2, 0, -k3, k4}, {0, 0, k3, -k4}} 

如第43页示例所述

{vals，vect}=本征系统[K]

给出了不同的答案

因此，我的最终解向量对角矩阵[Exp[vals]].逆向量[vect]是一团乱

---

当答案是符号形式时，有没有办法对其进行排序？或者如何“强制”Mathematica，而不是排列特征值和特征向量？

特征值和特征向量的排序完全是任意的，重要的是你要把正确的排列在一起

代码的问题是

vect

是一个特征向量列表，当您将其用作矩阵时，它是一个矩阵，其行是特征向量，而您需要一个矩阵，其列是特征向量。使用

转置

修复此问题。完成此操作后，如果同时排列特征向量和特征值，则不会发生任何变化：

randsamp = RandomSample[Range[4]];
vals[[randsamp]]
Transpose@vect[[randsamp]].DiagonalMatrix[Exp[vals[[randsamp]] t]].Inverse[
   Transpose@vect[[randsamp]]] // Simplify

此外，Mathematica还有一个特定的堆栈交换站点：