Stats

Popular Posts

Followers

Mathematica 教學 求解伴隨矩陣

戴忠淵 於 2012年10月15日星期一 下午12:18 發表

how to compute adjoint matrix in mathematica


AdjointMatrix[mat_?MatrixQ]:=Block[{temp},
temp=Map[Reverse,Minors[mat],{0,1}];
Transpose@temp*Table[(-1)^(i+j),{i,Length@mat},{j,Length@mat}]
];

(* Example *)
A={{1,2,3},{4,5,6},{7,8,9}};
B={{1,2,3,0,1},{2,1,-2,3,1},{5,4,3,1,3},{0,0,1,0,2},{1,5,-1,2,1}};
AdjointMatrix[A] // MatrixForm
AdjointMatrix[B] // MatrixForm
Tags: , ,

讀者回應 ( 0 意見 )

發佈留言

Please leave your name and tell me what you thought about this site. Comments, suggestions and views are welcomed.

如果這篇文章對你有幫助,那請留個訊息給我~