DOSLIB 和 XDRX API 实现的一个随机数生成函数

newer

DOBLIB:

1. (defun rnd[0-n] ( n / [0-1] [0-n] )
   
2.   (setq [0-1] (atof (strcat "0." (itoa (dos_random)))))
   
3.   (setq [0-n] (fix (* [0-1] (1+ n))))
   
4.   [0-n]
   
5. )
   
6. 
   

(defun rnd[0-n] ( n / [0-1] [0-n] )<br />   (setq [0-1] (atof (strcat "0." (itoa (dos_random)))))<br />   (setq [0-n] (fix (* [0-1] (1+ n))))<br />   [0-n]<br /> )<br /> <br />

XDRX API:

1. (defun rnd[0-n] ( n / [0-1] [0-n] )
   
2.   (setq [0-1] (atof (strcat "0." (itoa (xdrx_math_random)))))
   
3.   (setq [0-n] (fix (* [0-1] (1+ n))))
   
4.   [0-n]
   
5. )
   
6. 
   

(defun rnd[0-n] ( n / [0-1] [0-n] )<br />   (setq [0-1] (atof (strcat "0." (itoa (xdrx_math_random)))))<br />   (setq [0-n] (fix (* [0-1] (1+ n))))<br />   [0-n]<br /> )<br /> <br />

测试：

1. (defun c:tt ()
   
2.   (repeat 10
   
3.     (princ "\n")
   
4.     (princ (rnd[0-n] 10000))
   
5.   )
   
6.   (princ)
   
7. )
   
8. 
   

(defun c:tt ()<br />   (repeat 10<br />     (princ "\n")<br />     (princ (rnd[0-n] 10000))<br />   )<br />   (princ)<br /> )<br /> <br />

1. 
   
2. 命令: TT
   
3. 
   
4. 1815
   
5. 1835
   
6. 1311
   
7. 1997
   
8. 1250
   
9. 1980
   
10. 1983
    
11. 7685
    
12. 9750
    
13. 1168
    
14. 
    

复制代码

XDRX API 提供的 函数 xdrx-math-rand 可以直接获取，比上面的算法实现的，结果更随机

1. (defun c:tt ()
   
2.   (repeat 10
   
3.     (princ "\n")
   
4.     (princ (xdrx-math-rand 10000))
   
5.   )
   
6.   (princ)
   
7. )
   
8. 
   

(defun c:tt ()<br />   (repeat 10<br />     (princ "\n")<br />     (princ (xdrx-math-rand 10000))<br />   )<br />   (princ)<br /> )<br /> <br />

1. 
   
2. 命令: TT
   
3. 
   
4. 681
   
5. 5896
   
6. 462
   
7. 8288
   
8. 3238
   
9. 8334
   
10. 1715
    
11. 5943
    
12. 2668
    
13. 5010
    
14. 
    

复制代码