利用Mathematica计算伴随矩阵
2024-09-26 16:27:00
AdjointMatrix[M_] := Module[{Ma, B, n, i, j}, Ma = Minors[M];
B = Ma;
n = Dimensions[M][[1]];
For[i = 1, i <= n, i++,
For[j = 1, j <= n, j++,
B[[i, j]] =
Ma[[n + 1 - i,
n + 1 - j]]*(-1)^(i + j);];(*inner for*)];(*outer for*)
Transpose[B]];
最新文章
- 移动 Web 开发必备！时尚的 Off Canvas 导航
- 将数据库备份到AZURE blob storage
- Extjs4中RadioGroup的赋值与取值
- JPA学习---第二节：JPA开发环境和思想介绍
- 8.3 MPI
- C API向MySQL插入批量数据的快速方法——关于mysql_autocommit
- poj 3666 Making the Grade(dp)
- Swing 窗口的最小化到系统图标与还原
- 常系数齐次线性递推 & 拉格朗日插值
- flex布局下overflow失效问题
- jquery easyui datagrid 加每页合计和总合计
- 学习日 day1
- centos 多个yum源，系统怎么选择
- Ant打包可运行的Jar包（加入第三方jar包）
- Postman-断言和Runner
- 1 R语言介绍
- Delphi XE开发 Android 开机自动启动
- 获取 user-agents
- Tensorflow学习：（三）神经网络优化
- Spring注解方式实现任务调度【官方文档翻译】