d2r.m

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

function q=d2r(deg,min,sec)
% degree to radians
% input: degree, minute and second
% return: radians

STR=4.8481368110953599359e-6 ;%radians per arc second */
s=sign1(deg)*sign1(min)*sign1(sec);
deg=abs(deg);
min=abs(min);
sec=abs(sec);
q=s*(deg*3600+min*60+sec)*STR;