【搬运】测试CAD计算性能。fas
一个其他群里发现的小工具。说是测试CAD性能（一秒计算次数）。感觉挺好玩的，搬运过来的，不是源代码，有兴趣的拿去玩吧。
我觉得这个fas算法有问题，我测出来比它快几倍。
(defun try-time-be () ;计时器开始
;(setq $try-timebe(getvar "TDUSRTIMER"));该变量不适用于高版本
(setq $try-timebe(getvar "millisecs"))
)
(defun try-time-end (time p / tt) ;计时器结束
(or time (setq time $try-timebe))
;(setq tt(* 86400000(- (getvar "TDUSRTIMER") time)))
(setq tt(- (getvar "millisecs") time))
(if p (print(strcat"经历时间为："(itoa tt)"毫秒")))
tt
)
(try-time-be)
(repeat 10000000
(1+ 1)
)
(setq ti(try-time-end nil nil))
(alert(rtos(/ 10000000000. ti )2 0))
mokson 发表于 2023-5-22 14:58
cpu频率，不是说每秒计算几亿次吗？
感觉CAD运行lsp的速度，是慢到离谱，同样的算法，用python比lsp快1000倍，而python够慢了吧，而如果用golang，好像还要比python快1000倍，如果用C或汇编呢？ cpu频率，不是说每秒计算几亿次吗？ tryhi 发表于 2023-5-22 15:55
我觉得这个fas算法有问题，我测出来比它快几倍。
(defun try-time-be () ;计时器开始
大海看看我的帖子http://bbs.mjtd.com/thread-187870-1-1.html tryhi 发表于 2023-5-22 15:55
我觉得这个fas算法有问题，我测出来比它快几倍。
(defun try-time-be () ;计时器开始
我用你这个测的反而比楼主的小20%左右。 cghdy 发表于 2023-5-23 15:33
我用你这个测的反而比楼主的小20%左右。
因为你没有编译为fas吧？ vlx 跟 fas 哪个快？ Bao_lai 发表于 2023-5-23 18:20
vlx 跟 fas 哪个快？
一样快。。
tryhi 发表于 2023-5-23 16:16
因为你没有编译为fas吧？
是的
页:
[1]
2