sign1.m

来自「球面天文学（岁差、章动）和天体力学（行星星历表）的原始计算公式、算法和程序。ma」· M 代码 · 共 8 行

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