Problem class to simulate viscous inclusion propagating along 2D channel. More...

Inheritance diagram for HomogenisationProblem< ELEMENT >:

Public Member Functions
	HomogenisationProblem ()
	Constructor. More...

	~HomogenisationProblem ()
	Destructor. More...

void	complete_problem_setup ()
	Finish the steup of the problem. More...

void	actions_after_newton_solve ()
	Update the problem specs after solve (empty) More...

void	actions_before_newton_solve ()
	Update the problem specs before solve: More...

void	calculate_coefficients ()

void	sub_solve (const unsigned &n_dofs, DoubleVector &dx, DoubleVector &res, const bool &first_solve)

void	solve ()
	Make our own solve function. More...

void	doc_solution ()
	Doc the solution. More...

	HomogenisationProblem ()
	Constructor. More...

	~HomogenisationProblem ()
	Destructor. More...

void	complete_problem_setup ()
	Finish the steup of the problem. More...

void	actions_after_newton_solve ()
	Update the problem specs after solve (empty) More...

void	actions_before_newton_solve ()
	Update the problem specs before solve: More...

void	calculate_coefficients ()

void	sub_solve (const unsigned &n_dofs, DoubleVector &dx, DoubleVector &res, const bool &first_solve)

void	solve ()
	Make our own solve function. More...

void	doc_solution ()

Public Member Functions inherited from oomph::Problem
virtual void	debug_hook_fct (const unsigned &i)

void	set_analytic_dparameter (double *const &parameter_pt)

void	unset_analytic_dparameter (double *const &parameter_pt)

bool	is_dparameter_calculated_analytically (double *const &parameter_pt)

void	set_analytic_hessian_products ()

void	unset_analytic_hessian_products ()

bool	are_hessian_products_calculated_analytically ()

void	set_pinned_values_to_zero ()

bool	distributed () const

virtual void	actions_before_adapt ()

virtual void	actions_after_adapt ()
	Actions that are to be performed after a mesh adaptation. More...

OomphCommunicator *	communicator_pt ()
	access function to the oomph-lib communicator More...

const OomphCommunicator *	communicator_pt () const
	access function to the oomph-lib communicator, const version More...

	Problem ()

	Problem (const Problem &dummy)=delete
	Broken copy constructor. More...

void	operator= (const Problem &)=delete
	Broken assignment operator. More...

virtual	~Problem ()
	Virtual destructor to clean up memory. More...

Mesh *&	mesh_pt ()
	Return a pointer to the global mesh. More...

Mesh *const &	mesh_pt () const
	Return a pointer to the global mesh (const version) More...

Mesh *&	mesh_pt (const unsigned &imesh)

Mesh *const &	mesh_pt (const unsigned &imesh) const
	Return a pointer to the i-th submesh (const version) More...

unsigned	nsub_mesh () const
	Return number of submeshes. More...

unsigned	add_sub_mesh (Mesh *const &mesh_pt)

void	flush_sub_meshes ()

void	build_global_mesh ()

void	rebuild_global_mesh ()

LinearSolver *&	linear_solver_pt ()
	Return a pointer to the linear solver object. More...

LinearSolver *const &	linear_solver_pt () const
	Return a pointer to the linear solver object (const version) More...

LinearSolver *&	mass_matrix_solver_for_explicit_timestepper_pt ()

LinearSolver *	mass_matrix_solver_for_explicit_timestepper_pt () const

EigenSolver *&	eigen_solver_pt ()
	Return a pointer to the eigen solver object. More...

EigenSolver *const &	eigen_solver_pt () const
	Return a pointer to the eigen solver object (const version) More...

Time *&	time_pt ()
	Return a pointer to the global time object. More...

Time *	time_pt () const
	Return a pointer to the global time object (const version). More...

double &	time ()
	Return the current value of continuous time. More...

double	time () const
	Return the current value of continuous time (const version) More...

TimeStepper *&	time_stepper_pt ()

const TimeStepper *	time_stepper_pt () const

TimeStepper *&	time_stepper_pt (const unsigned &i)
	Return a pointer to the i-th timestepper. More...

ExplicitTimeStepper *&	explicit_time_stepper_pt ()
	Return a pointer to the explicit timestepper. More...

unsigned long	set_timestepper_for_all_data (TimeStepper *const &time_stepper_pt, const bool &preserve_existing_data=false)

virtual void	shift_time_values ()
	Shift all values along to prepare for next timestep. More...

AssemblyHandler *&	assembly_handler_pt ()
	Return a pointer to the assembly handler object. More...

AssemblyHandler *const &	assembly_handler_pt () const
	Return a pointer to the assembly handler object (const version) More...

double &	minimum_dt ()
	Access function to min timestep in adaptive timestepping. More...

double &	maximum_dt ()
	Access function to max timestep in adaptive timestepping. More...

unsigned &	max_newton_iterations ()
	Access function to max Newton iterations before giving up. More...

void	problem_is_nonlinear (const bool &prob_lin)
	Access function to Problem_is_nonlinear. More...

double &	max_residuals ()

bool &	time_adaptive_newton_crash_on_solve_fail ()
	Access function for Time_adaptive_newton_crash_on_solve_fail. More...

double &	newton_solver_tolerance ()

void	add_time_stepper_pt (TimeStepper *const &time_stepper_pt)

void	set_explicit_time_stepper_pt (ExplicitTimeStepper *const &explicit_time_stepper_pt)

void	initialise_dt (const double &dt)

void	initialise_dt (const Vector< double > &dt)

Data *&	global_data_pt (const unsigned &i)
	Return a pointer to the the i-th global data object. More...

void	add_global_data (Data *const &global_data_pt)

void	flush_global_data ()

LinearAlgebraDistribution *const &	dof_distribution_pt () const
	Return the pointer to the dof distribution (read-only) More...

unsigned long	ndof () const
	Return the number of dofs. More...

unsigned	ntime_stepper () const
	Return the number of time steppers. More...

unsigned	nglobal_data () const
	Return the number of global data values. More...

unsigned	self_test ()
	Self-test: Check meshes and global data. Return 0 for OK. More...

void	enable_store_local_dof_pt_in_elements ()

void	disable_store_local_dof_pt_in_elements ()

unsigned long	assign_eqn_numbers (const bool &assign_local_eqn_numbers=true)

void	describe_dofs (std::ostream &out= *(oomph_info.stream_pt())) const

void	enable_discontinuous_formulation ()

void	disable_discontinuous_formulation ()

void	get_dofs (DoubleVector &dofs) const

void	get_dofs (const unsigned &t, DoubleVector &dofs) const
	Return vector of the t'th history value of all dofs. More...

