Hi Zach,
I include one of the expressions that I am currently performing:
; Open ENVI
e = envi()
; Set directories and file names
InPath = 'T:\IN\'
OutPath = 'T:\OUT\'
IMGFname = 'img.bsq'
; Open image
IMG = e.OpenRaster(InPath + IMGFname)
IMG_FID = ENVIRasterToFID(IMG)
; Query dimensions of the image
envi_file_query, IMG_FID, dims=IMGDims
; Band math
IMG_FIDs = [IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID, IMG_FID]
IMG_POS = indgen(155, /LONG)
IMG_EXP = '-0.1+6.9*B1+6.2*B2+5.4*B3+3.4*B4-3*B5-6.2*B6-8*B7-8.1*B8-7.7*B9-6.5*B10-4.9*B11-2.8*B12+2.8*B13+5*B14+7.2*B15+9*B16+9.3*B17+8.2*B18+6.3*B19+4.4*B20+2.6*B21-2.5*B22-3.4*B23-3.8*B24-3.7*B25-3.9*B26-4.1*B27-4.2*B28-3.9*B29-3.6*B30-3.3*B31-3*B32-2.9*B33-2.8*B34-2.8*B35-2.8*B36-2.9*B37-3.1*B38-3.2*B39-3.3*B40-3.4*B41-3.4*B42-3.4*B43-3.3*B44-3.2*B45-3*B46-2.8*B47-2.6*B48-2.3*B49-2*B50+1.8*B51+3.1*B52+3.4*B53+3.5*B54+1.8*B55-2.5*B56-2.3*B57+1.9*B58+2*B59+2*B60+2.1*B61+2.1*B62+2*B63+2.2*B64+2.5*B65+2.8*B66+3.2*B67+3.6*B68+3.9*B69+4.3*B70+4.5*B71+4.7*B72+4.8*B73+4.8*B74+4.8*B75+4.6*B76+4.3*B77+4*B78+3.8*B79+3.5*B80+3.3*B81+3*B82+2.6*B83+2.2*B84-1.8*B85-2.1*B86-2*B87+1.9*B88+5.4*B89+5*B90+4.5*B91+4*B92+3.5*B93+3.1*B94+2.7*B95+2.3*B96+2*B97-1.8*B98-2.1*B99-2.4*B100-2.8*B101-3.2*B102-3.6*B103-3.9*B104-4.1*B105-4*B106-3.9*B107-3.6*B108-3.4*B109-3.2*B110-2.9*B111-2.5*B112-2.2*B113-2.3*B114-2.9*B115-3.3*B116-3.6*B117-4.1*B118-4.6*B119-5*B120-5.2*B121-6.1*B122-4.8*B123-3.3*B124-2.1*B125+2.3*B126+2.7*B127+3*B128+3.3*B129+3.5*B130+3.7*B131+4*B132+4.2*B133+4*B134+2.9*B135-2.4*B136-4.5*B137-6.8*B138-9.8*B139-12.5*B140-12.7*B141-10.3*B142-7.4*B143-4.4*B144+2.6*B145+5.4*B146+7.2*B147+8.1*B148+8.9*B149+9.1*B150+7.4*B151+5.9*B152+5.1*B153+4.5*B154+3.2*B155'
OutFile = OutPath + 'img_out.bsq'
envi_doit, 'math_doit', fid=IMG_FIDs, pos=IMG_POS, $
dims=IMGDims, exp=IMG_EXP, out_name=OutFile, $
r_fid=OutFile_FID
; Close ENVI
e.Close
Thanks again for your help.
Juanjo
|