如何生成对称矩阵

desert007

新手请教：
想生成一个9*9的对称代数矩阵，不想一个个的输入。请教各位高手是不是有比较好的命令或方法实现？

chungyuandye

[size=130%]

1. 
   
2. myrule=a_[i_,j_]:>If[j>i,Subscript[a,ToString[i]<>ToString[j]],Subscript[a,ToString[j]<>ToString[i]]];
   
3. am=Table[a[i,j],{i,9},{j,9}]/.myrule;
   
4. MatrixForm@am
   

复制代码

ggggwhw

除了对称还有什么要求呢,

ggggwhw

1. (*输入一个下三角方阵*)
   
2. arr = {{1}, {2, 3}, {4, 5, 6}, {7, 8, 9, 0}}
   
3. 
   
4. (*下面代码自动填充上三角方阵*)
   
5. len = Length[arr[[-1]]]
   
6. For[j = 1, j < len, j++,
   
7. For[k = j + 1, k <= len, k++,
   
8.   AppendTo[arr[[j]], arr[[k, j]]]
   
9.   ]
   
10. ]
    
11. arr
    
12. MatrixForm@%

复制代码

如果你想要类似楼上的结果,下面的写法就行了.

1. arr = Table[a[Min[j, k], Max[j, k]], {j, 1, 9}, {k, 1, 9}]

复制代码

desert007

谢谢两位了。

ajun2100

楼主可以参照这两个语句试试，改写成自己的对陈矩阵
a=[9 2 4 0 8 6 3 5 7]
b=a(hankel(1:9,0:8))

xiaoqing8569

1. "单位矩阵"
   
2. c = Table[0, {i, 0, 5}, {j, 0, 5}];
   
3. For[i = 0; j = 0, i < 6; j < 6,
   
4. If[i == j, c = ReplacePart[c, {i, j} -> 1], c = c], i++; j++]
   
5. c // MatrixForm

复制代码

kptnw

4# ggggwhw

也可以SparseArray

1. arr = {{1}, {2, 3}, {4, 5, 6}, {7, 8, 9, 0}};SparseArray[{{x_, y_} :> (arr[[Max@#, Min@#]] &[{x, y}])},4] // Normal

复制代码

{{1, 2, 4, 7}, {2, 3, 5, 8}, {4, 5, 6, 9}, {7, 8, 9, 0}}

miniwhale

生成任意矩阵A，则A+A'必定是对称矩阵啊！