“汇编_取随机数”命令bug报告

dangerace

模块版本：7.0

偶然间发现，“汇编_取随机数”命令存在bug，取得的随机数随机性非常差。
我在试用蒙特卡洛方法估算π值时，需要使用取随机数函数，以下是核心库取随机数函数的效果：

可以看到随机数取的非常均匀。再看用“汇编_取随机数”命令取到的随机数：

可以看到取出的随机数随机性非常差，非常“有规律”。
以下是我做测试所使用的代码：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮_被单击

变量名	类 型	静态	数组	备 注
横坐标	整数型
纵坐标	整数型
m	整数型

m ＝ 0
标签2.标题 ＝ “计算中...”
画板.清除 (, , , )
延时 (500)
置随机数种子 ()
画板.画矩形 (0, 0, 500, 500)
画板.画椭圆 (0, 0, 500, 500)
延时 (100)
' 画随机点
计次循环首 (到整数 (编辑框.内容), )
横坐标 ＝ 汇编_取随机数 (0, 500)
纵坐标 ＝ 汇编_取随机数 (0, 500)
画板.画点 (横坐标, 纵坐标, #红色 )
如果真 (求平方根 (求次方 (横坐标 － 250, 2) ＋ 求次方 (纵坐标 － 250, 2)) ≤ 250)
m ＝ m ＋ 1

计次循环尾 ()
标签2.标题 ＝ 到文本 (m ÷ 到整数 (编辑框.内容) × 4)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮_被单击<br /> .局部变量 横坐标, 整数型<br /> .局部变量 纵坐标, 整数型<br /> .局部变量 m, 整数型<br /> <br /> m ＝ 0<br /> 标签2.标题 ＝ “计算中...”<br /> 画板.清除 (, , , )<br /> 延时 (500)<br /> 置随机数种子 ()<br /> 画板.画矩形 (0, 0, 500, 500)<br /> 画板.画椭圆 (0, 0, 500, 500)<br /> 延时 (100)<br /> ' 画随机点<br /> .计次循环首 (到整数 (编辑框.内容), )<br />     横坐标 ＝ 汇编_取随机数 (0, 500)<br />     纵坐标 ＝ 汇编_取随机数 (0, 500)<br />     画板.画点 (横坐标, 纵坐标, #红色)<br />     .如果真 (求平方根 (求次方 (横坐标 － 250, 2) ＋ 求次方 (纵坐标 － 250, 2)) ≤ 250)<br />         m ＝ m ＋ 1<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 标签2.标题 ＝ 到文本 (m ÷ 到整数 (编辑框.内容) × 4)

蒙特卡洛求π值.e (3.95 KB, 下载次数: 81)

2019-2-25 22:24 上传

点击文件名下载附件

吃泡面加不起蛋

应该调用钱置随机数种子

334065024

高手，学习一下

wxj213

#在这里快速回蒙特卡洛求π值.复#

watermelon

都是高手，学习一下。。

项目部002

感谢反馈，已着手处理

dangerace

用”汇编_取随机数”命令生成10000个0-100的整数，对各个整数的出现次数进行了粗略分析：

从图像上看，觉得取出的随机数随机性应该还可以。
那么原文中为什么会出现非常奇特的条形图案呢？我分析可能是取横、纵坐标的前后两个取随机数命令，汇编版因为原理问题两次取出的整数变化趋势比较接近，导致横坐标和纵坐标均同时增大或减小，而不是像核心库版那样每次取数都完全“随机”，互相之间没有联系。
所以，如果程序中只使用一次汇编版的取随机数命令，则没有什么太大的问题。但是如果因为需要而连续使用汇编版的取随机数，则每次取出的数很可能会具有某种规律性。


用excel对汇编版连续生成的两个数字进行分析，重现了上面的情况，例如上图中，如果x=15，则y=2，紧接着x=16，y=3，x=17,y=4。。。。

jr21066

代码是简单的取随机.RDTSC取的时序.如果cpu够新.可以使用硬件来取随机数.

http://bbs.eyuyan.com/read.php?tid=405670