void	set_dofs (const DoubleVector &dofs)
	Set the values of the dofs. More...

void	set_dofs (const unsigned &t, DoubleVector &dofs)
	Set the history values of the dofs. More...

void	set_dofs (const unsigned &t, Vector< double * > &dof_pt)

void	add_to_dofs (const double &lambda, const DoubleVector &increment_dofs)
	Add lambda x incremenet_dofs[l] to the l-th dof. More...

double *	global_dof_pt (const unsigned &i)

double &	dof (const unsigned &i)
	i-th dof in the problem More...

double	dof (const unsigned &i) const
	i-th dof in the problem (const version) More...

double *&	dof_pt (const unsigned &i)
	Pointer to i-th dof in the problem. More...

double *	dof_pt (const unsigned &i) const
	Pointer to i-th dof in the problem (const version) More...

virtual void	get_inverse_mass_matrix_times_residuals (DoubleVector &Mres)

virtual void	get_dvaluesdt (DoubleVector &f)

virtual void	get_residuals (DoubleVector &residuals)
	Get the total residuals Vector for the problem. More...

virtual void	get_jacobian (DoubleVector &residuals, DenseDoubleMatrix &jacobian)

virtual void	get_jacobian (DoubleVector &residuals, CRDoubleMatrix &jacobian)

virtual void	get_jacobian (DoubleVector &residuals, CCDoubleMatrix &jacobian)

virtual void	get_jacobian (DoubleVector &residuals, SumOfMatrices &jacobian)

void	get_fd_jacobian (DoubleVector &residuals, DenseMatrix< double > &jacobian)
	Get the full Jacobian by finite differencing. More...

void	get_derivative_wrt_global_parameter (double *const &parameter_pt, DoubleVector &result)

void	get_hessian_vector_products (DoubleVectorWithHaloEntries const &Y, Vector< DoubleVectorWithHaloEntries > const &C, Vector< DoubleVectorWithHaloEntries > &product)

void	solve_eigenproblem (const unsigned &n_eval, Vector< std::complex< double >> &eigenvalue, Vector< DoubleVector > &eigenvector, const bool &steady=true)
	Solve the eigenproblem. More...

void	solve_eigenproblem (const unsigned &n_eval, Vector< std::complex< double >> &eigenvalue, const bool &steady=true)

virtual void	get_eigenproblem_matrices (CRDoubleMatrix &mass_matrix, CRDoubleMatrix &main_matrix, const double &shift=0.0)

void	assign_eigenvector_to_dofs (DoubleVector &eigenvector)
	Assign the eigenvector passed to the function to the dofs. More...

void	add_eigenvector_to_dofs (const double &epsilon, const DoubleVector &eigenvector)

void	store_current_dof_values ()
	Store the current values of the degrees of freedom. More...

void	restore_dof_values ()
	Restore the stored values of the degrees of freedom. More...

void	enable_jacobian_reuse ()

void	disable_jacobian_reuse ()
	Disable recycling of Jacobian in Newton iteration. More...

bool	jacobian_reuse_is_enabled ()
	Is recycling of Jacobian in Newton iteration enabled? More...

bool &	use_predictor_values_as_initial_guess ()

void	newton_solve ()
	Use Newton method to solve the problem. More...

void	enable_globally_convergent_newton_method ()
	enable globally convergent Newton method More...

void	disable_globally_convergent_newton_method ()
	disable globally convergent Newton method More...

void	newton_solve (unsigned const &max_adapt)

void	steady_newton_solve (unsigned const &max_adapt=0)

void	copy (Problem *orig_problem_pt)

virtual Problem *	make_copy ()

virtual void	read (std::ifstream &restart_file, bool &unsteady_restart)

virtual void	read (std::ifstream &restart_file)

virtual void	dump (std::ofstream &dump_file) const

void	dump (const std::string &dump_file_name) const

void	delete_all_external_storage ()

virtual void	symmetrise_eigenfunction_for_adaptive_pitchfork_tracking ()

double *	bifurcation_parameter_pt () const

void	get_bifurcation_eigenfunction (Vector< DoubleVector > &eigenfunction)

void	activate_fold_tracking (double *const &parameter_pt, const bool &block_solve=true)

void	activate_bifurcation_tracking (double *const &parameter_pt, const DoubleVector &eigenvector, const bool &block_solve=true)

void	activate_bifurcation_tracking (double *const &parameter_pt, const DoubleVector &eigenvector, const DoubleVector &normalisation, const bool &block_solve=true)

void	activate_pitchfork_tracking (double *const &parameter_pt, const DoubleVector &symmetry_vector, const bool &block_solve=true)

void	activate_hopf_tracking (double *const &parameter_pt, const bool &block_solve=true)

void	activate_hopf_tracking (double *const &parameter_pt, const double &omega, const DoubleVector &null_real, const DoubleVector &null_imag, const bool &block_solve=true)

void	deactivate_bifurcation_tracking ()

void	reset_assembly_handler_to_default ()
	Reset the system to the standard non-augemented state. More...

double	arc_length_step_solve (double *const &parameter_pt, const double &ds, const unsigned &max_adapt=0)

double	arc_length_step_solve (Data *const &data_pt, const unsigned &data_index, const double &ds, const unsigned &max_adapt=0)

void	reset_arc_length_parameters ()

int &	sign_of_jacobian ()

void	explicit_timestep (const double &dt, const bool &shift_values=true)
	Take an explicit timestep of size dt. More...

void	unsteady_newton_solve (const double &dt)

void	unsteady_newton_solve (const double &dt, const bool &shift_values)

void	unsteady_newton_solve (const double &dt, const unsigned &max_adapt, const bool &first, const bool &shift=true)

double	doubly_adaptive_unsteady_newton_solve (const double &dt, const double &epsilon, const unsigned &max_adapt, const bool &first, const bool &shift=true)

double	doubly_adaptive_unsteady_newton_solve (const double &dt, const double &epsilon, const unsigned &max_adapt, const unsigned &suppress_resolve_after_spatial_adapt_flag, const bool &first, const bool &shift=true)

double	adaptive_unsteady_newton_solve (const double &dt_desired, const double &epsilon)

double	adaptive_unsteady_newton_solve (const double &dt_desired, const double &epsilon, const bool &shift_values)

void	assign_initial_values_impulsive ()

void	assign_initial_values_impulsive (const double &dt)

void	calculate_predictions ()
	Calculate predictions. More...

void	enable_mass_matrix_reuse ()

void	disable_mass_matrix_reuse ()

bool	mass_matrix_reuse_is_enabled ()
	Return whether the mass matrix is being reused. More...

void	refine_uniformly (const Vector< unsigned > &nrefine_for_mesh)

