| 查看: 585 | 回复: 4 | ||
[求助]
关于Mathematica软件的问题 已有2人参与
|
| 最近在初学软件Mathematica，想问各位大神一个问题。如何在Mathematica中实现遍历一类特殊的矩阵，比如说我想遍历所有的n*n的斜矩阵，n是任意一个给定的正整数，满足对角线全为0，上三角每一个位置是1或者-1，下三角对称位置是相反数。这样的命令怎么写，用for循环或怎样吗？好像查阅书籍没有类似的指导，提前谢过了！ |
回复此楼» 猜你喜欢
小木虫没落了，除了祈祷帖子，几乎看不到有价值的帖子
已经有15人回复
-
面上的水很深
已经有18人回复
-
国社科通讯评审
已经有5人回复
-
5个%2F，非固定段22个字母
已经有9人回复
-
生命口C13面上会评时间
已经有11人回复
-
内心匮乏
已经有16人回复
-
生命口面上会评结束了吗大家有知道结果吗？现在还没有结果正常不？
已经有9人回复
-
投英文期刊如何查重
已经有6人回复
-
不要再数国自然申请书的 filecode 的分隔符个数了
已经有21人回复
-
伯胺上甲基求助
已经有7人回复
markh
银虫 (初入文坛)
- 应助: 7 (幼儿园)
- 金币: 765.1
- 帖子: 35
- 在线: 138.6小时
- 虫号: 366637
- 注册: 2007-05-10
- 性别: GG
- 专业: 凝聚态物性 II ：电子结构
2楼2016-10-16 00:23:27
3楼2016-10-16 12:41:04
watesoyan
金虫 (正式写手)
- 应助: 20 (小学生)
- 金币: 1795.3
- 散金: 60
- 红花: 7
- 帖子: 442
- 在线: 108小时
- 虫号: 3329251
- 注册: 2014-07-18
- 专业: 激光
【答案】应助回帖
★ ★ ★ ★ ★
napoleon_999: 金币+5, ★★★★★最佳答案 2016-10-17 22:43:38
napoleon_999: 金币+5, ★★★★★最佳答案 2016-10-17 22:43:38
|
Join[#, -#] &@ MaximalBy[ N@Table[SymmetrizedArray[{{n - 1, n} :> 1, ({i_, j_} /; i < j) :> #[[(2 n - i) (i - 1)/2 + j - i]]}, {n, n}, Antisymmetric[{1, 2}]]] & /@ Tuples[{-1, 1}, n (n - 1)/2 - 1], Eigenvalues[#, 1] &] // Normal 可以得到16个矩阵 |
4楼2016-10-17 18:38:12
5楼2016-10-17 22:42:44
10