平均上下三角矩阵

【问题标题】：Average Upper and Lower Triangle Matrices平均上下三角矩阵
【发布时间】：2020-11-15 12:55:07
【问题描述】：

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}}

【问题讨论】：

标签： matrix wolfram-mathematica

【解决方案1】：

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

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]

【讨论】：