% ************************************************************************
% Description:
% Transformation from Cartesian coordinates X,Y,Z to ellipsoidal
% coordinates lam,phi,elh. based on Occam subroutine transf.
%
% Input:
% pos = [x,y,z] [m,m,m]
% can be a matrix: number of rows = number of stations
%
% Output:
% coor_ell = [lat,lon,h] [rad,rad,m]
%
% External calls:
% global a_... Equatorial radius of the Earth [m]
% f_... Flattening factor of the Earth
%
% Coded for VieVS:
% 17 Dec 2008 by Lucia Plank
%
% Revision:
%
% *************************************************************************
function [lat,lon,h]=xyz2ell(pos)
% choose reference ellipsoid
% 1 ...... tide free
% 2 ...... GRS80
refell =1;
switch refell
case 1
% IERS 2003 numerical standards (tide free crust)
% ellipsoid parameters for xyz2ellip.m
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/26932.html
標籤：界面