可以看出两个结果是一致的，但是当我使用逻辑语言时，出来的却是两个不相等，每一个对应的都是false
a%*%D==D%*%a
这是因为，因为什么呢，我也说不清楚
不过当我们对每一个数都保留两位小数的时候，再次判断，这时候就正确了
round(a%*%D,2)==round(D%*%a,2)
在验证 A ? A = ∣ A ∣ E A^{\ast}A=\left| A \right|E A?A=∣A∣E
m <- det(a)*Cround(a%*%D,2)==round(m,2)
同样对结果保留两位小数，这就是正确的了
验证成功
使用 函数
这里自己编写了一个函数，复制下面代码运行一下即可使用此函数
adjoint <- function(x){n <- sqrt(length(x))y <- matrix(0,nc=n,nr=n)for ( i in 1:n)for ( j in 1:n)y[i,j] <- (-1)^(i+j)*det(x[-j,-i])y}
如果想求A的伴随矩阵，只需要（A）即可
例：
【R语言矩阵的相关计算】adjoint(a)

• 由垃圾海尔引发的思考
• 一 读高利曼昆的经济学原理
• 秀智商这8个美国公司品牌正在假装国货，轻松赚走中国人口袋的钱 世界之最口香糖品牌
• 故事：十年光阴，陪落魄皇子登临帝位，宫女的她终成贵妃宠冠六宫 从落魄皇子到世界之最
• 世界上最“吝啬”的富豪！ 世界之最荷兰人抠门
• 恰玛古
• 暑期带娃必备!专属6-12岁孩子的顶尖少儿杂志,科学,艺术,趣味十足 小学生必学世界之最
• 动漫里面人气和主角差不多的十大“星爷级龙套”，你知道几个？ 盘点柯南世界之最的龙套
• 世界之最看中国01：故宫位列世界五大宫殿之首，是谁设计建造的？ 太和殿的世界之最
• 谜语故事—命案、窃贼 世界之最恐怖的谜语故事