set term postscript color enhanced 'Times-Roman' 22
set output "lost_muons.ps"
#set multiplot
#set size 0.5,0.25
set origin 0.,0.
set ylabel "Number remaining" offset 2.9,0,0
set xlabel "Distance from inflector exit [m]"
set yrange [0:]
#set ytics -20,10,20
set xrange [:2*pi*7.112]
set y2range [0:20]
plot "Beam_moments_by_element.dat" u ($2*2*pi*7.112):16 w i lw 4 notitle, "" u ($2*2*pi*7.112+1):($16+500):17 w labels rotate by 90 tc lt 3 font "Helvitica,10" notitle
#plot "Beam_moments_by_element.dat" u ($2*2*pi*7.112):16  pt 4 ps 1 notitle, "" u ($2*2*pi*7.112+1):($16+500):17 w labels rotate by 90 tc lt 3 font "Helvitica,10" notitle
#plot "Beam_moments_by_element.dat" u ($2*2*pi*7.112):16 w i lw 2 notitle, "" u ($1/1000000+25):1:17 axes x1y2 w labels tc lt 3 font "Helvitica,10" notitle