!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
read uv gag_demo:demo-single-line
uv_stack
import cube
clear
panel /nxy 1 3
!
define integer nc
let nc uv%nchan
define double uvfreq[uv%nchan] uvreal[uv%nchan] uvimag[uv%nchan] uvweig[uv%nchan]
for ic 1 to nc
   let uvreal[ic] uv['5+ic*3',1]
   let uvimag[ic] uv['6+ic*3',1]
   let uvweig[ic] uv['7+ic*3',1]
next ic
let uvfreq[ic] (ic-uv%convert[1,1])*uv%convert[3,1]+uv%convert[2,1]
!
panel 1
limits /var uvfreq uvreal
box n o
g\histogram uvfreq uvreal
!
panel 2
limits /var uvfreq uvimag
box n o
g\histogram uvfreq uvimag
!
panel 3
limits /var uvfreq uvweig
box
g\histogram uvfreq uvweig
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
