/*--------------------------------------------------------------------*/
/*     Copyright (C) 2004-2016  Serge Iovleff, Université Lille 1, Inria

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU Lesser General Public License as
    published by the Free Software Foundation; either version 2 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 Lesser General Public License for more details.

    You should have received a copy of the GNU Lesser General Public
    License along with this program; if not, write to the
    Free Software Foundation, Inc.,
    59 Temple Place,
    Suite 330,
    Boston, MA 02111-1307
    USA

    Contact : S..._Dot_I..._At_stkpp_Dot_org (see copyright for ...)
*/

/*
 * Project:  stkpp::Stat::Kernel
 * created on: 5 avr. 2015
 * Author:   iovleff, S..._Dot_I..._At_stkpp_Dot_org (see copyright for ...)
 **/

/** @file STK_Kernel_IKernel.h
 *  @brief In this file we define the Interface base class for computing a Kernels.
 **/


#ifndef STK_KERNEL_IKERNEL_H
#define STK_KERNEL_IKERNEL_H

#include <Sdk.h>
#include <Arrays/include/STK_CArraySquare.h>

namespace STK
{

namespace Kernel
{
/** @ingroup Kernel
 *  @brief Interface class for the kernels classes.
 *
 *  A positive definite kernel is a generalization of a positive definite function or
 *  positive-definite matrix.
 *
 *  Let \f$ \mathcal X \f$ be a nonempty set, sometimes referred to as the index set.
 *  A symmetric function \f$ K: \mathcal X \times \mathcal X \to \mathbb{R}\f$
 *  is called a positive definite (p.d.) kernel on \f$\mathcal X\f$ if
 *  \f$\sum_{i,j=1}^n c_i c_j K(x_i, x_j) \ge 0\f$ holds for any
 *  \f$ n\in \mathbb{N}, x_1, \dots, x_n\in \mathcal X, c_1, \dots, c_n \in \mathbb{R}\f$.
 **/
class IKernel: public IRunnerBase
{
  public:
    /** default constructor */
    inline IKernel(): IRunnerBase(), gram_() {}
    /** copy constructor
     *  @param kernel kernel to copy
     **/
    inline IKernel(IKernel const& kernel): IRunnerBase(kernel), gram_(kernel.gram_) {}
    /** destructor */
    inline virtual ~IKernel() {}

    // getters
    /** @return the gram matrix
     *  @note if the run method is not used, the gram matrix is empty
     **/
    inline CSquareX const& k() const { return gram_;}
    /** @return the gram matrix (bis)
     *  @note if the run method is not used, the gram matrix is empty
     **/
    inline CSquareX const& gram() const { return gram_;}

    // method using the gram matrix
    /** @return computed value of the kernel for the ith and jth individuals.
     *  @param i,j indexes of the individuals
     **/
    inline Real kcomp(int i, int j) const { return gram_(i,j);}
    /** @return computed kernel distance between the ith and jth individuals.
     *  @param i,j indexes of the individuals
     **/
    inline Real kdist(int i, int j) const { return gram_(i,i)+gram_(j,j)-2*gram_(i,j);}
    /** @return diagonal value of the kernel for the ith individuals.
     *  @param i index of the individual
     **/
    inline Real kdiag(int i) const { return gram_(i,i);};

    // method computing the values of the gram matrix
    /** pure virtual method.
     *  @return compute the value of the kernel for the ith and jth individuals.
     *  @param i,j indexes of the individuals
     **/
    virtual Real comp(int i, int j) const =0;
    /** @return compute the kernel distance between the ith and jth individuals.
     *  @param i,j indexes of the individuals
     **/
    inline Real dist(int i, int j) const { return comp(i,i)+comp(j,j)-2*comp(i,j);}
    /** virtual method.
     *  @return diagonal value of the kernel for the ith individuals.
     *  @param i index of the individual
     **/
    virtual inline Real diag(int i) const { return comp(i,i);};

    // pure virtual
    /** pure virtual method.
     *  @return the number of samples (the number of rows in the data set)
     **/
    virtual int nbSample() const =0;
    /** pure virtual method.
     *  @return the number of variables (the number of columns in the data set)
     **/
    virtual int nbVariable() const =0;

  protected:
    /** the resulting gram_ matrix */
    CSquareX gram_;
};


} // namespace Kernel

} // namespace STK

#endif /* STK_KERNEL_IKERNEL_H */
