exe hallc#setup
ve/del *
npoint = 4
 title
 
 label 1 6 ' ' ' ' ' ' ' ' ' ' ' '
 set ndvx 5.11
 set ygti 1.0
 title 'April 13 2006 Spin Dance Summary' 
 
 ve/create hall(4) r 1 2 3 4
 
 ve/create pol(4) r 83.25 82.20 87.27 84.76
 ve/create epol(4) r  0.7 0.7 1.1 0.26
 
 ve/create etot(4) r 1.22 1.22 1.4 0.89
 
 ve/create res(4) r
 
 sigma res=pol-83.25
 
 ve/create ex(4) r
 
 null 0 5 -10 10
 
 do i=1,4
   
   set pmci [i]
   set hcol [i]
   hplot/errors hall([i]:[i]) res([i]:[i]) ex([i]:[i]) epol([i]:[i]) 4 20 0.25 e1
   hplot/errors hall([i]:[i]) res([i]:[i]) ex([i]:[i]) etot([i]:[i]) 4 20 0.25
 enddo
 
 atit ' ' '[D]Pol (%)'
 set ltyp 2
 line 0 0 6 0
 
 set tang 20.0
 
 ypos =-8.9
 
 
 xpos = 0.6
 set txci 1
 itx [xpos] [ypos] 'Mott (A laser)'
 
 
 xpos = [xpos]+1
 set txci 2
 itx [xpos] [ypos] 'Mott (C laser)'
 
 xpos = [xpos]+1
 set txci 3
 itx [xpos] [ypos] 'Hall A Compton'
 
 xpos = [xpos]+1
 set txci 4
 itx [xpos] [ypos] 'Hall C Moller'