/************************************************************ ; * ; 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 A1,A2,A3,A4,A5,A6,A7,A8; double A9,B10,B11,B12,B13,B14,B15,B16; double B17,B18,B19,C20,C21,C22,C23,C24; double C25,C26,C27,C28,C29,C30; double T1002; A1 = (double)c[i][1]; A2 = (double)c[i][2]; A3 = (double)c[i][3]; A4 = (double)c[i][4]; A5 = (double)c[i][5]; A6 = (double)c[i][6]; A7 = (double)c[i][7]; A8 = (double)c[i][8]; A9 = (double)c[i][9]; B10 = (double)c[i][10]; B11 = (double)c[i][11]; B12 = (double)c[i][12]; B13 = (double)c[i][13]; B14 = (double)c[i][14]; B15 = (double)c[i][15]; B16 = (double)c[i][16]; B17 = (double)c[i][17]; B18 = (double)c[i][18]; B19 = (double)c[i][19]; C20 = (double)c[i][20]; C21 = (double)c[i][21]; C22 = (double)c[i][22]; C23 = (double)c[i][23]; C24 = (double)c[i][24]; C25 = (double)c[i][25]; C26 = (double)c[i][26]; C27 = (double)c[i][27]; C28 = (double)c[i][28]; C29 = (double)c[i][29]; C30 = (double)c[i][30]; T1002 = avep(30, A1, A2, A3, A4, A5, A6, A7, A8, A9, B10, B11, B12, B13, B14, B15, B16, B17, B18, B19, C20, C21, C22, C23, C24, C25, C26, C27, C28, C29, C30); return(T1002); };