実装

グローバル座標系 $\mathcal{GCS}$ は唯一なので、 グローバル定数として定義する。

/* グローバル座標系の定義 */
double WH_Tensor3D__whCS_GCS[3][3] = 
{
  { 1, 0, 0 }, { 0, 1, 0 }, { 0, 0, 1 }
};
/* 
  グローバル座標系の基底ベクトル whV_e[0], whV_e[1], whV_e[2] は、
  それぞれ whCS_GCS[0] whCS_GCS[1], whCS_GCS[2] に対応する。
*/