Re: Help with a function to return the 'age' of itself
- To: mathgroup at smc.vnet.net
- Subject: [mg61435] Re: Help with a function to return the 'age' of itself
- From: albert <awnl at arcor.de>
- Date: Wed, 19 Oct 2005 02:16:13 -0400 (EDT)
- Organization: Arcor
- References: <dj2662$b76$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
Just one possibility of many:
$starttime = None;
timer := If[$starttime === None,
$starttime = AbsoluteTime[]; 0.,
AbsoluteTime[] - $starttime
];
using the following you can reset the timer:
SetAttributes[reset, HoldAll]
reset[timer] := $starttime = None;
reset[timer]
timer
Pause[3]
timer
actually I would prefer the following, so that it is more clear timer is a
function (note that reset does not need to have the Attribute HoldAll in
this case, and you don't necessarily need an extra symbol to store the
start-value):
timer[0] = None;
timer[] := If[timer[0] === None,
timer[0] = AbsoluteTime[]; 0.,
AbsoluteTime[] - timer[0]
];
reset[timer] := timer[0] = None;
reset[timer]
timer[]
Pause[2]
timer[]