Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
  • Loading branch information
thelfer committed Aug 1, 2024
2 parents 6310201 + 915bf56 commit 8e59876
Show file tree
Hide file tree
Showing 2 changed files with 13 additions and 5 deletions.
14 changes: 11 additions & 3 deletions generic-behaviours/hyperelasticity/Signorini.mfront
Original file line number Diff line number Diff line change
Expand Up @@ -13,10 +13,13 @@
@MaterialProperty stress C01;

@LocalVariable StiffnessTensor dS_dC;
@LocalVariable real I1b;
@LocalVariable real I2b;
@LocalVariable real J;

@Integrator{
const auto id = Stensor::Id();
const auto J = det(F1);
J = det(F1);
const auto C = computeRightCauchyGreenTensor(F1);
const auto C2 = square(C);
/* invariants and derivatives */
Expand All @@ -37,7 +40,8 @@
const auto iJb4 = iJb2*iJb2;
const auto diJb_dI3 = -iJb4/3;
const auto diJb_dC = diJb_dI3*dI3_dC;
const auto I1b = I1*iJb;
I1b = I1*iJb;
I2b = I2*iJb*iJb;
const auto dI1b_dC = iJb*id+I1*diJb_dC;
const auto dI2b_dC = iJb2*dI2_dC+2*I2*iJb*diJb_dC;
const auto dPi_dI1b = C10+2*C20*(I1b-3);
Expand Down Expand Up @@ -70,7 +74,7 @@
const auto d2Pi_dI1b2 = 2*C20;
const auto dSi_dC =
2*(d2Pi_dI1b2*(dI1b_dC^dI1b_dC)+dPi_dI1b*d2I1b_dC2+
+dPi_dI2b*d2I2b_dC2);
+dPi_dI2b*d2I2b_dC2);
dS_dC = dSv_dC+dSi_dC;
}
}
Expand All @@ -80,3 +84,7 @@
static_cast<void>(smt);
Dt = dS_dC;
}

@InternalEnergy{
Psi_s = C10 * (I1b - 3.) + C20 * power<2>(I1b - 3.) + C01 * (I2b - 3) + 1./2. * K * power<2>(J - 1);
}
Original file line number Diff line number Diff line change
Expand Up @@ -16,8 +16,8 @@ K.setGlossaryName("BulkModulus");
@MaterialProperty stress C20;
@MaterialProperty stress C01;

@MaterialProperty stress tau[Nv];
@MaterialProperty stress g[Nv];
@MaterialProperty time tau[Nv];
@MaterialProperty real g[Nv];

@StateVariable StressStensor Si;
Si.setEntryName("IsochoricElasticStress");
Expand Down

0 comments on commit 8e59876

Please sign in to comment.