[Help] How to test speed of a function

[ketxu]

I usually get the start and stop time to do a loop function, but it's so ... manually..

How we can test like a benchmark machine ?

/ Like this link (and many other link..)

http://www.theswamp.org/index.php?action=printpage;topic=21699.0

I find it in the GG, and find a lisp. is it ?

http://autolisp.ru/wp-content/uploads/2009/09/benchmark.lsp

[BlackBox]

I use Bench.lsp, written by RobertB (Robert Bell).

 

You *should* be able to find it via a Google search, I think I picked it up from AUGI.

[ketxu]

Hic, i've try to find it but don't get result. In my lisp link it quote :

Benchmark.lsp | © 2005 Michael Puckett

Please post your bench.lsp (if no problem)

[VVA]

Hic, i've try to find it but don't get result. In my lisp link it quote :

Please post your bench.lsp (if no problem)

http://www.cadtutor.net/forum/showthread.php?55931&p=378976&viewfull=1#post378976

 

Also your can use _vl-times function

(setq start (car(_VL-TIMES)))
(repeat 100000 (princ))
(princ (strcat "\n "
               (rtos (/ (- (car (_VL-TIMES)) start) 1000.) 2 4)
               " secs."
       ) ;_  strcat
) ;_  princ

[ketxu]

Thanks all so much. My problem is ok ^^ Lisp in VVA link and mine is same