#[cfg(test)]
mod test;
use super::*;
#[derive(Clone, Debug)]
pub struct AlmansiHamel {
pub bulk_modulus: Scalar,
pub shear_modulus: Scalar,
pub coefficient_of_thermal_expansion: Scalar,
pub reference_temperature: Scalar,
}
impl Solid for AlmansiHamel {
fn bulk_modulus(&self) -> Scalar {
self.bulk_modulus
}
fn shear_modulus(&self) -> Scalar {
self.shear_modulus
}
}
impl Thermoelastic for AlmansiHamel {
fn cauchy_stress(
&self,
deformation_gradient: &DeformationGradient,
temperature: Scalar,
) -> Result<CauchyStress, ConstitutiveError> {
let jacobian = self.jacobian(deformation_gradient)?;
let inverse_deformation_gradient = deformation_gradient.inverse();
let strain = (IDENTITY
- inverse_deformation_gradient.transpose() * &inverse_deformation_gradient)
* 0.5;
let (deviatoric_strain, strain_trace) = strain.deviatoric_and_trace();
Ok(deviatoric_strain * (2.0 * self.shear_modulus() / jacobian)
+ IDENTITY
* (self.bulk_modulus() / jacobian
* (strain_trace
- 3.0
* self.coefficient_of_thermal_expansion()
* (temperature - self.reference_temperature()))))
}
fn cauchy_tangent_stiffness(
&self,
deformation_gradient: &DeformationGradient,
temperature: Scalar,
) -> Result<CauchyTangentStiffness, ConstitutiveError> {
let jacobian = self.jacobian(deformation_gradient)?;
let inverse_transpose_deformation_gradient = deformation_gradient.inverse_transpose();
let inverse_left_cauchy_green_deformation = &inverse_transpose_deformation_gradient
* inverse_transpose_deformation_gradient.transpose();
let strain = (IDENTITY - &inverse_left_cauchy_green_deformation) * 0.5;
let (deviatoric_strain, strain_trace) = strain.deviatoric_and_trace();
Ok((CauchyTangentStiffness::dyad_il_jk(
&inverse_transpose_deformation_gradient,
&inverse_left_cauchy_green_deformation,
) + CauchyTangentStiffness::dyad_ik_jl(
&inverse_left_cauchy_green_deformation,
&inverse_transpose_deformation_gradient,
)) * (self.shear_modulus() / jacobian)
+ CauchyTangentStiffness::dyad_ij_kl(
&IDENTITY,
&(inverse_left_cauchy_green_deformation
* &inverse_transpose_deformation_gradient
* ((self.bulk_modulus() - self.shear_modulus() * TWO_THIRDS) / jacobian)),
)
- CauchyTangentStiffness::dyad_ij_kl(
&(deviatoric_strain * (2.0 * self.shear_modulus() / jacobian)
+ IDENTITY
* (self.bulk_modulus() / jacobian
* (strain_trace
- 3.0
* self.coefficient_of_thermal_expansion()
* (temperature - self.reference_temperature())))),
&inverse_transpose_deformation_gradient,
))
}
fn coefficient_of_thermal_expansion(&self) -> Scalar {
self.coefficient_of_thermal_expansion
}
fn reference_temperature(&self) -> Scalar {
self.reference_temperature
}
}