# index homonymity - slovne druhove
cat $1| \
awk ' \
BEGIN {
        sumqsd=sumsd=sumtsd=nsd=0;        
        
      }
{
# vypreparovani lemmatu
 i=2;
 c=$i;
# printf $1 ;
 pocsd=0;
# projdou se vsechny moznosti
 while (c!="")
 {
   st=substr(c,2,3);
   if (st=="c>k")
    {
      sd=substr(c,5,1);
      ta[sd]=1;   
#     printf "%s", c;
    }
   i++;
   c=$i;
 }
 for (sd in ta) 
   if (ta[sd]==1) {pocsd++ ; ta[sd]=0; }

# a v pocsd mame pocet moznych ruznych slovnich druhu

 if (pocsd!=0) { sumsd=sumsd+pocsd; nsd++; sumqsd=sumqsd+pocsd*pocsd ;
                 sumtsd=sumtsd+pocsd*pocsd*pocsd; }
 if (pocsd>1) { pocn2++} ;
 
# printf " %i \n",pocsd;
}
END {

  printf "Prumer indexu homonymie na slovnich druzich %f\n", sumsd/nsd;
  printf "Prumer indexu homonymie 2 na slovnich druzich %f\n", sumqsd/nsd;
  printf "Prumer indexu homonymie 3 na slovnich druzich %f\n", sumtsd/nsd;
  printf "Pomer indexu homonymie vetsi2 na slovnich druzich %f\n", pocn2/nsd;
    }
'