void	refine_uniformly (const Vector< unsigned > &nrefine_for_mesh, DocInfo &doc_info)

void	refine_uniformly_and_prune (const Vector< unsigned > &nrefine_for_mesh)

void	refine_uniformly_and_prune (const Vector< unsigned > &nrefine_for_mesh, DocInfo &doc_info)

void	refine_uniformly (DocInfo &doc_info)

void	refine_uniformly_and_prune (DocInfo &doc_info)

void	refine_uniformly ()

void	refine_uniformly (const unsigned &i_mesh, DocInfo &doc_info)
	Do uniform refinement for submesh i_mesh with documentation. More...

void	refine_uniformly (const unsigned &i_mesh)
	Do uniform refinement for submesh i_mesh without documentation. More...

void	p_refine_uniformly (const Vector< unsigned > &nrefine_for_mesh)

void	p_refine_uniformly (const Vector< unsigned > &nrefine_for_mesh, DocInfo &doc_info)

void	p_refine_uniformly_and_prune (const Vector< unsigned > &nrefine_for_mesh)

void	p_refine_uniformly_and_prune (const Vector< unsigned > &nrefine_for_mesh, DocInfo &doc_info)

void	p_refine_uniformly (DocInfo &doc_info)

void	p_refine_uniformly_and_prune (DocInfo &doc_info)

void	p_refine_uniformly ()

void	p_refine_uniformly (const unsigned &i_mesh, DocInfo &doc_info)
	Do uniform p-refinement for submesh i_mesh with documentation. More...

void	p_refine_uniformly (const unsigned &i_mesh)
	Do uniform p-refinement for submesh i_mesh without documentation. More...

void	refine_selected_elements (const Vector< unsigned > &elements_to_be_refined)

void	refine_selected_elements (const Vector< RefineableElement * > &elements_to_be_refined_pt)

void	refine_selected_elements (const unsigned &i_mesh, const Vector< unsigned > &elements_to_be_refined)

void	refine_selected_elements (const unsigned &i_mesh, const Vector< RefineableElement * > &elements_to_be_refined_pt)

void	refine_selected_elements (const Vector< Vector< unsigned >> &elements_to_be_refined)

void	refine_selected_elements (const Vector< Vector< RefineableElement * >> &elements_to_be_refined_pt)

void	p_refine_selected_elements (const Vector< unsigned > &elements_to_be_refined)

void	p_refine_selected_elements (const Vector< PRefineableElement * > &elements_to_be_refined_pt)

void	p_refine_selected_elements (const unsigned &i_mesh, const Vector< unsigned > &elements_to_be_refined)

void	p_refine_selected_elements (const unsigned &i_mesh, const Vector< PRefineableElement * > &elements_to_be_refined_pt)

void	p_refine_selected_elements (const Vector< Vector< unsigned >> &elements_to_be_refined)

void	p_refine_selected_elements (const Vector< Vector< PRefineableElement * >> &elements_to_be_refined_pt)

unsigned	unrefine_uniformly ()

unsigned	unrefine_uniformly (const unsigned &i_mesh)

void	p_unrefine_uniformly (DocInfo &doc_info)

void	p_unrefine_uniformly (const unsigned &i_mesh, DocInfo &doc_info)
	Do uniform p-unrefinement for submesh i_mesh without documentation. More...

void	adapt (unsigned &n_refined, unsigned &n_unrefined)

void	adapt ()

void	p_adapt (unsigned &n_refined, unsigned &n_unrefined)

void	p_adapt ()

void	adapt_based_on_error_estimates (unsigned &n_refined, unsigned &n_unrefined, Vector< Vector< double >> &elemental_error)

void	adapt_based_on_error_estimates (Vector< Vector< double >> &elemental_error)

void	get_all_error_estimates (Vector< Vector< double >> &elemental_error)

void	doc_errors (DocInfo &doc_info)
	Get max and min error for all elements in submeshes. More...

void	doc_errors ()
	Get max and min error for all elements in submeshes. More...

void	enable_info_in_newton_solve ()

void	disable_info_in_newton_solve ()
	Disable the output of information when in the newton solver. More...

Public Member Functions inherited from oomph::ExplicitTimeSteppableObject
	ExplicitTimeSteppableObject ()
	Empty constructor. More...

	ExplicitTimeSteppableObject (const ExplicitTimeSteppableObject &)=delete
	Broken copy constructor. More...

void	operator= (const ExplicitTimeSteppableObject &)=delete
	Broken assignment operator. More...

virtual	~ExplicitTimeSteppableObject ()
	Empty destructor. More...

virtual void	actions_before_explicit_stage ()

virtual void	actions_after_explicit_stage ()

Private Attributes
unsigned	M

unsigned	P

Vector< Vector< DenseMatrix< double > > >	C_eff

Vector< GeomObject * >	Internal_circle_pt

TriangleMesh< ELEMENT > *	Bulk_mesh_pt
	Pointer to Bulk_mesh. More...

Vector< TriangleMeshPolygon * >	Inclusion_polygon_pt
	Vector storing pointer to the inclusion polygons. More...

TriangleMeshPolygon *	Outer_boundary_polyline_pt
	Triangle mesh polygon for outer boundary. More...

Additional Inherited Members
Public Types inherited from oomph::Problem
typedef void(*	SpatialErrorEstimatorFctPt) (Mesh *&mesh_pt, Vector< double > &elemental_error)
	Function pointer for spatial error estimator. More...

typedef void(*	SpatialErrorEstimatorWithDocFctPt) (Mesh *&mesh_pt, Vector< double > &elemental_error, DocInfo &doc_info)
	Function pointer for spatial error estimator with doc. More...

Public Attributes inherited from oomph::Problem
bool	Shut_up_in_newton_solve

Static Public Attributes inherited from oomph::Problem
static bool	Suppress_warning_about_actions_before_read_unstructured_meshes

Protected Types inherited from oomph::Problem
enum	Assembly_method { Perform_assembly_using_vectors_of_pairs , Perform_assembly_using_two_vectors , Perform_assembly_using_maps , Perform_assembly_using_lists , Perform_assembly_using_two_arrays }
	Enumerated flags to determine which sparse assembly method is used. More...

Protected Member Functions inherited from oomph::Problem
unsigned	setup_element_count_per_dof ()

virtual void	sparse_assemble_row_or_column_compressed (Vector< int * > &column_or_row_index, Vector< int * > &row_or_column_start, Vector< double * > &value, Vector< unsigned > &nnz, Vector< double * > &residual, bool compressed_row_flag)

virtual void	actions_before_newton_convergence_check ()

virtual void	actions_before_newton_step ()

virtual void	actions_after_newton_step ()

virtual void	actions_before_implicit_timestep ()

