function [lambda,phi,r]=car2sph(x,y,z)
%Перевод декартовыч (cartesian) координат в сферические
%        lambda = atan2(y,x);
%           phi = asin(z/r);
%             r = sqrt(x^2+y^2+z^2);
%
%Вызов:  [lambda,phi,r]=car2sph(x,y,z);
%
%     x,y,z - координаты в пр?моугольной системе;
%
%       phi - угол в вертикальной плоскости (широта);
%    lambda - угол в горизонтальной плоскости (долгота);
%         r - радиус сферы.
%
%Все углы - в радианах !!!
%

% Хомутов С.Ю.  30.09.96  Новосибирск

r = sqrt( x.^2 + y.^2 + z.^2 );
phi = asin(z./r);
lambda = atan2(y,x);
