/************************************************************
;                                                           *
;  William M. Spears					    *
;  Navy Center for Applied Research in AI                   *
;  Naval Research Laboratory                                *
;                                                           *
;  Permission is hereby granted to copy all or any part of  *
;  this program for free distribution.			    *
;                                                           *
;************************************************************/
#include "header.h"
#include "stuff.h"
double myeval(i)
int i;
{
	double maxx();
	double avep();
	double AB,AC,AD,AE,AF,AG,AH,AI;
	double BC,BD,BE,BF,BG,BH,BI,BJ;
	double CD,CE,CF,CG,CH,CI,CJ,DE;
	double DF,DG,DH,DI,DJ,EF,EG,EH;
	double EI,EJ,FG,FH,FI,FJ,GH,GI;
	double GJ,HI,HJ,IJ,JA;
	double T1002,T1033,T1034,T1042,T1050,T1058,T1066,T1067;
	double T1077,T1087,T1097,T1107,T1117,T1118,T1130,T1142;
	double T1154,T1166,T1178,T1190,T1191,T1205,T1219,T1233;
	double T1247,T1261,T1275,T1289,T1290,T1306,T1322,T1338;
	double T1354,T1370,T1386,T1402,T1418,T1419,T1435,T1451;
	double T1467,T1483,T1499,T1515,T1531,T1547,T1548,T1564;
	double T1580,T1596,T1612,T1628,T1644,T1660,T1676,T1677;
	double T1693,T1709,T1725,T1741,T1757,T1773,T1789,T1805;
	double T1806,T1820,T1834,T1848,T1862,T1876,T1890,T1904;
	double T1905,T1917,T1929,T1941,T1953,T1965,T1977,T1978;
	double T1988,T1998,T2008,T2018,T2028,T2029,T2037,T2045;
	double T2053;
	AB = (double)c[i][1];
	AC = (double)c[i][2];
	AD = (double)c[i][3];
	AE = (double)c[i][4];
	AF = (double)c[i][5];
	AG = (double)c[i][6];
	AH = (double)c[i][7];
	AI = (double)c[i][8];
	BC = (double)c[i][9];
	BD = (double)c[i][10];
	BE = (double)c[i][11];
	BF = (double)c[i][12];
	BG = (double)c[i][13];
	BH = (double)c[i][14];
	BI = (double)c[i][15];
	BJ = (double)c[i][16];
	CD = (double)c[i][17];
	CE = (double)c[i][18];
	CF = (double)c[i][19];
	CG = (double)c[i][20];
	CH = (double)c[i][21];
	CI = (double)c[i][22];
	CJ = (double)c[i][23];
	DE = (double)c[i][24];
	DF = (double)c[i][25];
	DG = (double)c[i][26];
	DH = (double)c[i][27];
	DI = (double)c[i][28];
	DJ = (double)c[i][29];
	EF = (double)c[i][30];
	EG = (double)c[i][31];
	EH = (double)c[i][32];
	EI = (double)c[i][33];
	EJ = (double)c[i][34];
	FG = (double)c[i][35];
	FH = (double)c[i][36];
	FI = (double)c[i][37];
	FJ = (double)c[i][38];
	GH = (double)c[i][39];
	GI = (double)c[i][40];
	GJ = (double)c[i][41];
	HI = (double)c[i][42];
	HJ = (double)c[i][43];
	IJ = (double)c[i][44];
	JA = (double)c[i][45];
	T1034 = avep(4, FJ, (1 - FI), (1 - FH), (1 - FG));
	T1042 = avep(4, (1 - FJ), FI, (1 - FH), (1 - FG));
	T1050 = avep(4, (1 - FJ), (1 - FI), FH, (1 - FG));
	T1058 = avep(4, (1 - FJ), (1 - FI), (1 - FH), FG);
	T1033 = maxx(4, T1034, T1042, T1050, T1058);
	T1067 = avep(5, EJ, (1 - EI), (1 - EH), (1 - EG), (1 - EF));
	T1077 = avep(5, (1 - EJ), EI, (1 - EH), (1 - EG), (1 - EF));
	T1087 = avep(5, (1 - EJ), (1 - EI), EH, (1 - EG), (1 - EF));
	T1097 = avep(5, (1 - EJ), (1 - EI), (1 - EH), EG, (1 - EF));
	T1107 = avep(5, (1 - EJ), (1 - EI), (1 - EH), (1 - EG), EF);
	T1066 = maxx(5, T1067, T1077, T1087, T1097, T1107);
	T1118 = avep(6, DJ, (1 - DI), (1 - DH), (1 - DG), (1 - DF), (1 - DE));
	T1130 = avep(6, (1 - DJ), DI, (1 - DH), (1 - DG), (1 - DF), (1 - DE));
	T1142 = avep(6, (1 - DJ), (1 - DI), DH, (1 - DG), (1 - DF), (1 - DE));
	T1154 = avep(6, (1 - DJ), (1 - DI), (1 - DH), DG, (1 - DF), (1 - DE));
	T1166 = avep(6, (1 - DJ), (1 - DI), (1 - DH), (1 - DG), DF, (1 - DE));
	T1178 = avep(6, (1 - DJ), (1 - DI), (1 - DH), (1 - DG), (1 - DF), DE);
	T1117 = maxx(6, T1118, T1130, T1142, T1154, T1166, T1178);
	T1191 = avep(7, CJ, (1 - CI), (1 - CH), (1 - CG), (1 - CF), (1 - CE), (1 - CD));
	T1205 = avep(7, (1 - CJ), CI, (1 - CH), (1 - CG), (1 - CF), (1 - CE), (1 - CD));
	T1219 = avep(7, (1 - CJ), (1 - CI), CH, (1 - CG), (1 - CF), (1 - CE), (1 - CD));
	T1233 = avep(7, (1 - CJ), (1 - CI), (1 - CH), CG, (1 - CF), (1 - CE), (1 - CD));
	T1247 = avep(7, (1 - CJ), (1 - CI), (1 - CH), (1 - CG), CF, (1 - CE), (1 - CD));
	T1261 = avep(7, (1 - CJ), (1 - CI), (1 - CH), (1 - CG), (1 - CF), CE, (1 - CD));
	T1275 = avep(7, (1 - CJ), (1 - CI), (1 - CH), (1 - CG), (1 - CF), (1 - CE), CD);
	T1190 = maxx(7, T1191, T1205, T1219, T1233, T1247, T1261, T1275);
	T1290 = avep(8, BJ, (1 - BI), (1 - BH), (1 - BG), (1 - BF), (1 - BE), (1 - BD), (1 - BC));
	T1306 = avep(8, (1 - BJ), BI, (1 - BH), (1 - BG), (1 - BF), (1 - BE), (1 - BD), (1 - BC));
	T1322 = avep(8, (1 - BJ), (1 - BI), BH, (1 - BG), (1 - BF), (1 - BE), (1 - BD), (1 - BC));
	T1338 = avep(8, (1 - BJ), (1 - BI), (1 - BH), BG, (1 - BF), (1 - BE), (1 - BD), (1 - BC));
	T1354 = avep(8, (1 - BJ), (1 - BI), (1 - BH), (1 - BG), BF, (1 - BE), (1 - BD), (1 - BC));
	T1370 = avep(8, (1 - BJ), (1 - BI), (1 - BH), (1 - BG), (1 - BF), BE, (1 - BD), (1 - BC));
	T1386 = avep(8, (1 - BJ), (1 - BI), (1 - BH), (1 - BG), (1 - BF), (1 - BE), BD, (1 - BC));
	T1402 = avep(8, (1 - BJ), (1 - BI), (1 - BH), (1 - BG), (1 - BF), (1 - BE), (1 - BD), BC);
	T1289 = maxx(8, T1290, T1306, T1322, T1338, T1354, T1370, T1386, T1402);
	T1419 = avep(8, AI, (1 - AH), (1 - AG), (1 - AF), (1 - AE), (1 - AD), (1 - AC), (1 - AB));
	T1435 = avep(8, (1 - AI), AH, (1 - AG), (1 - AF), (1 - AE), (1 - AD), (1 - AC), (1 - AB));
	T1451 = avep(8, (1 - AI), (1 - AH), AG, (1 - AF), (1 - AE), (1 - AD), (1 - AC), (1 - AB));
	T1467 = avep(8, (1 - AI), (1 - AH), (1 - AG), AF, (1 - AE), (1 - AD), (1 - AC), (1 - AB));
	T1483 = avep(8, (1 - AI), (1 - AH), (1 - AG), (1 - AF), AE, (1 - AD), (1 - AC), (1 - AB));
	T1499 = avep(8, (1 - AI), (1 - AH), (1 - AG), (1 - AF), (1 - AE), AD, (1 - AC), (1 - AB));
	T1515 = avep(8, (1 - AI), (1 - AH), (1 - AG), (1 - AF), (1 - AE), (1 - AD), AC, (1 - AB));
	T1531 = avep(8, (1 - AI), (1 - AH), (1 - AG), (1 - AF), (1 - AE), (1 - AD), (1 - AC), AB);
	T1418 = maxx(8, T1419, T1435, T1451, T1467, T1483, T1499, T1515, T1531);
	T1548 = avep(8, IJ, (1 - HJ), (1 - GJ), (1 - FJ), (1 - EJ), (1 - DJ), (1 - CJ), (1 - BJ));
	T1564 = avep(8, (1 - IJ), HJ, (1 - GJ), (1 - FJ), (1 - EJ), (1 - DJ), (1 - CJ), (1 - BJ));
	T1580 = avep(8, (1 - IJ), (1 - HJ), GJ, (1 - FJ), (1 - EJ), (1 - DJ), (1 - CJ), (1 - BJ));
	T1596 = avep(8, (1 - IJ), (1 - HJ), (1 - GJ), FJ, (1 - EJ), (1 - DJ), (1 - CJ), (1 - BJ));
	T1612 = avep(8, (1 - IJ), (1 - HJ), (1 - GJ), (1 - FJ), EJ, (1 - DJ), (1 - CJ), (1 - BJ));
	T1628 = avep(8, (1 - IJ), (1 - HJ), (1 - GJ), (1 - FJ), (1 - EJ), DJ, (1 - CJ), (1 - BJ));
	T1644 = avep(8, (1 - IJ), (1 - HJ), (1 - GJ), (1 - FJ), (1 - EJ), (1 - DJ), CJ, (1 - BJ));
	T1660 = avep(8, (1 - IJ), (1 - HJ), (1 - GJ), (1 - FJ), (1 - EJ), (1 - DJ), (1 - CJ), BJ);
	T1547 = maxx(8, T1548, T1564, T1580, T1596, T1612, T1628, T1644, T1660);
	T1677 = avep(8, HI, (1 - GI), (1 - FI), (1 - EI), (1 - DI), (1 - CI), (1 - BI), (1 - AI));
	T1693 = avep(8, (1 - HI), GI, (1 - FI), (1 - EI), (1 - DI), (1 - CI), (1 - BI), (1 - AI));
	T1709 = avep(8, (1 - HI), (1 - GI), FI, (1 - EI), (1 - DI), (1 - CI), (1 - BI), (1 - AI));
	T1725 = avep(8, (1 - HI), (1 - GI), (1 - FI), EI, (1 - DI), (1 - CI), (1 - BI), (1 - AI));
	T1741 = avep(8, (1 - HI), (1 - GI), (1 - FI), (1 - EI), DI, (1 - CI), (1 - BI), (1 - AI));
	T1757 = avep(8, (1 - HI), (1 - GI), (1 - FI), (1 - EI), (1 - DI), CI, (1 - BI), (1 - AI));
	T1773 = avep(8, (1 - HI), (1 - GI), (1 - FI), (1 - EI), (1 - DI), (1 - CI), BI, (1 - AI));
	T1789 = avep(8, (1 - HI), (1 - GI), (1 - FI), (1 - EI), (1 - DI), (1 - CI), (1 - BI), AI);
	T1676 = maxx(8, T1677, T1693, T1709, T1725, T1741, T1757, T1773, T1789);
	T1806 = avep(7, GH, (1 - FH), (1 - EH), (1 - DH), (1 - CH), (1 - BH), (1 - AH));
	T1820 = avep(7, (1 - GH), FH, (1 - EH), (1 - DH), (1 - CH), (1 - BH), (1 - AH));
	T1834 = avep(7, (1 - GH), (1 - FH), EH, (1 - DH), (1 - CH), (1 - BH), (1 - AH));
	T1848 = avep(7, (1 - GH), (1 - FH), (1 - EH), DH, (1 - CH), (1 - BH), (1 - AH));
	T1862 = avep(7, (1 - GH), (1 - FH), (1 - EH), (1 - DH), CH, (1 - BH), (1 - AH));
	T1876 = avep(7, (1 - GH), (1 - FH), (1 - EH), (1 - DH), (1 - CH), BH, (1 - AH));
	T1890 = avep(7, (1 - GH), (1 - FH), (1 - EH), (1 - DH), (1 - CH), (1 - BH), AH);
	T1805 = maxx(7, T1806, T1820, T1834, T1848, T1862, T1876, T1890);
	T1905 = avep(6, FG, (1 - EG), (1 - DG), (1 - CG), (1 - BG), (1 - AG));
	T1917 = avep(6, (1 - FG), EG, (1 - DG), (1 - CG), (1 - BG), (1 - AG));
	T1929 = avep(6, (1 - FG), (1 - EG), DG, (1 - CG), (1 - BG), (1 - AG));
	T1941 = avep(6, (1 - FG), (1 - EG), (1 - DG), CG, (1 - BG), (1 - AG));
	T1953 = avep(6, (1 - FG), (1 - EG), (1 - DG), (1 - CG), BG, (1 - AG));
	T1965 = avep(6, (1 - FG), (1 - EG), (1 - DG), (1 - CG), (1 - BG), AG);
	T1904 = maxx(6, T1905, T1917, T1929, T1941, T1953, T1965);
	T1978 = avep(5, EF, (1 - DF), (1 - CF), (1 - BF), (1 - AF));
	T1988 = avep(5, (1 - EF), DF, (1 - CF), (1 - BF), (1 - AF));
	T1998 = avep(5, (1 - EF), (1 - DF), CF, (1 - BF), (1 - AF));
	T2008 = avep(5, (1 - EF), (1 - DF), (1 - CF), BF, (1 - AF));
	T2018 = avep(5, (1 - EF), (1 - DF), (1 - CF), (1 - BF), AF);
	T1977 = maxx(5, T1978, T1988, T1998, T2008, T2018);
	T2029 = avep(4, DE, (1 - CE), (1 - BE), (1 - AE));
	T2037 = avep(4, (1 - DE), CE, (1 - BE), (1 - AE));
	T2045 = avep(4, (1 - DE), (1 - CE), BE, (1 - AE));
	T2053 = avep(4, (1 - DE), (1 - CE), (1 - BE), AE);
	T2028 = maxx(4, T2029, T2037, T2045, T2053);
	T1002 = avep(19, JA, IJ, maxx(2, avep(2, HJ, (1 - HI)), avep(2, (1 - HJ), HI)), maxx(3, avep(3, GJ, (1 - GI), (1 - GH)), avep(3, (1 - GJ), GI, (1 - GH)), avep(3, (1 - GJ), (1 - GI), GH)), T1033, T1066, T1117, T1190, T1289, T1418, T1547, T1676, T1805, T1904, T1977, T2028, maxx(3, avep(3, CD, (1 - BD), (1 - AD)), avep(3, (1 - CD), BD, (1 - AD)), avep(3, (1 - CD), (1 - BD), AD)), maxx(2, avep(2, BC, (1 - AC)), avep(2, (1 - BC), AC)), AB);
	return(T1002);
};