data() { cat<<EOF
0.00	0.11
0.01	0.13
0.08	0.15
0.08	0.15
0.08	0.16
0.13	0.16
0.13	0.17
0.13	0.19
0.14	0.22
0.17	0.24
0.17	0.24
0.18	0.24
0.20	0.26
0.22	0.26
0.26	0.26
0.26	0.27
0.27	0.27
0.31	0.28
0.31	0.30
0.31	0.30
0.32	0.31
0.33	0.32
0.33	0.33
0.34	0.34
0.35	0.35
0.35	0.35
0.37	0.37
0.40	0.38
0.41	0.43
0.43	0.43
0.44	0.45
0.48	0.49
0.51	0.52
0.53	0.56
0.54	0.57
0.56	0.63
0.56	0.63
0.58	0.65
0.59	0.67
0.61	0.70
0.62	0.70
0.63	0.71
0.65	0.76
0.68	0.78
0.68	0.83
0.69	0.94
0.72	1.37
EOF
}
meds() { cat <<EOF
12.5 55 5
12.5 14 5
EOF
}
meds > /tmp/med

data  | gawk '{print $1*100 "\t" $2*100}' | cat -n > /tmp/dat
gnuplot<<EOF
set size 0.75,0.75
set terminal postscript eps "Helvetica" 20
set key bottom right
set output "/tmp/changes.eps
set xlabel "changes, sorted"
set ytics (0,20,40,60,80,100,120,140)
set yrange [-20:140]
set xrange [-1:48]
set noxtics
set arrow 1 from 18,48 to 24,34 
set label "34,34" at 14,52
set ylabel "percent change"
plot "/tmp/dat" using 1:2 title "spreads" with lines linewidth 3,\
     "/tmp/dat" using 1:3 title "medians" with lines linewidth 3

EOF

epstopdf /tmp/changes.eps