统计质量改善后的遥感影像的结果——第一部分,云层检测二值化

pro Part_6  
  compile_opt idl2
  e=envi(/headless)
  for k=1, 69, 1 DO BEGIN
    kk=strtrim(string(k),1)
    file_mkdir,"D:\Lansat_Data_Cloud_Final\"+kk+"\"
  endfor
  for i=1,69,1 do begin
    ii=strtrim(string(i),1)
    folder = "D:\Lansat_Data_Composition\"
    input = folder + ii + ".dat"
    out_dir=strmid("D:\Lansat_Data_Cloud_Final\",0)+ii+"\"
    out_name=out_dir+ii+".dat"
    ENVI_OPEN_FILE,input,r_fid=fid
    IF (fid[0] EQ -1) THEN CONTINUE
    ENVI_FILE_QUERY, fid,dims=dims
    t_fid = [fid,fid,fid]
    pos = [0,1,2]
    exp = "(((long(b1)+b2+b3) gt 0)*((long(b1)+b2+b3) lt 50000)*1 + ((long(b1)+b2+b3) ge 50000)*((long(b1)+b2+b3) lt 60000)*((float(b1)/b3) ge 0.9)*((float(b1)/b3) lt 1.1)*5 + ((long(b1)+b2+b3) ge 50000)*((long(b1)+b2+b3) lt 60000)*((float(b1)/b3) gt 0)*((float(b1)/b3) lt 0.9)*1 + ((long(b1)+b2+b3) ge 50000)*((long(b1)+b2+b3) lt 60000)*((float(b1)/b3) gt 1.1)*1 + ((long(b1)+b2+b3) ge 60000)*((long(b1)+b2+b3) lt 70000)*((float(b1)/b3) ge 0.82)*((float(b1)/b3) lt 1.75)*5 + ((long(b1)+b2+b3) ge 60000)*((long(b1)+b2+b3) lt 70000)*((float(b1)/b3) gt 0)*((float(b1)/b3) lt 0.82)*1 + ((long(b1)+b2+b3) ge 60000)*((long(b1)+b2+b3) lt 70000)*((float(b1)/b3) gt 1.75)*1 + ((long(b1)+b2+b3) ge 70000)*((long(b1)+b2+b3) lt 80000)*((float(b1)/b3) ge 0.9)*((float(b1)/b3) lt 1.9)*5 + ((long(b1)+b2+b3) ge 70000)*((long(b1)+b2+b3) lt 80000)*((float(b1)/b3) gt 0)*((float(b1)/b3) lt 0.9)*1 + ((long(b1)+b2+b3) ge 70000)*((long(b1)+b2+b3) lt 80000)*((float(b1)/b3) gt 1.9)*1 + ((long(b1)+b2+b3) ge 80000)*((long(b1)+b2+b3) lt 90000)*((float(b1)/b3) ge 0.9)*((float(b1)/b3) lt 2.5)*5 + ((long(b1)+b2+b3) ge 80000)*((long(b1)+b2+b3) lt 90000)*((float(b1)/b3) gt 0)*((float(b1)/b3) lt 0.9)*1 + ((long(b1)+b2+b3) ge 80000)*((long(b1)+b2+b3) lt 90000)*((float(b1)/b3) gt 2.5)*1 + ((long(b1)+b2+b3) ge 90000)*((long(b1)+b2+b3) lt 100000)*((float(b1)/b3) ge 0.95)*((float(b1)/b3) lt 3.5)*5 + ((long(b1)+b2+b3) ge 90000)*((long(b1)+b2+b3) lt 100000)*((float(b1)/b3) gt 0)*((float(b1)/b3) lt 0.95)*1 + ((long(b1)+b2+b3) ge 90000)*((long(b1)+b2+b3) lt 100000)*((float(b1)/b3) gt 3.5)*1 + ((long(b1)+b2+b3) ge 100000)*((long(b1)+b2+b3) lt 150000)*((float(b1)/b3) ge 0.95)*((float(b1)/b3) lt 4.0)*5 + ((long(b1)+b2+b3) ge 100000)*((long(b1)+b2+b3) lt 150000)*((float(b1)/b3) gt 0)*((float(b1)/b3) lt 0.95)*1 + ((long(b1)+b2+b3) ge 100000)*((long(b1)+b2+b3) lt 150000)*((float(b1)/b3) gt 4.0)*1)"
    ENVI_DOIT,'math_doit',fid=t_fid,pos=pos,dims=dims,exp=exp,out_name=out_name,r_fid=r_fid
    print,input,out_name
    print,"-------------------------------------",i
  endfor
end

  • 4
    点赞
  • 8
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值