数字摄影测量技术.docVIP

《数字摄影测量技术》 课堂实验报告 学 期:2009-2010学年第二学期 专 业:地理信息系统与地图制图技术 班 级:地信0804班 学 号:0800001919 姓 名 :李汝骏 任课教师:陈国平 昆明冶金高等专科学校 测绘学院GIS 教研室 实验报告1 摄影测量坐标变换 实验地点 计算机机房 日期2010-04-06 一.目的 1-1实现摄影测量常用坐标系之间的变换 二要求 2-1用VB进行编程，主要实现像空间坐标系与像辅助坐标系之间的变换 三.方法 3-1.摄影测量解析的任务就是根据象片上象点的位置确定对应地面点的空间位置,为此必然涉及到选择适当的坐标系统来描述象点和地面点,并通过一系列的坐标转化,建立二者之间的数学关系,从而由像点观测植求出对应物点的测量坐标.射影测量中常用的坐标系分为两大类:一类是用于描述像点位置的像方空间坐标系;另一类是用于描述地面点位置的物方空间坐标系. 3-1-1像方空间坐标系包括：像平面坐标系、像空间坐标系、像空间辅助坐标系。 3-1-2．物方空间坐标系包括：摄影测量坐标系、地面测量坐标系、地面摄影测量坐标系。 四．相关成果 Const pi As Double = 3.1415926 Private Sub Command1_Click() Dim X As Double, x1 As Double Dim Y As Double, y1 As Double Dim z As Double, z1 As Double Dim q As Double, w As Double, k As Double Dim a1 As Double, a2 As Double, a3 As Double Dim b1 As Double, b2 As Double, b3 As Double Dim c1 As Double, c2 As Double, c3 As Double X = Val(txtx.Text): Y = Val(txty.Text): z = Val(txtz.Text) q = deg(Val(txtq.Text)): w = deg(Val(txtw.Text)): k = deg(Val(txtk.Text)) a1 = Cos(q * pi / 180) * Cos(k * pi / 180) - Sin(q * pi / 180) * Sin(w * pi / 180) * Sin(k * pi / 180) a2 = -Cos(q * pi / 180) * Sin(k * pi / 180) - Sin(q * pi / 180) * Sin(w * pi / 180) * Cos(k * pi / 180) a3 = -Sin(q * pi / 180) * Cos(w * pi / 180) b1 = Cos(w * pi / 180) * Sin(k * pi / 180) b2 = Cos(w * pi / 180) * Cos(k * pi / 180) b3 = -Sin(w * pi / 180) c1 = Sin(q * pi / 180) * Cos(k * pi / 180) + Cos(q * pi / 180) * Sin(w * pi / 180) * Sin(k * pi / 180) c2 = -Sin(q * pi / 180) * Sin(k * pi / 180) + Cos(q * pi / 180) * Sin(w * pi / 180) * Cos(k * pi / 180) c3 = Cos(q * pi / 180) * Cos(w * pi / 180) 求矩阵 Dim R(3, 3) As Double R(1, 1) = a1: R(1, 2) = a2: R(1, 3) = a3 R(2, 1) = b1: R(2, 2) = b2: R(2, 3) = b3 R(3, 1) = c1: R(3, 2) = c2: R(3, 3) = c3 Dim x2(3, 1) As Double x2为像空间坐标矩阵 x2(1, 1) = X: x2(2, 1) = Y: x2(3, 1) = z Dim y2(3, 1) As Double y2为像空间辅助坐标矩阵 y2(1, 1) = a1 * x + a2 * y + a3 * z y2(2, 1) = b1 * x + b2 * y + b3 * z y2(3, 1) = c1 * x + c2 * y + c3 * z Dim y2(3, 1) As Double