pol2rec.m

球面天文学（岁差、章动）和天体力学（行星星历表）的原始计算公式、算法和程序。matlab编译通过。主要包括：公历/儒略历转换为儒略日

function ans=pol2rec(pol)
% transfer from polar to rectangular coordinates
z=pol(3)*sin(pol(2));
x=pol(3)*cos(pol(2))*cos(pol(1));
y=pol(3)*cos(pol(2))*sin(pol(1));

ans=[x,y,z];