int
TrabBoneNL3D :: giveLocalNonlocalStiffnessContribution(GaussPoint *gp, IntArray &loc, const UnknownNumberingScheme &s,
FloatArray &lcontrib, TimeStep *tStep)
{
TrabBoneNL3DStatus *nlStatus = static_cast< TrabBoneNL3DStatus * >( this->giveStatus(gp) );
StructuralElement *elem = static_cast< StructuralElement * >( gp->giveElement() );
int nrows, nsize;
double sum, nlKappa, dDamFunc, dam, tempDam;
FloatArray localNu;
FloatMatrix b;
this->computeCumPlastStrain(nlKappa, gp, tStep);
dam = nlStatus->giveDam();
tempDam = nlStatus->giveTempDam();
if ( ( tempDam - dam ) > 0.0 ) {
elem->giveLocationArray(loc, s);
localNu = nlStatus->giveTempEffectiveStress();
elem->giveLocationArray(loc, EModelDefaultEquationNumbering() );
elem->computeBmatrixAt(gp, b);
dDamFunc = expDam * critDam * exp(-expDam * nlKappa);
nrows = b.giveNumberOfColumns();
nsize = localNu.giveSize();
lcontrib.resize(nrows);
for ( int i = 1; i <= nrows; i++ ) {
sum = 0.0;
for ( int j = 1; j <= nsize; j++ ) {
sum += b.at(j, i) * localNu.at(j);
}
lcontrib.at(i) = mParam * dDamFunc * sum;
}
return 1;
} else {
loc.clear();
return 0;
}
}
void
TrabBoneNL3D :: give3dMaterialStiffnessMatrix(FloatMatrix &answer,
MatResponseMode mode, GaussPoint *gp,
TimeStep *tStep)
{
TrabBoneNL3DStatus *nlStatus = static_cast< TrabBoneNL3DStatus * >( this->giveStatus(gp) );
double tempDam, beta, nlKappa;
FloatArray tempEffectiveStress, tempTensor2, prodTensor, plasFlowDirec;
FloatMatrix elasticity, compliance, SSaTensor, secondTerm, thirdTerm, tangentMatrix;
if ( mode == ElasticStiffness ) {
this->constructAnisoComplTensor(compliance);
elasticity.beInverseOf(compliance);
answer = elasticity;
} else if ( mode == SecantStiffness ) {
this->constructAnisoComplTensor(compliance);
elasticity.beInverseOf(compliance);
tempDam = nlStatus->giveTempDam();
answer = elasticity;
answer.times(1.0 - tempDam);
} else if ( mode == TangentStiffness ) {
double kappa = nlStatus->giveKappa();
double tempKappa = nlStatus->giveTempKappa();
double dKappa = tempKappa - kappa;
if ( dKappa < 10.e-9 ) {
dKappa = 0;
}
if ( dKappa > 0.0 ) {
// Imports
tempEffectiveStress = nlStatus->giveTempEffectiveStress();
this->computeCumPlastStrain(nlKappa, gp, tStep);
tempDam = nlStatus->giveTempDam();
double dam = nlStatus->giveDam();
plasFlowDirec = nlStatus->givePlasFlowDirec();
SSaTensor = nlStatus->giveSSaTensor();
beta = nlStatus->giveBeta();
// Construction of the dyadic product tensor
prodTensor.beTProductOf(SSaTensor, plasFlowDirec);
// Construction of the tangent stiffness third term
if ( tempDam - dam > 0 ) {
thirdTerm.beDyadicProductOf(tempEffectiveStress, prodTensor);
thirdTerm.times(-expDam * critDam * exp(-expDam * nlKappa) * ( 1.0 - mParam ) / beta);
} else {
thirdTerm.resize(6, 6);
}
// Construction of the tangent stiffness second term
tempTensor2.beProductOf(SSaTensor, plasFlowDirec);
secondTerm.beDyadicProductOf(tempTensor2, prodTensor);
secondTerm.times(-( 1.0 - tempDam ) / beta);
// Construction of the tangent stiffness
tangentMatrix = SSaTensor;
tangentMatrix.times(1.0 - tempDam);
tangentMatrix.add(secondTerm);
tangentMatrix.add(thirdTerm);
answer = tangentMatrix;
} else {
// Import of state variables
tempDam = nlStatus->giveTempDam();
// Construction of the tangent stiffness
this->constructAnisoComplTensor(compliance);
elasticity.beInverseOf(compliance);
answer = elasticity;
answer.times(1.0 - tempDam);
}
}
nlStatus->setSmtrx(answer);
}
