julepoch.m

来自「航天工程工具箱」· M 代码 · 共 10 行

function JE=julepoch(JD)
%JULEPOCH  The Julian epoch given a Julian date.
%   JE = JULEPOCH(JD) returns the Julian epoch JE
%   given the Julian date JD.
%
%   See also GREG2JUL.

% Copyright (c) 2003-06-09, B. Rasmus Anthin.

JE=2000+(JD-2451545)/365.25;