原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
摄影测量实验报告
目录
实验一 数字内定向编程实验 2
实验二 空间后方交会编程实验 5
实验三 空间前方交会编程实验 12
实验四 同名点量测及地面点的CAD成图实验 19
六、实验成果 20
实验一 数字内定向编程实验
一、目的要求：
掌握数字内定向的原理，利用计算机编程语言实现数字内定向的过程，完成一立体像对两幅像片影像的数字内定向。
二、仪器用具：
计算机，编程软件（VB）
三、实验数据：
立体像对两像片（1504、1505）上四个框标点的理论位置以及四个框标点的像素坐标，具体如表3-1。
1504 1505 i j i j x y x y 1 417.229 190.964 412.029 198.964 -110.000 109.999 -110.000 109.999 2 8277.836 335.614 8271.936 367.414 109.999 110.006 109.999 110.006 3 8130.907 8195.164 8101.307 8226.264 109.987 -109.997 109.987 -109.997 4 269.864 8050.136 241.064 8058.036 -109.999 -109.999 -109.999 -109.999 表3-1
四、实验内容：
4.1 内定向参数求取
方法：利用航摄像片上的四个框标点的理论位置以及四个框标点的像素坐标为依据。
根据条件：框标点的像素坐标通过公式转换后应等于其理论坐标。
利用式（3-1）列出方程，通过最小二乘法计算内定向参数: h0、 h1、 h2、 k0、k1、 k2。
计算公式：
x=h0 + h1*i + h2*j
y=k0 + k1*i + k2*j （3-1）
求解过程：
列误差方程 法化 求参数
4.2 将像点扫描坐标转化为框标坐标
通过公式：
x=h0 + h1*i + h2*j
y=k0 + k1*i + k2*j
将测量的同名点的扫描坐标转换位像框标坐标系中坐标。
五、实验程序：
Private Sub read_Click() 读入数据
Dim i%, j%, k%
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
For i = 1 To 4
Line Input #1, s
s = Split(s, )
For j = 1 To 2
A(i, j + 1) = s(j - 1)
Next j
Line Input #1, s
s = Split(s, )
Lx(i, 1) = s(0)
Ly(i, 1) = s(1)
Next i
For i = 1 To 4
A(i, 1) = 1
Next i
End Sub
内定向求解
Private Sub jisuan_Click()
Dim i%, j%, k%
For i = 1 To 3
For j = 1 To 4
at(i, j) = A(j, i)
Next j
Next i
矩阵求解
JZC at(), A(), 3, 4, 3, B()
Rect B(), 3, BdN()
JZC BdN(), at(), 3, 3, 4, bb()
JZC bb(), Lx(), 3, 4, 1, HH()
JZC bb(), Ly(), 3, 4, 1, KK()
For i = 1 To 3
Text1 = Text1 Format(HH(i, 1), 0.000000) vbCrLf
Next i
Text1 = Text1 vbCrLf
For i = 1 To 3
Text1 = Text1 Format(KK(i, 1), 0.000000) vbCrLf
Next i
Close #1
End Sub
坐标转换
Private Sub Command1_Click()
xx = Val(Text2)
yy = Val(Text3)
Text4 = HH(1, 1
文档评论（0）