| 查看: 533 | 回复: 4 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[求助]
关于Mathematica软件的问题已有2人参与
|
|||
| 最近在初学软件Mathematica，想问各位大神一个问题。如何在Mathematica中实现遍历一类特殊的矩阵，比如说我想遍历所有的n*n的斜矩阵，n是任意一个给定的正整数，满足对角线全为0，上三角每一个位置是1或者-1，下三角对称位置是相反数。这样的命令怎么写，用for循环或怎样吗？好像查阅书籍没有类似的指导，提前谢过了！ |
回复此楼» 猜你喜欢
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗
已经有8人回复
-
寻求一种能扛住强氧化性腐蚀性的容器密封件
已经有5人回复
-
论文投稿，期刊推荐
已经有6人回复
-
请问哪里可以有青B申请的本子可以借鉴一下。
已经有4人回复
-
孩子确诊有中度注意力缺陷
已经有14人回复
-
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
-
请问有评职称，把科研教学业绩算分排序的高校吗
已经有5人回复
-
2025冷门绝学什么时候出结果
已经有3人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
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
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
5楼2016-10-17 22:42:44