実装

熱歪みテンソルを求める 関数は、２次元および３次元問題についてそれぞれ以下のようになる。

/* 熱歪みテンソル：２次元 */
void WH_ThermalStrain2D__whT_epsilon_T
(double whT_alpha[2][2],
 double T_diff,
 double OUT__whT_epsilon_T[2][2])
/*
  入力引数:
    whT_alpha はテンソルで、線膨張係数テンソル
    T_diff はスカラーで、温度変化
  出力引数:
    OUT__whT_epsilon_T はテンソルで、熱歪みテンソル
*/
{
  WH_Tensor2D__whT_mul_s_OUT_whT
    (whT_alpha, T_diff,
     OUT__whT_epsilon_T);
}

/* 熱歪みテンソル：３次元 */
void WH_ThermalStrain3D__whT_epsilon_T
(double whT_alpha[3][3],
 double T_diff,
 double OUT__whT_epsilon_T[3][3])
/*
  入力引数:
    whT_alpha はテンソルで、線膨張係数テンソル
    T_diff はスカラーで、温度変化
  出力引数:
    OUT__whT_epsilon_T はテンソルで、熱歪みテンソル
*/
{
  WH_Tensor3D__whT_mul_s_OUT_whT
    (whT_alpha, T_diff,
     OUT__whT_epsilon_T);
}