-
大小: 2KB文件類型: .m金幣: 1下載: 0 次發(fā)布日期: 2021-06-17
- 語言: Matlab
- 標(biāo)簽: MATLAB??WGS-84??坐標(biāo)轉(zhuǎn)換??
資源簡(jiǎn)介
此腳本文件詳細(xì)提供了WGS-84坐標(biāo)系轉(zhuǎn)換到大地坐標(biāo)系的過程
代碼片段和文件信息
%將雷達(dá)坐標(biāo)轉(zhuǎn)到大地坐標(biāo)系下
%
function?[BBBLLLHHH]=zt_xyz_BLH(xi_Axi_Bxi_Cwidth)
%?clear;
%?clc;
%?
%?A=geotiffread(‘cut1.tif‘);
%?info=geotiffinfo(‘cut1.tif‘);
%?[widthlongth]=size(A);
%?[filenameObspathnameObs]=uigetfile(‘*.*par‘‘當(dāng)天的par文件‘);
%?[xi_Axi_Bxi_CT_ST_E]=zt_nihe(filenameObspathnameObs);?
%?A=geotiffread(‘cut1.tif‘);
%?info=geotiffinfo(‘cut1.tif‘);
%?[widthlongth]=size(A);
%?BLH=zt_BLH(Ainfowidthlongth);????%腳本命令
%?BBB=BLH(::1);
%?LLL=BLH(::2);
%?HHH=BLH(::3);
%?[zt_XYZN]=zt_BLH_xyz(BLHwidthlongth);???%腳本命令
%function?[zt_XYZN]=zt_xyz_BLH(BLHwidthlongth)
ee=0.00669437999013;?
a=6378137;??
%?zt_XYZ_x=zeros(widthlongth);
%?zt_XYZ_y=zeros(widthlongth);
%?zt_XYZ_z=zeros(widthlongth);
%?B=zeros(widthlongth);
%?L=zeros(widthlongth);
%?H=zeros(widthlongth);
%?for?i=1:width
%?????for?j=1:longth????????
%??%將經(jīng)度和緯度轉(zhuǎn)換為弧度
%??BB=BLH(ij1)*pi/180;
%??LL=BLH(ij2)*pi/180;
%?
%?%將直角坐標(biāo)系轉(zhuǎn)換為大地坐標(biāo)系?
%?N1=a/sqrt(1-ee*sin(BB)*sin(BB));??%橢球的卯酉圈的半徑計(jì)算
%?
%?zt_XYZ_x(ij)=(N1+BLH(ij3))*cos(BB)*cos(LL);?%坐標(biāo)的x
%?zt_XYZ_y(ij)=(N1+BLH(ij3))*cos(BB)*sin(LL);?%坐標(biāo)的
評(píng)論
共有 條評(píng)論