Changeset 5b5724

Timestamp:

Dec 19, 2012, 3:25:31 PM (12 years ago)

Author:

Frederik Heber <heber@…>

Branches:

Action_Thermostats, Add_AtomRandomPerturbation, Add_FitFragmentPartialChargesAction, Add_RotateAroundBondAction, Add_SelectAtomByNameAction, Added_ParseSaveFragmentResults, AddingActions_SaveParseParticleParameters, Adding_Graph_to_ChangeBondActions, Adding_MD_integration_tests, Adding_ParticleName_to_Atom, Adding_StructOpt_integration_tests, AtomFragments, Automaking_mpqc_open, AutomationFragmentation_failures, Candidate_v1.5.4, Candidate_v1.6.0, Candidate_v1.6.1, ChangeBugEmailaddress, ChangingTestPorts, ChemicalSpaceEvaluator, CombiningParticlePotentialParsing, Combining_Subpackages, Debian_Package_split, Debian_package_split_molecuildergui_only, Disabling_MemDebug, Docu_Python_wait, EmpiricalPotential_contain_HomologyGraph, EmpiricalPotential_contain_HomologyGraph_documentation, Enable_parallel_make_install, Enhance_userguide, Enhanced_StructuralOptimization, Enhanced_StructuralOptimization_continued, Example_ManyWaysToTranslateAtom, Exclude_Hydrogens_annealWithBondGraph, FitPartialCharges_GlobalError, Fix_BoundInBox_CenterInBox_MoleculeActions, Fix_ChargeSampling_PBC, Fix_ChronosMutex, Fix_FitPartialCharges, Fix_FitPotential_needs_atomicnumbers, Fix_ForceAnnealing, Fix_IndependentFragmentGrids, Fix_ParseParticles, Fix_ParseParticles_split_forward_backward_Actions, Fix_PopActions, Fix_QtFragmentList_sorted_selection, Fix_Restrictedkeyset_FragmentMolecule, Fix_StatusMsg, Fix_StepWorldTime_single_argument, Fix_Verbose_Codepatterns, Fix_fitting_potentials, Fixes, ForceAnnealing_goodresults, ForceAnnealing_oldresults, ForceAnnealing_tocheck, ForceAnnealing_with_BondGraph, ForceAnnealing_with_BondGraph_continued, ForceAnnealing_with_BondGraph_continued_betteresults, ForceAnnealing_with_BondGraph_contraction-expansion, FragmentAction_writes_AtomFragments, FragmentMolecule_checks_bonddegrees, GeometryObjects, Gui_Fixes, Gui_displays_atomic_force_velocity, ImplicitCharges, IndependentFragmentGrids, IndependentFragmentGrids_IndividualZeroInstances, IndependentFragmentGrids_IntegrationTest, IndependentFragmentGrids_Sole_NN_Calculation, JobMarket_RobustOnKillsSegFaults, JobMarket_StableWorkerPool, JobMarket_unresolvable_hostname_fix, MoreRobust_FragmentAutomation, ODR_violation_mpqc_open, PartialCharges_OrthogonalSummation, PdbParser_setsAtomName, PythonUI_with_named_parameters, QtGui_reactivate_TimeChanged_changes, Recreated_GuiChecks, Rewrite_FitPartialCharges, RotateToPrincipalAxisSystem_UndoRedo, SaturateAtoms_findBestMatching, SaturateAtoms_singleDegree, StoppableMakroAction, Subpackage_CodePatterns, Subpackage_JobMarket, Subpackage_LinearAlgebra, Subpackage_levmar, Subpackage_mpqc_open, Subpackage_vmg, Switchable_LogView, ThirdParty_MPQC_rebuilt_buildsystem, TrajectoryDependenant_MaxOrder, TremoloParser_IncreasedPrecision, TremoloParser_MultipleTimesteps, TremoloParser_setsAtomName, Ubuntu_1604_changes, stable

Children:

3c1465

Parents:

1dca9a

git-author:

Frederik Heber <heber@…> (10/03/12 19:58:56)

git-committer:

