Real GluedContactConstraint::computeQpResidual(Moose::ConstraintType type) { switch (type) { case Moose::Slave: { PenetrationInfo * pinfo = _penetration_locator._penetration_info[_current_node->id()]; Real distance = (*_current_node)(_component) - pinfo->_closest_point(_component); Real pen_force = _penalty * distance; Real resid = pen_force; pinfo->_contact_force(_component) = resid; pinfo->_mech_status=PenetrationInfo::MS_STICKING; return _test_slave[_i][_qp] * resid; } case Moose::Master: { PenetrationInfo * pinfo = _penetration_locator._penetration_info[_current_node->id()]; long int dof_number = _current_node->dof_number(0, _vars(_component), 0); Real resid = _residual_copy(dof_number); pinfo->_contact_force(_component) = -resid; pinfo->_mech_status=PenetrationInfo::MS_STICKING; return _test_master[_i][_qp] * resid; } } return 0; }
Real OneDContactConstraint::computeQpResidual(Moose::ConstraintType type) { PenetrationInfo * pinfo = _penetration_locator._penetration_info[_current_node->id()]; switch (type) { case Moose::Slave: // return (_u_slave[_qp] - _u_master[_qp])*_test_slave[_i][_qp]; return ((*_current_node)(0) - pinfo->_closest_point(0)) * _test_slave[_i][_qp]; case Moose::Master: double slave_resid = _residual_copy(_current_node->dof_number(0, _var.number(), 0)); return slave_resid*_test_master[_i][_qp]; } return 0; }
Real TiedValueConstraint::computeQpResidual(Moose::ConstraintType type) { Real scaling_factor = _var.scalingFactor(); Real slave_resid = 0; Real retVal = 0; switch (type) { case Moose::Slave: retVal = (_u_slave[_qp] - _u_master[_qp])*_test_slave[_i][_qp]*_scaling; break; case Moose::Master: slave_resid = _residual_copy(_current_node->dof_number(0, _var.number(), 0)) / scaling_factor; retVal = slave_resid*_test_master[_i][_qp]; break; default: break; } return retVal; }
void ContactMaster::computeContactForce(PenetrationInfo * pinfo) { std::map<unsigned int, Real> & lagrange_multiplier = _penetration_locator._lagrange_multiplier; const Node * node = pinfo->_node; RealVectorValue res_vec; // Build up residual vector for (unsigned int i=0; i<_mesh_dimension; ++i) { long int dof_number = node->dof_number(0, _vars(i), 0); res_vec(i) = _residual_copy(dof_number); } const Real area = nodalArea(*pinfo); RealVectorValue distance_vec(_mesh.node(node->id()) - pinfo->_closest_point); RealVectorValue pen_force(_penalty * distance_vec); if (_normalize_penalty) pen_force *= area; RealVectorValue tan_residual(0,0,0); if (_model == CM_FRICTIONLESS) { switch (_formulation) { case CF_DEFAULT: pinfo->_contact_force = -pinfo->_normal * (pinfo->_normal * res_vec); break; case CF_PENALTY: pinfo->_contact_force = pinfo->_normal * (pinfo->_normal * pen_force); break; case CF_AUGMENTED_LAGRANGE: pinfo->_contact_force = (pinfo->_normal * (pinfo->_normal * //( pen_force + (lagrange_multiplier[node->id()]/distance_vec.size())*distance_vec))); ( pen_force + lagrange_multiplier[node->id()] * pinfo->_normal))); break; default: mooseError("Invalid contact formulation"); break; } pinfo->_mech_status=PenetrationInfo::MS_SLIPPING; } else if (_model == CM_COULOMB && _formulation == CF_PENALTY) { distance_vec = pinfo->_incremental_slip + (pinfo->_normal * (_mesh.node(node->id()) - pinfo->_closest_point)) * pinfo->_normal; pen_force = _penalty * distance_vec; if (_normalize_penalty) pen_force *= area; // Frictional capacity // const Real capacity( _friction_coefficient * (pen_force * pinfo->_normal < 0 ? -pen_force * pinfo->_normal : 0) ); const Real capacity( _friction_coefficient * (res_vec * pinfo->_normal > 0 ? res_vec * pinfo->_normal : 0) ); // Elastic predictor pinfo->_contact_force = pen_force + (pinfo->_contact_force_old - pinfo->_normal*(pinfo->_normal*pinfo->_contact_force_old)); RealVectorValue contact_force_normal( (pinfo->_contact_force*pinfo->_normal) * pinfo->_normal ); RealVectorValue contact_force_tangential( pinfo->_contact_force - contact_force_normal ); // Tangential magnitude of elastic predictor const Real tan_mag( contact_force_tangential.size() ); if ( tan_mag > capacity ) { pinfo->_contact_force = contact_force_normal + capacity * contact_force_tangential / tan_mag; pinfo->_mech_status=PenetrationInfo::MS_SLIPPING; } else { pinfo->_mech_status=PenetrationInfo::MS_STICKING; } } else if (_model == CM_GLUED || (_model == CM_COULOMB && _formulation == CF_DEFAULT)) { switch (_formulation) { case CF_DEFAULT: pinfo->_contact_force = -res_vec; break; case CF_PENALTY: pinfo->_contact_force = pen_force; break; case CF_AUGMENTED_LAGRANGE: pinfo->_contact_force = pen_force + lagrange_multiplier[node->id()]*distance_vec/distance_vec.size(); break; default: mooseError("Invalid contact formulation"); break; } pinfo->_mech_status=PenetrationInfo::MS_STICKING; } else { mooseError("Invalid or unavailable contact model"); } }
void MechanicalContactConstraint::computeContactForce(PenetrationInfo * pinfo) { const Node * node = pinfo->_node; RealVectorValue res_vec; // Build up residual vector for (unsigned int i=0; i<_mesh_dimension; ++i) { dof_id_type dof_number = node->dof_number(0, _vars(i), 0); res_vec(i) = _residual_copy(dof_number); } RealVectorValue distance_vec(_mesh.node(node->id()) - pinfo->_closest_point); const Real penalty = getPenalty(*pinfo); RealVectorValue pen_force(penalty * distance_vec); switch (_model) { case CM_FRICTIONLESS: switch (_formulation) { case CF_KINEMATIC: pinfo->_contact_force = -pinfo->_normal * (pinfo->_normal * res_vec); break; case CF_PENALTY: pinfo->_contact_force = pinfo->_normal * (pinfo->_normal * pen_force); break; case CF_AUGMENTED_LAGRANGE: pinfo->_contact_force = (pinfo->_normal * (pinfo->_normal * ( pen_force + pinfo->_lagrange_multiplier * pinfo->_normal))); break; default: mooseError("Invalid contact formulation"); break; } pinfo->_mech_status=PenetrationInfo::MS_SLIPPING; break; case CM_COULOMB: switch (_formulation) { case CF_KINEMATIC: pinfo->_contact_force = -res_vec; break; case CF_PENALTY: { distance_vec = pinfo->_incremental_slip + (pinfo->_normal * (_mesh.node(node->id()) - pinfo->_closest_point)) * pinfo->_normal; pen_force = penalty * distance_vec; // Frictional capacity // const Real capacity( _friction_coefficient * (pen_force * pinfo->_normal < 0 ? -pen_force * pinfo->_normal : 0) ); const Real capacity( _friction_coefficient * (res_vec * pinfo->_normal > 0 ? res_vec * pinfo->_normal : 0) ); // Elastic predictor pinfo->_contact_force = pen_force + (pinfo->_contact_force_old - pinfo->_normal*(pinfo->_normal*pinfo->_contact_force_old)); RealVectorValue contact_force_normal( (pinfo->_contact_force*pinfo->_normal) * pinfo->_normal ); RealVectorValue contact_force_tangential( pinfo->_contact_force - contact_force_normal ); // Tangential magnitude of elastic predictor const Real tan_mag( contact_force_tangential.size() ); if ( tan_mag > capacity ) { pinfo->_contact_force = contact_force_normal + capacity * contact_force_tangential / tan_mag; pinfo->_mech_status=PenetrationInfo::MS_SLIPPING; } else pinfo->_mech_status=PenetrationInfo::MS_STICKING; break; } case CF_AUGMENTED_LAGRANGE: pinfo->_contact_force = pen_force + pinfo->_lagrange_multiplier*distance_vec/distance_vec.size(); break; default: mooseError("Invalid contact formulation"); break; } break; case CM_GLUED: switch (_formulation) { case CF_KINEMATIC: pinfo->_contact_force = -res_vec; break; case CF_PENALTY: pinfo->_contact_force = pen_force; break; case CF_AUGMENTED_LAGRANGE: pinfo->_contact_force = pen_force + pinfo->_lagrange_multiplier*distance_vec/distance_vec.size(); break; default: mooseError("Invalid contact formulation"); break; } pinfo->_mech_status=PenetrationInfo::MS_STICKING; break; default: mooseError("Invalid or unavailable contact model"); break; } }
void MultiDContactConstraint::updateContactSet() { std::set<dof_id_type> & has_penetrated = _penetration_locator._has_penetrated; std::map<dof_id_type, PenetrationInfo *>::iterator it = _penetration_locator._penetration_info.begin(), end = _penetration_locator._penetration_info.end(); for (; it!=end; ++it) { PenetrationInfo * pinfo = it->second; // Skip this pinfo if there are no DOFs on this node. if ( ! pinfo || pinfo->_node->n_comp(_sys.number(), _vars(_component)) < 1 ) continue; const Node * node = pinfo->_node; dof_id_type slave_node_num = it->first; std::set<dof_id_type>::iterator hpit = has_penetrated.find(slave_node_num); RealVectorValue res_vec; // Build up residual vector for (unsigned int i=0; i<_mesh_dimension; ++i) { dof_id_type dof_number = node->dof_number(0, _vars(i), 0); res_vec(i) = _residual_copy(dof_number); } // Real resid = 0; switch (_model) { case CM_FRICTIONLESS: // resid = pinfo->_normal * res_vec; break; case CM_GLUED: // resid = pinfo->_normal * res_vec; break; default: mooseError("Invalid or unavailable contact model"); break; } // if (hpit != has_penetrated.end() && resid < 0) // Moose::err<<resid<<std::endl; /* if (hpit != has_penetrated.end() && resid < -.15) { Moose::err<<std::endl<<"Unlocking node "<<node->id()<<" because resid: "<<resid<<std::endl<<std::endl; has_penetrated.erase(hpit); unlocked_this_step[slave_node_num] = true; } else*/ if (pinfo->_distance > 0 && hpit == has_penetrated.end())// && !unlocked_this_step[slave_node_num]) { // Moose::err<<std::endl<<"Locking node "<<node->id()<<" because distance: "<<pinfo->_distance<<std::endl<<std::endl; has_penetrated.insert(slave_node_num); } } }
Real MultiDContactConstraint::computeQpResidual(Moose::ConstraintType type) { PenetrationInfo * pinfo = _penetration_locator._penetration_info[_current_node->id()]; const Node * node = pinfo->_node; RealVectorValue res_vec; // Build up residual vector for (unsigned int i=0; i<_mesh_dimension; ++i) { dof_id_type dof_number = node->dof_number(0, _vars(i), 0); res_vec(i) = _residual_copy(dof_number); } const RealVectorValue distance_vec(_mesh.node(node->id()) - pinfo->_closest_point); const RealVectorValue pen_force(_penalty * distance_vec); Real resid = 0; switch (type) { case Moose::Slave: switch (_model) { case CM_FRICTIONLESS: resid = pinfo->_normal(_component) * (pinfo->_normal * ( pen_force - res_vec )); break; case CM_GLUED: resid = pen_force(_component) - res_vec(_component) ; break; default: mooseError("Invalid or unavailable contact model"); break; } return _test_slave[_i][_qp] * resid; case Moose::Master: switch (_model) { case CM_FRICTIONLESS: resid = pinfo->_normal(_component) * (pinfo->_normal * res_vec); break; case CM_GLUED: resid = res_vec(_component); break; default: mooseError("Invalid or unavailable contact model"); break; } return _test_master[_i][_qp] * resid; } return 0; }
Real DebugResidualAux::computeValue() { dof_id_type dof = _current_node->dof_number(_nl_sys.number(), _debug_var.number(), 0); return _residual_copy(dof); }