int main() { char overFlowName[30] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"; char emptyName[30] = ""; char oneName[30] = "a"; char move1[30] = "Hyper Beam"; char move2[30] = "Flex"; char move3[30] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"; char move4[30] = ""; MoveCategory moveCat = PHYSICAL; Type t1 = NONE; Type t2 = DRAGON; unsigned int hp = 1; unsigned int a = 2; unsigned int d = 3; unsigned int SpA = 4; unsigned int SpD = 5; unsigned int S = 6; PETest(hp,a,d,SpA,SpD,S,t1,t2,overFlowName,move1,move2,move3,move4, moveCat); moveCat = SPECIAL; PETest(hp,a,d,SpA,SpD,S,t1,t2,emptyName,move1,move2,move3,move4, moveCat); moveCat = STATUS; PETest(hp,a,d,SpA,SpD,S,t1,t2,oneName,move1,move2,move3,move4, moveCat); return 0; }
/*******************************+++*******************************/ unsigned CorParTest ( size_t CorFam, /* Correlation family */ Matrix *RegCorPar, /* Feasibility region for the */ /* correlation parameters. */ size_t TermIndex, /* Index of the tested term. */ real AbsTol, real CritLogLikeDiff, Matrix *CorPar, /* Input: Correlation parameters; */ /* Output: Row TermIndex may change. */ real *NegLogLike /* Input: Negative log likelihood; */ /* Output: New value. */ ) /*****************************************************************/ /* Purpose: Test parameters against "null" values for a single */ /* term. */ /* */ /* Returns: Number of function evaluations. */ /* */ /* 2009.05.14: Created. */ /*****************************************************************/ { unsigned NumFuncs; if (CorFam == COR_FAM_POW_EXP) NumFuncs = PETest(RegCorPar, TermIndex, AbsTol, CritLogLikeDiff, CorPar, NegLogLike); else if (CorFam == COR_FAM_MATERN) NumFuncs = MaternTest(RegCorPar, TermIndex, AbsTol, CritLogLikeDiff, CorPar, NegLogLike); return NumFuncs; }