IDL下实现ENVI的波段运算表达式语句合理性检测

1、IDL 下实现 ENVI 的波段运算表达式语句合理性检测Learning ENVI&IDL学习、研究ENVI&IDL+ArcGIS外加些转载的A_A转帖请注明出自本博客！http:/bbs.esrichina-主页博客相册 |个人档案 |好友 |i 贴吧查看文章IDL 下实现 ENVI 的波段运算表达式语句合理性检测 2011年10月 21日 星期五 20:20ENVI 的波段运算功能很强 大，若输入表达式中有错误则无法add。这个检测是怎么实现的呢？如果在 IDL 下进行 ENVI 二次开发的时候，如何实 现这个功能。首先启动ENVI+IDL，进行波段运算，输入 b1*a，然

2、后点击Add。 IDL 的控制台上会输出如下信息： % Variable is undefined: A.ENVI>由此，联想到 ENVI 是否进行了一个测试调用，根据调用的 返回值来判断该表达式是否合法。在 IDL 下进行测试： ENVI> str1 =b1*aENVI> varname = Var_Extract(str1)ENVI> isWrite = Execute(varName+=indgen(5,5)ENVI> print,isWrite1ENVI> isWrite = Execute(varName+= + Str1)% Variable i

3、s undefined: A.ENVI> print,isWrite0该错误提示与 ENVI 的波段运算错误提示是对应的。应该就 是用的这个 Execute 返回值来判断表达式是否正确。其中调用到的函数来自YangHS，如下：Function VarFind,StrCompile_opt strictarrLen = StrLen(Str)RetValue = bRefArr = Strtrim(Indgen(10),2)if Len eq 1 then Return,RetValuefor i=1,Len-1 do beginChar = StrMid(Str,i,1)if (Wher

4、e(RefArr eq Char)0 eq -1 then breakRetValue = RetValue+CharendforReturn,RetValueEndFunction Var_Extract,ExpStrCompile_opt strictarrExpStr = STRLOWCASE(ExpStr)StrArray = StrSplit(ExpStr,b,/extract)StrArray = b+StrArray for i=0,N_Elements(StrArray)-1 do begin StrArrayi = VarFind(StrArrayi) endforLenArr = StrLen(StrArray)index = Where(LenArr ne 1,count)if count gt 0 then RetArr=StrArrayindex else RetArr=uniqIndex = Uniq(RetArr)RetArr = RetArruniqIndexReturn,RetArrEnd那么继续探讨下表达式变量的初值设置，编写一简单的波段 运算函数 test_bandmathVar。 function test_bandmathVar,inVar help,inVar,out = outD pr