/*
 * analysis.h
 *
 * by Joern Thyssen <joern@thyssen.nu>, 2000
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of version 2 of the GNU General Public License as
 * published by the Free Software Foundation.
 *
 * 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 General Public License for more details.
 *
 * You should have received a copy of the GNU 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
 *
 * $Id: analysis.h,v 1.33 2004/01/01 17:59:29 uid65656 Exp $
 */

#ifndef _ANALYSIS_H_
#define _ANALYSIS_H_

#include <list.h>

typedef enum _lucktype {
    LUCK_VERYBAD, LUCK_BAD, LUCK_NONE, LUCK_GOOD, LUCK_VERYGOOD
} lucktype;

typedef enum _skilltype {
  SKILL_VERYBAD,
  SKILL_BAD,
  SKILL_DOUBTFUL,
  SKILL_NONE,
  SKILL_GOOD,
} skilltype;

#if defined(__GNUC__)
#ifdef USES_badSkill
static inline int
badSkill(skilltype const st)
{
  return st != SKILL_NONE && st != SKILL_GOOD;
}
#endif
#else
#define badSkill(st)  ((st) != SKILL_NONE && (st) != SKILL_GOOD)
#endif

#define N_SKILLS (SKILL_GOOD + 1)

typedef struct {
  int fMoves, fCube, fDice; /* which statistics have been computed? */
    
  int anUnforcedMoves[ 2 ];
  int anTotalMoves[ 2 ];

  int anTotalCube[ 2 ];
  int anCloseCube[ 2 ];
  int anDouble[ 2 ];
  int anTake[ 2 ];
  int anPass[ 2 ];

  int anMoves[ 2 ][ N_SKILLS ];

  int anLuck[ 2 ][ LUCK_VERYGOOD + 1 ];

  int anCubeMissedDoubleDP[ 2 ];
  int anCubeMissedDoubleTG[ 2 ];
  int anCubeWrongDoubleDP [ 2 ];
  int anCubeWrongDoubleTG [ 2 ];
  int anCubeWrongTake [ 2 ];
  int anCubeWrongPass [ 2 ];

  /* all accumulated errors have dimension 2x2 
   *  - first dimension is player
   *  - second dimension is error rate in:
   *    - EMG and MWC for match play
   *    - Normalized and unnormalized equity for money games
   */

  float arErrorCheckerplay[ 2 ][ 2 ];
  float arErrorMissedDoubleDP [ 2 ][ 2 ];
  float arErrorMissedDoubleTG [ 2 ][ 2 ];
  float arErrorWrongDoubleDP [ 2 ][ 2 ];
  float arErrorWrongDoubleTG [ 2 ][ 2 ];
  float arErrorWrongTake [ 2 ][ 2 ];
  float arErrorWrongPass [ 2 ][ 2 ];
  float arLuck[ 2 ][ 2 ];

  /* luck adjusted result */

  float arActualResult[ 2 ];
  float arLuckAdj[ 2 ]; 
  float arVarianceActual[ 2 ];
  float arVarianceLuckAdj[ 2 ];
  int nGames;

#if USE_TIMECONTROL
  /* time control */

  int anTimePenalties[ 2 ];
  float aarTimeLoss[ 2 ][ 2 ];
#endif /* USE_TIMECONTROL */

} statcontext;

typedef enum {
  RAT_AWFUL,
  RAT_BEGINNER, RAT_CASUAL_PLAYER, RAT_INTERMEDIATE, RAT_ADVANCED,
  RAT_EXPERT, RAT_WORLD_CLASS, RAT_SUPERNATURAL, RAT_UNDEFINED
} ratingtype;

extern const char* aszRating [ RAT_UNDEFINED + 1 ];
extern const char* aszLuckRating[ 7 ];

extern int afAnalysePlayers[ 2 ];

extern ratingtype GetRating ( const float rError );
extern void IniStatcontext ( statcontext* psc );
extern void AddStatcontext ( const statcontext* pscA, statcontext* pscB );

extern void
DumpStatcontext ( char* szOutput, const statcontext* psc, const char* sz,
                  const int fIsMatch );

extern void
updateStatisticsGame ( const list* plGame );

extern void
updateStatisticsMatch ( list* plMatch );

extern int getLuckRating(float rLuck);

extern float
relativeFibsRating(float r, int n);

extern float
absoluteFibsRating ( const float rChequer, const float rCube, 
                     const int n, const float rOffset );

extern float
absoluteFibsRatingChequer( const float rChequer, const int n );

extern float
absoluteFibsRatingCube( const float rCube, const int n );


#define CHEQUERPLAY  0
#define CUBEDECISION 1
#define COMBINED     2

#define TOTAL        0
#define PERMOVE      1

#define PLAYER_0     0
#define PLAYER_1     1

#define NORMALISED   0
#define UNNORMALISED 1

extern float
getMWCFromError ( const statcontext* psc, float aaaar[ 3 ][ 2 ][ 2 ][ 2 ] );

extern skilltype
Skill( float r );

#endif