[x,y,z]=pol2cart(r,theta,phi)

function [x,y,z]=pol2cart(r,theta,phi)

% function [x,y,z]=pol2cart(r,theta,phi)
%
% transformation from polar coordinates to cartesian coordinates
% algorithms by Montenbruck/Pfleger: "Astronomy with the Personal Computer"
%
% 05.05.04 M.Penzkofer

rho = pi/180;

RCST = r*cos(theta*rho);
x = RCST*cos(phi*rho);
y = RCST*sin(phi*rho);
z = r*sin(theta*rho);