function [x,y,z]=spher2cart(lat,long,r)
%
% La fonction SPHER2CART(L,O,R) fait la conversion
% des coordonnées spériques vers les coordonnées
% cartésiennes. L est la latitude et O la longitude,
% R est la rayon de la sphère.
%
l=lat*pi/180;
o=long*pi/180;
x=r*cos(l).*sin(o);
y=r*sin(l);
z=r*cos(l).*cos(o);
