/* E04AB_P0W_F C++ Header Example Program.
 *
 * Copyright 2019 Numerical Algorithms Group.
 * Mark 27, 2019.
 */

#include <nag.h>
#include <nagad.h>
#include <stdio.h>
#include <math.h>
#include <iostream>
#include <string>
using namespace std;

static void NAG_CALL funct(void * &ad_handle, const double &xc, double &fc,
                           Integer iuser[], double ruser[])
{
  fc = sin(ruser[0]* xc) / xc;
}

/* funct */

int main(void)
{
  Integer exit_status = 0, max_fun;
  double  a, b, e1, e2, f, x;
  double  ruser[1];
  Integer iuser[1];

  printf("E04AB_P0W_F C++ Header Example Program Results\n\n");

  // For communication with user-supplied functions:
  ruser[0] = 1.0;
  // e1 and e2 are set to zero so that nag_opt_one_var_func (e04abc) will
  // reset them to their default values.
  e1 = 0.0;
  e2 = 0.0;
  // The minimum is known to lie in the range (3.5, 5.0)
  a = 3.5;
  b = 5.0;
  // Allow 30 calls of funct
  max_fun = 30;

  Integer ifail = 0;
  void    *ad_handle = 0;
  e04ab_p0w_f_(ad_handle, funct, e1, e2, a, b, max_fun, x, f, iuser, ruser,
               ifail);

  cout << "The minimum lies in the interval " << a << " to " << b << endl;
  cout << "Its estimated position is        " << x << endl;
  cout << "where the function value is      " << f << endl;
  cout << max_fun << " function evaluations were required." << endl;

  return exit_status;
}