;----------------------------------
;PCA变换融合法
;HighResolutionFile:输入的高分辨率影像文件
;MultispectralFile:输入的多光谱影像文件
pro PCA_Merge,HighResolutionFile,MultispectralFile,MergeImg
Result = QUERY_IMAGE( HighResolutionFile, sinfo)
if (sinfo.TYPE NE 'TIFF') then begin
Result =
DIALOG_MESSAGE('参与图像融合的单波段影像必须为GeoTiff格式',
/ERROR,title='错误提示')
return
endif
Result = QUERY_IMAGE( MultispectralFile, minfo)
if (minfo.TYPE NE 'TIFF') then begin
Result =
DIALOG_MESSAGE('参与图像融合的多光谱影像必须为GeoTiff格式',
/ERROR,title='错误提示')
return
endif
sChannels=sinfo.CHANNELS
sDimensions=sinfo.DIMENSIONS
HighResolutionImg = READ_TIFF( HighResolutionFile,
GEOTIFF=sgeoInfo)
sPixelResolution=s