void ParsedInteriorQoI::element_qoi_derivative( AssemblyContext& context, const unsigned int qoi_index ) { libMesh::FEBase* element_fe; context.get_element_fe<libMesh::Real>(0, element_fe); const std::vector<libMesh::Real> &JxW = element_fe->get_JxW(); const std::vector<libMesh::Point>& x_qp = element_fe->get_xyz(); // Local DOF count and quadrature point count const unsigned int n_u_dofs = context.get_dof_indices().size(); unsigned int n_qpoints = context.get_element_qrule().n_points(); // Local solution vector - non-const version for finite // differenting purposes libMesh::DenseVector<libMesh::Number>& elem_solution = const_cast<libMesh::DenseVector<libMesh::Number>&> (context.get_elem_solution()); /*! \todo Need to generalize this to the multiple QoI case */ libMesh::DenseVector<libMesh::Number> &Qu = context.get_qoi_derivatives()[qoi_index]; for( unsigned int qp = 0; qp != n_qpoints; qp++ ) { // Central finite differencing to approximate derivatives. // FIXME - we should hook the FParserAD stuff into // ParsedFEMFunction for( unsigned int i = 0; i != n_u_dofs; ++i ) { libMesh::Number ¤t_solution = elem_solution(i); const libMesh::Number original_solution = current_solution; current_solution = original_solution + libMesh::TOLERANCE; const libMesh::Number plus_val = (*qoi_functional)(context, x_qp[qp], context.get_time()); current_solution = original_solution - libMesh::TOLERANCE; const libMesh::Number minus_val = (*qoi_functional)(context, x_qp[qp], context.get_time()); Qu(i) += (plus_val - minus_val) * (0.5 / libMesh::TOLERANCE) * JxW[qp]; // Don't forget to restore the correct solution... current_solution = original_solution; } } }
void ScalarODE::nonlocal_constraint(bool compute_jacobian, AssemblyContext& context, CachedValues& /* cache */ ) { libMesh::DenseSubMatrix<libMesh::Number> &Kss = context.get_elem_jacobian(_scalar_ode_var, _scalar_ode_var); // R_{s},{s} libMesh::DenseSubVector<libMesh::Number> &Fs = context.get_elem_residual(_scalar_ode_var); // R_{s} const libMesh::Number constraint = (*constraint_function)(context, libMesh::Point(0), context.get_time()); Fs(0) += constraint; if (compute_jacobian) { // FIXME: we should replace this hacky FDM with a hook to the // AD fparser stuff libMesh::DenseSubVector<libMesh::Number> &Us = const_cast<libMesh::DenseSubVector<libMesh::Number>&> (context.get_elem_solution(_scalar_ode_var)); // U_{s} const libMesh::Number s = Us(0); Us(0) = s + this->_epsilon; libMesh::Number constraint_jacobian = (*constraint_function)(context, libMesh::Point(0), context.get_time()); Us(0) = s - this->_epsilon; constraint_jacobian -= (*constraint_function)(context, libMesh::Point(0), context.get_time()); Us(0) = s; constraint_jacobian /= (2*this->_epsilon); Kss(0,0) += constraint_jacobian * context.get_elem_solution_derivative(); } return; }
void ParsedInteriorQoI::element_qoi( AssemblyContext& context, const unsigned int qoi_index ) { libMesh::FEBase* element_fe; context.get_element_fe<libMesh::Real>(0, element_fe); const std::vector<libMesh::Real> &JxW = element_fe->get_JxW(); const std::vector<libMesh::Point>& x_qp = element_fe->get_xyz(); unsigned int n_qpoints = context.get_element_qrule().n_points(); /*! \todo Need to generalize this to the multiple QoI case */ libMesh::Number& qoi = context.get_qois()[qoi_index]; for( unsigned int qp = 0; qp != n_qpoints; qp++ ) { const libMesh::Number func_val = (*qoi_functional)(context, x_qp[qp], context.get_time()); qoi += func_val * JxW[qp]; } }