下面是我的code -- b = {{0, 0, 0}, {1, 0, 0}, {1, 0, 1}, {1, 1, 1}, {1, 1, 0}, {0, 1, 0}}; cent[b_] := { (b[1, 1] + b[2, 1] + b[3, 1] + b[4, 1] + b[5, 1] + b[6, 1])/ 6, (b[1, 2] + b[2, 2] + b[3, 2] + b[4, 2] + b[5, 2] + b[6, 2])/ 6, (b[1, 3] + b[2, 3] + b[3, 3] + b[4, 3] + b[5, 3] + b[6, 3])/6}; cent[b] -- 上面的阵列b装着六个点的座标 而cent[b]是算出六个点的中点 理论上应该是要output出{0.66666, 0.5, 0.33333}之类的东西... 但是结果却像下面这张图这样 http://img690.imageshack.us/img690/5687/mathematica01.jpg 请问我的程式出了什麽问题吗? 我推测是串列的写法有问题 但是用「mathematica 串列」、「mathematica array」之类的关键字 google了好几个小时都找不到相关说明...Orz 在这边先感谢各位板友的解答了^^ --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 72.223.2.129