【分享】随机函数

tigcat

在网上搜索+AI分析找到一些随机函数，分享给大家。


1. Xorshift 算法（推荐）
这是目前最受欢迎的轻量级随机数生成器之一：
LISP
;; Xorshift32 算法 - 速度极快
(defun xorshift32 (var / temp)
  (setq seed (cond
               (seed)
               ((abs (getvar var)))
             ))
  (setq temp seed)
  (setq temp (logxor temp (lsh temp 13)))
  (setq temp (logxor temp (lsh temp -17)))
  (setq seed (logxor temp (lsh temp 5)))
  (/ (float (abs seed)) 4294967296.0)
)

;; 使用示例
(defun rand-xor (a b var)
  (fix (+ a (* (xorshift32 var) (- b a -1))))
)
2. Park-Miller 生成器（最小标准）
比LCG更好的参数选择：
LISP
;; Park-Miller "最小标准" 生成器
(defun park-miller (var / temp)
  (setq seed (cond
               (seed)
               ((rem (abs (getvar var)) 2147483647))
             ))
  (setq temp (* seed 16807))
  (setq seed (rem temp 2147483647))
  (if (= seed 0) (setq seed 1))  ; 避免0值
  (/ (float seed) 2147483647.0)
)

(defun rand-pm (a b var)
  (fix (+ a (* (park-miller var) (- b a -1))))
)

3. 混合线性同余生成器
使用更好的参数组合：
LISP
;; 使用更优参数的LCG
(defun fast-lcg (var / x)
  (setq x 2147483647.0)  ; 2^31-1 (梅森素数)
  (setq seed (cond
               (seed)
               ((rem (abs (getvar var)) (fix x)))
             ))
  (setq seed (rem (* seed 48271) (fix x)))  ; 更好的乘数
  (/ (float seed) x)
)

(defun rand-fast (a b var)
  (fix (+ a (* (fast-lcg var) (- b a -1))))
)

4. 超轻量级随机生成器
如果您只需要简单的随机性：
LISP
;; 最简单的随机生成器 - 极速版本
(defun ultra-fast-random (var /)
  (setq seed (cond
               (seed)
               ((getvar var))
             ))
  (setq seed (rem (+ (* seed 1103515245) 12345) 4294967296))
  (/ (float (abs seed)) 4294967296.0)
)

(defun rand-ultra (a b var)
  (fix (+ a (* (ultra-fast-random var) (- b a -1))))
)

5. 性能对比表(AI分析的结论)
算法        速度        质量        周期        内存        推荐场景
原LCG        中等        一般        2^32        最少        兼容性要求高（lee-mac函数)
Xorshift32        最快        很好        2^32-1        最少        通用推荐
Park-Miller        快        好        2^31-2        最少        统计质量要求高
Fast-LCG        快        好        2^31-2        最少        平衡选择
Ultra-Fast        极快        够用        2^32        最少        大量生成


函数中的var是种子名，可以用以下
"MILLISECS"  ; 毫秒计时器（推荐，变化最快）
"DATE"       ; 当前日期时间
"CDATE"      ; 当前日期
"TDCREATE"   ; 图形创建时间

kozmosovia

AI胡写呢吧？getvar var来初始化种子，倒是要get哪个var啊？cdate？millisec？cputick？

tigcat

kozmosovia 发表于 2025-8-9 21:08
AI胡写呢吧？getvar var来初始化种子，倒是要get哪个var啊？cdate？millisec？cputick？

var通常用"MILLISECS"

kozmosovia

臆造函数logxor

tigcat

kozmosovia 发表于 2025-8-11 13:28
臆造函数logxor

感谢指出，果然不靠谱。需要人工甄别，不过侧面反应人暂时不会被AI完全取代。