GPS 测量与数据处理

GPS 测量与数据处理，具体请看pdf内容

vb水准测量代码

Dim imarks% Private Sub form_load() imark = 1 End Sub Private Sub cmdcancel_Click() Dim i% For i = 1 To imark dis(i) = 0: deth(i) = 0 Next i frmmain.txtshow.Text = "水准计算结果" Unload Me End Sub Private Sub cmdok_Click() dist = Val(txtdist.Text): dh = Val(txtdeth.Text) Call adddata(imark, dist, dh) Public Sub adddata(imark As Integer, dist As Single, dh As Single) dis(imark) = dist: deth(imark) = dh frmmain.txtshow.Text = frmmain.txtshow.Text & "第" & Str(imark) & "站:" & vbCrLf frmmain.txtshow.Text = frmmain.txtshow.Text & " & 距离:" & dis(imark) & " 高差中数:" & deth(imark) & vbCrLf If imark >= nmarks Then frminput.Hide Else txtdist.Text = "": txtdeth.Text "": txtdist.setfoucs End If frminput.Caption = "观测数据输入:第" & Trim(Str(imark)) & "站" imark = imark + 1 frminput.Caption = "观测数据输入:第" & Trim(Str(imark)) & "站" End Sub Private Sub cmdcheckcalc_Click() Dim totaldeth!, closedeth!, tdist#, i% End Sub Private Sub optannex_Click() txtendpoint.Enabled = optannex.Value End Sub Private Sub optclose_Click() txtendpoint.Enabled = Not optclose.Value End Sub Private Sub optspur_Click() txtendpoint.Enabled = Not optspur.Value End Sub Dim startpoint!, ENDPOINT! Private Sub txtendpoint_LostFocus() If Not IsNumeric(txtendpoint.Text) Then MsgBox "输入的高程含有非数字字符!" txtendpoint.Text = "": txtendpoint.SetFocus Exit Sub End If If Val(txtendpoint.Text) > 5000 Or Val(txtendpoint.Text) < -100 Then MsgBox "输入的高程有误!" txtendtpoint.Text = "": txtendtpoint.SetFocus Exit Sub End If ENDPOINT = Val(txtendtpoint.Text) End Sub

数字水准仪原理

数字水准仪，不同与普通水准仪，它的精度等各项测量效果更佳

地理空间数学基础

地理空间的数学基础是GIS空间位置数据定位、量算、转换和参与空间分析的基准。

RTK定位理论及其应用研究

RTK定位理论及其应用研究，目前，RTK技术已广泛地应用于测绘行业，并随着科技的发展，硬软件的发展，它的应用领域还在不断扩展。集计算机网络管理技术、Internet技术、无线通讯技术和GPS定位技术于一身的网络技术的出现更是使的高精度GPS定位技术渗透到社会的各个方面，极大的扩展了它的应用范围。网络RTK已成为学者研究的一个热点。本文对RTK的测量原理，系统组成，误差来源及削弱方法，网络RTK技术的工作原理和系统组成进行了介绍。并对网络RTK的代表VRS和基于VRS技术的CORS系统进行了介绍。 关键字：RTK、网络RTK、虚拟参考站、连续运行卫星定位服务系统