/************************************************************
;                                                           *
;  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,BC;
	double BD,BE,BF,BG,BH,BI,CD,CE;
	double CF,CG,CH,CI,DE,DF,DG,DH;
	double DI,EF,EG,EH,EI,FG,FH,FI;
	double GH,GI,HI,IA;
	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,T1304,T1318,T1332;
	double T1346,T1360,T1374,T1388,T1389,T1403,T1417,T1431;
	double T1445,T1459,T1473,T1487,T1488,T1502,T1516,T1530;
	double T1544,T1558,T1572,T1586,T1587,T1599,T1611,T1623;
	double T1635,T1647,T1659,T1660,T1670,T1680,T1690,T1700;
	double T1710,T1711,T1719,T1727,T1735;
	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];
	BC = (double)c[i][8];
	BD = (double)c[i][9];
	BE = (double)c[i][10];
	BF = (double)c[i][11];
	BG = (double)c[i][12];
	BH = (double)c[i][13];
	BI = (double)c[i][14];
	CD = (double)c[i][15];
	CE = (double)c[i][16];
	CF = (double)c[i][17];
	CG = (double)c[i][18];
	CH = (double)c[i][19];
	CI = (double)c[i][20];
	DE = (double)c[i][21];
	DF = (double)c[i][22];
	DG = (double)c[i][23];
	DH = (double)c[i][24];
	DI = (double)c[i][25];
	EF = (double)c[i][26];
	EG = (double)c[i][27];
	EH = (double)c[i][28];
	EI = (double)c[i][29];
	FG = (double)c[i][30];
	FH = (double)c[i][31];
	FI = (double)c[i][32];
	GH = (double)c[i][33];
	GI = (double)c[i][34];
	HI = (double)c[i][35];
	IA = (double)c[i][36];
	T1034 = avep(4, EI, (1 - EH), (1 - EG), (1 - EF));
	T1042 = avep(4, (1 - EI), EH, (1 - EG), (1 - EF));
	T1050 = avep(4, (1 - EI), (1 - EH), EG, (1 - EF));
	T1058 = avep(4, (1 - EI), (1 - EH), (1 - EG), EF);
	T1033 = maxx(4, T1034, T1042, T1050, T1058);
	T1067 = avep(5, DI, (1 - DH), (1 - DG), (1 - DF), (1 - DE));
	T1077 = avep(5, (1 - DI), DH, (1 - DG), (1 - DF), (1 - DE));
	T1087 = avep(5, (1 - DI), (1 - DH), DG, (1 - DF), (1 - DE));
	T1097 = avep(5, (1 - DI), (1 - DH), (1 - DG), DF, (1 - DE));
	T1107 = avep(5, (1 - DI), (1 - DH), (1 - DG), (1 - DF), DE);
	T1066 = maxx(5, T1067, T1077, T1087, T1097, T1107);
	T1118 = avep(6, CI, (1 - CH), (1 - CG), (1 - CF), (1 - CE), (1 - CD));
	T1130 = avep(6, (1 - CI), CH, (1 - CG), (1 - CF), (1 - CE), (1 - CD));
	T1142 = avep(6, (1 - CI), (1 - CH), CG, (1 - CF), (1 - CE), (1 - CD));
	T1154 = avep(6, (1 - CI), (1 - CH), (1 - CG), CF, (1 - CE), (1 - CD));
	T1166 = avep(6, (1 - CI), (1 - CH), (1 - CG), (1 - CF), CE, (1 - CD));
	T1178 = avep(6, (1 - CI), (1 - CH), (1 - CG), (1 - CF), (1 - CE), CD);
	T1117 = maxx(6, T1118, T1130, T1142, T1154, T1166, T1178);
	T1191 = avep(7, BI, (1 - BH), (1 - BG), (1 - BF), (1 - BE), (1 - BD), (1 - BC));
	T1205 = avep(7, (1 - BI), BH, (1 - BG), (1 - BF), (1 - BE), (1 - BD), (1 - BC));
	T1219 = avep(7, (1 - BI), (1 - BH), BG, (1 - BF), (1 - BE), (1 - BD), (1 - BC));
	T1233 = avep(7, (1 - BI), (1 - BH), (1 - BG), BF, (1 - BE), (1 - BD), (1 - BC));
	T1247 = avep(7, (1 - BI), (1 - BH), (1 - BG), (1 - BF), BE, (1 - BD), (1 - BC));
	T1261 = avep(7, (1 - BI), (1 - BH), (1 - BG), (1 - BF), (1 - BE), BD, (1 - BC));
	T1275 = avep(7, (1 - BI), (1 - BH), (1 - BG), (1 - BF), (1 - BE), (1 - BD), BC);
	T1190 = maxx(7, T1191, T1205, T1219, T1233, T1247, T1261, T1275);
	T1290 = avep(7, AH, (1 - AG), (1 - AF), (1 - AE), (1 - AD), (1 - AC), (1 - AB));
	T1304 = avep(7, (1 - AH), AG, (1 - AF), (1 - AE), (1 - AD), (1 - AC), (1 - AB));
	T1318 = avep(7, (1 - AH), (1 - AG), AF, (1 - AE), (1 - AD), (1 - AC), (1 - AB));
	T1332 = avep(7, (1 - AH), (1 - AG), (1 - AF), AE, (1 - AD), (1 - AC), (1 - AB));
	T1346 = avep(7, (1 - AH), (1 - AG), (1 - AF), (1 - AE), AD, (1 - AC), (1 - AB));
	T1360 = avep(7, (1 - AH), (1 - AG), (1 - AF), (1 - AE), (1 - AD), AC, (1 - AB));
	T1374 = avep(7, (1 - AH), (1 - AG), (1 - AF), (1 - AE), (1 - AD), (1 - AC), AB);
	T1289 = maxx(7, T1290, T1304, T1318, T1332, T1346, T1360, T1374);
	T1389 = avep(7, HI, (1 - GI), (1 - FI), (1 - EI), (1 - DI), (1 - CI), (1 - BI));
	T1403 = avep(7, (1 - HI), GI, (1 - FI), (1 - EI), (1 - DI), (1 - CI), (1 - BI));
	T1417 = avep(7, (1 - HI), (1 - GI), FI, (1 - EI), (1 - DI), (1 - CI), (1 - BI));
	T1431 = avep(7, (1 - HI), (1 - GI), (1 - FI), EI, (1 - DI), (1 - CI), (1 - BI));
	T1445 = avep(7, (1 - HI), (1 - GI), (1 - FI), (1 - EI), DI, (1 - CI), (1 - BI));
	T1459 = avep(7, (1 - HI), (1 - GI), (1 - FI), (1 - EI), (1 - DI), CI, (1 - BI));
	T1473 = avep(7, (1 - HI), (1 - GI), (1 - FI), (1 - EI), (1 - DI), (1 - CI), BI);
	T1388 = maxx(7, T1389, T1403, T1417, T1431, T1445, T1459, T1473);
	T1488 = avep(7, GH, (1 - FH), (1 - EH), (1 - DH), (1 - CH), (1 - BH), (1 - AH));
	T1502 = avep(7, (1 - GH), FH, (1 - EH), (1 - DH), (1 - CH), (1 - BH), (1 - AH));
	T1516 = avep(7, (1 - GH), (1 - FH), EH, (1 - DH), (1 - CH), (1 - BH), (1 - AH));
	T1530 = avep(7, (1 - GH), (1 - FH), (1 - EH), DH, (1 - CH), (1 - BH), (1 - AH));
	T1544 = avep(7, (1 - GH), (1 - FH), (1 - EH), (1 - DH), CH, (1 - BH), (1 - AH));
	T1558 = avep(7, (1 - GH), (1 - FH), (1 - EH), (1 - DH), (1 - CH), BH, (1 - AH));
	T1572 = avep(7, (1 - GH), (1 - FH), (1 - EH), (1 - DH), (1 - CH), (1 - BH), AH);
	T1487 = maxx(7, T1488, T1502, T1516, T1530, T1544, T1558, T1572);
	T1587 = avep(6, FG, (1 - EG), (1 - DG), (1 - CG), (1 - BG), (1 - AG));
	T1599 = avep(6, (1 - FG), EG, (1 - DG), (1 - CG), (1 - BG), (1 - AG));
	T1611 = avep(6, (1 - FG), (1 - EG), DG, (1 - CG), (1 - BG), (1 - AG));
	T1623 = avep(6, (1 - FG), (1 - EG), (1 - DG), CG, (1 - BG), (1 - AG));
	T1635 = avep(6, (1 - FG), (1 - EG), (1 - DG), (1 - CG), BG, (1 - AG));
	T1647 = avep(6, (1 - FG), (1 - EG), (1 - DG), (1 - CG), (1 - BG), AG);
	T1586 = maxx(6, T1587, T1599, T1611, T1623, T1635, T1647);
	T1660 = avep(5, EF, (1 - DF), (1 - CF), (1 - BF), (1 - AF));
	T1670 = avep(5, (1 - EF), DF, (1 - CF), (1 - BF), (1 - AF));
	T1680 = avep(5, (1 - EF), (1 - DF), CF, (1 - BF), (1 - AF));
	T1690 = avep(5, (1 - EF), (1 - DF), (1 - CF), BF, (1 - AF));
	T1700 = avep(5, (1 - EF), (1 - DF), (1 - CF), (1 - BF), AF);
	T1659 = maxx(5, T1660, T1670, T1680, T1690, T1700);
	T1711 = avep(4, DE, (1 - CE), (1 - BE), (1 - AE));
	T1719 = avep(4, (1 - DE), CE, (1 - BE), (1 - AE));
	T1727 = avep(4, (1 - DE), (1 - CE), BE, (1 - AE));
	T1735 = avep(4, (1 - DE), (1 - CE), (1 - BE), AE);
	T1710 = maxx(4, T1711, T1719, T1727, T1735);
	T1002 = avep(17, IA, HI, maxx(2, avep(2, GI, (1 - GH)), avep(2, (1 - GI), GH)), maxx(3, avep(3, FI, (1 - FH), (1 - FG)), avep(3, (1 - FI), FH, (1 - FG)), avep(3, (1 - FI), (1 - FH), FG)), T1033, T1066, T1117, T1190, T1289, T1388, T1487, T1586, T1659, T1710, 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);
};