52 #include "Teuchos_oblackholestream.hpp" 53 #include "Teuchos_GlobalMPISession.hpp" 54 #include "Teuchos_XMLParameterListHelpers.hpp" 60 int main(
int argc,
char *argv[]) {
62 Teuchos::GlobalMPISession mpiSession(&argc, &argv);
65 int iprint = argc - 1;
66 Teuchos::RCP<std::ostream> outStream;
67 Teuchos::oblackholestream bhs;
69 outStream = Teuchos::rcp(&std::cout,
false);
71 outStream = Teuchos::rcp(&bhs,
false);
79 std::string filename =
"input.xml";
80 Teuchos::RCP<Teuchos::ParameterList> parlist = Teuchos::rcp(
new Teuchos::ParameterList() );
81 Teuchos::updateParametersFromXmlFile( filename, parlist.ptr() );
82 parlist->sublist(
"General").set(
"Inexact Hessian-Times-A-Vector",
true);
84 parlist->sublist(
"General").set(
"Inexact Hessian-Times-A-Vector",
false);
88 parlist->sublist(
"General").sublist(
"Krylov").set(
"Type",
"Conjugate Residuals");
89 parlist->sublist(
"General").sublist(
"Krylov").set(
"Absolute Tolerance", 1.e-8);
90 parlist->sublist(
"General").sublist(
"Krylov").set(
"Relative Tolerance", 1.e-4);
91 parlist->sublist(
"General").sublist(
"Krylov").set(
"Iteration Limit", 50);
102 parlist->sublist(
"Step").sublist(
"Primal Dual Active Set").set(
"Relative Step Tolerance",1.e-10);
103 parlist->sublist(
"Step").sublist(
"Primal Dual Active Set").set(
"Relative Gradient Tolerance",1.e-8);
104 parlist->sublist(
"Step").sublist(
"Primal Dual Active Set").set(
"Iteration Limit",1);
105 parlist->sublist(
"Step").sublist(
"Primal Dual Active Set").set(
"Dual Scaling",1.e8);
108 parlist->sublist(
"Step").sublist(
"Primal Dual Active Set").set(
"Relative Step Tolerance",1.e-10);
109 parlist->sublist(
"Step").sublist(
"Primal Dual Active Set").set(
"Relative Gradient Tolerance",1.e-8);
110 parlist->sublist(
"Step").sublist(
"Primal Dual Active Set").set(
"Iteration Limit",10);
111 parlist->sublist(
"Step").sublist(
"Primal Dual Active Set").set(
"Dual Scaling",1.e-2);
114 parlist->sublist(
"Step").sublist(
"Primal Dual Active Set").set(
"Relative Step Tolerance",1.e-10);
115 parlist->sublist(
"Step").sublist(
"Primal Dual Active Set").set(
"Relative Gradient Tolerance",1.e-8);
116 parlist->sublist(
"Step").sublist(
"Primal Dual Active Set").set(
"Iteration Limit",10);
117 parlist->sublist(
"Step").sublist(
"Primal Dual Active Set").set(
"Dual Scaling",1.e10);
120 parlist->sublist(
"Step").sublist(
"Primal Dual Active Set").set(
"Relative Step Tolerance",1.e-10);
121 parlist->sublist(
"Step").sublist(
"Primal Dual Active Set").set(
"Relative Gradient Tolerance",1.e-8);
122 parlist->sublist(
"Step").sublist(
"Primal Dual Active Set").set(
"Iteration Limit",1);
123 parlist->sublist(
"Step").sublist(
"Primal Dual Active Set").set(
"Dual Scaling",1.e-3);
126 parlist->sublist(
"Step").sublist(
"Primal Dual Active Set").set(
"Relative Step Tolerance",1.e-10);
127 parlist->sublist(
"Step").sublist(
"Primal Dual Active Set").set(
"Relative Gradient Tolerance",1.e-8);
128 parlist->sublist(
"Step").sublist(
"Primal Dual Active Set").set(
"Iteration Limit",1);
129 parlist->sublist(
"Step").sublist(
"Primal Dual Active Set").set(
"Dual Scaling",1.e0);
136 Teuchos::RCP<ROL::Vector<RealT> > x0, z;
137 Teuchos::RCP<ROL::Objective<RealT> > obj;
138 Teuchos::RCP<ROL::BoundConstraint<RealT> > con;
139 ROL::getTestObjectives<RealT>(obj,con,x0,z,prob);
140 Teuchos::RCP<ROL::Vector<RealT> > x = x0->clone();
143 int dim = x0->dimension();
144 parlist->sublist(
"General").sublist(
"Krylov").set(
"Iteration Limit", 2*dim);
147 Teuchos::RCP<ROL::Vector<RealT> > e = x0->clone();
155 algo.
run(*x, *obj, *con,
true, *outStream);
160 *outStream << std::endl <<
"Norm of Error: " << e->norm() << std::endl;
163 Teuchos::RCP<const ROL::AlgorithmState<RealT> > state = algo.
getState();
164 errorFlag += ((e->norm() < std::max(1.e-6*z->norm(),1.e-8) || (state->gnorm < 1.e-6)) ? 0 : 1);
168 catch (std::logic_error err) {
169 *outStream << err.what() << std::endl;
174 std::cout <<
"End Result: TEST FAILED" << std::endl;
176 std::cout <<
"End Result: TEST PASSED" << std::endl;
ETestOptProblem
Enumeration of test optimization problems.
Contains definitions of test objective functions.
int main(int argc, char *argv[])
Teuchos::RCP< const AlgorithmState< Real > > getState(void) const
std::string ETestOptProblemToString(ETestOptProblem to)
Provides an interface to run optimization algorithms.
virtual std::vector< std::string > run(Vector< Real > &x, Objective< Real > &obj, bool print=false, std::ostream &outStream=std::cout)
Run algorithm on unconstrained problems (Type-U). This is the primary Type-U interface.