【搬运】测试CAD计算性能。fas

ahsxxu

一个其他群里发现的小工具。说是测试CAD性能（一秒计算次数）。

感觉挺好玩的，搬运过来的，不是源代码，有兴趣的拿去玩吧。

tryhi

我觉得这个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))

tryhi

mokson 发表于 2023-5-22 14:58
cpu频率，不是说每秒计算几亿次吗？

感觉CAD运行lsp的速度，是慢到离谱，同样的算法，用python比lsp快1000倍，而python够慢了吧，而如果用golang，好像还要比python快1000倍，如果用C或汇编呢？

mokson

cpu频率，不是说每秒计算几亿次吗？

664571221

tryhi 发表于 2023-5-22 15:55
我觉得这个fas算法有问题，我测出来比它快几倍。

(defun try-time-be () ;计时器开始

大海看看我的帖子http://bbs.mjtd.com/thread-187870-1-1.html

cghdy

tryhi 发表于 2023-5-22 15:55
我觉得这个fas算法有问题，我测出来比它快几倍。

(defun try-time-be () ;计时器开始

我用你这个测的反而比楼主的小20%左右。

tryhi

cghdy 发表于 2023-5-23 15:33
我用你这个测的反而比楼主的小20%左右。

因为你没有编译为fas吧？

Bao_lai

vlx 跟 fas 哪个快？

tryhi

Bao_lai 发表于 2023-5-23 18:20
vlx 跟 fas 哪个快？

一样快。。

cghdy

tryhi 发表于 2023-5-23 16:16
因为你没有编译为fas吧？

是的