| 查看: 594 | 回复: 4 | ||
[求助]
关于Mathematica软件的问题 已有2人参与
|
| 最近在初学软件Mathematica，想问各位大神一个问题。如何在Mathematica中实现遍历一类特殊的矩阵，比如说我想遍历所有的n*n的斜矩阵，n是任意一个给定的正整数，满足对角线全为0，上三角每一个位置是1或者-1，下三角对称位置是相反数。这样的命令怎么写，用for循环或怎样吗？好像查阅书籍没有类似的指导，提前谢过了！ |
回复此楼» 猜你喜欢
关于filecode，很负责任的告诉大家
已经有7人回复
-
【2027博士申请】纳米药物递送方向
已经有5人回复
-
关于豆爷回答的JTJC与%2F数量
已经有7人回复
-
2026国自然放榜时间
已经有3人回复
-
国基金的申报应该改成非等额制，评价高的钱多评价低的钱少，但是增加资助率
已经有7人回复
-
好奇怪的filecode
已经有4人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有4人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有5人回复
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
20
