(save-pdf (doto (xy-plot cht1 three :x-label "Wavelength"
                         :y-label "Infrared Spectra")
      set-theme-bw
            view) "three.pdf")
            
(save-pdf (doto (xy-plot (range 0 184) (sel paint3 :cols 0))
set-theme-bw
            view) "f1.pdf") 
            
(save-pdf (doto (histogram (sel paint3 :cols 3) :x-label "f=4")
set-theme-bw
            view) "f4a.pdf")
                    
            
cht1 (reverse (range 1800 649))