摄影测量学单像空间后方交会编程实习报告.doc
摄影测量学单像空间后方交会编程实习报告班 级: 130x 姓 名: xx 学 号: 2013302590xxx 指导老师: 李 欣 一、 实习目得通过对提供得数据进行计算,输出像片得外方位元素并评定精度。深入理解单像空间后方交会得思想,体会在有多余观测情况下,用最小二乘平差方法编程实现解求影像外方位元素得过程。通过尝试编程实现加强编程处理问题得能力与对实习内容得理解,通过对实验结果得分析,增强综合运用所学知识解决实际问题得能力。了解摄影测量平差得基本过程,掌握空间后方交会得定义与实现算法。二、 实习内容根据学习得单像空间后方交会得知识,用程序设计语言(C+或C语言)编写一个完整得单像空间后方交会程序,通过对提供得数据进行计算,输出像片得外方位元素并评定精度。三、 实习数据已知航摄仪得内方位元素:fk=153、24mm,x0=y0=0,摄影比例尺为1:15000;4个地面控制点得地面坐标及其对应像点得像片坐标: 像片坐标地面点坐标x(mm)y(mm)X(m)Y(m)Z(m)1-86、15-68、9936589、4125273、322195、172-53、4082、2137631、0831324、51728、693-14、78-76、6339100、9724934、982386、50410、4664、4340426、5430319、81757、31四、 实习原理如果我们知道每幅影像得6个外方位元素,就能确定被摄物体与航摄影像得关系。因此,如何获取影像得外方位元素,一直就是摄影测量工作者所探讨得问题。可采取得方法有:利用雷达、全球定位系统(GPS)、惯性导航系统(INS)以及星相摄影机来获取影像得外方位元素;也可以利用影像覆盖范围内一定数量得控制点得空间坐标与摄影坐标,根据共线条件方程,反求该影像得外方位元素,这种方法称为单幅影像得空间后方交会。 单像空间后方交会得基本思想就是:以单幅影像为基础,从该影像所覆盖地面范围内若干控制点得已知地面坐标与相应点得像坐标量测值出发,根据共线条件方程,解求该影像在航空摄影时刻得外方位元素Xs,Ys,Zs,。五、 实习流程1. 获取已知数据。从摄影资料中查取影像比例尺1/m,平均摄影距离(航空摄影得航高、内方位元素x0,y0,;获取控制点得空间坐标Xt,Yt,Zt。 2. 量测控制点得像点坐标并进行必要得影像坐标系统误差改正,得到像点坐标。3. 确定未知数得初始值。单像空间后方交会必须给出待定参数得初始值,在竖直航空摄影且地面控制点大体对称分布得情况下,可按如下方法确定初始值:式中:m为摄影比例尺分母,n为控制点个数; 4. 计算旋转矩阵R。利用角元素得近似值按公式计算方向余弦值a1,a2,a3,b1,b2,b3,c1,c2,c3,组成R阵。 5. 逐点计算像点坐标得近似值。利用未知数得近似值按共线条件方程计算控制点像点坐标得近似值(x),(y)。 6. 逐点计算误差方程式得系数与常数项,组成误差方程。7. 计算法方程得系数矩阵ATA与常数项ATL,组成法方程。 8. 解求外方位元素。根据法方程,解求外方位元素得改正数,并与相应得近似值求与,得到外方位元素新得近似值。9. 检查计算就是否收敛。将所求得得外方位元素得改正数与规定得限差比较,通常对,得改正数给予限差,当改正数小于限差时,迭代结束。否则用新得近似值重复(4)(8)步骤计算,直到满足要求为止。 10. 空间后方交会得精度估计: 按上述方法所求得得影像外方位元素得精度可以通过法方程式中未知数得系数矩阵得逆阵(ATA)-1来解求,此时视像点坐标为等精度不相关观测值。因为(ATA)-1中第i个主对角线上得元素Qii就就是法方程式中第i个未知数得权倒数,若单位权中误差为m0,则第i个未知数得中误差为:当参加空间后方交会得控制点有n个时,则单位权中误差可按下式计算:流程图如下:六、 程序代码#include <stdio、h>#include "Matrix、h" /矩阵运算头文件,来自网络,已上传void main()double Xs,Ys,Zs,q,w,k;/外方位元素double x0,y0,f;/内方位元素double x4,y4;/影像坐标double X04,Y04,Z04; /地面坐标double m;/比例尺double a1,a2,a3,b1,b2,b3,c1,c2,c3; /旋转矩阵int n=0;/迭代次数/地面坐标X00=36589、41;X01=37631、08;X02=39100、97;X03=40426、54;Y00=25273、32;Y01=31324、51;Y02=24934、98;Y03=30319、81;Z00=2195、17;Z01=728、69;Z02=2386、50;Z03=757、31;/影像坐标x0=-0、08615;x1=-0、05340;x2=-0、01478;x3=0、01046;y0=-0、06899;y1=0、08221;y2=-0、07663;y3=0、06443;/确定内外方位元素初始值x0=0;y0=0;f=153、24/1000;m=15000;Xs=0;Ys=0;q=0;w=0;k=0;for (int i=0;i<4;i+)Xs += X0i;Ys += Y0i;Xs /= 4;Ys /= 4;Zs=f*m;Matrix A(8, 6);Matrix L(8, 1);Matrix AT(6, 8);Matrix ATA(6, 6);Matrix ATA_(6, 6);Matrix Xx(6, 1);/迭代计算do/旋转矩阵Ra1 = cos(q)*cos(k) - sin(q)*sin(w)*sin(k);a2 = -cos(q)*sin(k) - sin(q)*sin(w)*cos(k);a3 = -sin(q)*cos(w);b1 = cos(w)*sin(k);b2 = cos(w)*cos(k);b3 = -sin(w);c1 = sin(q)*cos(k) + cos(q)*sin(w)*sin(k);c2 = -sin(q)*sin(k) + cos(q)*sin(w)*cos(k);c3 = cos(q)*cos(w); /计算像点坐标for (int i = 0; i < 4; i+)double X = a1 * ( X0i - Xs) + b1 * (Y0i - Ys) + c1 * (Z0i - Zs);double Y = a2 * ( X0i - Xs) + b2 * (Y0i - Ys) + c2 * (Z0i - Zs);double Z = a3 * ( X0i - Xs) + b3 * (Y0i - Ys) + c3 * (Z0i - Zs);double xx = xi-x0;double yy = yi-y0;A2 * i0 = (a1*f + a3*xx) / Z;A2 * i1 = (b1*f + b3*xx) / Z;A2 * i2 = (c1*f + c3*xx) / Z;A2 * i3 = yy*sin(w) - (xx*(xx*cos(k) - yy*sin(k) / f + f*cos(k)*cos(w);A2 * i4 = -f*sin(k) - xx*(xx*sin(k) + yy*cos(k) / f;A2 * i5 = yy;A2 * i + 10 = (a2*f + a3*yy) / Z;A2 * i + 11 = (b2*f + b3*yy) / Z;A2 * i + 12 = (c2*f + c3*yy) / Z;A2 * i + 13 = -xx*sin(w) - (yy*(xx*cos(k) - yy*sin(k) / f - f*sin(k)*cos(w);A2 * i + 14 = -f*cos(k) - yy*(xx*sin(k) + yy*cos(k) / f;A2 * i + 15 = -xx;L2 * i0 = xi - (-f*X / Z);L2 * i + 10 =yi - (-f*Y / Z);/法方程得解X=(ATA)_ATLAT = A、Transpose(); /转置ATA = AT * A;ATA_ = ATA、Inverse(); /求逆Xx = (ATA_ * AT) * L; /法方程解Xs += Xx00;Ys += Xx10;Zs += Xx20;q += Xx30;w += Xx40;k += Xx50;n+;/printf("%dn",n);/printf("%lf %lf %lf %、5lf %、5lf %、5lfn", Xs, Ys, Zs, q, w, k);while (abs(Xx30) > 0、000001 | abs(Xx40) > 0、000001 | abs(Xx50) > 0、000001) && n<100);/求中误差double m0,mi6; /单位权中误差得绝对值m0以及第i个未知数得中误差mim0 = sqrt(A*Xx - L)、Transpose()*(A*Xx - L)、ToDouble() / (2 * 4 - 6);Matrix Q(6,6);Q = (A、Transpose()*A)、Inverse();for (int i = 0; i < 6; i+)mii = (sqrt(Qii)*m0;/printf("%lfn",m0);/输出printf("迭代次数:%dn",n);printf("旋转矩阵R:n");printf("%、5lf %、5lf %、5lfn",a1,a2,a3);printf("%、5lf %、5lf %、5lfn",b1,b2,b3);printf("%、5lf %、5lf %、5lfn",c1,c2,c3);printf("n外方位元素解:nWs=%、2lf Ys=%、2lf Zs=%、2lfnq=%、5lf w=%、5lf k=%、5lfnn", Xs, Ys, Zs, q, w, k);printf("单位权中误差得绝对值:%lfmn",m0);printf("Xs得精度:%lfmn",mi0);printf("Ys得精度:%lfmn",mi1);printf("Zs得精度:%lfmn",mi2);printf("q得精度:%lfn",mi3);printf("w得精度:%lfn",mi4);printf("k得精度:%lfn",mi5);/保存到文件,结果文件默认保存在程序目录FILE* fp;fp=fopen("result、txt","w");/fprintf(fp,"迭代次数:%dn",n);fprintf(fp,"旋转矩阵R:n");fprintf(fp,"%、5lf %、5lf %、5lfn",a1,a2,a3);fprintf(fp,"%、5lf %、5lf %、5lfn",b1,b2,b3);fprintf(fp,"%、5lf %、5lf %、5lfn",c1,c2,c3);fprintf(fp,"n外方位元素解:nWs=%、2lf Ys=%、2lf Zs=%、2lfnq=%、5lf w=%、5lf k=%、5lfnn", Xs, Ys, Zs, q, w, k);fprintf(fp,"单位权中误差得绝对值:%lfmn",m0);fprintf(fp,"Xs得精度:%lfmn",mi0);fprintf(fp,"Ys得精度:%lfmn",mi1);fprintf(fp,"Zs得精度:%lfmn",mi2);fprintf(fp,"q得精度:%lfn",mi3);fprintf(fp,"w得精度:%lfn",mi4);fprintf(fp,"k得精度:%lfn",mi5);七、 运算结果1. 运行结果2. 文件保存结果八、 实习心得
