実装

スカラー三重積を関数として以下のように実装する。

/* スカラー三重積 */
void WH_Tensor3D__whStp_whV_whV_whV_OUT_s
(double whV_a[3],
 double whV_b[3],
 double whV_c[3],
 double *OUT__d)
/*
  入力引数:
    whV_a, whV_b, whV_c はベクトル
  出力引数:
    OUT__dはスカラーで、whV_a, whV_b, whV_c のスカラー三重積
*/
{
  *OUT__d 
     = whV_c[0] * (whV_a[1] * whV_b[2] - whV_a[2] * whV_b[1]) 
     + whV_c[1] * (whV_a[2] * whV_b[0] - whV_a[0] * whV_b[2]) 
     + whV_c[2] * (whV_a[0] * whV_b[1] - whV_a[1] * whV_b[0]);
}