Mathematicaで行と列の総和を求めたい

質問

Mathematicaで行と列の総和を求めたいのですが、簡単に算出するコマンドはないのでしょうか？
例えば、下の行列式の場合は、
┌ ┐
| 1 2 3 |
| |
| 1 2 3 |
└ ┘
各行成分の総和が[6,6]で、各列成分の総和は[2,4,6]のベクトルになりますよね。
このような感じにしたいのですが・・・。

回答No.2

CPm · ベストアンサー

mat = {{1, 2, 3}, {1, 2, 3}}
のもとで

Total[mat]

Total[Transpose[mat]]

でできます．

回答No.1

mazimekko3

とりあえずヘルプに見当たらなかったので自作。

RowsV[mat_] := Flatten[Table[Sum[mat[[n, s]], {s, 1, Length[mat[[
n]]]}], {n, 1, Length[mat]}]]
ColsV[mat_] := RowsV[Table[Sum[mat[[s, n]], {s, 1,
Length[mat]}], {n, 1, Length[mat[[1]]]}]]

ここまでが本体。
で試験用の行列
a = {{1, 2, 3}, {1, 2, 3}} // MatrixForm
に対して
In＝＞　ColsV[a]
Out＝＞　{6, 6}
In＝＞　RowsV[a]
Out＝＞　{2, 4, 6}