#!/usr/bin/gawk

# calcule la densité d'une matrice booléenne

BEGIN{
  densite = 0;
  ligne = 0;
  maxitem = 0;
}

/\#/ {
  next;
}

{
  if($NF > maxitem) maxitem = $NF;
  for (i = 1; i <= NF; i ++)
      tab[$i] = 1;
  ligne ++;
  densite += NF;
}

END{
    print "theoretical density ", densite / ligne / maxitem;
    taille = 0;
    for (i in tab)
	taille ++;
    print "#item" , taille;
    print "real density ", densite / ligne / taille;
}