samer@0: % atime - Arrow that counts time starting from zero
samer@0: %
samer@0: % atime :: arrow({},{[1]},pair(empty,real)).
samer@0: % atime :: DT:real -> arrow({},{[1]},pair(empty,real)).
samer@0: %
samer@0: % If no parameters are supplied, time increases by 1 each iteration.
samer@0: % If one parameter DT is supplied, time increases by DT each iteration.
samer@0: function a=atime(dt)
samer@0: 	if nargin<1, dt=1; end
samer@0: 	a=const(dt) * integrate(0);
samer@0: end
samer@0: 
samer@0: