矩阵的第(i,j)个次要是删除了第i行和第j列的矩阵.
minor <- function(A, i, j)
{
A[-i, -j]
}
Run Code Online (Sandbox Code Playgroud)
第(i,j)个辅助因子是功率i + j的第(i,j)个次要时间-1.
cofactor <- function(A, i, j)
{
-1 ^ (i + j) * minor(A, i, j)
}
Run Code Online (Sandbox Code Playgroud)
通过这种方式,我得到了A的辅助因子,那我怎么能得到伴随矩阵?
r ×1