function [X Y Z] = converttocart(Lat, Lon, r)

X = r*cosd(Lat)*cosd(Lon);
Y = r*cosd(Lat)*sind(Lon);
Z = r*sind(Lat);

return
