7cfa21ee4522dc01736f08ded89cabf2b33f654d kuhn Mon Oct 25 14:37:06 2010 -0700 added comment abt default width to usage statement diff --git src/utils/qa/graph.csh src/utils/qa/graph.csh index 76aa6b4..cd9fc14 100755 --- src/utils/qa/graph.csh +++ src/utils/qa/graph.csh @@ -1,72 +1,73 @@ #!/bin/tcsh source `which qaConfig.csh` ############################################### # # 01-23-2010 # Robert Kuhn # # make a graph from a two-column file # ############################################### set max=1 set width=50 # width of graph in chars set xWidth=3 set binsize=1 set debug=true set debug=false if ( $#argv < 1 || $#argv > 2 ) then # no command line args echo echo " make a bar graph from a two-column file." echo echo " usage: $0 file [width]" echo echo " where width is number of characters in longest bar" echo " negative numbers in second field of file show as zero" echo " ignores any columns beyond two" + echo " default width = 50 char" echo exit else set file=$argv[1] endif if ( $#argv == 2 ) then set width=$argv[2] # width of graph in chars endif # clean out blank lines cat $file | egrep "." > Xfile$$ set max=`cat $file | grep "." | awk '{print $2}' | sort -nr | head -1` if ( $width > $max ) then set binsize=1 else set binsize=`echo $max $width | awk '{printf("%3.0f", $1/$2)}'` endif # find width of first col for pretty output foreach item ( `cat Xfile$$ | awk '{print $1}'` ) set len=`echo $item | awk '{print length($1)}'` if ( $len > $xWidth ) then set xWidth=$len endif end if ( $debug == "true" ) then echo max $max echo binsize $binsize echo $max $binsize | awk '{print "max/binsize:", $1/$2}' echo width $width echo xWidth $xWidth awk '{printf "%5s %3.0f \n", $1, $2/n}' n=$binsize $file endif echo awk '{y=x; i=1; while ( i <= $2/n ) (y="x"y) i++} {printf("%'$xWidth's %-'$width's\n", $1, y)}' n=$binsize $file echo rm -f Xfile$$ exit