BEGIN {for(i=1;i<=30;i++ ){ 
      for(j=2;j<=9;j++) N[i,j]=0}
}
{for(j=2;j<=9;j++) N[$1,$j]+=$2; if($1==1) nev++; next}

END {print nev ; for(i=1;i<=30;i++) {
for(j=2;j<=9;j++) N[i,j] = N[i,j]/nev;
print i,N[i,2], N[i,3],N[i,4],N[i,5],N[i,6],N[i,7],N[i,8],N[i,9]
}



#awk 'BEGIN{for(i=1;i<=30;i++ ) N[i]=0};{N[$1]+=$2; if($1==1) nev++}; END {print nev ; for(i=1;i<=30;i++) print i, N[i]/nev}' e10TeVLPM10-5.data > tran
