|
| |
|
| A168578号 |
| 减去两个矩阵系统的特征多项式的多项式系数：M（n）=表[Table[If[M==k=1，n，If[M==k，（-1）^n，0]]，{M，1，n}]，{k，1，n}]；M1（n）=表[表[If[m==k+1，-1，If[k==n&&m==1，n，If[m==k==n，-n，0]]，{m，1，n}]，{k，1，n}] |
|
0
|
|
|
|
-5, 5, 4, -13, 15, -11, 19, 26, 14, 6, -31, 65, -70, 40, -17, 41, 99, 125, 85, 27, 8, -57, 175, -301, 315, -203, 77, -23, 71, 244, 476, 574, 434, 196, 44, 10, -91, 369, -876, 1344, -1386, 966, -444, 126, -29, 109, 485, 1275, 2190, 2562, 2058, 1110, 375, 65, 12
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
2,1
|
|
|
评论
|
绝对值行总和为：
{5, 9, 39, 65, 223, 385, 1151, 2049, 5631, 10241, 26623,...}.
调整矩阵，使其具有相同的行列式。
|
|
|
链接
|
|
|
|
例子
|
{-5},
{5, 4},
{-13, 15, -11},
{19, 26, 14, 6},
{-31, 65, -70, 40, -17},
{41, 99, 125, 85, 27, 8},
｛-57195、-301、315、-203、77、-23｝，
{71, 244, 476, 574, 434, 196, 44, 10},
{-91, 369, -876, 1344, -1386, 966, -444, 126, -29},
{109, 485, 1275, 2190, 2562, 2058, 1110, 375, 65, 12},
{-133, 671, -2035, 4125, -5874, 6006, -4422, 2310, -825, 187, -35}
|
|
|
数学
|
清除[M，M1，n，M，k，a，b，x]
M[n_]：=表[如果[M==k==1，n，如果[M==k，（-1）^n，0]]，{M，1，n}]，{k，1，n}]；
a=表[如果[n==0，1，特征多项式[M[n]，x]]，{n，0，12}]；
M1[n_]：=表[Table[If[m==k+1，-1，If[k==n&m==1，n，If[m==k==n，-n，0]]，{m，1，n}]，{k，1，n}]；
b=表[如果[n==0，1，特征多项式[M1[n]，x]]，{n，0，12}]；
c=全部展开[（a-b）/x]；
表[系数列表[c[[n]]，x]，{n，3，长度[a]}]；
压扁[%]
|
|
|
交叉参考
|
|
|
|
关键词
|
签名,未经编辑的
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
