chain -
cd //
hi/del 0





2d 100 'ptot rtot' 100 100. 300. 100. 0. 70. 0. 

2d 101 'ptot rtot kincut' 100 100. 300. 100. 0. 70. 0. 

2d 102 'ptot rtot kincut pscut' 100 100. 300. 100. 0. 70. 0. 


2d 300 'time vs E BV' 100 -30. 30. 100 0. 30. 0. 
2d 301 'time vs E BL' 100 -30. 30. 100 0. 30. 0. 
2d 302 'time vs E EC' 100 -30. 30. 100 0. 30. 0. 
2d 303 'time vs E RD' 100 -30. 30. 100 0. 30. 0. 
2d 304 'time vs E TG' 100 -30. 30. 100 0. 30. 0. 
2d 305 'time vs E CO-UP' 100 -30. 30. 100 0. 30. 0. 
2d 306 'time vs E CO-DN' 100 -30. 30. 100 0. 30. 0. 

2d 307 'time vs E CM' 100 -30. 30. 100 0. 30. 0. 



2d 400 'time vs E BV' 100 -30. 30. 100 0. 30. 0. 
2d 401 'time vs E BL' 100 -30. 30. 100 0. 30. 0. 
2d 402 'time vs E EC' 100 -30. 30. 100 0. 30. 0. 
2d 403 'time vs E RD' 100 -30. 30. 100 0. 30. 0. 
2d 404 'time vs E TG' 100 -30. 30. 100 0. 30. 0. 
2d 405 'time vs E CO-UP' 100 -30. 30. 100 0. 30. 0. 
2d 406 'time vs E CO-DN' 100 -30. 30. 100 0. 30. 0. 

2d 407 'time vs E CM' 100 -30. 30. 100 0. 30. 0. 


do i=1,12
itu=[i]+1000
itd=[i]+2000
ieu=[i]+3000
ied=[i]+4000
itu2=[i]+1100
itd2=[i]+2100
ieu2=[i]+3100
ied2=[i]+4100
1d [itu] Time..Collar..UP..[i] 80 -40 40 
1d [itd] Time..Collar..DN..[i] 80 -40 40 
1d [ieu] Energy..Collar..UP..[i] 100 0 100 
1d [ied] Energy..Collar..DN..[i] 100 0 100 
1d [itu2] Time.Kp2.Collar..UP..[i] 80 -40 40 
1d [itd2] Time.Kp2.Collar..DN..[i] 80 -40 40 
1d [ieu2] Energy.Kp2.Collar..UP..[i] 100 0 100 
1d [ied2] Energy.Kp2.Collar..DN..[i] 100 0 100 
enddo
mess 'Histograms are booked...'
mess '***********'

mess 'Start filling the histograms...'
mess '*****just relax and wait....****'
exe ch
cd //ch
nt/loop 1 my.f(0.) 
cd //
chain -
en:
mess '======Finish======'