完本txt下载全本免费:IDL读取MODIS 1B数据中500分辨率下的数据 并显示成伪彩_武汉之光-人机交互小盒...
来源:百度文库 编辑:中财网 时间:2024/04/29 12:07:47
查看文章 IDL读取MODIS 1B数据中500分辨率下的数据 并显示成伪彩 2009-04-02 10:55 pro readhdf_cr
; 读取某个HDF文件
FILE_NAME=dialog_pickfile(default_extension= '.hdf',filter='*.hdf')
;读取其中的某个Data Set里面的数据,可以用HDF Explore看一下HDFl里面的文件结构
SDS_NAME="EV_250_Aggr500_RefSB"
AeroWidth=2708 ;影像的宽度
AeroLength=4060 ;影像的高度
;打开HDF文件并初始化HDF接口
sd_id = HDF_SD_START( FILE_NAME, /read )
sds_index = HDF_SD_NAMETOINDEX(sd_id,SDS_NAME)
sds_id = HDF_SD_SELECT( sd_id, sds_index )
HDF_SD_GETDATA, sds_id, data
HDF_SD_ENDACCESS, sds_id
;关闭HDF文件
HDF_SD_END, sd_id
imagedata = bytscl(congrid(data,AeroWidth*0.2,AeroLength*0.2,1));按比例缩小影像
DEVICE,DECOMPOSED=0 ;显示伪彩
LOADCT,36 ;加载第37个调色板
window, 0, Title='Aeromatex',xsize=AeroWidth*0.2, ysize=AeroLength*0.2, retain=2
TVSCL,imagedata
end
; 读取某个HDF文件
FILE_NAME=dialog_pickfile(default_extension= '.hdf',filter='*.hdf')
;读取其中的某个Data Set里面的数据,可以用HDF Explore看一下HDFl里面的文件结构
SDS_NAME="EV_250_Aggr500_RefSB"
AeroWidth=2708 ;影像的宽度
AeroLength=4060 ;影像的高度
;打开HDF文件并初始化HDF接口
sd_id = HDF_SD_START( FILE_NAME, /read )
sds_index = HDF_SD_NAMETOINDEX(sd_id,SDS_NAME)
sds_id = HDF_SD_SELECT( sd_id, sds_index )
HDF_SD_GETDATA, sds_id, data
HDF_SD_ENDACCESS, sds_id
;关闭HDF文件
HDF_SD_END, sd_id
imagedata = bytscl(congrid(data,AeroWidth*0.2,AeroLength*0.2,1));按比例缩小影像
DEVICE,DECOMPOSED=0 ;显示伪彩
LOADCT,36 ;加载第37个调色板
window, 0, Title='Aeromatex',xsize=AeroWidth*0.2, ysize=AeroLength*0.2, retain=2
TVSCL,imagedata
end
【求助】erdas怎么打开modis的DHF格式数据??
vb6 从EXCEL中读取数据。。
请问ASP中数据读取的方法
如何从文件中读取数据到链表中
asp怎么读取记事本中数据
请问用C#编一个软件:(1)要求读取文件中数据(2)依据读取的数据画图!谢谢!
我的delphi7中设计IDL时没有corba object
求助!!VB里怎样从ACCESS表中读取数据
请问VB中如何读取txt文件的数据
VB中如何读取excel表中的数据
vba中怎么读取csv文件的数据
在CAD中如何读取shape 格式数据
从DCS中读取数据都有那些方法?
在vb中如何实现串口数据的读取
为什么我网络点播老出预读取数据中?
C# 怎样从DATATABLE中把数据读取出来?
C语言中,如何读取文件中的数据。
MODIS是什么意思?
(出20分)如何将A网站的新闻数据提取到B网站的新闻系统中?
读卡器不能读取数据
vb 数据读取
ASP 数据读取错误
突然不读取数据
数据ID读取问题