sign1.m

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

function s=sign1(x)
%sign of real x: 1 for zero or positive, -1 for negative
s=1;
if x<0
   s=-1;
end