線膨張係数テンソルを求める 関数は以下のようになる。
/* 線膨張係数テンソル：等方性材料、３次元ソリッド */
void WH_ThermalStrain3D__Solid__whT_alpha
(double alpha,
double OUT__whT_alpha[3][3])
/*
入力引数:
alpha はスカラーで、線膨張係数
出力引数:
OUT__whT_alpha はテンソルで、線膨張係数テンソル
*/
{
WH_Tensor3D__s_mul_whT_OUT_whT
(alpha, WH_Tensor3D__whT_I,
OUT__whT_alpha);
}