什么时候Randomize必须用

香川群子

洛天依 发表于 2013-3-10 12:14
谢谢群子老师讲解了这么多知识，受益不少！
像8楼知识，不是帮助里的吧，是从哪方面打听到的呀？

帮助里没有的……也没有地方打听得到哦。

呵呵，你就当那是我自己瞎编的啦……哈哈。

香川群子

洛天依 发表于 2013-3-10 13:31
1）当rud(number)的number

你这说法不正确。

不知道你想要总结出什么……

总之，每一种情形结果都是不同的。

…………

应该这么理解：
VBA中的Rnd()函数实际上每次被调用函数时都会有一个【种子】被作为算法的计算值。

即 Rnd=f(x)
其中，f()是生成16777216乱序伪随机数序列位置的一种算法，
x就是算法需要的种子。 是一个单精度小数。

…………

香川群子

1）当rud(number)的number<0时
    以这个负的单精度数值作为随机种子，用【算法】计算生成伪随机乱数序列的位置。

2）当randomize带参数时
    以这个参数再加上Rnd函数当前位置作为随机种子，用【算法】计算生成伪随机乱数序列的位置。

3）当randomize不带参数时
    以系统时刻的timer秒值作为参数再加上Rnd函数当前位置作为随机种子，用【算法】计算生成伪随机乱数序列的位置。


4）EXCEL启动时
   固定从伪随机乱数序列的第一个值开始返回随机乱数序列。
   序号开始值=11837123，返回随机小数=0.705547511577606

洛天依

香川群子 发表于 2013-3-10 13:36
帮助里没有的……也没有地方打听得到哦。

呵呵，你就当那是我自己瞎编的啦……哈哈。

比如2^24个，这是结合某些条件（各种知识），算出来的吧？
对此，从帮助里我是找不到什么线索的

洛天依

香川群子 发表于 2013-3-10 13:43
你这说法不正确。

不知道你想要总结出什么……

谢谢了

灰袍法师

洛天依 发表于 2013-3-10 14:46
比如2^24个，这是结合某些条件（各种知识），算出来的吧？
对此，从帮助里我是找不到什么线索的

2^24自己写VBA代码，取 2^24 个随机数，你将发现第 2^24 个随机数正好等于 第1个随机数，随后就是不断重复第2，第3，第4个随机数。
所以说其周期是 2^24

VBA 使用的 rnd 函数，其算法在这里
http://support.microsoft.com/kb/231847
总的来说，一个周期只有 2^24 的随机数生成器，是不够好的。
如果需要 2^25 个0-1的32位小数随机数，那么将会发现每个数值刚好出现2次。
对于远远低于 2^24 的随机数需求来说，如学校几千人随机排名抽签之类，就没问题。  

而另一方面，Excel 的单元格公式 rand()其实更强大，微软也公开其算法
这里有我发布的完整算法以及实现该算法的VBA代码。

请直接看第11楼，前面的都是废话。
RAND函数会重复吗？
http://club.excelhome.net/thread-673711-1-1.html

香川群子

Microsoft Visual Basic 使用 RND 函数得到伪随机数字是用了【生成线性值求同余】的算法。

算法公式如下：
   x1 = ( 【上一次随机序列值】x0 * 【固定斜率】a + 【固定值】c ) MOD (2^24)
                               
其中：

x 1 = 计算结果，即【随机序列值】的新值
x 0 = 未使用Randomize初始化时，每次的计算初始值为 327680
        接下来就是使用x1即前一个计算结果值作为参数 (x0=x1)
a = 1140671485
c = 12820163
2^24=16777216

根据上面的算法公式，则 MOD 运算以后得到的结果范围是[0-16777215]
因此，随机函数值范围为 [0- 16777215/16777216] 即 [0-1）(不含=1)

…………
这个算法虽然知道了，但一般无法在Excel中直接进行工作表函数的验证
（因为mod函数处理不了【长数位值】）


我用自己编写的自定义函数验证了是正确的。


表达式 x1/(2^24) 将返回介于 0.0 和 1.0 RND 函数所返回的浮点数。

请注意不能在 Visual Basic 代码中可以重现 RND 函数生成的随机编号规则的方式实现上述算法。这是因为内部 Visual Basic 使用无符号的长数据类型由 Visual Basic 语言不受支持。

bluexuemei

学习Randomize。

aoe1981

香川群子 发表于 2013-3-9 11:24
如果使用了Randomize语句时，默认将以系统计时器返回的值作为新的种子值，
因此种子不同，算法将返回不同的 ...

小小一个语句，背后居然此等学问，真是开了眼界。。。

aoe1981

香川群子 发表于 2013-3-9 12:11
使用带固定参数的Randomize方法，每次运行返回固定【伪随机数序列】的试验代码：呵呵。

1. Sub GetRnd()
   
2.     For t = 0 To 3
   
3.         r = Rnd() '必须在一开始使用【负数参数】让Rnd定位于序列中某个位置
   
4.         Cells(1 + t * 6, 1) = r
   
5.         For j = 1 To 3
   
6. '            Randomize (j) '随机种子以【固定方式】【初始化】
   
7.             For i = 1 To 5
   
8.                 Cells(i + t * 6, 1 + j) = Rnd '此时每次运行返回完全相同的【伪随机数】序列。
   
9.             Next
   
10.         Next
    
11.     Next
    
12. End Sub
    

复制代码

可问题是我把你的代码做了以上修改后，就可以得到不同的随机数序列了。。。这样一来是不是Randomize就没啥实质性的作用了。。。看了很多，越发糊涂了，也许应该放开高深的原理，讲讲使用与不使用在实现功能和效果上的差别。。。