virtual void	actions_after_implicit_timestep ()

virtual void	actions_after_implicit_timestep_and_error_estimation ()

virtual void	actions_before_explicit_timestep ()
	Actions that should be performed before each explicit time step. More...

virtual void	actions_after_explicit_timestep ()
	Actions that should be performed after each explicit time step. More...

virtual void	actions_before_read_unstructured_meshes ()

virtual void	actions_after_read_unstructured_meshes ()

virtual void	actions_after_change_in_global_parameter (double *const &parameter_pt)

virtual void	actions_after_change_in_bifurcation_parameter ()

virtual void	actions_after_parameter_increase (double *const &parameter_pt)

double &	dof_derivative (const unsigned &i)

double &	dof_current (const unsigned &i)

virtual void	set_initial_condition ()

virtual double	global_temporal_error_norm ()

unsigned	newton_solve_continuation (double *const &parameter_pt)

unsigned	newton_solve_continuation (double *const &parameter_pt, DoubleVector &z)

void	calculate_continuation_derivatives (double *const &parameter_pt)

void	calculate_continuation_derivatives (const DoubleVector &z)

void	calculate_continuation_derivatives_fd (double *const &parameter_pt)

bool	does_pointer_correspond_to_problem_data (double *const &parameter_pt)

void	set_consistent_pinned_values_for_continuation ()

Protected Attributes inherited from oomph::Problem
Vector< Problem * >	Copy_of_problem_pt

std::map< double *, bool >	Calculate_dparameter_analytic

bool	Calculate_hessian_products_analytic

LinearAlgebraDistribution *	Dof_distribution_pt

Vector< double * >	Dof_pt
	Vector of pointers to dofs. More...

DoubleVectorWithHaloEntries	Element_count_per_dof

double	Relaxation_factor

double	Newton_solver_tolerance

unsigned	Max_newton_iterations
	Maximum number of Newton iterations. More...

unsigned	Nnewton_iter_taken

Vector< double >	Max_res
	Maximum residuals at start and after each newton iteration. More...

double	Max_residuals

bool	Time_adaptive_newton_crash_on_solve_fail

bool	Jacobian_reuse_is_enabled
	Is re-use of Jacobian in Newton iteration enabled? Default: false. More...

bool	Jacobian_has_been_computed

bool	Problem_is_nonlinear

bool	Pause_at_end_of_sparse_assembly

bool	Doc_time_in_distribute

unsigned	Sparse_assembly_method

unsigned	Sparse_assemble_with_arrays_initial_allocation

unsigned	Sparse_assemble_with_arrays_allocation_increment

Vector< Vector< unsigned > >	Sparse_assemble_with_arrays_previous_allocation

double	Numerical_zero_for_sparse_assembly

double	FD_step_used_in_get_hessian_vector_products

bool	Mass_matrix_reuse_is_enabled

bool	Mass_matrix_has_been_computed

bool	Discontinuous_element_formulation

double	Minimum_dt
	Minimum desired dt: if dt falls below this value, exit. More...

double	Maximum_dt
	Maximum desired dt. More...

double	DTSF_max_increase

double	DTSF_min_decrease

double	Minimum_dt_but_still_proceed

bool	Scale_arc_length
	Boolean to control whether arc-length should be scaled. More...

double	Desired_proportion_of_arc_length
	Proportion of the arc-length to taken by the parameter. More...

double	Theta_squared

int	Sign_of_jacobian
	Storage for the sign of the global Jacobian. More...

double	Continuation_direction

double	Parameter_derivative
	Storage for the derivative of the global parameter wrt arc-length. More...

double	Parameter_current
	Storage for the present value of the global parameter. More...

bool	Use_continuation_timestepper
	Boolean to control original or new storage of dof stuff. More...

unsigned	Dof_derivative_offset

unsigned	Dof_current_offset

Vector< double >	Dof_derivative
	Storage for the derivative of the problem variables wrt arc-length. More...

Vector< double >	Dof_current
	Storage for the present values of the variables. More...

double	Ds_current
	Storage for the current step value. More...

unsigned	Desired_newton_iterations_ds

double	Minimum_ds
	Minimum desired value of arc-length. More...

bool	Bifurcation_detection
	Boolean to control bifurcation detection via determinant of Jacobian. More...

bool	Bisect_to_find_bifurcation
	Boolean to control wheter bisection is used to located bifurcation. More...

bool	First_jacobian_sign_change
	Boolean to indicate whether a sign change has occured in the Jacobian. More...

bool	Arc_length_step_taken
	Boolean to indicate whether an arc-length step has been taken. More...

bool	Use_finite_differences_for_continuation_derivatives

OomphCommunicator *	Communicator_pt
	The communicator for this problem. More...

bool	Always_take_one_newton_step

double	Timestep_reduction_factor_after_nonconvergence

bool	Keep_temporal_error_below_tolerance

Static Protected Attributes inherited from oomph::Problem
static ContinuationStorageScheme	Continuation_time_stepper
	Storage for the single static continuation timestorage object. More...

Detailed Description

template<class ELEMENT>
class HomogenisationProblem< ELEMENT >

Problem class to simulate viscous inclusion propagating along 2D channel.

Constructor & Destructor Documentation

◆ HomogenisationProblem() [1/2]

template<class ELEMENT >

HomogenisationProblem< ELEMENT >::HomogenisationProblem

