# COMPUTATION OF GOLDBERG CONSISTENCY INDEX
$SUMX=$Q[6]+$Q[16]+$Q[23]+$Q[31]+$Q[37]+$Q[39]+$Q[51]+$Q[57]+$Q[62]+$Q[65]+$Q[72]+$Q[76]+$Q[81]+$Q[83]+$Q[86]+$Q[95]+$Q[96]+$Q[100]+$Q[101]+$Q[106]+$Q[116]+$Q[126]+$Q[132]+$Q[142]+$Q[147]+$Q[155]+$Q[161]+$Q[165]+$Q[168]+$Q[172]+$Q[191]+$Q[252]
$SUMY=$Q[289]+$Q[162]+$Q[206]+$Q[154]+$Q[136]+$Q[208]+$Q[120]+$Q[71]+$Q[256]+$Q[176]+$Q[129]+$Q[182]+$Q[270]+$Q[234]+$Q[185]+$Q[251]+$Q[177]+$Q[288]+$Q[245]+$Q[192]+$Q[295]+$Q[199]+$Q[286]+$Q[240]+$Q[281]+$Q[236]+$Q[185]+$Q[232]+$Q[271]+$Q[180]+$Q[205]+$Q[294];
$SUMV=$SUMX+$SUMY;
$SUMP=$Q[6]*$Q[289]+$Q[16]*$Q[162]+$Q[23]*$Q[206]+$Q[31]*$Q[154]+$Q[37]*$Q[136]+$Q[39]*$Q[208]+$Q[51]*$Q[120]+$Q[57]*$Q[71]+$Q[62]*$Q[256]+$Q[65]*$Q[176]+$Q[72]*$Q[129]+$Q[76]*$Q[182]+$Q[81]*$Q[270]+$Q[83]*$Q[234]+$Q[86]*$Q[185]+$Q[95]*$Q[251]+$Q[96]*$Q[177]+$Q[100]*$Q[288]+$Q[101]*$Q[245]+$Q[106]*$Q[192]+$Q[116]*$Q[295]+$Q[126]*$Q[199]+$Q[132]*$Q[286]+$Q[142]*$Q[240]+$Q[147]*$Q[281]+$Q[155]*$Q[236]+$Q[161]*$Q[185]+$Q[165]*$Q[232]+$Q[168]*$Q[271]+$Q[172]*$Q[180]+$Q[191]*$Q[205]+$Q[252]*$Q[294];
$SUMP=2*$SUMP;
$SUMXSQ=$Q[6]**2+$Q[16]**2+$Q[23]**2+$Q[31]**2+$Q[37]**2+$Q[39]**2+$Q[51]**2+$Q[57]**2+$Q[62]**2+$Q[65]**2+$Q[72]**2+$Q[76]**2+$Q[81]**2+$Q[83]**2+$Q[86]**2+$Q[95]**2+$Q[96]**2+$Q[100]**2+$Q[101]**2+$Q[106]**2+$Q[116]**2+$Q[126]**2+$Q[132]**2+$Q[142]**2+$Q[147]**2+$Q[155]**2+$Q[161]**2+$Q[165]**2+$Q[168]**2+$Q[172]**2+$Q[191]**2+$Q[252]**2;
$SUMYSQ=$Q[289]**2+$Q[162]**2+$Q[206]**2+$Q[154]**2+$Q[136]**2+$Q[208]**2+$Q[120]**2+$Q[71]**2+$Q[256]**2+$Q[176]**2+$Q[129]**2+$Q[182]**2+$Q[270]**2+$Q[234]**2+$Q[185]**2+$Q[251]**2+$Q[177]**2+$Q[288]**2+$Q[245]**2+$Q[192]**2+$Q[295]**2+$Q[199]**2+$Q[286]**2+$Q[240]**2+$Q[281]**2+$Q[236]**2+$Q[185]**2+$Q[232]**2+$Q[271]**2+$Q[180]**2+$Q[205]**2+$Q[294]**2;
$SUMVSQ=$SUMXSQ+$SUMYSQ;
$CORR=(-1)*($SUMP-($SUMV**2)/64)/($SUMVSQ-($SUMV**2)/64);