近景摄影测量实验报告.docVIP

课间实验报告 2015年——2016年第2学期 实验课程： 近 景 摄 影 测 量 实验班级： 学生姓名： 学 号： 指导教师： 重庆交通大学测量与空间数据处理实验室 目 录 实验一 近景单张像片空间后方交会 3 实验二 近景立体像对空间前方交会 8 实验三 直接线性变换求L系数精确解 14 实验四 直接线性变换求空间坐标精确值 18 实验实验目的实验内容 2、程序代码 定义内方位元素变量 Dim x0, yo, f As Double 定义外方位元素变量 Dim Xs, Ys, Zs As Double Dim Q, w, k As Double 定义旋转变量元素 Dim a1, a2, a3 As Double Dim b1, b2, b3 As Double Dim c1, c2, c3 As Double 定义A矩阵 Dim a11, a12, a13, a14, a15, a16 As Double Dim a21, a22, a23, a24, a25, a26 As Double 定义像片共线方程变量 Dim X8 As Double, Y8 As Double