Mercurial > hg > octave-lojdl
changeset 901:d99574d49d19
[project @ 1994-11-09 18:39:51 by jwe]
Initial revision
author | jwe |
---|---|
date | Wed, 09 Nov 1994 18:39:51 +0000 |
parents | f8c8c2461f4d |
children | 6923bd0a6ea2 |
files | scripts/miscellaneous/etime.m scripts/miscellaneous/is_leap_year.m |
diffstat | 2 files changed, 95 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
new file mode 100644 --- /dev/null +++ b/scripts/miscellaneous/etime.m @@ -0,0 +1,57 @@ +# Copyright (C) 1994 John W. Eaton +# +# This file is part of Octave. +# +# Octave is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by the +# Free Software Foundation; either version 2, or (at your option) any +# later version. +# +# Octave is distributed in the hope that it will be useful, but WITHOUT +# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +# FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +# for more details. +# +# You should have received a copy of the GNU General Public License +# along with Octave; see the file COPYING. If not, write to the Free +# Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. + +function secs = etime (t1, t0) + +# usage: etime (t1, t0) +# +# Return the difference between t1 and t0 in seconds. The arguments +# are expected to be vectors in the form returned by clock (). +# +# See also: tic, toc, clock, cputime + + if (nargin != 2) + usage ("etime (t1, t0)"); + endif + + if (is_vector (t1) && length (t1) == 6 && is_vector (t0) && length (t0) == 6) + error ("etime: args are not 6-element vectors"); + endif + + if (t1 (1) == t0 (1)) + error ("etime: can't handle timings over year boundaries yet") + endif + +# XXX FIXME XXX -- could check here to ensure that t1 and t0 really do +# make sense as vectors returned from clock(). + + days_in_months = [31, 28, 31, 30, 31, 30 31, 31, 30, 31, 30, 31]; + + if (is_leap_year (t1 (1))) + days_in_months (2) = days_in_months (2) + 1; + endif + + d1 = sum (days_in_months (1:(t1 (2) - 1))) + t1 (3); + d0 = sum (days_in_months (1:(t0 (2) - 1))) + t0 (3); + + s1 = 86400 * d1 + 3600 * t1 (4) + 60 * t1 (5) + t1 (6); + s0 = 86400 * d0 + 3600 * t0 (4) + 60 * t0 (5) + t0 (6); + + secs = s1 - s0; + +endfunction
new file mode 100644 --- /dev/null +++ b/scripts/miscellaneous/is_leap_year.m @@ -0,0 +1,38 @@ +# Copyright (C) 1994 John W. Eaton +# +# This file is part of Octave. +# +# Octave is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by the +# Free Software Foundation; either version 2, or (at your option) any +# later version. +# +# Octave is distributed in the hope that it will be useful, but WITHOUT +# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +# FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +# for more details. +# +# You should have received a copy of the GNU General Public License +# along with Octave; see the file COPYING. If not, write to the Free +# Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. + +function retval = is_leap_year (year) + +# usage: is_leap_year (year) +# +# Return 1 if the given year is a leap year; otherwise, return 0. +# With no arguments, use the current year. + + if (nargin > 1) + usage ("is_leap_year (year)"); + endif + + if (nargin == 0) + t = clock (); + year = t (1); + endif + + retval = ((rem (year, 4) == 0 && rem (year, 100) != 0) ... + || rem (year, 400) == 0); + +endfunction