Index: mttroot/mtt/bin/trans/gdat2ps ================================================================== --- mttroot/mtt/bin/trans/gdat2ps +++ mttroot/mtt/bin/trans/gdat2ps @@ -13,17 +13,44 @@ ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ +## Revision 1.1 1996/08/10 09:52:39 peter +## Initial revision +## ############################################################### echo Creating $1.ps + +# Convert multi-columns into gnuplot format - +# ie stack two columns vertically separated by blank lines +awk ' +BEGIN{row=0; col=0} +{ + row++; + x[row] = $1; + for (col = 2; col <= NF; col++) { + y[row,col] = $col + } +} +END { + cols = col-1; + rows = row; + for (col = 2; col <= cols; col++) { + for (row = 1; row <= rows; row++) { + print x[row], y[row,col] + }; + if (col $1.gdat gnuplot << EOF set terminal postscript set output '$1.ps' set grid set title "$1.dat. Generated by MTT on $(date)" - plot '$1.dat' with lines + plot '$1.gdat' with lines exit EOF