topic Thank you for the suggestions in Intel® oneAPI Math Kernel Library

Parameters of the objective function for the nonlinear fitting routine

Cheng_C_ — Wed, 14 May 2014 03:24:48 GMT

I want to conduct a nonlinear least square fitting using MKL. However, I don't know how I can introduce some additional parameters for the objective function. Does anybody have some ideas?

This is the introduction of the routine: https://software.intel.com/en-us/node/471086

This is one example code for the routine: https://software.intel.com/en-us/node/471540

How can I past some parameters for the objective function (the f(x) function in the introduction or the extendet_powell() function in the example code)? Thanks very much.

Put your parameters

mecej4 — Wed, 14 May 2014 12:23:00 GMT

One way is to add an array containing the parameters to the argument list of the vector function that is being optimized. You declare and initialize the array in the caller of the optimizer routine, and take care to modify the DJACOBI routine if you are using numerical evaluation of the Jacobian.

Alternatively, in Fortran, put your parameters declarations and initializations into a module, and USE that module in the callback subroutine. For example:

MODULE PARAMETERS
   IMPLICIT NONE
   DOUBLE PRECISION :: P(5) = [ 10.D0, 2.2360679774998D0, -2.D0, &
                                3.1622776601684D0, -1D0 ]
END MODULE PARAMETERS

SUBROUTINE EXTENDED_POWELL (M, N, X, F)
  USE PARAMETERS
  IMPLICIT NONE
  INTEGER M, N
  DOUBLE PRECISION X (*), F (*)
  INTEGER I

  DO I = 1, N/4
      F (4*I-3) = X(4*I - 3) + P(1) * X(4*I - 2)
      F (4*I-2) = P(2)*(X(4*I-1) - X(4*I))
      F (4*I-1) = (X(4*I-2) + P(3)*X(4*I-1))**2
      F (4*I)   = P(4)*(X(4*I-3) +P(5)* X(4*I))**2
  ENDDO

END SUBROUTINE EXTENDED_POWELL

Similarly, in C, you can use global variables to contain the parameter values.

Thank you for the suggestions

Cheng_C_ — Wed, 14 May 2014 15:36:06 GMT

Thank you for the suggestions! I'd like to try both ways.

mecej4 wrote:

One way is to add an array containing the parameters to the argument list of the vector function that is being optimized. You declare and initialize the array in the caller of the optimizer routine, and take care to modify the DJACOBI routine if you are using numerical evaluation of the Jacobian.

Alternatively, in Fortran, put your parameters declarations and initializations into a module, and USE that module in the callback subroutine. For example:
MODULE PARAMETERS
   IMPLICIT NONE
   DOUBLE PRECISION :: P(5) = [ 10.D0, 2.2360679774998D0, -2.D0, &
                                3.1622776601684D0, -1D0 ]
END MODULE PARAMETERS

SUBROUTINE EXTENDED_POWELL (M, N, X, F)
  USE PARAMETERS
  IMPLICIT NONE
  INTEGER M, N
  DOUBLE PRECISION X (*), F (*)
  INTEGER I

  DO I = 1, N/4
      F (4*I-3) = X(4*I - 3) + P(1) * X(4*I - 2)
      F (4*I-2) = P(2)*(X(4*I-1) - X(4*I))
      F (4*I-1) = (X(4*I-2) + P(3)*X(4*I-1))**2
      F (4*I)   = P(4)*(X(4*I-3) +P(5)* X(4*I))**2
  ENDDO

END SUBROUTINE EXTENDED_POWELL
Similarly, in C, you can use global variables to contain the parameter values.