#! /bin/csh -f
# Last edited on 1999-07-28 02:26:55 by stolfi

set usage = "$0 LANG ABBR TITLE"

set lang = "$1"; shift;
set abbr = "$1"; shift;
set title = "$1"; shift;

if ( $#argv != 0 ) then
  echo "usage: ${usage}" ; exit 1
endif

set ofile = "szfreqs/${lang}/${abbr}-plot.eps"
echo "${ofile}"

set avglen = \
  `cat szfreqs/${lang}/tot.szf | gawk '/./{s += $2*$3;} END {printf "%.5f\n",s;}'`
echo "average word length = ${avglen}"

set cmdfile = "/tmp/$$.cmd"
/bin/rm -f ${cmdfile}

@ lt = 1
@ pt = 0
foreach sec ( tot `cat wfreqs/${lang}/all.names` )
  @ pt = $pt + 1
  set ifile = "szfreqs/${lang}/${sec}.${abbr}"
  echo ', "'"$ifile"'" using 3:2 title "'"${sec}"'" with linespoints lt '${lt}' pt '${pt}' \' >> ${cmdfile}
  @ lt = 2
end
echo ", ((x>=1)?(1/${avglen})*(1-1/${avglen})**(x-1):0) title "'"random"'"with lines lt 3" >> ${cmdfile}
# plot-word-freqs "${title} words by length" "${cmdfile}" "${ofile}"
plot-word-freqs " " "${cmdfile}" "${ofile}"
ghostview ${ofile} &

/bin/rm -f ${cmdfile}