AutoLISP 本身也能定义随机函数

nzl1116

思路：利用当前时间的读秒数

nzl1116

1. (defun random (delta int / int0 int1 second n item k)
   
2.   (if (not (numberp delta))
   
3.     (progn
   
4.       (princ "\n参数类型错误！")
   
5.       (quit)
   
6.     )
   
7.   )
   
8.   (if (/= (fix int) int)
   
9.     (progn
   
10.       (princ "\n参数类型错误！")
    
11.       (quit)
    
12.     )
    
13.   )
    
14.   (if (or (> int 60000) (< int 2))
    
15.     (progn
    
16.       (princ "参数值太大或太小。")
    
17.       (quit)
    
18.     )
    
19.   )
    
20.   (setq int0 (fix (/ 60000 int))
    
21. int0 (* int0 int)
    
22. int0 (1- int0)
    
23.   )
    
24.   (setq second (read (menucmd "M=$(edtime,$(getvar,date),ss.MSEC)"))
    
25. int1   (* second 1000)
    
26. n      1
    
27.   )
    
28.   (while (and (< n 10) (< int0 int1))
    
29.     (setq second (read (menucmd "M=$(edtime,$(getvar,date),ss.MSEC)"))
    
30.    int1  (* second 1000)
    
31.    n  (1+ n)
    
32.     )
    
33.   )
    
34.   (if (= n 10)
    
35.     (setq int1 0)
    
36.   )
    
37.   (setq item (rem int1 int)
    
38. k    (/ delta (1- int))
    
39.   )
    
40.   (* item k)
    
41. )

(defun random (delta int / int0 int1 second n item k)<br />   (if (not (numberp delta))<br />     (progn<br />       (princ "\n参数类型错误！")<br />       (quit)<br />     )<br />   )<br />   (if (/= (fix int) int)<br />     (progn<br />       (princ "\n参数类型错误！")<br />       (quit)<br />     )<br />   )<br />   (if (or (> int 60000) (< int 2))<br />     (progn<br />       (princ "参数值太大或太小。")<br />       (quit)<br />     )<br />   )<br />   (setq int0 (fix (/ 60000 int))<br /> int0 (* int0 int)<br /> int0 (1- int0)<br />   )<br />   (setq second (read (menucmd "M=$(edtime,$(getvar,date),ss.MSEC)"))<br /> int1   (* second 1000)<br /> n      1<br />   )<br />   (while (and (< n 10) (< int0 int1))<br />     (setq second (read (menucmd "M=$(edtime,$(getvar,date),ss.MSEC)"))<br />    int1  (* second 1000)<br />    n  (1+ n)<br />     )<br />   )<br />   (if (= n 10)<br />     (setq int1 0)<br />   )<br />   (setq item (rem int1 int)<br /> k    (/ delta (1- int))<br />   )<br />   (* item k)<br /> )

zml84

;;;===========================================;;;功能：生成[0 1]区间的随机数

(defun ZL-RAND ()
    (/ (rem (getvar "CPUTICKS") 1984) 1983)
)


;;;===========================================
;;功能：生成指定区间内的随机数

(defun ZL-RAND2        (A B)
    (+ (* (ZL-RAND) (- A B))
       B    )
)

zark

回复 nzl1116 的帖子

不会吧，要这么累

zark

回复 zml84 的帖子

为什么不等于1
(repeat 1000000
(_>   (cond
((_>     ((= (zl-rand) 1) (princ "1"))
((_>     ((= (zl-rand) 0) (princ "0"))
((_>     (T NIL)
((_>     )
(_>   (PRINC)
(_>   )
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000

zml84

测试结果：
10000011011101110110011111000110011110101001010111000110001000001001010010110100
11101110000101000001110110100011001010011000110101110000011101000111100110000100
00010100000101110010011010100101110101011000010100100100110111011001011011011111
10100100010101100001110100110001111100111011110000101101111010111001011010011111
11111110100110001111001011010001011110001010000111001111101100010001001110110100
00101110110011001001111011000001111101001100110000011101110001011000010001100101
00111110101001010100001100111100100000111000111001000100010100110010110000001110
01010111101000100110011000011011000101101110000010100001100010100010100101111111
00100111100110001110010110001110011011011011101100010110011100000010101010010000
10110101100000100001110010010010000111000000111110100111100011011101101110100000
11110111111111000010011001001001011110011010010010001101000010010001111000000011
10110010001001010101111001111011011101011110101101010011000111110010110100000111
11110100101011011000110001111110010001011101100100111001000100010100101100010001
11110111001000011010101111010110011000010001110110101010100101000111100011110010
10000110100101010010010110010111110000010001000101111110101011100110000000010111
00101101110101000011000001000110001111100001100100101000000110111101000110011011
01110011001000110110010111010110101010000010000001100110010001110001101110110000
01111111011101001000111010011110010000110101001110111111100110101101110110111000
10001100000001110010010001010001001011010111011000101111001011111101101110001101
00101101101010011111000111011110000100101010001000010110000100111000011010110000
00101101010001011100110000000110011111110101110000101101101010011101010011100000
10110001010010001101100100100000011100111101110101101011001100010000011010000000
01011000111111011000111111100111100110110011001010001000000101010111100100101010
00011001110100001111010110000110000100100010000110100111000010111011000101001001
10101100000001010101111111000010110100100110000100111111101011010111010010110101
110000000111011001110
命令: