发一个不错的随机数生成函数

marting

游客，如果您要查看本帖隐藏内容请回复

1. (defun random1 (maximum / num)
   
2.   (setq num (* (random) maximum))
   
3.   (if (= (type maximum) 'INT)
   
4.     (fix num)
   
5.     num
   
6.   )
   
7. )
   

(defun random1 (maximum / num)<br />   (setq num (* (random) maximum))<br />   (if (= (type maximum) 'INT)<br />     (fix num)<br />     num<br />   )<br /> )<br />

测试结果：比较随机

1. 
   
2. 命令: (repeat 30 (princ "\n")(princ (random)) (princ))
   
3. 
   
4. 0.228658
   
5. 0.213277
   
6. 0.0446779
   
7. 0.887217
   
8. 0.134144
   
9. 0.0214695
   
10. 0.662123
    
11. 0.836051
    
12. 0.12896
    
13. 0.528942
    
14. 0.272857
    
15. 0.832972
    
16. 0.626101
    
17. 0.0553467
    
18. 0.454695
    
19. 0.252392
    
20. 0.676341
    
21. 0.737038
    
22. 0.670121
    
23. 0.177088
    
24. 0.0376905
    
25. 0.993506
    
26. 0.725391
    
27. 0.484751
    
28. 0.844466
    
29. 0.9606
    
30. 0.407374
    
31. 0.0419575
    
32. 0.407215
    
33. 0.0468108
    

复制代码

命令: (repeat 30 (princ "\n")(princ (random1 100)) (princ))

48
67
21
3
44
96
51
84
27
39
83
56
19
29
66
81
34
90
64
40
66
50
87
74
55
51
50
41
7
15

winerfjy

看一下你这个程序怎么样

sh_h

跟着大师好好学习，天天向上！！！

q3_2006

看起来不错呀...

ynhh

随机的结果有些是很平均
有些却是不平均
要看具体情况
试了才知道的

819534890

回复学习学习

HLCAD

谢谢大师，我等从你处获得了不少好东西！

pxt2015

随机数用在什么地方？

ll_j

我也看看。

wowan1314

look  look!

xiayuxue213

学习。。。。。。。。。。。。。。。。。。。。。。

YueFeng

学习学习

ysq101

争取能看懂大师们在说些什么！！！！

wdmzslw

看看，学习一下老师的代码

freefor5127

看看，学习学习