(defn centroid [xs] (let [m (i/trans (i/matrix xs))] (if (> (i/ncol m) 1) (i/matrix (map s/mean m)) m))) (defn ex-6-9 [] (let [m (i/matrix [[1 2 3] [2 2 ...
確定！ 回上一頁
