ベクトル ベクトルの演算 長さとノルム、パップスの定理、中線定理
線形代数演習〈理工系の数学入門コース/演習 新装版〉 (浅野 功義(著)、大関 清太(著)、岩波書店)の第1章(ベクトル)、1-1(ベクトルの演算)、問題1の解答を求めてみる。
コード(Wolfram Language, Jupyter)
a = {x1, y1, z1};
b = {x2, y2, z2};
Norm[a + b]^2 + Norm[a - b]^2 == 2(Norm[a]^2 + Norm[b]^2)
Simplify[%]
a = RandomReal[{-100, 100}, {3}]
{72.6565, -70.6433, -30.105}
b = RandomReal[{-100, 100}, {3}]
{-3.15166, 74.5818, -48.043}
Norm[a + b]^2 + Norm[a - b]^2 == 2(Norm[a]^2 + Norm[b]^2)