Constructor.

                                                       :  M(0), P(0)
 { 
  // Allocate the timestepper(a Steady default)
  this->add_time_stepper_pt(new Steady<0>);
  
  //Set the number of elements on each side
  unsigned n_element_on_side = 40;
  
  //Each side has uniform length so calculate the spacing between vertices
  double vertex_spacing = 1.0 / (double)(n_element_on_side); 
  
  //Set the volume fraction of the (single) fibre
  double volume_fraction = 0.05;
  
  // Build the boundary segments for outer boundary, consisting of
  //--------------------------------------------------------------
  // four separate polylines
  //------------------------
  Vector<TriangleMeshCurveSection*> boundary_polyline_pt(4);
  
  //Each polyline has n_element_on_side + 1 vertices
  unsigned n_vertex= n_element_on_side + 1;
  Vector<Vector<double> > vertex_coord(n_vertex);
  for(unsigned i=0;i<n_vertex;i++)
   {
    vertex_coord[i].resize(2);
   }
  
  // First polyline: Left-hand edge, set the nodal positions
  for(unsigned i=0;i<n_vertex;i++)
   {
    vertex_coord[i][0]=0.0;
    vertex_coord[i][1] = i*vertex_spacing;
   }
  
  // Build the 1st boundary polyline
  boundary_polyline_pt[0] = new TriangleMeshPolyLine(vertex_coord,3);
  
  // Second boundary polyline: Top edge
  for(unsigned i=0;i<n_vertex;i++)
   {
    vertex_coord[i][0]= i*vertex_spacing;
    vertex_coord[i][1]=1.0;
   }
  
  // Build the 2nd boundary polyline
  boundary_polyline_pt[1] = new TriangleMeshPolyLine(vertex_coord,2);
  
  // Third boundary polyline: Right-hand edge
  for(unsigned i=0;i<n_vertex;i++)
   {
    vertex_coord[i][0]=1.0;
    vertex_coord[i][1]=1.0 - i*vertex_spacing;
   }
  
  // Build the 3rd boundary polyline
  boundary_polyline_pt[2] = new TriangleMeshPolyLine(vertex_coord,1);
  
  // Fourth boundary polyline: Bottom edge
  for(unsigned i=0;i<n_vertex;i++)
   {
    vertex_coord[i][0] = 1.0 - i*vertex_spacing;
    vertex_coord[i][1] = 0.0;
   }
  
  // Build the 4th boundary polyline
  boundary_polyline_pt[3] = new TriangleMeshPolyLine(vertex_coord,0);
  
  // Create the triangle mesh polygon for outer boundary
  Outer_boundary_polyline_pt = new TriangleMeshPolygon(boundary_polyline_pt);
  
  //Storage for the outer boundary
  TriangleMeshClosedCurve* outer_boundary_closed_curve_pt = 
   Outer_boundary_polyline_pt;
  
  // Now define initial shape of inclusion with a geometric object
  //---------------------------------------------------------------
  // Build an inclusion 
  Internal_circle_pt.resize(1);
  double rad = std::sqrt(volume_fraction/(4.0*atan(1.0)));
  double Radius[2] = {rad,rad}; //{0.5*rad,rad};
  
  Vector<TriangleMeshClosedCurve*> curvilinear_inclusion_pt(1);
  
  for(unsigned h=0;h<1;h++)
   {
    Internal_circle_pt[h] = 
     new Circle(0.5,0.5,Radius[h],this->time_stepper_pt());
    
    // Build the two parts of the curvilinear boundary
    //Note that there could well be a memory leak here owing to some stupid 
    //choices
    Vector<TriangleMeshCurveSection*> curvilinear_boundary_pt(2);
    
    // First part of curvilinear boundary
    //-----------------------------------
    double zeta_start=0.0;
    double zeta_end=MathematicalConstants::Pi;
    unsigned nsegment=20;
    unsigned boundary_id=4+2*h;
    curvilinear_boundary_pt[0]=new TriangleMeshCurviLine(
     Internal_circle_pt[h],zeta_start,zeta_end, 
     nsegment,boundary_id);
    
    // Second part of curvilinear boundary
    //-------------------------------------
    zeta_start=MathematicalConstants::Pi;
    zeta_end=2.0*MathematicalConstants::Pi;
    nsegment=20;
    boundary_id=5 + 2*h;
    curvilinear_boundary_pt[1]=new TriangleMeshCurviLine(
     Internal_circle_pt[h],zeta_start,zeta_end, 
     nsegment,boundary_id);
  
    curvilinear_inclusion_pt[h]=
     new TriangleMeshClosedCurve(curvilinear_boundary_pt);
  
    //Delete the curvilines not possible because there are some memory
    //issues to consider
    //delete curvilinear_boundary_pt[1];
    //delete curvilinear_boundary_pt[0];
   }
  
  // Use the TriangleMeshParameters object for gathering all
  // the necessary arguments for the TriangleMesh object
  TriangleMeshParameters triangle_mesh_parameters(
    outer_boundary_closed_curve_pt);
  
  // Define the holes on the boundary
  triangle_mesh_parameters.internal_closed_curve_pt() =
    curvilinear_inclusion_pt;
  
  double uniform_element_area = 0.001;
  
  // Define the maximum element area
  triangle_mesh_parameters.element_area() =
    uniform_element_area;
  
  //Coordinates 
  Vector<double> region1(2,0.5);
  
  // Define the region (the internal fibre)
  triangle_mesh_parameters.add_region_coordinates(1, region1);
  
  //Vector<double> region2(2);
  //region2[0] = 0.5;
  //region2[1] = 0.5 + 0.5*(Radius[1] + Radius[0]);
  
  //Set the second region (the annulus)
  //triangle_mesh_parameters.add_region_coordinates(2, region2);
  
  //Prevent refinement on the boundaries
  triangle_mesh_parameters.disable_boundary_refinement();
  
  // Create the mesh
  Bulk_mesh_pt =
    new TriangleMesh<ELEMENT>(
      triangle_mesh_parameters, this->time_stepper_pt());
  
  //Output the regions
  unsigned n_region = this->Bulk_mesh_pt->nregion();
  for(unsigned i=0;i<n_region;i++)
   {
    unsigned n_element = Bulk_mesh_pt->nregion_element(i);
  
    std::stringstream output_string;
    output_string <<  "Region" << i << ".dat";
    std::ofstream output_file(output_string.str().c_str());
    
    for(unsigned e=0;e<n_element;e++)
     {
      Bulk_mesh_pt->region_element_pt(i,e)->output(output_file,5);
     }
    output_file.close();
   }
  
  // Output boundary and mesh initial mesh for information
  this->Bulk_mesh_pt->output_boundaries("boundaries.dat");
  this->Bulk_mesh_pt->output("mesh.dat");
  
  // Set boundary condition and complete the build of all elements
  this->complete_problem_setup();
  
  // Add meshes to the problem
  //----------------------------
  
  // Add Bulk_mesh_pt sub meshes
  this->add_sub_mesh(Bulk_mesh_pt);
  
  // Build global mesh
  this->build_global_mesh();
   
  // Setup equation numbering scheme
  cout <<"Number of equations: " << this->assign_eqn_numbers() << std::endl;
  
  //Build storage for the effective modulus
  C_eff.resize(3);
  for(unsigned i=0;i<3;i++)
   {
    C_eff[i].resize(3);
    for(unsigned j=0;j<3;j++) 
     {
      C_eff[i][j].resize(3,3,0.0);
     }
   }
  
  //Solve the problem
  solve();
  
  //The final effective tensor is actually C_pmij because of the way I have
  //set up the storage. It shouldn't matter because of the symmetries of the
  //stress tensor, however.
  
  std::cout << "Output effective coefficients\n";
  
  std::cout << "C11 " << C_eff[0][0](0,0) << "\n";
  std::cout << "C12 " << C_eff[0][0](1,1) << "\n";
  std::cout << "C13 " << C_eff[0][0](2,2) << "\n";
  std::cout << "C16 " << C_eff[0][0](0,1) << "\n";
  std::cout << "C22 " << C_eff[1][1](1,1) << "\n";
  std::cout << "C23 " << C_eff[1][1](2,2) << "\n";
  std::cout << "C33 " << C_eff[2][2](2,2) << "\n";
  std::cout << "C36 " << C_eff[2][2](0,1) << "\n";
  std::cout << "C44 " << C_eff[1][2](1,2) << "\n";
  std::cout << "C45 " << C_eff[1][2](0,2) << "\n";
  std::cout << "C55 " << C_eff[0][2](0,2) << "\n";
  std::cout << "C66 " << C_eff[0][1](0,1) << "\n";
  
  //Output to a file
  std::ofstream output("C_eff.dat");
  
  output << "C11 " << C_eff[0][0](0,0) << "\n";
  output << "C12 " << C_eff[0][0](1,1) << "\n";
  output << "C13 " << C_eff[0][0](2,2) << "\n";
  output << "C16 " << C_eff[0][0](0,1) << "\n";
  output << "C22 " << C_eff[1][1](1,1) << "\n";
  output << "C23 " << C_eff[1][1](2,2) << "\n";
  output << "C33 " << C_eff[2][2](2,2) << "\n";
  output << "C36 " << C_eff[2][2](0,1) << "\n";
  output << "C44 " << C_eff[1][2](1,2) << "\n";
  output << "C45 " << C_eff[1][2](0,2) << "\n";
  output << "C55 " << C_eff[0][2](0,2) << "\n";
  output << "C66 " << C_eff[0][1](0,1) << std::endl;
  
  //Close the output file
  output.close();
  
 } // end_of_constructor

