资源描述：
《gps单点定位实验报告》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。
1、GPS原理与应用实验题目：GPS单点定位专业:班级:学号:姓名:指导教师:测绘工程12-012012212600王烕时间：2014.11目录一、实验目的3二、实验原理3三、实验内容3四、实验效果图9五、实验总结9一.实验目的1.深入了解单点定位的计算过程；2.加强单点定位基本公式和误差方程式，法线方程式的记忆；3.通过上机调试程序加强动手能力的培养。二.实验原理一个接收机接受三个火三个以上卫星信号，得出卫星坐标和伪距，利用间接平差计算接收机的坐标。三.实验内容1.程序流程图输入原始数据列出伪距观测方程伪距方程线性化得出各个坐称的1，m，间
2、接平差得出新的接收机坐祕X，Y，Z循环多次精度评定打印输出2、实验数据某个历元卫星坐标（单位：ID）PRNXJJJJJ36631123GGGGG-6529183.5618-12412058.2578-3373128.604810124962.7820-17262027.6771Y23536896.676522624932.209322004627.781011227597.80539118996.1091Z-10392867.6529-5728436.949814303822.405021807939.584718295569.10902
3、3298409.60022041347.58020498932.30023344899.96021424389.460钟差(s)0.000599810.00051935-0.00010260.00035684-1.4372e-53、实验程序代码PrivateSubCommand1_Click()CommonDialogl.Filter="TXTfiles
4、*.txt
5、MCommonDialogl.Filterlndex=1CommonDialogl.ShowOpenOpenMe.CommonDialogl.FileNameForInput
6、As#1DoWhileNotEOF(l)LineInput#1,Texttextbuff=textbuff+Text+vbCrLfLoopClose#1kk=MSFlexGridl.Rows-1DimaReDima(kk-1)a=Split(textbuff，vbCrLf)Forj=1TokkFori=1To5MSFlexGridl.TextMatrix(j,i)=a(j-1+5*(i-1))NextiNextjFork=1TokkMSFlexGridl.TextMatrix(k,0)="第"&k&•’个点”NextkMSFlexGrid
7、l.TextMatrix(0,1)="X”MSFlexGridl.TextMatrix(0,2)=TMSFlexGridl.TextMatrix(O,3)=nZ!,MSFlexGridl.TextMatrix(O,4)="伪距"MSFlexGridl.TextMatrix(0,5)=”钟差”EndSubPrivateSubCommand2_Click()kk=MSFlexGridl.Rows-1XO=0:YO=0:ZO=0c=299792458Dima()ReDima(kk-1,3)Dim11()ReDimll(kk-1,0)Forii=
8、1To100Fori=1Tokk1=(MSFlexGridl.TextMatrix(i，1)-X0)/Sqr((MSFlexGridl.TextMatrix(i，1)-X0)八2+(MSFlexGridl.TextMatrix(i，2)-Y0)八2+(MSFlexGridl.TextMatrix(i,3)-Z0)A2)m=(MSFlexGridl.TextMatrix(i,2)-YO)/Sqr((MSFlexGridl.TextMatrix(i,1)-XO)八2+(MSFlexGridl.TextMatrix(i,2)-YO)八2+(MS
9、FlexGridl.TextMatrix(i,3)-ZO)A2)n=(MSFlexGridl.TextMatrix(i,3)-ZO)/Sqr((MSFlexGridl.TextMatrix(i,1)-XO)八2+(MSFlexGridl.TextMatrix(i,2)-YO)八2+(MSFlexGridl.TextMatrix(i,3)-ZO)A2)a(i-1,0)=1a(i_1，1)=ma(i-1，2)=na(i-1，3)=-1lk=MSFlexGridl.TextMatrix(i,4)-Sqr((MSFlexGridl.TextMat
10、rix(i,1)-XO)八2+(MSFlexGridl.TextMatrix(i,2)-YO)八2+(MSFlexGridl.TextMatrix(i,3)-ZO)八2)+c*MSFlexGr
