read_data(../data/cu150k.chi , group=a, type=chi)

set( b.chi = a.chi)

set( kweight=2, kmin=2, kmax=18, dk=2 )

window(a.k)

show @arrays
newplot(a.k, a.chi)
   plot(a.k, a.win)



set m.x1 = range(1.2,8.5,0.25)
set m.x2 = range(8.6,12.5,0.05)
set m.x3 = range(12.6,18.50,0.1)
set m.k  = join(join(m.x1,m.x2),m.x3)

window(m.k)

show @arrays
pause

newplot a.k, a.win, style=points1
   plot m.k, m.win, style=points2
