请问在lisp中如何产生随机数?

龙龙仔

zxdcad发表于2004-12-22 17:16:00效果怎么不太好呀，龙龙仔！ 测试程序如下： (DEFUN C:TESTRND (/ x y os) ;随机数测试程序 (...

好不好是你程序的问题,我是说利用(getvar "cputicks") 这个系统变数,它会出现不同的值,看你如何取用它的值. (defun RAND (VALMAX /)
(setq SEED (rem (atof (substr (rtos (fix (getvar "cputicks"))) 7))
VALMAX
)
)
) (getvar "cputicks")= Number of CPU clock ticks and is from the Pentium counter register.It's a very high frequency timer.

CADghost

dos_random


或者用时间转换一下

wdabo

谢谢各位了,

pslstar

这行应该是 ： "ThisDrawing.setVariable \"USERR5\" ,CDbl(Rnd())"  注意 是Rnd() 而不是(Rnd) 。