marting 发表于 2017-5-16 08:54:55

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


**** Hidden Message *****


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



测试结果：比较随机


命令: (repeat 30 (princ "\n")(princ (random)) (princ))

0.228658
0.213277
0.0446779
0.887217
0.134144
0.0214695
0.662123
0.836051
0.12896
0.528942
0.272857
0.832972
0.626101
0.0553467
0.454695
0.252392
0.676341
0.737038
0.670121
0.177088
0.0376905
0.993506
0.725391
0.484751
0.844466
0.9606
0.407374
0.0419575
0.407215
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 发表于 2017-5-16 14:17:18

看一下你这个程序怎么样

sh_h 发表于 2017-5-16 09:10:20

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

q3_2006 发表于 2017-5-16 09:37:02

看起来不错呀...

ynhh 发表于 2017-5-16 09:39:25

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

819534890 发表于 2017-5-16 10:09:40

回复学习学习

HLCAD 发表于 2017-5-16 10:29:12

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

pxt2015 发表于 2017-5-16 13:27:46

随机数用在什么地方？

ll_j 发表于 2017-5-16 14:14:34

我也看看。

wowan1314 发表于 2017-5-16 15:21:06

looklook!

xiayuxue213 发表于 2017-5-16 17:21:03

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

YueFeng 发表于 2017-5-16 17:42:49

学习学习

ysq101 发表于 2017-5-16 18:10:09

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

wdmzslw 发表于 2017-5-16 21:25:15

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

freefor5127 发表于 2017-5-16 22:03:26

看看，学习学习
页: [1] 2 3 4 5 6 7 8
查看完整版本: 发一个不错的随机数生成函数