References oomph::TriangleMeshParameters::add_region_coordinates(), oomph::Problem::add_sub_mesh(), oomph::Problem::add_time_stepper_pt(), oomph::Problem::assign_eqn_numbers(), Eigen::bfloat16_impl::atan(), oomph::Problem::build_global_mesh(), HomogenisationProblem< ELEMENT >::Bulk_mesh_pt, HomogenisationProblem< ELEMENT >::C_eff, HomogenisationProblem< ELEMENT >::complete_problem_setup(), oomph::TriangleMeshParameters::disable_boundary_refinement(), e(), oomph::TriangleMeshParameters::element_area(), i, HomogenisationProblem< ELEMENT >::Internal_circle_pt, oomph::TriangleMeshParameters::internal_closed_curve_pt(), j, HomogenisationProblem< ELEMENT >::Outer_boundary_polyline_pt, output(), BiharmonicTestFunctions2::Pi, Global_Physical_Variables::Radius, HomogenisationProblem< ELEMENT >::solve(), sqrt(), and oomph::Problem::time_stepper_pt().

◆ ~HomogenisationProblem() [1/2]

template<class ELEMENT >

HomogenisationProblem< ELEMENT >::~HomogenisationProblem ( )

inline

Destructor.

   {
    // Kill data associated with outer boundary
    unsigned n= this->Outer_boundary_polyline_pt->npolyline();
    for (unsigned j=0;j<n;j++)
     {
      delete Outer_boundary_polyline_pt->polyline_pt(j);
     }
    delete Outer_boundary_polyline_pt;
  
    //Kill data associated with inclusions
    unsigned n_inclusion = Inclusion_polygon_pt.size();
    for(unsigned iinclusion=0;iinclusion<n_inclusion;iinclusion++)
     {
      unsigned n=Inclusion_polygon_pt[iinclusion]->npolyline();
      for (unsigned j=0;j<n;j++)
       {
        delete Inclusion_polygon_pt[iinclusion]->polyline_pt(j);
       }
      delete Inclusion_polygon_pt[iinclusion];
     }
    // Delete solid mesh
    delete Bulk_mesh_pt;
   }

References j, and n.

◆ HomogenisationProblem() [2/2]

template<class ELEMENT >

HomogenisationProblem< ELEMENT >::HomogenisationProblem ( )

Constructor.

◆ ~HomogenisationProblem() [2/2]

template<class ELEMENT >

HomogenisationProblem< ELEMENT >::~HomogenisationProblem ( )

inline

Destructor.

   {
    // Kill data associated with outer boundary
    unsigned n= this->Outer_boundary_polyline_pt->npolyline();
    for (unsigned j=0;j<n;j++)
     {
      delete Outer_boundary_polyline_pt->polyline_pt(j);
     }
    delete Outer_boundary_polyline_pt;
  
    //Kill data associated with inclusions
    unsigned n_inclusion = Inclusion_polygon_pt.size();
    for(unsigned iinclusion=0;iinclusion<n_inclusion;iinclusion++)
     {
      unsigned n=Inclusion_polygon_pt[iinclusion]->npolyline();
      for (unsigned j=0;j<n;j++)
       {
        delete Inclusion_polygon_pt[iinclusion]->polyline_pt(j);
       }
      delete Inclusion_polygon_pt[iinclusion];
     }
    // Delete solid mesh
    delete Bulk_mesh_pt;
   }

References j, and n.

Member Function Documentation

◆ actions_after_newton_solve() [1/2]

template<class ELEMENT >

void HomogenisationProblem< ELEMENT >::actions_after_newton_solve ( )

inlinevirtual

Update the problem specs after solve (empty)

Reimplemented from oomph::Problem.

184 {}

◆ actions_after_newton_solve() [2/2]

template<class ELEMENT >

void HomogenisationProblem< ELEMENT >::actions_after_newton_solve ( )

inlinevirtual

Update the problem specs after solve (empty)

Reimplemented from oomph::Problem.

183 {}

◆ actions_before_newton_solve() [1/2]

template<class ELEMENT >

void HomogenisationProblem< ELEMENT >::actions_before_newton_solve ( )

inlinevirtual

Update the problem specs before solve:

Reimplemented from oomph::Problem.

187 {}

◆ actions_before_newton_solve() [2/2]

template<class ELEMENT >

void HomogenisationProblem< ELEMENT >::actions_before_newton_solve ( )

inlinevirtual

Update the problem specs before solve:

Reimplemented from oomph::Problem.

186 {}

◆ calculate_coefficients() [1/2]

template<class ELEMENT >

void HomogenisationProblem< ELEMENT >::calculate_coefficients ( )

inline

Calculate the values of the effective modulus by integrating over each element

   {
    //Loop over all elements
    unsigned n_element = this->Bulk_mesh_pt->nelement();
    for(unsigned e=0;e<n_element;e++)
     {
      ELEMENT* el_pt = 
       dynamic_cast<ELEMENT*>(this->Bulk_mesh_pt->element_pt(e));
      
      //Add the contribution to the effective modulus
      el_pt->calculate_effective_modulus(C_eff[P][M]);
     }
   }

