set term pdf enhanced fontscale 0.75 size 6.in,6.0in
set output 'hist_lost_list.pdf'
hist(x,width) = width*floor(x/width)+width/2.0
width=0.0002
#load 'hist_list.dat'
set xrange [-0.01:0.01]
set style fill solid 0.5
set key off
set label 'plotting_scripts/hist_lost_list.gnu' at graph 1.02,0.02 rotate left font 'Verdana,8' noenhance
set ylabel 'dN/dE'
 set xlabel '{/Symbol D}E/E'
 set ylabel 'Number lost'
set xlabel 'time [us]'
set label at graph 0.1,0.9 'B_r = 30ppm'
set label at graph 0.1,0.95 'Lost particles 30{/Symbol m}s < t < 100{/Symbol m}s'
plot  filenames u (hist(($10),width)):($12 > 30.e-6 ? 1.0 :1/0)  smooth freq w boxes lc rgb"red"