菜鸟经验，函数运行时间测试简单化

wzg356

;;测试程序运行计时
;;;(countime expr n) by wzg356
;;;expr要测试的表达式(如执行函数的表达式)，n测试次数
;|
示例：
(countime
        '(sqrt (+ 101 500)) ;你要测试的表达式
        10000  ;表达式运行次数
)
;===0.24秒
|;
(defun countime (expr n / starttime endtime)
(setq starttime (* 86400.0 (getvar "tdusrtimer")))
(repeat n (eval expr))
(setq endtime (* 86400.0 (getvar "tdusrtimer")))
(princ (strcat "\n运行时间：" (rtos (- endtime starttime) 2 2) " 秒"))
(princ)
)

ZZXXQQ

这样也可以

2. (defun countime (expr n / starttime endtime)
   
3. (setq starttime (getvar "CDATE"))
   
4. (repeat n (eval expr))
   
5. (setq endtime (getvar "CDATE"))
   
6. (princ (strcat "\n运行时间：" (rtos (* (- endtime starttime) 1E6) 2 2) " 秒"))
   
7. (princ)
   
8. )
   

(defun countime (expr n / starttime endtime)<br /> (setq starttime (getvar "CDATE"))<br /> (repeat n (eval expr))<br /> (setq endtime (getvar "CDATE"))<br /> (princ (strcat "\n运行时间：" (rtos (* (- endtime starttime) 1E6) 2 2) " 秒"))<br /> (princ)<br /> )<br />

wzg356

ZZXXQQ 发表于 2014-12-19 08:37
这样也可以

谢谢，太热心了，我从您的之前回的好多帖学了许多东西