D - SCHNEIDER, MARIO JORGE.pdf - Universidade Federal do ...

end
Trecho de código para efetuar fusão pelo método CPA
envi_check_save, /transform
pc_rotate, fíd=c_fid, pos=pos, out_name=out_name,$
out_dt=4, out_nb=nb, $
in_memory=0, mean=mean, evec=evec, eval=eval, dims=dims, $
r_fid=r_fid
;end
envi_stats_doit, fid=r_fid, pos=pos, dims=dims, dmin=dmin, $
dmax^dmax, mean=mean, stdv=stdv, cov=cov, evec=evec, eval=eval, $
comp_flag=4, repor^flag^S, to_screen=l, rep_name=rep_out_name
end
Trecho de código para fusão HPF
; executa filtro passa alta sobre a imagem de melhor resolução espacial.
conv_doit, fid=fid, pos=pos, dims=dims, method=8, /in_memory, $
add_back=0.00, kx-3, ky=3, out_dt=data_type, r_fid=r_fid, $
kemel=kernel, scale_fac=scale_fac
expr = '((float(bl )/2)+(float(b2)/2))'
math_doit, fid=[f_fid, r_fid], pos=pos, dims=dims, out_name=out_name, $
in_memory=0, exp=expr, r_fid=o_fid