SylvesterMatrix1[poly1_,poly2_,var_]:= 函数[{coeffs1,coeffs2},With[ {l1=长度[coeffs1],l2=长度[coeffs2]}, 加入[ NestList[RotateRight,PadRight[coeffs1, l1+l2-2]、l2-2], NestList[RotateRight,PadRight[coeffs2, l1+l2-2],l1-2] ] ] ][ 反向[系数列表[poly1,var]], 反向[系数列表[poly2,var]] ]
西尔维斯特矩阵
另请参见
与Wolfram一起探索| Alpha
工具书类
引用 关于Wolfram | Alpha
引用如下: