PRO p10919b
; This is a program to plot voltages, temperatures and stuff
; from a file of data from a thermistor string.
  black=0
  white=long(255)+256*(long(255)+256*long(255))
  vioff=.0005
  restore
  v0aver=total(varr(1,*)-varr(0,*))/n_elements(varr(0,*)); for baseline
  plot,varr(9,*)-varr(8,*)+8*vioff, $
    title=infile+' - thermistor string', $
    xtitle='sample number', $
    ytitle='voltage differences', $
    color=black,background=white, $
    yrange=[v0aver-vioff/2.,v0aver+9*vioff]
  FOR ichan=1,8 DO BEGIN
    oplot,varr(ichan,*)-varr(ichan-1,*)+(ichan-1)*vioff,color=black
  ENDFOR
;  write_jpeg,'p10919a.jpg',tvrd()
END