[求助]：LISP中随机函数名字,在线等待

xialai

如题,很菜的一个问题,想想应为RND,却不是,那位网友告诉一下

cqnj023

lisp里没有真正的随机函数，不过可以用时间函数模拟

小狼

(defun fran (/ num intnum)
  (setq        num    (getvar "cdate")
        intnum (fix (* 1000000 num))
        num    (- (* 1000000 num) intnum)
  )
)

xyp1964

;;;随机数
;;;原理：用delay命令，间隔读取系统时间取毫秒值，然后进行一些乱七八糟的运算……得到的值再分配给delay，……
;;;结果可能会重复，再怎么“乱七八糟”也是有章可循，毕竟是程序运算！
;;;根据用户需要的随机数个数相应产生，但不要太多，很费时间！
;;;加载sjsh.fas，运行sjsh。