Frederik Heber <heber@…> (12/19/12 15:25:31)

Message:

FunctionApproximation now uses levmar_der, i.e. additionally the derivative of the FunctionModel.

• added LevMarDerivativeCallback as another static function.
• added ::evaluateDerivative that fills the Jacobian matrix as output.
• removed meyer and jacmeyer from FunctionApproximation module.

Location:

src

Files:

• FunctionApproximation/FunctionApproximation.cpp (modified) (6 diffs)
• FunctionApproximation/FunctionApproximation.hpp (modified) (2 diffs)
• FunctionApproximation/FunctionArgument.hpp (modified) (1 diff)
• LevMartester.cpp (modified) (1 diff)
• Potentials/Specifics/PairPotential_Harmonic.cpp (modified) (1 diff)
• Potentials/Specifics/PairPotential_Harmonic.hpp (modified) (1 diff)

src/FunctionApproximation/FunctionApproximation.cpp

@@ -79 +79 @@
 }
 
-
-/* Meyer's (reformulated) problem, minimum at (2.48, 6.18, 3.45) */
-void meyer(double *p, double *x, int m, int n, void *data)
-{
-register int i;
-double ui;
-
-        for(i=0; i<n; ++i){
-                ui=0.45+0.05*i;
-                x[i]=p[0]*exp(10.0*p[1]/(ui+p[2]) - 13.0);
-        }
-}
-
-void jacmeyer(double *p, double *jac, int m, int n, void *data)
-{
-register int i, j;
-double ui, tmp;
-
-  for(i=j=0; i<n; ++i){
-          ui=0.45+0.05*i;
-          tmp=exp(10.0*p[1]/(ui+p[2]) - 13.0);
-
-          jac[j++]=tmp;
-          jac[j++]=10.0*p[0]*tmp/(ui+p[2]);
-          jac[j++]=-10.0*p[0]*p[1]*tmp/((ui+p[2])*(ui+p[2]));
-  }
-}
-
 /** Callback to circumvent boost::bind, boost::function and function pointer problem.
  *
@@ -129 +101 @@
   function(p,x,m,n,data);
 }
+
+void FunctionApproximation::LevMarDerivativeCallback(double *p, double *x, int m, int n, void *data)
+{
+  FunctionApproximation *approximator = static_cast<FunctionApproximation *>(data);
+  ASSERT( approximator != NULL,
+      "LevMarDerivativeCallback() - received data does not represent a FunctionApproximation object.");
+  boost::function<void(double*,double*,int,int,void*)> function =
+      boost::bind(&FunctionApproximation::evaluateDerivative, approximator, _1, _2, _3, _4, _5);
+  function(p,x,m,n,data);
+}
+
 
 void FunctionApproximation::operator()()
@@ -177 +160 @@
     // give this pointer as additional data to construct function pointer in
     // LevMarCallback and call
-    ret=dlevmar_dif(&FunctionApproximation::LevMarCallback, p, x, m, n, 1000, opts, info, work, covar, this); // no Jacobian, caller allocates work memory, covariance estimated
+//    ret=dlevmar_dif(
+//        &FunctionApproximation::LevMarCallback,
+//        p, x, m, n, 1000, opts, info, work, covar, this); // no Jacobian, caller allocates work memory, covariance estimated
+    ret=dlevmar_der(
+        &FunctionApproximation::LevMarCallback,
+        &FunctionApproximation::LevMarDerivativeCallback,
+        p, x, m, n, 1000, opts, info, work, covar, this); // no Jacobian, caller allocates work memory, covariance estimated
 
     {
@@ -193 +182 @@
     free(work);
   }
-
-//  {
-//   double err[16];
-//   dlevmar_chkjac(meyer, jacmeyer, p, m, n, NULL, err);
-//   for(i=0; i<n; ++i) printf("gradient %d, err %g\n", i, err[i]);
-//  }
 
   {
@@ -223 +206 @@
   }
 
+  {
+   double *err = new double[n];
+   dlevmar_chkjac(
+      &FunctionApproximation::LevMarCallback,
+      &FunctionApproximation::LevMarDerivativeCallback,
+      p, m, n, this, err);
+   for(i=0; i<n; ++i)
+     LOG(1, "INFO: gradient " << i << ", err " << err[i] << ".");
+   delete[] err;
+  }
+
+
   delete[] p;
   delete[] x;
@@ -232 +227 @@
 }
 
+void FunctionApproximation::prepareModel(double *p, int m)
+{
+  ASSERT( (size_t)m == model.getParameterDimension(),
+      "FunctionApproximation::prepareModel() - LevMar expects "+toString(m)
+      +" parameters but the model function expects "+toString(model.getParameterDimension())+".");
+  FunctionModel::parameters_t params(m, 0.);
+  std::copy(p, p+m, params.begin());
+  model.setParameters(params);
+}
+
 void FunctionApproximation::evaluate(double *p, double *x, int m, int n, void *data)
 {
   // first set parameters
-  ASSERT( (size_t)m == model.getParameterDimension(),
-      "FunctionApproximation::evaluate() - LevMar expects "+toString(m)
-      +" parameters but the model function expects "+toString(model.getParameterDimension())+".");
+  prepareModel(p,m);
+
+  // then evaluate
   ASSERT( (size_t)n == output_data.size(),
       "FunctionApproximation::evaluate() - LevMar expects "+toString(n)
       +" outputs but we provide "+toString(output_data.size())+".");
-  FunctionModel::parameters_t params(m, 0.);
-  std::copy(p, p+m, params.begin());
-  model.setParameters(params);
-
-  // then evaluate
   if (!output_data.empty()) {
     inputs_t::const_iterator initer = input_data.begin();
     outputs_t::const_iterator outiter = output_data.begin();
     size_t index = 0;
-    for (; initer != input_data.end(); ++initer, ++outiter, ++index) {
+    for (; initer != input_data.end(); ++initer, ++outiter) {
       // result may be a vector, calculate L2 norm
       const FunctionModel::results_t functionvalue =
           model(*initer);
-      std::vector<double> differences(functionvalue.size(), 0.);
-      std::transform(
-          functionvalue.begin(), functionvalue.end(), outiter->begin(),
-          differences.begin(),
-          &SquaredDifference);
-      x[index] = std::accumulate(differences.begin(), differences.end(), 0.);
-    }
-  }
-}
+      x[index++] = functionvalue[0];
+//      std::vector<double> differences(functionvalue.size(), 0.);
+//      std::transform(
+//          functionvalue.begin(), functionvalue.end(), outiter->begin(),
+//          differences.begin(),
+//          &SquaredDifference);
+//      x[index] = std::accumulate(differences.begin(), differences.end(), 0.);
+    }
+  }
+}
+
+void FunctionApproximation::evaluateDerivative(double *p, double *jac, int m, int n, void *data)
+{
+  // first set parameters
+  prepareModel(p,m);
+
+  // then evaluate
+  ASSERT( (size_t)n == output_data.size(),
+      "FunctionApproximation::evaluateDerivative() - LevMar expects "+toString(n)
+      +" outputs but we provide "+toString(output_data.size())+".");
+  if (!output_data.empty()) {
+    inputs_t::const_iterator initer = input_data.begin();
+    outputs_t::const_iterator outiter = output_data.begin();
+    size_t index = 0;
+    for (; initer != input_data.end(); ++initer, ++outiter) {
+      // result may be a vector, calculate L2 norm
+      for (int paramindex = 0; paramindex < m; ++paramindex) {
+        const FunctionModel::results_t functionvalue =
+            model.parameter_derivative(*initer, paramindex);
+        jac[index++] = functionvalue[0];
+      }
+//      std::vector<double> differences(functionvalue.size(), 0.);
+//      std::transform(
+//          functionvalue.begin(), functionvalue.end(), outiter->begin(),
+//          differences.begin(),
+//          &SquaredDifference);
+//      x[index] = std::accumulate(differences.begin(), differences.end(), 0.);
+    }
+  }
+}

src/FunctionApproximation/FunctionApproximation.hpp

@@ -88 +88 @@
 
   /** Evaluates the model function for each pair of training tuple and returns
-   * the error between the output of the function and the expected output as a
-   * vector.
+   * the output of the function as a vector.
    *
    * This function as a signature compatible to the one required by the
@@ -102 +101 @@
   void evaluate(double *p, double *x, int m, int n, void *data);
 
+  /** Evaluates the parameter derivative of the model function for each pair of
+   * training tuple and returns the output of the function as vector.
+   *
+   * This function as a signature compatible to the one required by the
+   * LevMar package (with double precision).
+   *
+   * \param *p array of parameters for the model function of dimension \a m
+   * \param *jac on output jacobian matrix of result values of dimension \a n times \a m
+   * \param m parameter dimension
+   * \param n output dimension times parameter dimension
+   * \param *data additional data, unused here
+   */
+  void evaluateDerivative(double *p, double *jac, int m, int n, void *data);
+
 private:
   static void LevMarCallback(double *p, double *x, int m, int n, void *data);
