数学のブログ

行列 行列とは 成分、クロネッカーのデルタ、絶対値

線形代数演習〈理工系の数学入門コース/演習 新装版〉 (浅野 功義(著)、大関 清太(著)、岩波書店)の第2章(行列)、2-1(行列とは)、問題5の解答を求めてみる。

1

[ 1 3 3 3 - 1 3 3 3 - 3 ]

2

[ 0 1 2 1 0 1 2 1 0 ]

コード(Wolfram Language, Jupyter)

d = Table[Table[If[i == j, 1, 0], {j, 1, 3}],
          {i, 1, 3}]

{{1, 0, 0}, {0, 1, 0}, {0, 0, 1}}
a = Table[Table[3 - 2d[[i,j]], {j, 1, 3}], {i, 1, 3}]

{{1, 3, 3}, {3, 1, 3}, {3, 3, 1}}
% // TraditionalForm
Output
Table[Table[Abs[i - j], {j, 1, 3}], {i, 1, 3}]

{{0, 1, 2}, {1, 0, 1}, {2, 1, 0}}
% // TraditionalForm
Output