西南师潘范大学硕士研究生学位论文开题报告西南大学.pptVIP

西南师范大学资环学院地信专业选修课 遥感地学分析 教师：匡鸿海 序 一、为什么要学习遥感地学分析 二、遥感地学分析的历史与发展 三、遥感地学分析的研究现状 四、遥感地学分析的应用领域 五、学习中应该注意的问题 一、为什么要学习遥感地学分析 1、部分遥感影象不能直接反映地学信息； 2、避免不同判读人员在对遥感影象进行判读时造成的误差； 3、尽可能多的获取遥感影象反映的地学信息 遥感地学分析示范 对图一的地下水分布状况分析 对图二的空间拓扑分析 对图一的BRG色谱调整 对图一的地下水分布状况分析 对图二的空间拓扑分析 二、遥感地学分析的历史与发展 1、遥感影象的人工判读分析阶段。 2、遥感影象的计算机辅助判读分析阶段。 3、基于地学人工智能（GEOAGENT）的计算机判读分析阶段。 三、遥感地学分析的研究现状 1、利用已有的各种GIS、RS软件进行遥感地学分析 2、利用算法研究，结合实际编程进行遥感地学分析 3、调绘 国土管理、资源调查 大地测量、环境保护 地质勘探、军事侦察 …… 五、学习中应该注意的问题 浓厚的学习兴趣，是学好本门课程的重要保证 对遥感图象象素的颜色值的获取与计算 利用vb调用API 例程：对颜色值的获取 Private Declare Function GetPixel Lib gdi32 ( _ ByVal hdc As Long, _ ByVal X As Long, _ ByVal Y As Long) As Long Private Sub Picmain_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim w, h w = Picmain.ScaleWidth h = Picmain.ScaleHeight ReDim larrCol(0, w, h) r = Abs(larrCol(0, X, Y)) MsgBox R, , “R的值为： End Sub Private Sub Picmain_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim t t = GetPixel(Picmain.hdc, X, Y) MsgBox t, , 该点的颜色值为： End Sub 作业： 1请写出利用VB获取任意图片的任意位置的颜色值的过程与源代码 2请写出利用VB获取任意图片的任意位置的RGB值中的R值的过程与源代码 谢谢！ * * 图一 请看以下二图： 图二 经过BRG色谱调整后的图一 四、遥感地学分析的应用领域: 以下代码为函数的声明部分，用以调用获得遥感影象 象素颜色值的API函数GETPIXEL（）。 此子程序为获得遥感影象的RGB值 此子程序为获得遥感影象的颜色值 * * *