Remove["`*"];
zeroPolynomial[A_] := Module[{n = Length[A], base, m, s},
base = NestList[Dot[A, #] &, IdentityMatrix[n], n^2];
m = Transpose[Flatten /@ base];
s = NullSpace[m][[1]];
Total[Table[x^i*s[[i]], {i, Length[s]}]]
]
求解n阶方阵零化多项式的mathematica代码
最新推荐文章于 2024-08-03 16:33:59 发布
本文介绍了一种计算零多项式的算法，通过使用NestList、Dot、IdentityMatrix、Flatten、NullSpace等函数，实现了一个模块，该模块可以计算给定矩阵A的零多项式。
扫一扫
113
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
