(XD::Random->NUM)随机数字生成

75215195 · 发表于 2017-9-26 21:51:48

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 75215195 于 2017-9-26 22:00 编辑

(defun XD::Random->NUM (n / time cpu)
(setq time (rtos (rem (getvar "Date") 1) 2 16))
(setq time (substr time 18 1) time (atoi time))
(setq cpu (rem (getvar "CPUTICKS") n))
(if (< n 0)
(* (fix (rem (+ time cpu) n)) -1)
(fix (rem (+ time cpu) n))
)
)

kqqt6236 · 发表于 2017-9-27 00:03:26

谢谢分享。

longer1000 · 发表于 2017-9-27 00:17:03

谢谢分享。。。。。

sh_h · 发表于 2017-9-27 07:35:36

顶！谢谢楼主分享！！！

yjch · 发表于 2017-9-27 08:22:39

好有用，好好学习天天向上，谢谢分享

newer · 发表于 2017-10-9 13:13:28

很不错的函数
用API，有现成的 xdrx_math_rand

(xdrx_math_rand 6) 求 0-6之间的随机数
(xdrx_math_rand 6 23) 求 6-23之间的随机数

命令: (repeat 17 (princ "\n")(princ (xdrx_math_rand 6 23))(princ))

14
16
11
19
10
21
16
21
9
20
10
7
20
17
18
8
6

VBAVBAA · 发表于 2017-10-13 00:06:34

刂七夕情人节，好用

账号		自动登录	找回密码
密码			立即注册

[数学] (XD::Random->NUM)随机数字生成

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。