44 #ifndef ROL_TRUSTREGIONSTEP_H
45 #define ROL_TRUSTREGIONSTEP_H
128 template <
class Real>
186 ROL::ParameterList &slist = parlist.sublist(
"Step");
187 ROL::ParameterList &list = slist.sublist(
"Trust Region");
188 step_state->searchSize = list.get(
"Initial Radius", static_cast<Real>(-1));
189 delMax_ = list.get(
"Maximum Radius", static_cast<Real>(1.e8));
191 ROL::ParameterList &glist = parlist.sublist(
"General");
193 useInexact_.push_back(glist.get(
"Inexact Objective Function",
false));
194 useInexact_.push_back(glist.get(
"Inexact Gradient",
false));
195 useInexact_.push_back(glist.get(
"Inexact Hessian-Times-A-Vector",
false));
197 ROL::ParameterList &ilist = list.sublist(
"Inexact").sublist(
"Gradient");
198 scale0_ = ilist.get(
"Tolerance Scaling", static_cast<Real>(0.1));
199 scale1_ = ilist.get(
"Relative Tolerance", static_cast<Real>(2));
206 scaleEps_ = glist.get(
"Scale for Epsilon Active Sets", static_cast<Real>(1));
209 max_fval_ = list.sublist(
"Post-Smoothing").get(
"Function Evaluation Limit", 20);
210 alpha_init_ = list.sublist(
"Post-Smoothing").get(
"Initial Step Size", static_cast<Real>(1));
211 mu_ = list.sublist(
"Post-Smoothing").get(
"Tolerance", static_cast<Real>(0.9999));
212 beta_ = list.sublist(
"Post-Smoothing").get(
"Rate", static_cast<Real>(0.01));
214 stepBackMax_ = list.sublist(
"Coleman-Li").get(
"Maximum Step Back", static_cast<Real>(0.9999));
215 stepBackScale_ = list.sublist(
"Coleman-Li").get(
"Maximum Step Scale", static_cast<Real>(1));
216 singleReflect_ = list.sublist(
"Coleman-Li").get(
"Single Reflection",
true);
250 Real gtol1 =
scale0_*std::min(algo_state.
gnorm,state->searchSize);
251 Real gtol0 = gtol1 + one;
252 while ( gtol0 > gtol1 ) {
253 obj.
gradient(*(state->gradientVec),x,gtol1);
256 gtol1 =
scale0_*std::min(algo_state.
gnorm,state->searchSize);
261 Real gtol = std::sqrt(ROL_EPSILON<Real>());
262 obj.
gradient(*(state->gradientVec),x,gtol);
289 return xnew_->norm();
329 ROL::ParameterList &glist = parlist.sublist(
"General");
333 secant_ = SecantFactory<Real>(parlist);
362 ROL::ParameterList &glist = parlist.sublist(
"General");
365 if ( ROL::is_nullPtr(
secant_) ) {
366 ROL::ParameterList Slist;
367 Slist.sublist(
"General").sublist(
"Secant").set(
"Type",
"Limited-Memory BFGS");
368 Slist.sublist(
"General").sublist(
"Secant").set(
"Maximum Storage",10);
369 secant_ = SecantFactory<Real>(Slist);
387 Real p1(0.1), oe10(1.e10),
zero(0), one(1), half(0.5), three(3), two(2), six(6);
393 Real htol = std::sqrt(ROL_EPSILON<Real>());
394 Real ftol = p1*ROL_OVERFLOW<Real>();
396 step_state->descentVec = s.
clone();
397 step_state->gradientVec = g.
clone();
414 algo_state.
snorm = oe10;
423 Ptr<Vector<Real>> v = g.
clone();
424 Ptr<Vector<Real>> hv = x.
clone();
427 catch (std::exception &e) {
433 bool autoRad =
false;
434 if ( step_state->searchSize <=
zero ) {
436 Ptr<Vector<Real>> Bg = g.
clone();
438 secant_->applyB(*Bg,(step_state->gradientVec)->dual());
441 obj.
hessVec(*Bg,(step_state->gradientVec)->dual(),x,htol);
443 Real gBg = Bg->dot(*(step_state->gradientVec));
445 if ( gBg > ROL_EPSILON<Real>() ) {
446 alpha = algo_state.
gnorm*algo_state.
gnorm/gBg;
449 Ptr<Vector<Real>> cp = s.
clone();
450 cp->set((step_state->gradientVec)->dual());
452 Ptr<Vector<Real>> xcp = x.
clone();
459 Real fnew = obj.
value(*xcp,ftol);
462 Real gs = cp->dot((step_state->gradientVec)->dual());
463 Real a = fnew - algo_state.
value - gs - half*alpha*alpha*gBg;
464 if ( std::abs(a) < ROL_EPSILON<Real>() ) {
466 step_state->searchSize = std::min(alpha*algo_state.
gnorm,
delMax_);
469 Real b = half*alpha*alpha*gBg;
471 if ( b*b-three*a*c > ROL_EPSILON<Real>() ) {
473 Real t1 = (-b-std::sqrt(b*b-three*a*c))/(three*a);
474 Real t2 = (-b+std::sqrt(b*b-three*a*c))/(three*a);
475 if ( six*a*t1 + two*b >
zero ) {
477 step_state->searchSize = std::min(t1*alpha*algo_state.
gnorm,
delMax_);
481 step_state->searchSize = std::min(t2*alpha*algo_state.
gnorm,
delMax_);
485 step_state->searchSize = std::min(alpha*algo_state.
gnorm,
delMax_);
488 if (step_state->searchSize <= ROL_EPSILON<Real>()*algo_state.
gnorm && autoRad) {
489 step_state->searchSize = one;
495 model_ = makePtr<KelleySachsModel<Real>>(obj,
498 *(step_state->gradientVec),
504 model_ = makePtr<ColemanLiModel<Real>>(obj,
507 *(step_state->gradientVec),
516 model_ = makePtr<LinMoreModel<Real>>(obj,
519 *(step_state->gradientVec),
525 ROL_TEST_FOR_EXCEPTION(
true, std::invalid_argument,
526 ">>> ERROR (TrustRegionStep): Invalid trust-region model!");
530 model_ = makePtr<TrustRegionModel<Real>>(obj,
533 *(step_state->gradientVec),
560 Real eps =
scaleEps_ * std::min(std::pow(algo_state.
gnorm,static_cast<Real>(0.75)),
561 static_cast<Real>(0.001));
562 dynamicPtrCast<KelleySachsModel<Real>>(
model_)->setEpsilon(eps);
565 dynamicPtrCast<ColemanLiModel<Real>>(
model_)->setRadius(step_state->searchSize);
600 Real fold = algo_state.
value;
604 s,algo_state.
snorm,fold,*(state->gradientVec),algo_state.
iter,
606 algo_state.
nfval += state->nfval;
607 algo_state.
ngrad += state->ngrad;
608 state->flag = static_cast<int>(
TRflag_);
617 Real tol = std::sqrt(ROL_EPSILON<Real>());
633 while ( (fnew-ftmp) <=
mu_*(fnew-fold) ) {
652 gp_->set(*(state->gradientVec));
677 algo_state.
value = fnew;
685 std::stringstream hist;
688 hist << std::string(114,
'-') <<
"\n";
690 hist <<
"Trust-Region status output definitions\n\n";
692 hist <<
" iter - Number of iterates (steps taken) \n";
693 hist <<
" value - Objective function value \n";
694 hist <<
" gnorm - Norm of the gradient\n";
695 hist <<
" snorm - Norm of the step (update to optimization vector)\n";
696 hist <<
" delta - Trust-Region radius\n";
697 hist <<
" #fval - Number of times the objective function was evaluated\n";
698 hist <<
" #grad - Number of times the gradient was computed\n";
703 hist <<
" tr_flag - Trust-Region flag" <<
"\n";
712 hist <<
" iterCG - Number of Truncated CG iterations\n\n";
713 hist <<
" flagGC - Trust-Region Truncated CG flag" <<
"\n";
720 hist << std::string(114,
'-') <<
"\n";
724 hist << std::setw(6) << std::left <<
"iter";
725 hist << std::setw(15) << std::left <<
"value";
726 hist << std::setw(15) << std::left <<
"gnorm";
727 hist << std::setw(15) << std::left <<
"snorm";
728 hist << std::setw(15) << std::left <<
"delta";
729 hist << std::setw(10) << std::left <<
"#fval";
730 hist << std::setw(10) << std::left <<
"#grad";
731 hist << std::setw(10) << std::left <<
"tr_flag";
733 hist << std::setw(10) << std::left <<
"iterCG";
734 hist << std::setw(10) << std::left <<
"flagCG";
745 std::stringstream hist;
777 std::stringstream hist;
778 hist << std::scientific << std::setprecision(6);
779 if ( algo_state.
iter == 0 ) {
782 if ( print_header ) {
785 if ( algo_state.
iter == 0 ) {
787 hist << std::setw(6) << std::left << algo_state.
iter;
788 hist << std::setw(15) << std::left << algo_state.
value;
789 hist << std::setw(15) << std::left << algo_state.
gnorm;
790 hist << std::setw(15) << std::left <<
" ";
791 hist << std::setw(15) << std::left << step_state->searchSize;
796 hist << std::setw(6) << std::left << algo_state.
iter;
797 hist << std::setw(15) << std::left << algo_state.
value;
798 hist << std::setw(15) << std::left << algo_state.
gnorm;
799 hist << std::setw(15) << std::left << algo_state.
snorm;
800 hist << std::setw(15) << std::left << step_state->searchSize;
801 hist << std::setw(10) << std::left << algo_state.
nfval;
802 hist << std::setw(10) << std::left << algo_state.
ngrad;
803 hist << std::setw(10) << std::left <<
TRflag_;
805 hist << std::setw(10) << std::left <<
SPiter_;
806 hist << std::setw(10) << std::left <<
SPflag_;