攝影測量——后方交會(matlab)_第1頁
攝影測量——后方交會(matlab)_第2頁
攝影測量——后方交會(matlab)_第3頁
攝影測量——后方交會(matlab)_第4頁
全文預(yù)覽已結(jié)束

下載本文檔

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報或認(rèn)領(lǐng)

文檔簡介

1、3.用matlab編程結(jié)果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=0;w=0;k=0;R=zeros(3,3

2、);num=1;dx=zeros(6,1);while num=1|abs(dx(4,1)*206225)6|abs(dx(5,1)*206225)6|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)=-sin(w);R(3,1)=sin(p)*cos(k)+cos(p)*sin(w)*sin(

3、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)-XS)+R(2,2)*(X(1,2)-YS)+R(3,2)*(X(1,3)-ZS)/(R(1,3)*(X(1,1)-XS)+

4、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)+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,

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(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)

6、+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)*(X(4,2)-YS)+R(3,3)*(X(4,3)-ZS);a=zeros(8,6);for i=1:4 Z=(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)

7、=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)*x_s(2*i,1); a(2*i,2)=1/Z*(R(2,2)*f+R(2,3)*x_s(2*i,1); a(2*i,3)=1/Z*(R(3,2)*f+R(3,3)*x_s(2*i,1); a(i*2-1,4)=x_s(2*i,1).*sin(w)-(x_s(2*i-1,1)./f

8、.*(x_s(2*i-1,1).*cos(k)-x_s(2*i,1).*sin(k)+f*cos(k)*cos(w); a(i*2-1,5)=-f*sin(k)-x_s(2*i-1,1)./f.*(x_s(2*i-1,1).*sin(k)+x_s(2*i,1).*cos(k);a(i*2-1,6)=x_s(2*i,1); a(2*i,4)=-x_s(2*i-1,1).*sin(w)-(x_s(2*i,1)./f.*(x_s(2*i-1,1).*cos(k)-x_s(2*i,1).*sin(k)-f*sin(k)*cos(w); a(2*i,5)=-f*sin(k)-x_s(2*i,1)./f.

9、*(x_s(2*i-1,1).*sin(k)+x_s(2*i,1).*cos(k);a(2*i,6)=-x_s(i*2-1,1);endL=x_o-x_s;dx=(a*a)a)*L;num2str(a);disp(改正數(shù));num2str(dx);size(dx);XS=XS+dx(1,1);YS=YS+dx(2,1);ZS=ZS+dx(3,1);p=p+dx(4,1);w=w+dx(5,1);k=k+dx(6,1);num=num+1;num2str(XS)num2str(YS)num2str(ZS)num2str(p)num2str(w)num2str(k)End程序中p=(弧度),w=(弧度) k=(弧度)XS(M)YS(M)ZS(M)(弧度)(弧度)(弧度)39795.45225827476.4623587572.685988-0.0039870.0021140.067678解析法相對定向是通過計算相對定向元素建立地面立

溫馨提示

  • 1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

最新文檔

評論

0/150

提交評論