gis的應(yīng)用ppt課件(編輯修改稿)
2025-02-10 03:23 本頁面
【文章內(nèi)容簡介】 時顯示接收機(jī)天線位置； 2．集中監(jiān)控式 1）控制中心，由大屏幕計算機(jī)、無線電臺、通訊適配器、電源和天線系統(tǒng)組成，并配備 GIS。 2）基站，由電臺、通訊適配器、電源和天線系統(tǒng)組成。 3）移動站（即車載系統(tǒng)），由電臺、天線、通訊適配器和 GPS接收機(jī)組成。 三、例子－ 汽車自動導(dǎo)航系統(tǒng) 主要部件： 2）系統(tǒng)功能 1 當(dāng)前位置計算功能 2）系統(tǒng)功能 2 地圖畫面顯示功能 2）系統(tǒng)功能 3 最佳路線制定功能 不規(guī)則三角網(wǎng)算法流程度 獲得離散高程點(diǎn)的數(shù)據(jù)（ x,y,H) 定義 PointList來存儲點(diǎn) 開 始 查找距離最近的兩個點(diǎn) minVertex1， minVertex2 構(gòu)造第一個三角形 定義 TriangleList存儲三角形的頂點(diǎn) 令 L=1 擴(kuò)展三角形的第一條邊 成功則令 L＝ L＋ 1，寫入 TriangleList 構(gòu)建邊使用情況矩陣 K為已擴(kuò)展的三角形數(shù)目 L為已建立的三角形的數(shù)目 令 K=0,L=0 擴(kuò)展三角形的第二條邊 成功則令 L＝ L＋ 1，寫入 TriangleList K=L 擴(kuò)展三角形的第三條邊 成功則令 L＝ L＋ 1，寫入 TriangleList K=K+1 結(jié) 束 否 是 Dim PointList As New Collection Dim TriangleList As New Collection Dim minVertex1 As Integer, minVertex2 As Integer 39。計算兩點(diǎn)間的距離 Private Function Distance(Point1 As AcadPoint, Point2 As AcadPoint) As Double Dim dist As Double dist = Sqr(((0) (0)) ^ 2 + ((1) (1)) ^ 2) Distance = dist End Function 39。尋找第一個三角形的兩個頂點(diǎn) Private Function FindInitializePoints() Dim ID1 As Integer, ID2 As Integer Dim Point1 As AcadPoint, Point2 As AcadPoint Dim i As Integer, j As Integer Dim MinDistance As Double, dist As Double MinDistance = 100000 For i = 1 To 1 Set Point1 = (i) For j = i + 1 To Set Point2 = (j
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1