前方交会实验报告(含VB程序代码).docx

立体像对前方交会实验报告
实验目的
在掌握前方交会原理的基础上,自己编写前方交会程序,在计算机上调试,输出计算结果并对计算结果进行检验。通过上机调试程序加强动手能力的培养,通过对实验过程的掌握以及对实验结果的分析,增强学生综合运用所学知识解决实际问题的能力。
实验仪器
计算机,
实验数据
模拟像片一对:左片号23,右片号24;
航摄机主距:f=150mm;
左片23号片外方位元素:
φ=-0°25'00″ω=-1°00'00″ k=-0°10'00″
Xs= Ys= Zs= (m)
右片24号片外方为元素:
φ=1°39'59″ω=-0°10'00″ k=0°40'00″
Xs= Ys= Zs= (m)
待求像点坐标如下表:
23号片
24号片
点号
X(mm)
Y(mm)
X(mm)
Y(mm)
5


-

8


-

4

-
-
-
6


-

7

-
-
-
9


-

实验内容
利用所给立体像对两张像片的内、外方位元素,编写空间前方交会程序,根据所给像对中若干同名像点在左右像片上的坐标,解求其对应的地面点的物方坐标,实现空间前方交会的过程。
实验成果
程序流程图:
开始
分别写入两张相片的外方位元素
写入两张像片同名像点坐标
求解转矩阵
计算像点像空间辅助坐标
计算投影系数
计算地面点地面摄影测量坐标
求地面点坐标(X,Y,Z)
结束
程序设计界面:
程序运行界面:
运行结果:
(注:表上显示地面点坐标依次是:7,9,4,6,5,8)
附:excel进行角度转换:
程序如下:
Dim f#, x1#, y1#, x2#, y2#, i%, j%, u1#, u2#, v1#, v2#, w1#, w2#, fai1#, kab1#, omg1#, fai2#, kab2#, omg2#
Dim a12#, a13#, b11#, b12#, b13#, c11#, c12#, c13#, a21#, a22#, a23#, b21#, b22#, b23#, c21#, c22#, c23#
Dim n1#, n2#, bu#, bv#, bw#
Dim xs1#, xs2#, ys1#, ys2#, zs1#, zs2#
Private mand1_Click()
fai1 = Val(): kab1 = Val(): omg1 = Val()
fai2 = Val(): kab2 = Val(): omg2 = Val()
f =