74 int main(
int argc,
char **argv) {
77 Teuchos::GlobalMPISession mpiSession(&argc, &argv);
80 int iprint = argc - 1;
81 Teuchos::RCP<std::ostream> outStream;
82 Teuchos::oblackholestream bhs;
84 outStream = Teuchos::rcp(&std::cout,
false);
86 outStream = Teuchos::rcp(&bhs,
false);
90 Teuchos::ParameterList parlist;
91 std::string paramfile =
"parameters.xml";
92 Teuchos::updateParametersFromXmlFile(paramfile,Teuchos::Ptr<Teuchos::ParameterList>(&parlist));
94 int nx = parlist.get(
"Interior Grid Points",100);
95 double gnl = parlist.get(
"Nonlinearity Coefficient g",50.0);
98 RealT dx = 1.0/(nx+1);
101 Teuchos::RCP<std::vector<RealT> > xi_rcp = Teuchos::rcp(
new std::vector<RealT> (nx, 0.0) );
103 for(
int i=0; i<nx; ++i) {
104 (*xi_rcp)[i] =
RealT(i+1)/(nx+1);
108 Teuchos::RCP<std::vector<RealT> > V_rcp = Teuchos::rcp(
new std::vector<RealT> (nx, 0.0) );
109 for(
int i=0; i<nx; ++i) {
110 (*V_rcp)[i] = 100.0*pow((*xi_rcp)[i]-0.5,2);
116 Teuchos::RCP<std::vector<RealT> > psi_rcp = Teuchos::rcp(
new std::vector<RealT> (nx, 0.0) );
120 double sqrt30 = sqrt(30);
122 for (
int i=0; i<nx; i++) {
123 (*psi_rcp)[i] = sqrt30*(*xi_rcp)[i]*(1.0-(*xi_rcp)[i]);
129 Teuchos::RCP<std::vector<RealT> > c_rcp = Teuchos::rcp(
new std::vector<RealT> (1, 0.0) );
133 Teuchos::RCP<std::vector<RealT> > lam_rcp = Teuchos::rcp(
new std::vector<RealT> (1, 0.0) );
137 Teuchos::RCP<std::vector<RealT> > g_rcp = Teuchos::rcp(
new std::vector<RealT> (nx, 0.0) );
147 parlist.set(
"Nominal SQP Optimality Solver Tolerance", 1.e-4);
148 parlist.set(
"Maximum Number of Krylov Iterations",80);
149 parlist.set(
"Absolute Krylov Tolerance",1e-4);
165 std::vector<std::string> output = algo.
run(psi, g, lam, c, obj, constr,
false);
167 for (
unsigned i = 0; i < output.size(); i++ ) {
168 *outStream << output[i];
177 std::cout <<
"End Result: TEST FAILED\n";
179 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.
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.
Implements the computation of optimization steps with composite-step trust-region SQP methods...
int main(int argc, char **argv)