| 查看: 623 | 回复: 4 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
关于Mathematica软件的问题 已有2人参与
|
||
| 最近在初学软件Mathematica，想问各位大神一个问题。如何在Mathematica中实现遍历一类特殊的矩阵，比如说我想遍历所有的n*n的斜矩阵，n是任意一个给定的正整数，满足对角线全为0，上三角每一个位置是1或者-1，下三角对称位置是相反数。这样的命令怎么写，用for循环或怎样吗？好像查阅书籍没有类似的指导，提前谢过了！ |
回复此楼» 猜你喜欢
大佬帮着分析今年的评审意见？该课题连续申请了三年了，明年要不要换个方向。
已经有11人回复
-
两块石头
已经有10人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有6人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有6人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有4人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有6人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有6人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有8人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有6人回复
3楼2016-10-16 12:41:04
markh
银虫 (初入文坛)
- 应助: 7 (幼儿园)
- 金币: 765.1
- 帖子: 35
- 在线: 138.6小时
- 虫号: 366637
- 注册: 2007-05-10
- 性别: GG
- 专业: 凝聚态物性 II ：电子结构
2楼2016-10-16 00:23:27
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
100