总的摄影测量学实验报告

《总的摄影测量学实验报告》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、《摄影测量学》实验报告学期12-13学年第1学期专业地理信息系统班级1011学号1020209125姓名马明炎任课教师江标初苏州科技学院环境科学与工程学院空间信息与测绘工程系实验一摄影坐标系变换实验地点：C1—201日期：2012年9月19日一、目的通过影像外方位角元素q、w、k成功的完成像空间坐标与像辅助坐标之间的变换，熟悉并掌握两者之间的变换公式。完成这两种坐标系的相互转换。二、要求1、界面设计可以参考老师上课所给的界面。2、转换过程中，一个坐标系可以按某种顺序依次地旋转三个角度即可变换为另一个同原点的坐标系。3、通过VB程序来实现两种坐标系之间的转换。三、方法与详

2、细步骤1、先在电脑里打开VB，然后打开标准.exe，在界面上用lable、text、command设置如下界面：2、如上界面所示，9像点坐标为（x,y,z），影像外方位元素中的角元素为（q,w,k）,像空间辅助坐标为（X,Y,Z），根据书上第28页的公式：a1=Cos(a)*Cos(c)-Sin(a)*Sin(b)*Sin(c)a2=-Cos(a)*Sin(c)-Sin(a)*Sin(b)*Cos(c)a3=-Sin(a)*Cos(b)b1=Cos(b)*Sin(c)b2=Cos(b)*Cos(c)b3=-Sin(b)c1=Sin(a)*Cos(c)+Cos(a)*Si

3、n(b)*Sin(c)c2=-Sin(a)*Sin(c)+Cos(a)*Sin(b)*Cos(c)c3=Cos(a)*Cos(b)（其中a=q/180*3.14，b=w/180*3.14，c=k/180*3.14，因为我们输入text中的是实数，而不是度数，所以要进行转换）然后就可以求出我们所要求的像空间辅助坐标中所必要的元素。再根据书本第27页的公式：X=a1*x+a2*y+a3*zY=b1*x+b2*y+b3*zZ=c1*x+c2*y+c3*z这样就可以求出所要求的像空间辅助坐标了。3、按照以上所给的公式，用VB编写代码，代码内容如下：PrivateSubComma

4、nd1_Click()DimaAsSingle,bAsSingle,cAsSingleDima1AsSingle,a2AsSingle,a3AsSingleDimb1AsSingle,b2AsSingle,b3AsSingleDimc1AsSingle,c2AsSingle,c3AsSinglea=Text4.Text/180*3.14b=Text5.Text/180*3.14c=Text6.Text/180*3.14a1=Cos(a)*Cos(c)-Sin(a)*Sin(b)*Sin(c)a2=-Cos(a)*Sin(c)-Sin(a)*Sin(b)*Cos(c)a3

5、=-Sin(a)*Cos(b)b1=Cos(b)*Sin(c)b2=Cos(b)*Cos(c)b3=-Sin(b)c1=Sin(a)*Cos(c)+Cos(a)*Sin(b)*Sin(c)c2=-Sin(a)*Sin(c)+Cos(a)*Sin(b)*Cos(c)c3=Cos(a)*Cos(b)Text7.Text=a1*Text1.Text+a2*Text2.Text+a3*Text3.TextText8.Text=b1*Text1.Text+b2*Text2.Text+b3*Text3.TextText9.Text=c1*Text1.Text+c2*Text2.Te

6、xt+c3*Text3.TextEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text8.Text=""Text9.Text=""Text1.SetFocusEndSubPrivateSubCommand3_Click()EndEndSub4、运行程序代码，得出正确结果。一、实验成果实验二单幅影像空间后方交会实验地点C1—201日期9月26日一、目的掌握单幅影像的空间后方交

7、会方法二、要求用VB进行编程，利用像片上三个以上控制点的像点坐标及相应的物方坐标，反算像片外方位元素，实现单幅影像的空间后方交会。三、方法与详细步骤1、将界面设计好后，并在相应的text内输入原始数据。如下图所示：2、计算和确定初值3、组成旋转矩阵R4、计算（x）、（y）和Lx，Ly5、逐点组成误差方程式并法化6、解法方程，求未知数改正数7、计算改正后的外方位元素8、检查未知数改正数是否小于限差9、输出最终结果四、实验成果1、VB原始程序OptionExplicitOptionBase1PrivateSubCommand1_Click()