void
MultiPlasticityDebugger::fdJacobian(const RankTwoTensor & stress,
const std::vector<Real> & intnl_old,
const std::vector<Real> & intnl,
const std::vector<Real> & pm,
const RankTwoTensor & delta_dp,
const RankFourTensor & E_inv,
bool eliminate_ld,
std::vector<std::vector<Real>> & jac)
{
std::vector<bool> active;
active.assign(_num_surfaces, true);
std::vector<bool> deactivated_due_to_ld;
std::vector<bool> deactivated_due_to_ld_ep;
std::vector<Real> orig_rhs;
calculateRHS(stress,
intnl_old,
intnl,
pm,
delta_dp,
orig_rhs,
active,
eliminate_ld,
deactivated_due_to_ld); // this calculates RHS, and also set deactivated_due_to_ld.
// The latter stays fixed for the rest of this routine
unsigned int whole_system_size = 6 + _num_surfaces + _num_models;
unsigned int system_size =
orig_rhs.size(); // will be = whole_system_size if eliminate_ld = false, since all active=true
jac.resize(system_size);
for (unsigned row = 0; row < system_size; ++row)
jac[row].assign(system_size, 0);
std::vector<Real> rhs_ep;
unsigned col = 0;
RankTwoTensor stressep;
RankTwoTensor delta_dpep;
Real ep = _fspb_debug_stress_change;
for (unsigned i = 0; i < 3; ++i)
for (unsigned j = 0; j <= i; ++j)
{
stressep = stress;
stressep(i, j) += ep;
if (i != j)
stressep(j, i) += ep;
delta_dpep = delta_dp;
for (unsigned k = 0; k < 3; ++k)
for (unsigned l = 0; l < 3; ++l)
{
delta_dpep(k, l) -= E_inv(k, l, i, j) * ep;
if (i != j)
delta_dpep(k, l) -= E_inv(k, l, j, i) * ep;
}
active.assign(_num_surfaces, true);
calculateRHS(stressep,
intnl_old,
intnl,
pm,
delta_dpep,
rhs_ep,
active,
false,
deactivated_due_to_ld_ep);
unsigned row = 0;
for (unsigned dof = 0; dof < whole_system_size; ++dof)
if (dof_included(dof, deactivated_due_to_ld))
{
jac[row][col] =
-(rhs_ep[dof] - orig_rhs[row]) / ep; // remember jacobian = -d(rhs)/d(something)
row++;
}
col++; // all of the first 6 columns are dof_included since they're stresses
}
std::vector<Real> pmep;
pmep.resize(_num_surfaces);
for (unsigned surface = 0; surface < _num_surfaces; ++surface)
pmep[surface] = pm[surface];
for (unsigned surface = 0; surface < _num_surfaces; ++surface)
{
if (!dof_included(6 + surface, deactivated_due_to_ld))
continue;
ep = _fspb_debug_pm_change[surface];
pmep[surface] += ep;
active.assign(_num_surfaces, true);
calculateRHS(
stress, intnl_old, intnl, pmep, delta_dp, rhs_ep, active, false, deactivated_due_to_ld_ep);
unsigned row = 0;
for (unsigned dof = 0; dof < whole_system_size; ++dof)
if (dof_included(dof, deactivated_due_to_ld))
{
jac[row][col] =
-(rhs_ep[dof] - orig_rhs[row]) / ep; // remember jacobian = -d(rhs)/d(something)
row++;
}
pmep[surface] -= ep;
col++;
}
std::vector<Real> intnlep;
intnlep.resize(_num_models);
for (unsigned model = 0; model < _num_models; ++model)
intnlep[model] = intnl[model];
for (unsigned model = 0; model < _num_models; ++model)
{
if (!dof_included(6 + _num_surfaces + model, deactivated_due_to_ld))
continue;
ep = _fspb_debug_intnl_change[model];
intnlep[model] += ep;
active.assign(_num_surfaces, true);
calculateRHS(
stress, intnl_old, intnlep, pm, delta_dp, rhs_ep, active, false, deactivated_due_to_ld_ep);
unsigned row = 0;
for (unsigned dof = 0; dof < whole_system_size; ++dof)
if (dof_included(dof, deactivated_due_to_ld))
{
jac[row][col] =
-(rhs_ep[dof] - orig_rhs[row]) / ep; // remember jacobian = -d(rhs)/d(something)
row++;
}
intnlep[model] -= ep;
col++;
}
}
void
FiniteStrainPlasticBase::fdJacobian(const RankTwoTensor & stress, const std::vector<Real> & intnl_old, const std::vector<Real> & intnl, const std::vector<Real> & pm, const RankTwoTensor & delta_dp, const RankFourTensor & E_inv, std::vector<std::vector<Real> > & jac)
{
std::vector<Real> orig_rhs;
calculateRHS(stress, intnl_old, intnl, pm, delta_dp, orig_rhs);
unsigned int system_size = orig_rhs.size();
jac.resize(system_size);
for (unsigned row = 0 ; row < system_size ; ++row)
jac[row].resize(system_size);
std::vector<Real> rhs_ep;
unsigned col = 0;
RankTwoTensor stressep;
RankTwoTensor delta_dpep;
Real ep = _fspb_debug_stress_change;
for (unsigned i = 0 ; i < 3 ; ++i)
for (unsigned j = 0 ; j <= i ; ++j)
{
stressep = stress;
stressep(i, j) += ep;
if (i != j)
stressep(j, i) += ep;
delta_dpep = delta_dp;
for (unsigned k = 0; k < 3 ; ++k)
for (unsigned l = 0 ; l < 3 ; ++l)
{
delta_dpep(k, l) -= E_inv(k, l, i, j)*ep;
if (i != j)
delta_dpep(k, l) -= E_inv(k, l, j, i)*ep;
}
calculateRHS(stressep, intnl_old, intnl, pm, delta_dpep, rhs_ep);
for (unsigned row = 0 ; row < system_size ; ++row)
jac[row][col] = -(rhs_ep[row] - orig_rhs[row])/ep; // remember jacobian = -d(rhs)/d(something)
col++;
}
std::vector<Real> pmep;
pmep.resize(numberOfYieldFunctions());
for (unsigned alpha = 0 ; alpha < numberOfYieldFunctions() ; ++alpha)
pmep[alpha] = pm[alpha];
for (unsigned alpha = 0 ; alpha < numberOfYieldFunctions() ; ++alpha)
{
ep = _fspb_debug_pm_change[alpha];
pmep[alpha] += ep;
calculateRHS(stress, intnl_old, intnl, pmep, delta_dp, rhs_ep);
for (unsigned row = 0 ; row < system_size ; ++row)
jac[row][col] = -(rhs_ep[row] - orig_rhs[row])/ep; // remember jacobian = -d(rhs)/d(something)
pmep[alpha] -= ep;
col++;
}
std::vector<Real> intnlep;
intnlep.resize(numberOfInternalParameters());
for (unsigned a = 0 ; a < numberOfInternalParameters() ; ++a)
intnlep[a] = intnl[a];
for (unsigned a = 0 ; a < numberOfInternalParameters() ; ++a)
{
ep = _fspb_debug_intnl_change[a];
intnlep[a] += ep;
calculateRHS(stress, intnl_old, intnlep, pm, delta_dp, rhs_ep);
for (unsigned row = 0 ; row < system_size ; ++row)
jac[row][col] = -(rhs_ep[row] - orig_rhs[row])/ep; // remember jacobian = -d(rhs)/d(something)
intnlep[a] -= ep;
col++;
}
}