+
+  static void LevMarDerivativeCallback(double *p, double *x, int m, int n, void *data);
+
+  void prepareModel(double *p, int m);
 
 private:

src/FunctionApproximation/FunctionArgument.hpp

@@ -26 +26 @@
 struct argument_t
 {
+  typedef std::pair<size_t, size_t> indices_t;
+
+  /** Default constructor for class argument_t.
+   *
+   */
+  argument_t() :
+    indices( std::make_pair(0,1) ),
+    distance(0.)
+  {}
+
+  /** Constructor for class argument_t.
+   *
+   * This constructors uses the index pair (0,1) as default.
+   *
+   * \param _distance distance argument
+   */
+  argument_t(const double &_distance) :
+    indices( std::make_pair(0,1) ),
+    distance(_distance)
+  {}
+
+  /** Constructor for class argument_t.
+   *
+   * \param _indices pair of indices associated with the \a _distance
+   * \param _distance distance argument
+   */
+  argument_t(const indices_t &_indices, const double &_distance) :
+    indices( _indices ),
+    distance(_distance)
+  {}
+
   //!> indices between which the distance is given
-  std::pair<size_t, size_t> indices;
+  indices_t indices;
   //!> distance
   double distance;

src/LevMartester.cpp

@@ -177 +177 @@
 
   // now perform the function approximation by optimizing the model function
-  PairPotential_Harmonic harmonic(1., 2., 0.);
+  PairPotential_Harmonic harmonic(1., 2.9, -80.);
   FunctionModel &model = harmonic;
   FunctionApproximation approximator(1, 1, model);

src/Potentials/Specifics/PairPotential_Harmonic.cpp

@@ -88 +88 @@
 }
 
