/************************************************************
;                                                           *
;  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,BC,BD,BE,BF;
	double CD,CE,CF,DE,DF,EF,FA;
	double T1002,T1033,T1034,T1042,T1050,T1058,T1066,T1067;
	double T1075,T1083,T1091,T1099,T1100,T1108,T1116,T1124;
	double T1132,T1133,T1141,T1149,T1157;
	AB = (double)c[i][1];
	AC = (double)c[i][2];
	AD = (double)c[i][3];
	AE = (double)c[i][4];
	BC = (double)c[i][5];
	BD = (double)c[i][6];
	BE = (double)c[i][7];
	BF = (double)c[i][8];
	CD = (double)c[i][9];
	CE = (double)c[i][10];
	CF = (double)c[i][11];
	DE = (double)c[i][12];
	DF = (double)c[i][13];
	EF = (double)c[i][14];
	FA = (double)c[i][15];
	T1034 = avep(4, BF, (1 - BE), (1 - BD), (1 - BC));
	T1042 = avep(4, (1 - BF), BE, (1 - BD), (1 - BC));
	T1050 = avep(4, (1 - BF), (1 - BE), BD, (1 - BC));
	T1058 = avep(4, (1 - BF), (1 - BE), (1 - BD), BC);
	T1033 = maxx(4, T1034, T1042, T1050, T1058);
	T1067 = avep(4, AE, (1 - AD), (1 - AC), (1 - AB));
	T1075 = avep(4, (1 - AE), AD, (1 - AC), (1 - AB));
	T1083 = avep(4, (1 - AE), (1 - AD), AC, (1 - AB));
	T1091 = avep(4, (1 - AE), (1 - AD), (1 - AC), AB);
	T1066 = maxx(4, T1067, T1075, T1083, T1091);
	T1100 = avep(4, EF, (1 - DF), (1 - CF), (1 - BF));
	T1108 = avep(4, (1 - EF), DF, (1 - CF), (1 - BF));
	T1116 = avep(4, (1 - EF), (1 - DF), CF, (1 - BF));
	T1124 = avep(4, (1 - EF), (1 - DF), (1 - CF), BF);
	T1099 = maxx(4, T1100, T1108, T1116, T1124);
	T1133 = avep(4, DE, (1 - CE), (1 - BE), (1 - AE));
	T1141 = avep(4, (1 - DE), CE, (1 - BE), (1 - AE));
	T1149 = avep(4, (1 - DE), (1 - CE), BE, (1 - AE));
	T1157 = avep(4, (1 - DE), (1 - CE), (1 - BE), AE);
	T1132 = maxx(4, T1133, T1141, T1149, T1157);
	T1002 = avep(11, FA, EF, maxx(2, avep(2, DF, (1 - DE)), avep(2, (1 - DF), DE)), maxx(3, avep(3, CF, (1 - CE), (1 - CD)), avep(3, (1 - CF), CE, (1 - CD)), avep(3, (1 - CF), (1 - CE), CD)), T1033, T1066, T1099, T1132, 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);
};