function [x,y,z]=sph2car(lambda,phi,r)
%Перевод сферических координат в декартовы
%     x = r*cos(lambda)*cos(phi);
%     y = r*sin(lambda)*cos(phi);
%     z = r*sin(phi);
%
%Вызов:  [x,y,z]=sph2car(lambda,phi,[r])
%
%    lambda - угол в горизонтальной плоскости (долгота);
%       phi - угол в вертикальной плоскости (широта);
%         r - радиус сферы (по умолчанию = 1).
%
%     x,y,z - координаты в пр?моугольной системе;
%
%Все углы - в радианах !!!
%

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

if nargin<3
   r = 1;
end

x = r.*cos(lambda).*cos(phi);
y = r.*sin(lambda).*cos(phi);
z = r.*sin(phi);
