実装

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

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