実装

線膨張係数テンソルを求める 関数は以下のようになる。

/* 線膨張係数テンソル：等方性材料、２次元平面歪み */
void WH_ThermalStrain2D__PlaneStrain__whT_alpha
(double alpha,
 double nu,
 double OUT__whT_alpha[2][2])
/*
  入力引数:
    alpha はスカラーで、線膨張係数
    nu はスカラーで、Poisson比
  出力引数:
    OUT__whT_alpha はテンソルで、線膨張係数テンソル
*/
{
  WH_Tensor2D__s_mul_whT_OUT_whT
    ((1 * nu) * alpha, WH_Tensor2D__whT_I,
     OUT__whT_alpha);
}