| 查看: 544 | 回复: 4 | ||
[求助]
关于Mathematica软件的问题 已有2人参与
|
| 最近在初学软件Mathematica，想问各位大神一个问题。如何在Mathematica中实现遍历一类特殊的矩阵，比如说我想遍历所有的n*n的斜矩阵，n是任意一个给定的正整数，满足对角线全为0，上三角每一个位置是1或者-1，下三角对称位置是相反数。这样的命令怎么写，用for循环或怎样吗？好像查阅书籍没有类似的指导，提前谢过了！ |
回复此楼» 猜你喜欢
计算机、0854电子信息（085401-058412）调剂
已经有4人回复
-
基金申报
已经有3人回复
-
国自然申请面上模板最新2026版出了吗？
已经有9人回复
-
溴的反应液脱色
已经有6人回复
-
纳米粒子粒径的测量
已经有7人回复
-
常年博士招收(双一流，工科)
已经有4人回复
-
推荐一本书
已经有10人回复
-
参与限项
已经有5人回复
-
有没有人能给点建议
已经有5人回复
-
假如你的研究生提出不合理要求
已经有12人回复
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