PROmaskimg_byevf COMPILE_OPTidl2 ENVI,/RESTORE_BASE_SAVE_FILES ;initialize ENVI in batch mode: ENVI_BATCH_INIT fileextension='img' ;选择数据文件夹 folder=ENVI_PICKFILE(TITLE='Select image Data Folder',/DIRECTORY) ;选择evf evfname=DIALOG_PICKFILE(title='Select Evf ') IF(folderEQ'')THENRETURN...
原网址:http://www.cnblogs.com/zhzhx/p/3141031.html 一、波段的分解(仅分解出一个波段): pro band_decompose compile_opt IDL2 envi,/Restore_Base_Save_Files envi_batch_init,log_file='batch.txt'inputfile='E:\L5_12332_20040908\tm'envi_open_file,inputfile,r_fid=fidif(fid eq -1) then beg...
pro qifudu_result, pp, flag, out_name=out_name ;pp是窗口大小,flag是存贮方式 compile_opt idl2 envi_batch_init pp=pp;窗口大小 p1=(pp-1)/2;用于建立窗口大小 envi_select,fid=fid,pos=pos,dims=dims if fid eq -1 then begin envi_batch_exit return endif ENVI_FILE_QUERY, fid, bnames=b...
IDL中右键菜单的例子,源码为IDL自带,在命令行中输入.EDIT ontext_tlbase_example.pro即可打开。 PRO CBE_FirstEvent, event COMPILE_OPT hidden PRINT, ' ' PRINT, 'Selection 1 Pressed' END; Event handler routine for the "Selection 2" button on the context menu. PRO CBE_SecondEvent, event COMPILE_...
COMPILE_OPT idl2 ;ENVI调用初始化 ENVI,/restore_base_save_files ENVI_BATCH_INIT ;打开图像文件 ; ENVI_OPEN_FILE, file, r_fid=fid IF (fid EQ -1) THEN BEGIN ENVI_BATCH_EXIT RETURN ENDIF ; ENVI_FILE_QUERY, fid, dims=dims,nb = nb ...
compile_opt strictarr ENVI,/RESTORE_BASE_SAVE_FILES ENVI_BATCH_INIT ,LOG_FILE = 'batch.log' path=file_search("C:\Users\king\Desktop\数据\LT05_L1TP_127033_20090614_20161025_01_T1\Atmosphere\radiation.dat") outpath ="C:\Users\king\Desktop\数据\LT05_L1TP_127033_20090614_20161025_01_T1\...
COMPILE_OPT IDL2 inputdir = 'F:\work\GF2\PM1' filelists=FILE_SEARCH(inputdir,'*.tiff',count = num) ;获取文件夹下符合条件的文件,【好强……甚至可以渗透二级目录】 outputdir = 'F:\work\GF2\PM1\' FOR i=0, num-1, 2 DO BEGIN ;循环时候同样考虑了两个文件,所以步长为2 ...
在你写的每个程序的开头键入compile_opt strictarr,这个解译起来有点不太好理解,但这样做有时会省去你一天的工作。这是源于arr(5)和arr[5]都可以索引数组,但idl尝试去识别arr(5)是索引一个数组还是调用一个函数的时会发生误解。解决的办法就是总是用arr[5]作为数组索引,通过程序开头的compile_opt strictarr告...
compile_opt idl2 ;设置阈值的默认值 IF (N_ELEMENTS(threshold) EQ 0) THEN threshold=2 a=inputdata b1=a[sort(a)] ;排序, b2=uniq(b1) ;找唯一值下标 b3=b1[b2] ;找唯一值 n=n_elements(b3) ;我唯一值的个数 countx=intarr(n) ;初始化 用于记录每个唯一值的个数 ...
23、le='spatial principal componentan alysis'tv ,data,/orderendpro n dvi_eve nt,eve ntcompile_opt IDL2 envi ,/restore_base_save_files en vi_batch_in itwidget_c on trol file=(*pstate). data=*(*pstate).en vi_ope n_fileen vi_file_query,event.top ,get_uvalue=pstatefiledata ),...