実装

行ベクトルの転置演算を関数として以下のように実装する。

/* 行ベクトルの転置 */
void WH_Matrix__whTrans_whRv_OUT_whCv
(int nColumns_a, double whRv_a[],
 int nRows_b, double OUT__whCv_b[])
/*
  入力引数:
    nColumns_a は行ベクトル whRv_a の列数
    whRv_a は行ベクトル
    nRows_b は列ベクトル OUT__whCv_b の行数
  出力引数:
    OUT__whCv_b は列ベクトルで、whRV_a の転置
*/
{
  int i;

  assert(nRows_b == nColumns_a);

  for (i = 0; i < nRows_b; i++) {
    OUT__whCv_b[i] = whRv_a[i];
  }
}

列ベクトルの転置演算を関数として以下のように実装する。

/* 列ベクトルの転置 */
void WH_Matrix__whTrans_whCv_OUT_whRv
(int nRows_a, double whCv_a[],
 int nColumns_b, double OUT__whRv_b[])
/*
  入力引数:
    nRows_a は列ベクトル whCv_a の行数
    whCv_a は列ベクトル
    nColumns_b は行ベクトル OUT__whRv_b の列数
  出力引数:
    OUT__whRv_b は行ベクトルで、whCV_a の転置
*/
{
  int i;

  assert(nColumns_b == nRows_a);

  for (i = 0; i < nColumns_b; i++) {
    OUT__whRv_b[i] = whCv_a[i];
  }
}