wme_test/more_sta/plot

   1 #!/usr/bin/perl -w
   2 use Getopt::Std;
   3
   4 my %opt;
   5 getopts('d:', \%opt);
   6
   7 $DELAY_BOUND="[]";
   8 $DELAY_BOUND="[0:".$opt{'d'}."]" if $opt{'d'};
   9
  10 foreach $prefix (split(' ', `ls *.dat|grep -o '^[0-9]\\+-..'|sort -u`)) {
  11     print "$prefix\n";
  12     open CMD, "| gnuplot | ps2pdf - ${prefix}.pdf";
  13     print CMD qq/
  14 set term postscript color landscape
  15 set xlabel "Response-Time [ms]"
  16 set ylabel "Cumulative % of packets"
  17 set key right bottom nobox
  18 set style data linespoints
  19 #set logscale x
  20 set grid
  21 # set size 1,0.8
  22 # unset label
  23 # set label "\${COMMAND}" noenhanced at graph 0,1.3
  24 # set label "\${STREAMS}" noenhanced at graph 0,1.2 font "Helvetica,9"
  25 /;
  26     print CMD "plot $DELAY_BOUND [0.01:100] ";
  27     @files=glob "${prefix}*.dat";
  28     @plots=map qq/"$_" using 1:2/, @files;
  29     print CMD join ',', @plots;
  30     close CMD;
  31 }