平均上下三角矩阵

Question

Matematica中有没有现成的方法对左下角和右上角的三角矩阵中的对应元素求平均

例如给定以下矩阵：

在 Matematica 中的形式如下： {{1,2.2,3},{2.1,1,4},{2.5,2,1}}

我想得到：

在 Mathematica 中的形式是： {{1,0,0},{2.15,1,0},{2.75,3,1}}

Answer 1

我找到了答案。没有我能找到的内置函数，但使用 Transpose 和 addition/division 运算符我能够轻松地提出如下解决方案：

mata={{1,2.2,3},{2.1,1,4},{2.5,2,1}};
matb=Transpose[mata];
mata=LowerTriangularize[mata];
matb=LowerTriangularize[matb];
avgmat=(mata+matb)/2;
MatrixForm[avgmat]

平均上下三角矩阵

Average Upper and Lower Triangle Matrices

wolfram-mathematica

matrix