（xd::math:rand）随机数生成（支持负数）

newer · 发表于 2017-10-9 14:30:18

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

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

×

本帖最后由 newer 于 2017-10-10 08:47 编辑

(defun xd::math:rand (start end / rand val x y)
(setq val (vl-sort (list start end) '(lambda (x y)
(< x y)
)
)
)
(cond
((and
(minusp (car val))
(minusp (cadr val))
)
(setq rand (xdrx_math_rand (abs (car val)) (abs (cadr val)))
rand (- rand)
)
)
((minusp (car val))
(setq start (- (xdrx_math_rand (abs (car val))))
end (xdrx_math_rand (cadr val))
)
(if (> (xdrx_math_rand 100) 50)
(setq rand start)
(setq rand end)
)
)
(t
(setq rand (xdrx_math_rand (abs (car val)) (abs (cadr val))))
)
)
)

命令: (repeat 10 (princ (xd::math:rand -10 10))(princ " "))(princ)
-8 1 -6 -4 -4 -4 9 8 3 -9
命令: (repeat 10 (princ (xd::math:rand -5.1 5.1))(princ " "))(princ)
1.02899 -2.08871 -2.9347 -1.39682 -2.57521 0.00794958 0.00263058 -4.9944
-4.66792 3.66623

qxlonmsn · 发表于 2021-9-17 17:59:58

大佬威武!!!!!!

qxlonmsn · 发表于 2022-3-23 07:58:52

这正是我需要的就是看不到内容论坛还没有恢复

qxlonmsn · 发表于 2022-3-29 08:00:23

顶支持这个正式我需要的

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

[数学] （xd::math:rand）随机数生成（支持负数）

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