実装

ベクトルの大きさ、ベクトルの正規化を 関数としてそれぞれ以下のように実装する。

/* ベクトルの大きさ */
void WH_Tensor2D__whLen_whV_OUT_s
(double whV_a[2],
 double *OUT__b)
/*
  入力引数:
    whV_a はベクトル
  出力引数:
    OUT__bはスカラーで、whV_a の大きさ
*/
{
  double aa;

  WH_Tensor2D__whV_cdot_whV_OUT_s 
    (whV_a, whV_a,
     &aa);
  *OUT__b = sqrt (aa);
}

/* ベクトルの正規化 */
void WH_Tensor2D__whNormalize_whV_OUT_whV
(double whV_a[2],
 double OUT__whV_b[2])
/*
  入力引数:
    whV_a はベクトル
  出力引数:
    OUT__whV_bはベクトルで、whV_a を正規化したもの
*/
{
  double len;

  WH_Tensor2D__whLen_whV_OUT_s 
    (whV_a, 
     &len);
  OUT__whV_b[0] = whV_a[0] / len;
  OUT__whV_b[1] = whV_a[1] / len;
}