1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107
|
#
# Demonstrate features of datastrings patch
# Ethan A Merritt <merritt@u.washington.edu>
# 08-Mar-2003
#
reset
#
# Illustrate reading plot labels from column head in datafile
#
set title "Auto-labeling plots from text fields in datafile"
set label 1 "Generate plot labels from first row in each column"
set label 1 at graph 0.02, 0.85 tc lt 3
set label 2 "Generate x-axis labels from first column in each row"
set label 2 at graph 0.02, 0.80 tc lt 3
set style data linespoints
set ylabel "mm"
set yrange [0:200]
#
set key autotitle columnhead
plot 'ctg-y2.dat' using 2:xticlabel(1) index 2, \
'' using 2 index 3
#
pause -1 "<cr> to plot again using x2ticlabels"
#
# Illustrate reading xtic axis labels from the datafile
#
reset
set title "Read tic labels from a datafile column\nAn approximation of Hans Olav Eggestad's categoric plot patch\nusing 'using ($0):2:xticlabels(1)' and 'set style fill solid border -1'"
set boxwidth 0.3
set style fill solid 1.000000 border -1
set bmargin 3
set pointsize 2
set yrange [0:180]
set xrange [-0.5:11.5]
set ylabel "mm"
set tics scale 0.0
set grid y
set xtics
#
set key autotitle columnhead
plot 'ctg-y2.dat' using ($0-0.2):2 index 0 with boxes title "precipitation 1992-2000", \
'' using ($0+0.2):2 index 1 with boxes title " 2000-2001", \
'' using ($0):2 index 2 with linespoints lw 3 title "runoff 1992-2000", \
'' using ($0):2:xticlabels(1) index 3 with linespoints lw 3 title " 2000-2001"
#
pause -1 "<cr> to plot again using x2ticlabels"
#
set title "Same plot using x2ticlabels also"
set x2tics
plot 'ctg-y2.dat' using ($0-0.2):2 index 0 with boxes title "precipitation 1992-2000", \
'' using ($0+0.2):2 index 1 with boxes title " 2000-2001", \
'' using ($0):2 index 2 with linespoints lw 3 title "runoff 1992-2000", \
'' using ($0):2:x2ticlabels(1) index 3 with linespoints lw 3 title " 2000-2001"
#
pause -1 "<cr> to plot same data from table format"
set title "Plot from table format (titles taken from column headers)"
unset x2tics
plot 'table.dat' using ($0-0.2):2 title 2 with boxes, \
'' using ($0+0.2):3 title 3 with boxes, \
'' using ($0):4 title 4 with linespoints, \
'' using ($0):5:xtic(1) title 5 with linespoints
#
pause -1 "<cr> to show double use of y values"
#
set title "Plot actual y-value as a label"
plot 'table.dat' using 0:2 title 2 with boxes, \
'' using 0:2:2 with labels center offset 0,1 notitle
#
pause -1 "<cr> continue"
#
# Now show the plot with labels options
#
reset
set title "Read labels from a datafile column\nHere the 'plot with labels' command generates a\nC-alpha trace of retro-GCN4 peptide"
set size square
unset xtics
unset ytics
set border 3
set xlabel "X--->"
set ylabel "Z--->"
set key bottom right
#
plot 'labelplot.pdb' using 7:9 with lines notitle, \
'' using 7:9:4 with labels tc lt 3 font "Helvetica,10" notitle
# '' using 7:9 with points notitle ps 5 lt -1
#
pause -1 "<cr> to try a 3D version using splot"
#
reset
set title "3D version generated by splot\n(sorry, the axis scales are distorted)"
set zrange [-15:15]
set view 70,210, 1.0,1.7
set ticslevel 0.0
splot 'labelplot.pdb' using 7:8:9 with lines notitle, \
'' using 7:8:9:4 with labels left offset 1,0 point \
ps 2 pt 1 tc lt 3 font "Helvetica,10" notitle
#
pause -1 "<cr> to view star map"
#
reset
load "starmap.dem"
#
pause -1 "<cr> to end demo"
|