;functionCalDistance, point1, point2 compile_opt idl2 ; Return, SQRT((point1[0]-point2[0])^2+(point1[1]-point2[1])^2) end ;≌≌≌ ; ;搜索当前坐标周围Distance内的下标,注意输入x和y方向的坐标范围xRange和yRange ;functioncalIdxInDistance, curLoc, distance;,xRange,yRange ;初始化临时下...
COMPILE_OPT StrictArr IF N_ELEMENTS(a) EQ 0 THEN RETURN, b ;A union NULL = a IF N_ELEMENTS(b) EQ 0 THEN RETURN, a ;B union NULL = b RETURN, WHERE(HISTOGRAM([a,b], OMin = omin)) + omin ; Return combined set END ;≌≌≌ ; ; ;去除2维数组中重复的元素 ; ; 2010年3月25...
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_...
所以,本文利用IDL经过反复实验,对GOCI -Ⅱ叶绿素a浓度产品进行批量几何校。 本文代码参考网络资源,在此致谢。因反复实验不同大牛发布的代码,最终未能保存最终的参考链接。 pro chl_deal compile_opt idl2 e=envi(/headless) time = systime(1) path = 'T:/wycao/Menlou Reservoir/data' file = file_search(...
compile_opt idl2 e = envi(/CURRENT) starttime = systime(1) PAN_RASTER = e.openRaster('D:\\project\\envi-auto\\wntest\\GF1_PMS1_E117.8_N24.1_20230930_L1A13109541001_20231109112351765\\GF1_PMS1_E117.8_N24.1_20230930_L1A13109541001-PAN1.tiff') ...
可以使用COMPILE_OPT对IDL编译器的默认编译规则进行稍微修改,COMPILE_OPT常用关键字有DEFINT32、STRICTARR和LOGICAL_PREDICATE等。COMPILE_OPT DEFINT32 –把默认IDL的整型数据16位修改为32位;COMPILE_OPT STRICTARR –默认数组元素的选取用中括号,不能够用小括号,避免出现与函数调用混淆。COMPILE_OPT LOGICAL_PREDICATE,...
通过IDL多线程,进行两个数相加为例 1. 相加函数如下 function add, a, b return, a+b end 2. 主线程函数如下,通过新建分线程调用相加函数,如果线程运行结束,则输出结果 pro thread_test compile_opt idl2 file_dirname(routine_filepath()) '\add.pro' ...
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 IDL2 ;Get the number of input files. file_nums = N_ELEMENTS(in_filenamelist)IF(file_nums GT0)AND~STRCMP(in_filenamelist[0],'') THEN BEGINFORi =0, file_nums -1DOBEGIN img = READ_IMAGE(in_filenamelist[i], red, green, blue) ...
COMPILE_OPT idl2 ENVI,/RESTORE_BASE_SAVE_FILES ;initialize ENVI in batch mode: ENVI_BATCH_INIT fileextension='tif' ;打开栅格数据 folder=ENVI_PICKFILE(TITLE='Select image Data Folder',/DIRECTORY) ;打开矢量文件 evfname=DIALOG_PICKFILE(title='Select Evf') ...