GPS单点定位实验报告.doc

下载文档 降价啦

437
0
约5.02千字
约 9页
2017-05-07 发布于重庆
举报
版权申诉
保障服务

GPS单点定位实验报告.doc

1、本文档共9页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

GPS单点定位实验报告

GPS原理与应用实验题目： GPS单点定位专业：测绘工程班级： 12-01 学号： 2012212600 姓名：王威指导教师：陶庭叶时间：2014.11 目录实验目的......................................................3 实验原理………..........................................3 实验内容……..............................................3 实验效果图..................................................9 实验总结......................................................9 一．实验目的 1.深入了解的计算过程； 2.加强基本公式和误差方程式，法线方程式的记忆； 3.通过上机调试程序加强动手能力的培养。二．实验原理 2、实验数据 3、实验程序代码 Private Sub Command1_Click() CommonDialog1.Filter = TXT files|*.txt| CommonDialog1.FilterIndex = 1 CommonDialog1.ShowOpen Open Me.CommonDialog1.FileName For Input As #1 Do While Not EOF(1) Line Input #1, Text textbuff = textbuff + Text + vbCrLf Loop Close #1 kk = MSFlexGrid1.Rows - 1 Dim a ReDim a(kk - 1) a = Split(textbuff, vbCrLf) For j = 1 To kk For i = 1 To 5 MSFlexGrid1.TextMatrix(j, i) = a(j - 1 + 5 * (i - 1)) Next i Next j For k = 1 To kk MSFlexGrid1.TextMatrix(k, 0) = 第 k 个点 Next k MSFlexGrid1.TextMatrix(0, 1) = X MSFlexGrid1.TextMatrix(0, 2) = Y MSFlexGrid1.TextMatrix(0, 3) = Z MSFlexGrid1.TextMatrix(0, 4) = 伪距 MSFlexGrid1.TextMatrix(0, 5) = 钟差 End Sub Private Sub Command2_Click() kk = MSFlexGrid1.Rows - 1 X0 = 0: Y0 = 0: Z0 = 0 c = 299792458 Dim a() ReDim a(kk - 1, 3) Dim ll() ReDim ll(kk - 1, 0) For ii = 1 To 100 For i = 1 To kk l = (MSFlexGrid1.TextMatrix(i, 1) - X0) / Sqr((MSFlexGrid1.TextMatrix(i, 1) - X0) ^ 2 + (MSFlexGrid1.TextMatrix(i, 2) - Y0) ^ 2 + (MSFlexGrid1.TextMatrix(i, 3) - Z0) ^ 2) m = (MSFlexGrid1.TextMatrix(i, 2) - Y0) / Sqr((MSFlexGrid1.TextMatrix(i, 1) - X0) ^ 2 + (MSFlexGrid1.TextMatrix(i, 2) - Y0) ^ 2 + (MSFlexGrid1.TextMatrix(i, 3) - Z0) ^ 2) n = (MSFlexGrid1.TextMatrix(i, 3) - Z0) / Sqr((MSFlexGrid1.TextMatrix(i, 1) - X0) ^ 2 + (MSFlexGrid1.TextMatrix(i, 2) - Y0) ^ 2 + (MSFlexGrid1.TextMatrix(i, 3) - Z0) ^ 2) a(i - 1, 0) = l