References e(), and Global_Physical_Variables::P.

◆ calculate_coefficients() [2/2]

template<class ELEMENT >

void HomogenisationProblem< ELEMENT >::calculate_coefficients ( )

inline

Calculate the values of the effective modulus by integrating over each element

   {
    //Loop over all elements
    unsigned n_element = this->Bulk_mesh_pt->nelement();
    for(unsigned e=0;e<n_element;e++)
     {
      ELEMENT* el_pt = 
       dynamic_cast<ELEMENT*>(this->Bulk_mesh_pt->element_pt(e));
      
      //Add the contribution to the effective modulus
      el_pt->calculate_effective_modulus(C_eff[P][M]);
     }
   }

References e(), and Global_Physical_Variables::P.

◆ complete_problem_setup() [1/2]

template<class ELEMENT >

void HomogenisationProblem< ELEMENT >::complete_problem_setup

Finish the steup of the problem.

Set boundary conditions and complete the build of all elements.

   {      
    //Collect vectors of the nodes on the mesh boundaries
    Vector<Vector<Node*> > boundary_nodes_pt(4);
    
    for(unsigned b=0;b<4;b++)
     {
      unsigned n_node = this->Bulk_mesh_pt->nboundary_node(b);
      boundary_nodes_pt[b].resize(n_node);
      for(unsigned n=0;n<n_node;n++)
       {
        boundary_nodes_pt[b][n] = this->Bulk_mesh_pt->boundary_node_pt(b,n);
       }
     }
    
    //Now let's sort each one
    std::sort(boundary_nodes_pt[0].begin(), boundary_nodes_pt[0].end(),
              CompareNodeCoordinatesX());
    std::sort(boundary_nodes_pt[1].begin(), boundary_nodes_pt[1].end(),
              CompareNodeCoordinatesY());
    std::sort(boundary_nodes_pt[2].begin(), boundary_nodes_pt[2].end(),
              CompareNodeCoordinatesX());
    std::sort(boundary_nodes_pt[3].begin(), boundary_nodes_pt[3].end(),
              CompareNodeCoordinatesY());
  
  
    //Now we can make it periodic
    double tol = 1.0e-7;
    unsigned n_node = boundary_nodes_pt[0].size();
    for(unsigned n=1;n<n_node-1;n++)
     {
      //If we have different x coordinates complain
      if(std::abs(boundary_nodes_pt[0][n]->x(0) 
                  - boundary_nodes_pt[2][n]->x(0)) > tol)
        {
         std::ostringstream error_stream;
         error_stream << 
          "Trying to make periodic nodes across the top/bottom boundary,\n"
                      << "but the nodes have x-coordinates "
                      << boundary_nodes_pt[0][n]->x(0) << " and "
                      << boundary_nodes_pt[2][n]->x(0);
                 
         throw OomphLibError(error_stream.str(),
                             OOMPH_CURRENT_FUNCTION,
                             OOMPH_EXCEPTION_LOCATION);
        }
  
      //Make it periodic
      boundary_nodes_pt[0][n]->make_periodic(boundary_nodes_pt[2][n]);
     }
    
    n_node = boundary_nodes_pt[1].size();
    for(unsigned n=1;n<n_node-1;n++)
     {
      //If we have different y coordinates complain
      if(std::abs(boundary_nodes_pt[1][n]->x(1) - boundary_nodes_pt[3][n]->x(1)) > tol)
        {
         std::ostringstream error_stream;
         error_stream << 
          "Trying to make periodic nodes across the left/right boundary,\n"
                      << "but the nodes have y-coordinates "
                      << boundary_nodes_pt[1][n]->x(1) << " and "
                      << boundary_nodes_pt[3][n]->x(1);
                 
         throw OomphLibError(error_stream.str(),
                             OOMPH_CURRENT_FUNCTION,
                             OOMPH_EXCEPTION_LOCATION);
        }
  
      //Make it periodic
      boundary_nodes_pt[1][n]->make_periodic(boundary_nodes_pt[3][n]);
     }
  
  
     //Vector of corner nodes
    Vector<Node*> corner_nodes_pt(4);
    corner_nodes_pt[0] = boundary_nodes_pt[1][0];
    corner_nodes_pt[1] = boundary_nodes_pt[1][n_node-1];
    corner_nodes_pt[2] = boundary_nodes_pt[3][0];
    corner_nodes_pt[3] = boundary_nodes_pt[3][n_node-1];
    
     //PUT IN A TEST TO CHECK THAT THE CORNERS ARE REALLY THE CORNERS!
  
     //Make these nodes periodic from the bottom node
     corner_nodes_pt[0]->make_periodic_nodes(corner_nodes_pt);
  
     //Pin the corner to suppress rigid body motions
     corner_nodes_pt[0]->pin(0);
     corner_nodes_pt[0]->pin(1);
     corner_nodes_pt[0]->pin(2);
    
    // Complete the build of all elements so they are fully functional
    // Remember that adaptation for triangle meshes involves a complete
    // regneration of the mesh (rather than splitting as in tree-based
    // meshes where such parameters can be passed down from the father
    // element!)
    unsigned n_element = this->Bulk_mesh_pt->nregion_element(0);
    for(unsigned e=0;e<n_element;e++)
     {
      // Upcast from GeneralisedElement to the present element
      ELEMENT* el_pt = 
       dynamic_cast<ELEMENT*>(Bulk_mesh_pt->region_element_pt(0,e));
      
      // Set pointer to the elasticity tensor function
      el_pt->elasticity_tensor_fct_pt() = 
       &Problem_Parameter::bulk_elasticity_tensor_pt;
      
      // Set the values of m and p
      el_pt->m_pt() = &(this->M);
      el_pt->p_pt() = &(this->P);
     }
  
    //For the elements within the inclusion (regions 1 and 2
    //set the viscosity ratio
    for(unsigned r=1;r<3;r++)
     {
      n_element = Bulk_mesh_pt->nregion_element(r);
      for(unsigned e=0;e<n_element;e++)
       {
        // Upcast from GeneralisedElement to the present element
        ELEMENT* el_pt = 
         dynamic_cast<ELEMENT*>(Bulk_mesh_pt->region_element_pt(r,e));
  
        el_pt->elasticity_tensor_fct_pt() = 
       &Problem_Parameter::fibre_elasticity_tensor_pt;
      
      // Set the values of m and p
      el_pt->m_pt() = &(this->M);
      el_pt->p_pt() = &(this->P);
       }
      
     }
  
   }

