《摄影测量学》实验报告解析.docVIP

  1. 1、本文档共20页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
《摄影测量学》课堂实验报告 课程名称: 摄影测量学 实验地点: 虎峪校区 专业班级: 地信1201 姓 名: 学 号: 201200 指导老师: 张素梅 2015 年 06 月 11 日 实验一:立体观察 1. 实验目的 2. 实验原理及条件 当立体像对满足下列条件时,就会建立起人造立体效应;①眼基线平行于摄影基线;②左、右眼分别观察左、右像片,并“凝视”同名点;③两张像片比例尺基本一致,互差15%。除借助于立体观察仪器,如桥式立体镜、反光立体镜、偏振光立体镜、变焦距双筒立体镜等外,还可用互补色法(如用双投影器法或互补色像片等)来实现。最简单的是双眼直接观察,但由于人眼基距有限,观察视场小,且成像的视觉模型不稳定,眼睛易疲劳。 . 实验内容 4. 应用立体镜进行航片立体观察的主要步骤 1) 取一对航片像对,分别找出像主点; 2) 将像片按左右放置,使影像的重叠部分向内,使像对像主点连线置于平行于眼基线的直线上。移动立体镜,使立体镜的基线平行于像主点连线; 3) 在立体镜下移动像片间的距离,使相应视线的交角与双眼的交会角相适应,保证左眼看左像,右眼看右像,直到观测到相应的像点融合为一体而获得立体感觉,且观察时没有不适的感觉。 5. 实验体会 立体观察也可看作是一种影像三维增强的过程。航空像片、侧视雷达影像、SPOT卫星影像以及高纬度地区陆地卫星MSS影像,均可用来进行立体观察,以获得地物三维影像,提高判读效果单片空间后方交会程序设计 1目的 用程序设计语言(C或者VB)编写一个完整的单片空间后方交会程序,通过对提供的试验数据进行计算,输出像片的外方位元素。本实验的目的在于让学生深入理解单片空间后方交会的原理,体会在有多余观测情况下,用最小二乘平差方法编程实现解求影像外方位元素的过程。通过上机调试程序加强动手能力的培养,通过对实验结果的分析,增强学生综合运用所学知识解决实际问题的能力。 2. 内容 利用一定数量的地面控制点,根据共线条件方程求解像片外方位元素。 在共线方程线性化的基础之上,设计了航空影像单像空间后方交会算法的计算流程。式即为共线方程的线性化形式。由于采用了泰勒公式将非线性的共线方程化成了线性的共线方程形式,因此在程序设计的时候,需要采用迭代运算的方式使运算精度达到工程应用的要求。 设置外方位元素的初始值在航空影像近似水平的情况下,可以设置外方位元素的初始值。 4. 数据准备 已知航摄仪的内方位元素:fk=153.24mm,x0=y0=0.0mm,摄影比例尺为1:50000; 4个地面控制点的地面坐标及其对应像点的像片坐标: 点号 像片坐标(mm) 地面点坐标(m) x y X Y Z 1 -86.15 -68.99 36589.41 25273.32 2195.17 2 -53.40 82.21 37631.08 31324.51 728.69 3 -14.78 -76.63 39100.97 24934.98 2386.50 4 10.46 64.43 40426.54 30319.81 757.31 程序流程图: 源程序: Option Explicit Dim H As Single, f As Single, m As Single Dim xx(3) As Single, yx(3) As Single 定义像平面坐标 Dim xd(3) As Single, yd(3) As Single, zd(3) As Single 定义地面坐标 Dim a1 As Single, b1 As Single, c1(3) As Single, d1(3) As Single, e1(3) As Single, f1(3) As Single Dim a2 As Single, b2 As Single, c2(3) As Single, d2(3) As Single, e2(3) As Single, f2(3) As Single 定义计算像点近似值时用到的参数 Dim a(7, 5) As Single, j As Variant, ii As Integer Dim l(7) As Single, s As Single Dim ATA(7, 5) As S

您可能关注的文档

文档评论(0)

三沙市的姑娘 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档