陨落 发表于 2016-6-7 13:14:25

怎么个随机法

sdbaijiao 发表于 2016-6-7 13:50:30

谢谢，学习下。。。

Atsai 发表于 2016-6-7 22:05:08

Lee-Mac的函数：
http://www.lee-mac.com/random.html
;; Rand-Lee Mac
;; PRNG implementing a linear congruential generator with
;; parameters derived from the book 'Numerical Recipes'

(defun LM:rand ( / a c m )
    (setq m   4294967296.0
          a   1664525.0
          c   1013904223.0
          $xn (rem (+ c (* a (cond ($xn) ((getvar 'date))))) m)
    )
    (/ $xn m)
)

星凌云飞 发表于 2016-6-8 00:14:01

还不错6666

xiaolong1487 发表于 2016-6-8 01:12:41

学习学习方法！

机械工程师 发表于 2016-6-8 08:23:26

感谢分享 .

lostbalance 发表于 2016-6-8 11:09:56

好久没来，路过学习

sicky111 发表于 2016-6-9 00:27:37

看看跟以前的有什么区别

wangshang323 发表于 2016-6-13 21:46:54

很好奇　先看看　，鼓励下

kingofauto 发表于 2016-6-14 07:38:24

111111111111111111111111111111111111111
页: 1 [2] 3 4
查看完整版本: 用lisp写随机函数