
120 Transformations
Listing 3.8: Estimation of the noise cova riance matrix in IDL from the differ-
ence of one-pixel shifts.
1 PRO e x3_4
2 envi_se lect , title = ’ C hoose multispe ctral ima ge ’ , $
3 fid = fid , dims = dims , pos = pos
4 IF ( fid EQ -1) THEN BEGIN
5 PRINT , ’ C ancele d ’
6 RETURN
7 ENDIF
8 IF n_ele ments ( pos ) LT 2 THEN BEGI N
9 PRINT , ’ Abor ted ’
10 Message , ’ S pectra l subset size must be at leas t 2 ’
11 END IF
12 envi_f ile_qu ery , fid , fnam e = fna me
13 cols = dims [2] - dims [1]+1
14 rows = dims [4] - dims [3]+1
15 ban ds = n_e lement s ( pos )
16 ; data mat rix for diff erence ima ge
17 D = fl tarr ( bands