下面代码转为pascal

显示全部楼层 · 2010-5-24 21:53:01

/*--------------------------------------------------------------
*
*OUTLINE:
*
*
This module implements a AdaBoostMH procedure for WSD.
*
*IMPLEMENTATION:
*
*NOTES:
*
*--------------------------------------------------------------*/
#define USE_OPERATEFILE
#define USE_AdaBoostMH
#include "AdaBoostMH.h"
USEWINASSERT
/*--- Useful type defines for train class object ---*/
#define PADTRAINMATRIX double *
#define PADTRAINWEIGHT double *
#define PANSENSES int *
#define PANTRAINS int *
#define PANTESTS int *
#define PANEXAMPLES int *
#define PANFEATURES int *
#define NUMEXAMPLE
int
#define EXAMPLEint
#define FEATUREint
#define DZMINdouble
#define FIXVALUE double
/*--- Useful struct defines for train class object ---*/
typedef struct _trainExample {
EXAMPLE example;//example
struct _trainExample *next;
} *PTRAINEXAMPLE;
typedef struct _trainWR {
DZMINz; //Zmin
FEATUREfeature;//
PADTRAINWEIGHT weights[2]; //
struct _trainWR *next;
} *PTRAINWR;

千问 · 2010-5-24 21:53:01

(*-------------------------------------------------------------- * *OUTLINE: * *
This module implements a AdaBoostMH procedure for WSD. * *IMPLEMENTATION: * *NOTES: * *--------------------------------------------------------------*)(*#define USE_OPERATEFILE#define USE_AdaBoostMH#include "Ad

千问 · 2010-5-24 21:53:01

program outpu;beginwrite('/*-------------------------------------------------------------- * *OUTLINE: * *
This module implements a AdaBoostMH procedure for WSD.