下面是我的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