西南師范大學(xué)資環(huán)學(xué)院地信專業(yè)選修課 遙感地學(xué)分析 教師：匡鴻海 序 一、為什么要學(xué)習(xí)遙感地學(xué)分析 二、遙感地學(xué)分析的歷史與發(fā)展 三、遙感地學(xué)分析的研究現(xiàn)狀 四、遙感地學(xué)分析的應(yīng)用領(lǐng)域 五、學(xué)習(xí)中應(yīng)該注意的問題 一、為什么要學(xué)習(xí)遙感地學(xué)分析 1、部分遙感影象不能直接反映地學(xué)信息 ； 2、避免不同判讀人員在對遙感影象進(jìn)行 判讀時造成的誤差； 3、盡可能多的獲取遙感影象反映的地學(xué) 信息 圖一 請看以下二圖：請看以下二圖： 圖二 遙感地學(xué)分析示范 l對圖一的地下水分布狀況分析 l對圖二的空間拓?fù)浞治?l對圖一的BRG色譜調(diào)整 對圖一的地下水分布狀況分析 對圖二的空間拓?fù)浞治?經(jīng)過BRG色譜調(diào)整后的圖一 二、遙感地學(xué)分析的歷史與發(fā) 展 1、遙感影象的人工判讀分析階段。 2、遙感影象的計算機輔助判讀分析階段。 3、基于地學(xué)人工智能（GEOAGENT）的計算機判讀分析 階段。 三、遙感地學(xué)分析的研究現(xiàn)狀 1、利用已有的各種GIS、RS軟件進(jìn)行遙 感地學(xué)分析 2、利用算法研究，結(jié)合實際編程進(jìn)行遙 感地學(xué)分析 3、調(diào)繪 l國土管理、資源調(diào)查 l大地測量、環(huán)境保護(hù) l地質(zhì)勘探、軍事偵察 l 四、遙感地學(xué)分析的應(yīng)用領(lǐng)域: 五、學(xué)習(xí)中應(yīng)該注意的問題 l濃厚的學(xué)習(xí)興趣，是學(xué)好本門課程的重 要保證 l對遙感圖象象素的顏色值的獲取與計算 l利用vb調(diào)用API 例程：對顏色值的獲取 Private Declare Function GetPixel Lib “gdi32“ ( _ ByVal hdc As Long, _ ByVal X As Long, _ ByVal Y As Long) As Long 以下代碼為函數(shù)的聲明部分，用以調(diào)用獲得遙感影象 象素顏色值的API函數(shù)GETPIXEL（）。 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 此子程序為獲得遙感影象的RGB值 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 此子程序為獲得遙感影象的顏色值 作業(yè)： 1請寫出利用VB獲取