Mercurial > hg > octave-nkf
changeset 898:4733b101ce3f
[project @ 1994-11-09 18:04:15 by jwe]
Initial revision
author | jwe |
---|---|
date | Wed, 09 Nov 1994 18:04:15 +0000 |
parents | 54921d080295 |
children | 00e903c95534 |
files | scripts/miscellaneous/tic.m scripts/miscellaneous/toc.m |
diffstat | 2 files changed, 76 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
new file mode 100644 --- /dev/null +++ b/scripts/miscellaneous/tic.m @@ -0,0 +1,35 @@ +# 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 tic () + +# usage: tic +# +# Set a wall-clock timer. +# +# See also: toc, clock, etime, cputime + + if (nargin != 0) + warning ("tic: ignoring extra arguments"); + endif + + global _time_tic_called; + + _time_tic_called = clock (); + +endfunction
new file mode 100644 --- /dev/null +++ b/scripts/miscellaneous/toc.m @@ -0,0 +1,41 @@ +# 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 = toc () + +# usage: toc +# +# Return the difference between the current wall-clock time and the +# time that the function tic () was last called, in seconds. +# +# See also: tic, clock, etime, cputime + + if (nargin != 0) + warning ("toc: ignoring extra arguments"); + endif + + global _time_tic_called; + + if (exist ("_time_tic_called")) + secs = etime (clock (), _time_tic_called); + else + warning ("toc called before timer set"); + secs = []; + endif + +endfunction