九宫格（三阶幻方）的问题

chyanog

我想用Select求三阶幻方（当然效率很低，并不实用），思路如下：

1. 
   
2. Select[list,
   
3. Total[#] == Total[Transpose[#]] && Tr[#] == Tr[Reverse[#]] &&
   
4.    Table[Sum[#[[i, j]], {j, 1, 3}], {i, 1, 3}] ==
   
5.     Table[Sum[#[[i, j]], {i, 1, 3}], {j, 1, 3}] &]
   
6. (*==15*) （*{15，15，15}*）
   

复制代码

如list={{4,9,2},{3,5,7},{8,1,6}},可是list我就是不知道怎么写，只知道可能要用到Permutations，Partition，Tuples，Flatten等，希望热心的大侠帮忙

FreddyMusic

Use Wolfram Demonstration, Search keyword: Magic Square.

http://demonstrations.wolfram.com/search.html?query=Magic+Square