88 int main(
int argc,
char **argv) {
92 Teuchos::GlobalMPISession mpiSession(&argc, &argv);
95 int iprint = argc - 1;
96 Teuchos::RCP<std::ostream> outStream;
97 Teuchos::oblackholestream bhs;
99 outStream = Teuchos::rcp(&std::cout,
false);
101 outStream = Teuchos::rcp(&bhs,
false);
106 Teuchos::ParameterList parlist;
107 std::string paramfile =
"parameters.xml";
108 Teuchos::updateParametersFromXmlFile(paramfile,Teuchos::Ptr<Teuchos::ParameterList>(&parlist));
110 int nx = parlist.get(
"Interior Grid Points",100);
111 RealT gnl = parlist.get(
"Nonlinearity Coefficient g",50.0);
112 bool exactsolve = parlist.get(
"Solve Exact Augmented System",
false);
116 std::string input = argv[1];
117 std::transform(input.begin(), input.end(), input.begin(), ::tolower);
118 if(input==
"exactsolve") {
125 RealT dx = 1.0/(nx+1);
131 Teuchos::RCP<std::vector<RealT> > xi_rcp = Teuchos::rcp(
new std::vector<RealT> (nx, 0.0) );
133 for(
int i=0; i<nx; ++i) {
134 (*xi_rcp)[i] =
RealT(i+1)/(nx+1);
138 Teuchos::RCP<std::vector<RealT> > V_rcp = Teuchos::rcp(
new std::vector<RealT> (nx, 0.0) );
139 for(
int i=0; i<nx; ++i) {
140 (*V_rcp)[i] = 100.0*pow((*xi_rcp)[i]-0.5,2);
146 Teuchos::RCP<std::vector<RealT> > psi_rcp = Teuchos::rcp(
new std::vector<RealT> (nx, 0.0) );
150 RealT sqrt30 = sqrt(30);
152 for (
int i=0; i<nx; i++) {
153 (*psi_rcp)[i] = sqrt30*(*xi_rcp)[i]*(1.0-(*xi_rcp)[i]);
158 Teuchos::RCP<std::vector<RealT> > c_rcp = Teuchos::rcp(
new std::vector<RealT> (1, 0.0) );
162 Teuchos::RCP<std::vector<RealT> > lam_rcp = Teuchos::rcp(
new std::vector<RealT> (1, 0.0) );
166 Teuchos::RCP<std::vector<RealT> > g_rcp = Teuchos::rcp(
new std::vector<RealT> (nx, 0.0) );
178 std::string stepname =
"Composite Step";
179 parlist.sublist(
"Step").sublist(stepname).sublist(
"Optimality System Solver").set(
"Nominal Relative Tolerance",1e-4);
180 parlist.sublist(
"Step").sublist(stepname).sublist(
"Optimality System Solver").set(
"Fix Tolerance",
true);
181 parlist.sublist(
"Step").sublist(stepname).sublist(
"Tangential Subproblem Solver").set(
"Iteration Limit",20);
182 parlist.sublist(
"Step").sublist(stepname).sublist(
"Tangential Subproblem Solver").set(
"Relative Tolerance",1e-2);
183 parlist.sublist(
"Step").sublist(stepname).set(
"Output Level",0);
184 parlist.sublist(
"Status Test").set(
"Gradient Tolerance",1.e-12);
185 parlist.sublist(
"Status Test").set(
"Constraint Tolerance",1.e-12);
186 parlist.sublist(
"Status Test").set(
"Step Tolerance",1.e-14);
187 parlist.sublist(
"Status Test").set(
"Iteration Limit",100);
191 algo.
run(psi, g, lam, c, obj, constr,
true, *outStream);
198 std::cout <<
"End Result: TEST FAILED\n";
200 std::cout <<
"End Result: TEST PASSED\n";
Teuchos::RCP< const AlgorithmState< Real > > getState(void) const
Provides the std::vector implementation of the ROL::Vector interface.
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.
int main(int argc, char **argv)