Mathematica 5.2でUpperDiagonalMatrixを対称行列に変換する方法は?



How Transform An Upperdiagonalmatrix Into Symmetric Matrix Mathematica 5



解決:

c = {{c11、c12、c13、c14}、{0、c22、c23、c24}、{0、0、c33、c34}、{0、0、0、c44}}; Table [c [[i、j]] = c [[j、i]]、{i、2、Length [c]}、{j、1、i-1}]; c // MatrixForm 

ここに画像の説明を入力してください


MapIndexed [c [[##&@@ [メール保護]#2]]&、c、{2}] 
c2 = Array [Function [、c [[##]]、Orderless]、Dimensions @ c] TeXForm @ MatrixForm @ c2 

$ left( begin {array} {cccc} text {c11}& text {c12}& text {c13}& text {c14} \ text {c12}& text {c22}& text {c23}& text {c24} \ text {c13}& text {c23}& text {c33}& text {c34} \ text {c14}& text {c24}& text {c34}& text {c44} \ end {array} right)$



また、

SetAttributes [f、Orderless] f [i_、j _]:= c [[i、j]] c3 = Array [f、Dimensions @ c] c3 == c2 

NS



c4 = Array [c [[##]]&@@ Sort [{##}]&、Dimensions [c]] c4 == c2 

NS

使用されるすべての機能は、バージョン1以降で使用できます。