modis数据批量波段运算：EVI或NDVI产品除以1000

直接将代码po上；在控制台中运行envi——>运行代码——>选择要处理的文件即可

请更改输出路径；

PRO bandmath
  COMPILE_OPT IDL2

  files=envi_pickfile(filter=['*.tif'],/multiple_files)
  IF ~file_test(files[0]) THEN return
  num=size(files)
  num=num[1]
  FOR i=0,num-1 DO BEGIN
    file=files[i]
    envi_open_file,file,r_fid=fid
    IF (fid[0] EQ -1) THEN CONTINUE
    ENVI_FILE_QUERY, fid,dims=dims
    t_fid = [fid]
    pos = [0]
    exp = 'float(b1)/10000'
    path='E:\modis data h27v05NDVI\evi result'
    bname=file_basename(file,'.tif')
    out_name = path+bname+'_BM.tif'
    ENVI_DOIT, 'math_doit', $
      fid=t_fid, pos=pos, dims=dims, $
      exp=exp, out_name=out_name, $
      r_fid=r_fid
  ENDFOR

END