julian.m

一个研究声多普勒计程仪很好的工具箱

function [j]=julian(y,m,d,h)

% JULIAN:  Converts Gregorian calendar dates to Julian dates.
%
% USAGE:  [j]=julian([y m d hour min sec])  or   [j]=julian(y,m,d,h) 
% 
% DESCRIPTION:  Converts Gregorian dates to decimal Julian days using the
%               astronomical convension, but with time zero starting
%               at midnight instead of noon.  In this convention,
%               Julian day 2440000 begins at 0000 hours, May 23, 1968.
%               The decimal Julian day, with Matlab's double precision, 
%               yeilds an accuracy of decimal days of about 0.1 milliseconds.
%    
% INPUT:
%        y =  year (e.g., 1979) component
%        m =  month (1-12) component
%        d =  day (1-31) component of Gregorian date
%
%        hour = hours (0-23)
%        min =  minutes (0-59)
%        sec =  decimal seconds 
%          or
%        h =  decimal hours (assumed 0 if absent)
%
% OUTPUT: 
%        j =  decimal Julian day number

%   last revised 1/3/96 by Rich Signell ([e-mail])

      if nargin==3,
        h=0.;
      elseif nargin==1,
        [m,n]=size(y);
        if n==3, %assume h=m=s=0 if not supplied
           h=zeros(m,1);
        else
           h=hms2h(y(:,4),y(:,5),y(:,6));
        end
        d=y(:,3);
        m=y(:,2);
        y=y(:,1);
      end
      mo=m+9;
      yr=y-1;
      i=find(m>2);
      mo(i)=m(i)-3;
      yr(i)=y(i); 
      c = floor(yr/100);
      yr = yr - c*100;
      j = floor((146097*c)/4) + floor((1461*yr)/4) + ...
           floor((153*mo +2)/5) +d +1721119;

%     If you want julian days to start and end at noon, 
%     replace the following line with:
%     j=j+(h-12)/24;
 
      j=j+h/24;