xyz2enu.m

mathworks公司开发的GPS工具箱,有一定参考价值,但需要进一步完善

 % convert ECEF coordinates to local East, North, Up 
%****************************************************************************
% Written by Moein Mehrtash, Concordia University, 3/21/2008                *
% Email: [e-mail]                                            *
%****************************************************************************
% Reference:"GPS Theory and application",edited by B.Parkinson,J.Spilker,   *
%****************************************************************************           
function ENU= XYZ2ENU(A,Phi,Lambda) 
  XYZ2ENU=[-sin(Lambda) cos(Lambda) 0;
           -sin(Phi)*cos(Lambda) -sin(Phi)*sin(Lambda) cos(Phi);
           cos(Phi)*cos(Lambda) cos(Phi)*sin(Lambda)  sin(Phi)];
 
  ENU=XYZ2ENU*A';