+PairPotential_Harmonic::results_t
+PairPotential_Harmonic::parameter_derivative(
+    const arguments_t &arguments,
+    const size_t index
+    ) const
+{
+  ASSERT( arguments.size() == 1,
+      "PairPotential_Harmonic::parameter_derivative() - requires exactly one argument.");
+  const argument_t &r_ij = arguments[0];
+  switch (index) {
+    case spring_constant:
+    {
+      const result_t result =
+                 Helpers::pow( r_ij.distance - params[equilibrium_distance], 2 );
+      return std::vector<result_t>(1, result);
+      break;
+    }
+    case equilibrium_distance:
+    {
+      const result_t result =
+          -2. * params[spring_constant]
+                 * ( r_ij.distance - params[equilibrium_distance]);
+      return std::vector<result_t>(1, result);
+      break;
+    }
+    case energy_offset:
+    {
+      const result_t result = +1.;
+      return std::vector<result_t>(1, result);
+      break;
+    }
+    default:
+      break;
+  }
+
+  return PairPotential_Harmonic::results_t(1, 0.);
+}
+

src/Potentials/Specifics/PairPotential_Harmonic.hpp

@@ -94 +94 @@
    *         input
    */
-//  results_t parameter_derivative(const arguments_t &arguments, const size_t index) const;
+  results_t parameter_derivative(const arguments_t &arguments, const size_t index) const;
 
 private: