q_convergence_3d.cc File Reference

#include "generic.h"
#include "poisson.h"
#include "meshes/eighth_sphere_mesh.h"

Classes
class	EighthSpherePoissonProblem< ELEMENT >
	Poisson problem in refineable eighth of a sphere mesh. More...

Namespaces
	TanhSolnForPoisson
	Namespace for exact solution for Poisson equation with "sharp step".

Functions
void	TanhSolnForPoisson::get_exact_u (const Vector< double > &x, Vector< double > &u)
	Exact solution as a Vector. More...
void	TanhSolnForPoisson::get_exact_u (const Vector< double > &x, double &u)
	Exact solution as a scalar. More...
void	TanhSolnForPoisson::get_source (const Vector< double > &x, double &source)
	Source function to make it an exact solution. More...
int	main (int argc, char *argv[])

Function Documentation

main()

int main	(	int argc	,
		char *	argv[]
	)

///////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////// Driver for 3D Poisson problem in eighth of a sphere. Solution has a sharp step. If there are any command line arguments, we regard this as a validation run and perform only a single adaptation.

Label for output

{ 
 
 // Store command line arguments
 CommandLineArgs::setup(argc,argv);
 
 DocInfo doc_info;
 
 // Output directory
 doc_info.set_directory("RESLT");
 
 
 
 // Output for convergence data
 ofstream convergence_file("RESLT/convergence.dat");
 
 convergence_file << "VARIABLES=\"log h\",\"log e\",\"theory\",\"log u\" " 
                  << std::endl;
 
 unsigned nstep;
 
 
 
 cout << "Linear element" << std::endl;
 cout << "==============" << std::endl << std::endl;
 
 
 
 // Number of steps (reduced for validation)
 nstep = 5;  
 if (CommandLineArgs::Argc>1)
  {
   nstep=3;
  }
 
 //Tecplot output separator for convergence results
 convergence_file << "ZONE T=\"Linear element\"" << std::endl;
 for (unsigned h_power=1;h_power<nstep+1;h_power++)
  {
   //Set up the problem
   EighthSpherePoissonProblem<RefineableQPoissonElement<3,2> >
    problem(&TanhSolnForPoisson::get_source,h_power);
 
   // Solve the problem
   problem.newton_solve();
   
   //Output solution & convergence data
   problem.doc_solution(doc_info,convergence_file);
   
   //Increment counter for solutions 
   doc_info.number()++;
  }
 
 
 
 cout << "Quadratic element" << std::endl;
 cout << "=================" << std::endl << std::endl;
 
 // Number of steps (reduced for validation)
 nstep = 4;  
 if (CommandLineArgs::Argc>1)
  {
   nstep=3;
  }
 
 //Tecplot output separator for convergence results
 convergence_file << "ZONE T=\"Quadratic element\"" << std::endl;
 for (unsigned h_power=1;h_power<nstep+1;h_power++)
  {
   //Set up the problem
   EighthSpherePoissonProblem<RefineableQPoissonElement<3,3> >
    problem(&TanhSolnForPoisson::get_source,h_power);
 
   // Solve the problem
   problem.newton_solve();
   
   //Output solution & convergence data
   problem.doc_solution(doc_info,convergence_file);
   
   //Increment counter for solutions 
   doc_info.number()++;
  }
 
 
 
 
 cout << "Cubic element" << std::endl;
 cout << "=============" << std::endl << std::endl;
 
 // Number of steps (reduced for validation)
 nstep = 4;  
 if (CommandLineArgs::Argc>1)
  {
   nstep=3;
  }
 
 //Tecplot output separator for convergence results
 convergence_file << "ZONE T=\"Cubic element\"" << std::endl;
 for (unsigned h_power=1;h_power<nstep+1;h_power++)
  {
   //Set up the problem
   EighthSpherePoissonProblem<RefineableQPoissonElement<3,4> >
    problem(&TanhSolnForPoisson::get_source,h_power);
 
   // Solve the problem
   problem.newton_solve();
   
   //Output solution & convergence data
   problem.doc_solution(doc_info,convergence_file);
   
   //Increment counter for solutions 
   doc_info.number()++;
  }
 
 
 
 
 
 
 
 
 
} // end of main

References oomph::CommandLineArgs::Argc, TanhSolnForPoisson::get_source(), oomph::DocInfo::number(), problem, oomph::DocInfo::set_directory(), and Flag_definition::setup().