摄影测量——后方交会(matlab)

摄影测量——后方交会(matlab)

ID:47493339

大小:79.00 KB

页数:4页

时间:2020-01-12

摄影测量——后方交会(matlab)_第1页
摄影测量——后方交会(matlab)_第2页
摄影测量——后方交会(matlab)_第3页
摄影测量——后方交会(matlab)_第4页
资源描述:

《摄影测量——后方交会(matlab)》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库

1、3.用matlab编程结果function[XS,YS,ZS,p,w,k]=hfjhx_o=[-0.08615;-0.06899;-0.05340;0.08211;-0.01478;-0.07663;0.01064;0.06443];X=[36589.641,25273.32,2195.17;37631.08,31324.51,728.69;39100.97,24934.98,2386.50;40426.54,30319.81,757.31];f=0.15324;m=40000;XS=38437;YS=27963.155;ZS=f*m+1516.9175;p=

2、0;w=0;k=0;R=zeros(3,3);num=1;dx=zeros(6,1);whilenum==1

3、

4、abs(dx(4,1)*206225)>6

5、

6、abs(dx(5,1)*206225)>6

7、

8、abs(dx(6,1)*206265)>6;R(1,1)=cos(p)*cos(k)-sin(p)*sin(w)*sin(k);R(1,2)=-cos(p)*cos(k)-sin(p)*sin(w)*sin(k);R(1,3)=-sin(p)*cos(w);R(2,1)=cos(w)*sin(k);R(2,2)=cos(w)*cos(k);R(2,3)=-si

9、n(w);R(3,1)=sin(p)*cos(k)+cos(p)*sin(w)*sin(k);R(3,2)=-sin(p)*sin(k)+cos(p)*sin(w)*cos(k);R(3,3)=cos(p)*cos(w);x_s=zeros(8,1);x_s(1,1)=-f*(R(1,1)*(X(1,1)-XS)+R(2,1)*(X(1,2)-YS)+R(3,1)*(X(1,3)-ZS))/(R(1,3)*(X(1,1)-XS)+R(2,3)*(X(1,2)-YS)+R(3,3)*(X(1,3)-ZS));x_s(2,1)=-f*(R(1,2)*(X(1,1)

10、-XS)+R(2,2)*(X(1,2)-YS)+R(3,2)*(X(1,3)-ZS))/(R(1,3)*(X(1,1)-XS)+R(2,3)*(X(1,2)-YS)+R(3,3)*(X(1,3)-ZS));x_s(3,1)=-f*(R(1,1)*(X(2,1)-XS)+R(2,1)*(X(2,2)-YS)+R(3,1)*(X(2,3)-ZS))/(R(1,3)*(X(2,1)-XS)+R(2,3)*(X(2,2)-YS)+R(3,3)*(X(2,3)-ZS));x_s(4,1)=-f*(R(1,2)*(X(2,1)-XS)+R(2,2)*(X(2,2)-YS)

11、+R(3,2)*(X(1,3)-ZS))/(R(1,3)*(X(2,1)-XS)+R(2,3)*(X(2,2)-YS)+R(3,3)*(X(2,3)-ZS));x_s(5,1)=-f*(R(1,1)*(X(3,1)-XS)+R(2,1)*(X(3,2)-YS)+R(3,1)*(X(1,3)-ZS))/(R(1,3)*(X(3,1)-XS)+R(2,3)*(X(3,2)-YS)+R(3,3)*(X(3,3)-ZS));x_s(6,1)=-f*(R(1,2)*(X(3,1)-XS)+R(2,2)*(X(3,2)-YS)+R(3,2)*(X(1,3)-ZS))/(R

12、(1,3)*(X(3,1)-XS)+R(2,3)*(X(3,2)-YS)+R(3,3)*(X(3,3)-ZS));x_s(7,1)=-f*(R(1,1)*(X(4,1)-XS)+R(2,1)*(X(4,2)-YS)+R(3,1)*(X(1,3)-ZS))/(R(1,3)*(X(4,1)-XS)+R(2,3)*(X(4,2)-YS)+R(3,3)*(X(4,3)-ZS));x_s(8,1)=-f*(R(1,2)*(X(4,1)-XS)+R(2,2)*(X(4,2)-YS)+R(3,2)*(X(1,3)-ZS))/(R(1,3)*(X(4,1)-XS)+R(2,3

13、)*(X(4,2)-YS)+R(3,3)*(X(4,3)-ZS));a=zeros(8,6);fori=1:4Z=(R(1,3)*(X(i,1)-XS)+R(2,3)*(X(i,2)-YS)+R(3,3)*(X(i,3)-ZS));a(i*2-1,1)=1/Z*(R(1,1)*f+R(1,3)*x_s(2*i-1,1));a(i*2-1,2)=1/Z*(R(2,1)*f+R(2,3)*x_s(2*i-1,1));a(i*2-1,3)=1/Z*(R(3,1)*f+R(3,3)*x_s(2*i-1,1));a(2*i,1)=1/Z*(R(1,2)*f+R(1,3)

14、*x_s(2*i,1));a(2*i,

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。