Maxima

Tips
load("nchrpl"); mattrace(&italic{A});
 * 多項式を降べきの順に並べる: ordergreat(x);
 * 行列の trace を計算する