InverseRule.h

//-*-C++-*-
/***************************************************************************
 *
 *   Copyright (C) 2004 by Willem van Straten
 *   Licensed under the Academic Free License version 2.1
 *
 ***************************************************************************/
 
// psrchive/More/MEAL/MEAL/InverseRule.h
 
#ifndef __MEAL_InverseRule_H
#define __MEAL_InverseRule_H
 
#include "MEAL/UnaryRule.h"
 
namespace MEAL {
 
  template<class T>
  class InverseRule : public UnaryRule<T>
  {
 
  public:
 
    typedef typename T::Result Result;
 
    // ///////////////////////////////////////////////////////////////////
    //
    // Function implementation
    //
    // ///////////////////////////////////////////////////////////////////
 
    std::string get_name () const;
 
  protected:
 
    // ///////////////////////////////////////////////////////////////////
    //
    // Optimized implementation
    //
    // ///////////////////////////////////////////////////////////////////
 
    void calculate (Result& result, std::vector<Result>* gradient);
 
  };
 
}
 
template<class T>
std::string MEAL::InverseRule<T>::get_name () const
{
  return "InverseRule<" + std::string(T::Name)+ ">";
}
 
 
template<class T>
void MEAL::InverseRule<T>::calculate (Result& result,
                                      std::vector<Result>* grad)
{
  if (!this->model)
    throw Error (InvalidState, "MEAL::InverseRule::calculate",
                 "no model to evaluate");
 
  if (T::verbose)
    std::cerr << "MEAL::InverseRule::calculate" << std::endl;
 
  result = inv( this->model->evaluate (grad) );
  
  if (T::verbose)
    std::cerr << "MEAL::InverseRule::calculate result\n"
      "   " << result << std::endl;
 
  if (!grad)
    return;
 
  for (unsigned igrad=0; igrad<grad->size(); igrad++)
    (*grad)[igrad] = - result * (*grad)[igrad] * result;
 
  if (T::verbose) {
    std::cerr << "MEAL::InverseRule::calculate gradient\n";
    for (unsigned i=0; i<grad->size(); i++)
      std::cerr << "   "
           << i << ":" << this->get_infit(i) << "=" << (*grad)[i] << std::endl;
  }
 
}
 
 
#endif