コード例 #1
0
ファイル: FaceFaceConstraint.C プロジェクト: gnsteve/moose
void
FaceFaceConstraint::computeJacobianSide(Moose::ConstraintType side)
{
  switch (side)
  {
  case Moose::Master:
    {
      DenseMatrix<Number> & Ken_master = _assembly.jacobianBlock(_var.number(), _master_var.number());
      DenseMatrix<Number> & Kne_master = _assembly.jacobianBlock(_master_var.number(), _var.number());

      for (_qp = 0; _qp < _qrule->n_points(); _qp++)
        for (_i = 0; _i < _test_master.size(); _i++)
        {
          for (_j = 0; _j < _phi.size(); _j++)
          {
            Ken_master(_j, _i) += _JxW_lm[_qp] * _coord[_qp] * computeQpJacobianSide(Moose::MasterMaster);
            Kne_master(_i, _j) += _JxW_lm[_qp] * _coord[_qp] * computeQpJacobianSide(Moose::SlaveMaster);
          }
        }
    }
    break;

  case Moose::Slave:
    {
      DenseMatrix<Number> & Ken_slave = _assembly.jacobianBlock(_var.number(), _slave_var.number());
      DenseMatrix<Number> & Kne_slave = _assembly.jacobianBlock(_slave_var.number(), _var.number());
      for (_qp = 0; _qp < _qrule->n_points(); _qp++)
        for (_i = 0; _i < _test_slave.size(); _i++)
        {
          for (_j = 0; _j < _phi.size(); _j++)
          {
            Ken_slave(_j, _i) += _JxW_lm[_qp] * _coord[_qp] * computeQpJacobianSide(Moose::MasterSlave);
            Kne_slave(_i, _j) += _JxW_lm[_qp] * _coord[_qp] * computeQpJacobianSide(Moose::SlaveSlave);
          }
        }
    }
    break;
  }
}
コード例 #2
0
ファイル: FaceFaceConstraint.C プロジェクト: Jieun2/moose
void
FaceFaceConstraint::computeJacobian(SparseMatrix<Number> & jacobian)
{
  std::vector<std::vector<Real> > phi_master;
  std::vector<std::vector<Real> > phi_slave;

  unsigned int nqp = _qrule->n_points();

  _phys_points_master.resize(nqp);
  _phys_points_slave.resize(nqp);
  _test = _assembly.getFE(_var.feType())->get_phi();               // yes we need to do a copy here
  _phi = _assembly.getFE(_var.feType())->get_phi();                // yes we need to do a copy here
  _JxW_lm = _assembly.getFE(_var.feType())->get_JxW();             // another copy here to preserve the right JxW

  for (_qp = 0; _qp < nqp; _qp++)
  {
    const Node * current_node = _mesh.getQuadratureNode(_current_elem, 0, _qp);

    PenetrationInfo * master_pinfo = _master_penetration_locator._penetration_info[current_node->id()];
    PenetrationInfo * slave_pinfo = _slave_penetration_locator._penetration_info[current_node->id()];

    if (master_pinfo && slave_pinfo)
    {
      _phys_points_master[_qp] = master_pinfo->_closest_point;
      _elem_master = master_pinfo->_elem;

      _phys_points_slave[_qp] = slave_pinfo->_closest_point;
      _elem_slave = slave_pinfo->_elem;
    }
  }

  // fill in the diagonal block
  {
    DenseMatrix<Number> & Kee = _assembly.jacobianBlock(_var.index(), _var.index());

    for (_qp = 0; _qp < _qrule->n_points(); _qp++)
      for (_i = 0; _i < _test.size(); _i++)
        for (_j = 0; _j < _phi.size(); _j++)
          Kee(_i, _j) += _JxW_lm[_qp] * _coord[_qp] * computeQpJacobian();
    _assembly.addJacobian(jacobian);
  }

  // off-diagonal part for master side
  {
    _assembly.reinit(_elem_master);
    _master_var.prepare();
    _assembly.prepare();
    _assembly.reinitAtPhysical(_elem_master, _phys_points_master);

    DenseMatrix<Number> & Ken_master = _assembly.jacobianBlock(_var.index(), _master_var.index());
    DenseMatrix<Number> & Kne_master = _assembly.jacobianBlock(_master_var.index(), _var.index());

    for (_qp = 0; _qp < _qrule->n_points(); _qp++)
      for (_i = 0; _i < _test_master.size(); _i++)
      {
        for (_j = 0; _j < _phi.size(); _j++)
        {
          Ken_master(_j, _i) += _JxW_lm[_qp] * _coord[_qp] * computeQpJacobianSide(Moose::MasterMaster);
          Kne_master(_i, _j) += _JxW_lm[_qp] * _coord[_qp] * computeQpJacobianSide(Moose::SlaveMaster);
        }
      }
    _assembly.addJacobian(jacobian);
  }

  // off-diagonal part for slave side
  {
    _assembly.reinit(_elem_slave);
    _slave_var.prepare();
    _assembly.prepare();
    _assembly.reinitAtPhysical(_elem_slave, _phys_points_slave);

    DenseMatrix<Number> & Ken_slave = _assembly.jacobianBlock(_var.index(), _slave_var.index());
    DenseMatrix<Number> & Kne_slave = _assembly.jacobianBlock(_slave_var.index(), _var.index());
    for (_qp = 0; _qp < _qrule->n_points(); _qp++)
      for (_i = 0; _i < _test_slave.size(); _i++)
      {
        for (_j = 0; _j < _phi.size(); _j++)
        {
          Ken_slave(_j, _i) += _JxW_lm[_qp] * _coord[_qp] * computeQpJacobianSide(Moose::MasterSlave);
          Kne_slave(_i, _j) += _JxW_lm[_qp] * _coord[_qp] * computeQpJacobianSide(Moose::SlaveSlave);
        }
      }
    _assembly.addJacobian(jacobian);
  }
}