References abs(), b, Problem_Parameter::bulk_elasticity_tensor_pt(), e(), Eigen::placeholders::end, Problem_Parameter::fibre_elasticity_tensor_pt(), n, OOMPH_CURRENT_FUNCTION, OOMPH_EXCEPTION_LOCATION, Global_Physical_Variables::P, UniformPSDSelfTest::r, and plotDoE::x.

Referenced by HomogenisationProblem< ELEMENT >::HomogenisationProblem().

◆ complete_problem_setup() [2/2]

template<class ELEMENT >

void HomogenisationProblem< ELEMENT >::complete_problem_setup ( )

Finish the steup of the problem.

◆ doc_solution() [1/2]

template<class ELEMENT >

void HomogenisationProblem< ELEMENT >::doc_solution

Doc the solution.

 { 
  this->Bulk_mesh_pt->output("soln.dat",5);
 }

◆ doc_solution() [2/2]

template<class ELEMENT >

void HomogenisationProblem< ELEMENT >::doc_solution ( )

◆ solve() [1/2]

template<class ELEMENT >

void HomogenisationProblem< ELEMENT >::solve ( )

inline

Make our own solve function.

   {
    //Enable the resolve
    linear_solver_pt()->enable_resolve();
  
    //Find total number of dofs
    unsigned long n_dofs = ndof();
    
    //Set up the Vector to hold the solution
    //Vector<double> dx(n_dofs,0.0);
    DoubleVector dx;
    //Set up a vector to hold the residuals
    //Vector<double> res(n_dofs);
    DoubleVector res;
  
    //Only need to loop over the upper "half" of the matrix
    for(P=0;P<3;P++)
     {
      for(M=P;M<3;M++)
       {
        if(M==0)
         {
          //Do the solve once only
          sub_solve(n_dofs,dx,res,true);
         }
        //Otherwise it's resolves
        else
         {
          sub_solve(n_dofs,dx,res,false);
         }
       }
     }
  
    //Disable the resolve
    linear_solver_pt()->disable_resolve();
   }  

References Global_Physical_Variables::P, and res.

Referenced by HomogenisationProblem< ELEMENT >::HomogenisationProblem().

◆ solve() [2/2]

template<class ELEMENT >

void HomogenisationProblem< ELEMENT >::solve ( )

inline

Make our own solve function.

   {
    //Enable the resolve
    linear_solver_pt()->enable_resolve();
  
    //Find total number of dofs
    unsigned long n_dofs = ndof();
    
    //Set up the Vector to hold the solution
    //Vector<double> dx(n_dofs,0.0);
    DoubleVector dx;
    //Set up a vector to hold the residuals
    //Vector<double> res(n_dofs);
    DoubleVector res;
  
    //Only need to loop over the upper "half" of the matrix
    for(P=0;P<3;P++)
     {
      for(M=P;M<3;M++)
       {
        if(M==0)
         {
          //Do the solve once only
          sub_solve(n_dofs,dx,res,true);
         }
        //Otherwise it's resolves
        else
         {
          sub_solve(n_dofs,dx,res,false);
         }
       }
     }
  
    //Disable the resolve
    linear_solver_pt()->disable_resolve();
   }  

References Global_Physical_Variables::P, and res.

◆ sub_solve() [1/2]

template<class ELEMENT >

void HomogenisationProblem< ELEMENT >::sub_solve	(	const unsigned &	n_dofs,
		DoubleVector &	dx,
		DoubleVector &	res,
		const bool &	first_solve
	)

inline

Solve the sub-problems This will only solve the problem if the first_solve flag is true

   {
    //Update anything that needs updating
    actions_before_newton_solve();
    //Do any updates that are required 
    actions_before_newton_step();
    
    //Now do the linear solve
    if(first_solve)
     {
      linear_solver_pt()->solve(this,dx);
     }
    else
     {
      //Get the new residuals
      get_residuals(res);
      //Now do the linear solve
      linear_solver_pt()->resolve(res,dx);
     }
    
    //Subtract the new values from the true dofs
    for(unsigned l=0;l<n_dofs;l++)
     { 
      // This is needed during parallel runs when dofs that are not
      // held on the current processor are nulled out. Can change
      // this once/if the Dof_pt vector is distributed too. 
      if (Dof_pt[l]!=0) *Dof_pt[l] -= dx[l];
     }
  
         
 #ifdef OOMPH_HAS_MPI
      // Synchronise the solution on different processors
    this->synchronise_all_dofs();
 #endif
  
      // Do any updates that are required 
      actions_after_newton_step();
      actions_before_newton_convergence_check();
      
      // Maximum residuals
      double maxres=0.0;
      //Calculate the new residuals
      get_residuals(dx);
      //Get the maximum residuals
      maxres = dx.max();
  
      oomph_info << "Final  residuals " << maxres << std::endl;
      
      //Now update anything that needs updating
      actions_after_newton_solve();
      
      //Calculate the current contribution to the coefficients
      calculate_coefficients();
   }

References GlobalFct::get_residuals(), oomph::DoubleVector::max(), oomph::oomph_info, and res.

◆ sub_solve() [2/2]

template<class ELEMENT >

void HomogenisationProblem< ELEMENT >::sub_solve	(	const unsigned &	n_dofs,
		DoubleVector &	dx,
		DoubleVector &	res,
		const bool &	first_solve
	)

inline

Solve the sub-problems This will only solve the problem if the first_solve flag is true

   {
    //Update anything that needs updating
    actions_before_newton_solve();
    //Do any updates that are required 
    actions_before_newton_step();
    
    //Now do the linear solve
    if(first_solve)
     {
      linear_solver_pt()->solve(this,dx);
     }
    else
     {
      //Get the new residuals
      get_residuals(res);
      //Now do the linear solve
      linear_solver_pt()->resolve(res,dx);
     }
    
    //Subtract the new values from the true dofs
    for(unsigned l=0;l<n_dofs;l++)
     { 
      // This is needed during parallel runs when dofs that are not
      // held on the current processor are nulled out. Can change
      // this once/if the Dof_pt vector is distributed too. 
      if (Dof_pt[l]!=0) *Dof_pt[l] -= dx[l];
     }
  
         
 #ifdef OOMPH_HAS_MPI
      // Synchronise the solution on different processors
    this->synchronise_all_dofs();
 #endif
  
      // Do any updates that are required 
      actions_after_newton_step();
      actions_before_newton_convergence_check();
      
      // Maximum residuals
      double maxres=0.0;
      //Calculate the new residuals
      get_residuals(dx);
      //Get the maximum residuals
      maxres = dx.max();
  
      oomph_info << "Final  residuals " << maxres << std::endl;
      
      //Now update anything that needs updating
      actions_after_newton_solve();
      
      //Calculate the current contribution to the coefficients
      calculate_coefficients();
   }