/*-------------------------------------------------------------------------------------*/
/*  NOMAD - Nonsmooth Optimization by Mesh Adaptive Direct search - version 3.0.0      */
/*                                                                                     */
/*  Copyright (C) 2001-2008  Mark Abramson        - the Boeing Company, Seattle        */
/*                           Charles Audet        - Ecole Polytechnique, Montreal      */
/*                           Gilles Couture       - Ecole Polytechnique, Montreal      */
/*                           John Dennis          - Rice University, Houston           */
/*                           Sebastien Le Digabel - Ecole Polytechnique, Montreal      */
/*                                                                                     */
/*  funded in part by AFOSR and Exxon Mobil                                            */
/*                                                                                     */
/*  Author: Sebastien Le Digabel                                                       */
/*                                                                                     */
/*  Contact information:                                                               */
/*    Ecole Polytechnique de Montreal - GERAD                                          */
/*    C.P. 6079, Succ. Centre-ville, Montreal (Quebec) H3C 3A7 Canada                  */
/*    e-mail: Sebastien.Le.Digabel@gerad.ca                                            */
/*    phone : 1-514-340-6053 #6673                                                     */
/*    fax   : 1-514-340-5665                                                           */
/*                                                                                     */
/*  This program is free software: you can redistribute it and/or modify it under the  */
/*  terms of the GNU General Public License as published by the Free Software          */
/*  Foundation, either version 3 of the License, or (at your option) any later         */
/*  version.                                                                           */
/*                                                                                     */
/*  This program is distributed in the hope that it will be useful, but WITHOUT ANY    */
/*  WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A    */
/*  PARTICULAR PURPOSE.  See the GNU General Public License for more details.          */
/*                                                                                     */
/*  You should have received a copy of the GNU General Public License along with this  */
/*  program. If not, see <http://www.gnu.org/licenses/>.                               */
/*                                                                                     */
/*  You can find information on the NOMAD software at www.gerad.ca/nomad               */
/*-------------------------------------------------------------------------------------*/
#include "Phase_One_Evaluator.hpp"
using namespace std;

/*------------------------------------------------------------------*/
/*         compute f(x) from the black-box outputs of a point       */
/*              (special objective for MADS phase 1)                */
/*------------------------------------------------------------------*/
void Phase_One_Evaluator::compute_f ( Eval_Point & x ) const {

  const Parameters & p = get_p();

  if ( x.get_bb_outputs().size() != p.get_bb_nb_outputs() ) {
    string err = "Phase_One_Evaluator::compute_f(x): x has a wrong number of black-box outputs ("
      + NOMAD::itos(x.get_bb_outputs().size()) + " != "
      + NOMAD::itos(p.get_bb_nb_outputs()) + ")";
    throw NOMAD::Exception ( __FILE__ , __LINE__ , err );
  }

  // objective value for MADS phase 1: the squared sum of all EB constraint violations
  // (each EB constraint has been previously transformed into OBJ values):
  const list<int>                 index_obj = p.get_index_obj();
  const list<int>::const_iterator end       = index_obj.end();
  const Point                   & bbo       = x.get_bb_outputs();
  NOMAD::Double                   h_min     = p.get_h_min();
  NOMAD::Double                   sum       = 0.0;
  NOMAD::Double                   v;

  for ( list<int>::const_iterator it = index_obj.begin() ; it != end ; ++it ) {
    v = bbo[*it];
    if ( v > h_min )
      sum += v.pow2();
  }

  x.set_f (sum);
}
