求助：希望实现易语言按照设定权重生成随机数

胖KK

假设要生成一个1-50区间的随机数，但每个数字的权重不一样，1可能只有千分之一的概率，而2可能有5%，权重是手动赋予的。

我刚开始的想法是每个概率×1万，然后给每个区间定义上1-50，然后抽取一个10000的随机数，如果随机数是1-10，那么返回1，如果随机数是11-510，那么返回2·······但最后一百万次返回结果表明结果不符合原先设定的权限。经过筛查发现，10000的随机数落到1-100的概率奇低。

后来我设计了一个10000长度的一维数组，数组数值是1-50随机分布且符合权重值。然后在取万级随机数，但一百万次测试返回的结果依然不符合权重分布规律。代码新人爱好者，不太懂太深奥的，求大神指导一下。


[url=]随机数.e[/url]

  

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
初始权重	权重分布	65
数据库句柄	整数型
记录集句柄	整数型
随机种子b	整数型
随机种子a	整数型

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
sql	文本型
循环的次数	整数型
字段值	整数型
随机数	整数型
随机统计	整数型		100

计次循环首 (65, 循环的次数)
' 初始权重 [循环的次数].权重 ＝ 到整数 (标准输入 ())
初始权重 [循环的次数].权重 ＝ 100
初始权重 [循环的次数].代表值 ＝ 循环的次数
计次循环尾 ()
置随机数种子 (取启动时间 ())
随机种子a ＝ 取随机数 (1, 10000)
计次循环首 (1000, )
置随机数种子 (随机种子a)
随机种子b ＝ 取随机数 (1, 10000)
随机数 ＝ 生成随机数 (初始权重)
随机统计 [随机数] ＝ 随机统计 [随机数] ＋ 1
计次循环尾 ()
计次循环首 (65, 循环的次数)
标准输出 (, 到文本 (循环的次数) ＋ “：” ＋ 到文本 (随机统计 [循环的次数]) ＋ “    ”)
如果真 (循环的次数 ��� (循环的次数 ＼ 10) × 10 ＝ 0)
标准输出 (, #换行符 )

计次循环尾 ()
延迟 (10000)
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
生成随机数	整数型
参数名	类 型	参考	可空	数组	备 注
权值	权重分布

变量名	类 型	静态	数组	备 注
最大值	整数型
循环的次数	整数型
模拟次数	整数型
已完成权分布	整数型
权分布位置	整数型
权分布	整数型		10000
数值	整数型
随机数位置	整数型
随机数	整数型
局部权值	权重分布		100
总权	整数型

复制数组 (局部权值, 权值)
最大值 ＝ 取数组成员数 (局部权值)
模拟次数 ＝ 10000
计次循环首 (最大值, 循环的次数)
总权 ＝ 总权 ＋ 局部权值 [循环的次数].权重  ' 所有权重不为1万，所以要将总权重达到一万
计次循环尾 ()
计次循环首 (最大值, 循环的次数)
局部权值 [循环的次数].权重 ＝ 局部权值 [循环的次数].权重 ÷ 总权 × 10000 ＋ 1  ' 重新赋予每个单位权重，保证总权重为1万，这里的+1是因为数值为整数，小数位会舍弃，导致不足1万。
计次循环尾 ()
已完成权分布 ＝ 0
置随机数种子 (随机种子b)  ' 原来没有这个，用的计算机启动时间，但发现短时间每次运行结果一样。
判断循环首 (已完成权分布 ≠ 模拟次数)
权分布位置 ＝ 万级随机数 ()  ' 设定一个一万长度的数组，每次从1万中取随机数，
如果 (权分布 [权分布位置] ＞ 0)  ' 如果数组对应的随机数为0，那么再取（1~最大值）的随机数将其填充，
' 如果数组对应随机数不为0，那么证明之前取样过，则再次生成一万的随机数。


数值 ＝ 取随机数 (1, 最大值)
权分布 [权分布位置] ＝ 局部权值 [数值].代表值
如果 (局部权值 [数值].权重 ＝ 1)  ' 当取出（1~最大值）的随机数并赋值后，需将其权重-1，权重为0时删除。以保证数组中的数值符合权重分布规律。
删除成员 (局部权值, 数值, )
最大值 ＝ 最大值 － 1



局部权值 [数值].权重 ＝ 局部权值 [数值].权重 － 1

已完成权分布 ＝ 已完成权分布 ＋ 1  ' 当分配10000次后，结束循环。计算过总循环次数，循环次数基本符合概率学规律。

判断循环尾 ()
随机数位置 ＝ 万级随机数 ()  ' 再次取一个随机数，查找数组对应位置的值并返回。
随机种子a ＝ 随机数位置 × 随机数位置  ' 防止多次运行结果一样
随机数 ＝ 权分布 [随机数位置]
返回 (随机数)

子程序名	返回值类型	公开	备 注
万级随机数	整数型

变量名	类 型	静态	数组	备 注
返回值	整数型

返回值 ＝ 取随机数 (0, 9) ＋ 取随机数 (0, 9) × 10 ＋ 取随机数 (0, 9) × 100 ＋ 取随机数 (0, 9) × 1000 ＋ 1  ' 在论坛查的，随机数取小数时更加平均分布。
返回 (返回值)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> .程序集变量 初始权重, 权重分布, , "65"<br /> .程序集变量 数据库句柄, 整数型<br /> .程序集变量 记录集句柄, 整数型<br /> .程序集变量 随机种子b, 整数型<br /> .程序集变量 随机种子a, 整数型<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 sql, 文本型<br /> .局部变量 循环的次数, 整数型<br /> .局部变量 字段值, 整数型<br /> .局部变量 随机数, 整数型<br /> .局部变量 随机统计, 整数型, , "100"<br /> <br /> .计次循环首 (65, 循环的次数)<br />     ' 初始权重 [循环的次数].权重 ＝ 到整数 (标准输入 ())<br />     初始权重 [循环的次数].权重 ＝ 100<br />     初始权重 [循环的次数].代表值 ＝ 循环的次数<br /> .计次循环尾 ()<br /> <br /> 置随机数种子 (取启动时间 ())<br /> 随机种子a ＝ 取随机数 (1, 10000)<br /> .计次循环首 (1000, )<br />     置随机数种子 (随机种子a)<br />     随机种子b ＝ 取随机数 (1, 10000)<br />     随机数 ＝ 生成随机数 (初始权重)<br />     随机统计 [随机数] ＝ 随机统计 [随机数] ＋ 1<br /> .计次循环尾 ()<br /> .计次循环首 (65, 循环的次数)<br />     标准输出 (, 到文本 (循环的次数) ＋ “：” ＋ 到文本 (随机统计 [循环的次数]) ＋ “    ”)<br />     .如果真 (循环的次数 － (循环的次数 ＼ 10) × 10 ＝ 0)<br />         标准输出 (, #换行符)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 延迟 (10000)<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 生成随机数, 整数型<br /> .参数 权值, 权重分布, 数组<br /> .局部变量 最大值, 整数型<br /> .局部变量 循环的次数, 整数型<br /> .局部变量 模拟次数, 整数型<br /> .局部变量 已完成权分布, 整数型<br /> .局部变量 权分布位置, 整数型<br /> .局部变量 权分布, 整数型, , "10000"<br /> .局部变量 数值, 整数型<br /> .局部变量 随机数位置, 整数型<br /> .局部变量 随机数, 整数型<br /> .局部变量 局部权值, 权重分布, , "100"<br /> .局部变量 总权, 整数型<br /> <br /> 复制数组 (局部权值, 权值)<br /> 最大值 ＝ 取数组成员数 (局部权值)<br /> 模拟次数 ＝ 10000<br /> .计次循环首 (最大值, 循环的次数)<br />     总权 ＝ 总权 ＋ 局部权值 [循环的次数].权重  ' 所有权重不为1万，所以要将总权重达到一万<br /> .计次循环尾 ()<br /> .计次循环首 (最大值, 循环的次数)<br />     局部权值 [循环的次数].权重 ＝ 局部权值 [循环的次数].权重 ÷ 总权 × 10000 ＋ 1  ' 重新赋予每个单位权重，保证总权重为1万，这里的+1是因为数值为整数，小数位会舍弃，导致不足1万。<br /> .计次循环尾 ()<br /> 已完成权分布 ＝ 0<br /> 置随机数种子 (随机种子b)  ' 原来没有这个，用的计算机启动时间，但发现短时间每次运行结果一样。<br /> .判断循环首 (已完成权分布 ≠ 模拟次数)<br />     权分布位置 ＝ 万级随机数 ()  ' 设定一个一万长度的数组，每次从1万中取随机数，<br />     .如果 (权分布 [权分布位置] ＞ 0)  ' 如果数组对应的随机数为0，那么再取（1~最大值）的随机数将其填充，<br />         ' 如果数组对应随机数不为0，那么证明之前取样过，则再次生成一万的随机数。<br />     .否则<br /> <br />         数值 ＝ 取随机数 (1, 最大值)<br />         权分布 [权分布位置] ＝ 局部权值 [数值].代表值<br />         .如果 (局部权值 [数值].权重 ＝ 1)  ' 当取出（1~最大值）的随机数并赋值后，需将其权重-1，权重为0时删除。以保证数组中的数值符合权重分布规律。<br />             删除成员 (局部权值, 数值, )<br />             最大值 ＝ 最大值 － 1<br /> <br />         .否则<br /> <br />             局部权值 [数值].权重 ＝ 局部权值 [数值].权重 － 1<br />         .如果结束<br /> <br />         已完成权分布 ＝ 已完成权分布 ＋ 1  ' 当分配10000次后，结束循环。计算过总循环次数，循环次数基本符合概率学规律。<br />     .如果结束<br /> <br /> .判断循环尾 ()<br /> 随机数位置 ＝ 万级随机数 ()  ' 再次取一个随机数，查找数组对应位置的值并返回。<br /> 随机种子a ＝ 随机数位置 × 随机数位置  ' 防止多次运行结果一样<br /> 随机数 ＝ 权分布 [随机数位置]<br /> 返回 (随机数)<br /> <br /> <br /> .子程序 万级随机数, 整数型<br /> .局部变量 返回值, 整数型<br /> <br /> 返回值 ＝ 取随机数 (0, 9) ＋ 取随机数 (0, 9) × 10 ＋ 取随机数 (0, 9) × 100 ＋ 取随机数 (0, 9) × 1000 ＋ 1  ' 在论坛查的，随机数取小数时更加平均分布。<br /> 返回 (返回值)

补充内容 (2023-7-2 02:34):
补充说明：不是生成上万个数据，查看是否符合权重。而是65个样本每天抽10个.因此我的检验方法是：每生成10个数字，随机重置种子，模拟每天变化。

xiikcc

也许可以这样:1 多导入3个,2 导入2个, 3导入1个,然后随机打乱,然后在随机取,这样是不是也算另类的权重了

Bszk

最简单的方法：按照权重生成一个数组，然后根据数组数量取随机数作为下标

wu567

那你就创建一个数组，用于记录50个数值的出现次数，出现过的数值跳过，每50次重置一下数组

美稀宗

正如xiikcc所说，想符合大概几率，重复添加是个不错的选择。

  

子程序名	返回值类型	公开	备 注
子程序2

变量名	类 型	静态	数组	备 注
随机数池	整数型		0
i	整数型
k	整数型
随机数	整数型
随机数分布	整数型		0
概率	小数型
总数	文本型

' 1|1%,2|2%......9|9%,0是剩余
i ＝ 1
k ＝ 0
循环判断首 ()
计次循环首 (i, )
加入成员 (随机数池, i)
k ＝ k ＋ 1
计次循环尾 ()
i ＝ i ＋ 1
循环判断尾 (i ＜ 10)
计次循环首 (100 － k, )
加入成员 (随机数池, 0)
计次循环尾 ()
重定义数组 (随机数分布, 假, 10)
置随机数种子 ()
计次循环首 (1000000, )
随机数 ＝ 取随机数 (1, 100)
如果真 (随机数池 [随机数] ＝ 1)
随机数分布 [1] ＝ 随机数分布 [1] ＋ 1
如果真 (随机数池 [随机数] ＝ 2)
随机数分布 [2] ＝ 随机数分布 [2] ＋ 1
如果真 (随机数池 [随机数] ＝ 3)
随机数分布 [3] ＝ 随机数分布 [3] ＋ 1
如果真 (随机数池 [随机数] ＝ 4)
随机数分布 [4] ＝ 随机数分布 [4] ＋ 1
如果真 (随机数池 [随机数] ＝ 5)
随机数分布 [5] ＝ 随机数分布 [5] ＋ 1
如果真 (随机数池 [随机数] ＝ 6)
随机数分布 [6] ＝ 随机数分布 [6] ＋ 1
如果真 (随机数池 [随机数] ＝ 7)
随机数分布 [7] ＝ 随机数分布 [7] ＋ 1
如果真 (随机数池 [随机数] ＝ 8)
随机数分布 [8] ＝ 随机数分布 [8] ＋ 1
如果真 (随机数池 [随机数] ＝ 9)
随机数分布 [9] ＝ 随机数分布 [9] ＋ 1
如果真 (随机数池 [随机数] ＝ 0)
随机数分布 [10] ＝ 随机数分布 [10] ＋ 1

计次循环尾 ()
计次循环首 (10, i)
概率 ＝ 随机数分布 [i] ÷ 1000000 × 100
总数 ＝ 总数 ＋ 到文本 (概率) ＋ 选择 (i ＜ 10, “|”, “”)
计次循环尾 ()
调试输出 (总数)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 子程序2<br /> .局部变量 随机数池, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 k, 整数型<br /> .局部变量 随机数, 整数型<br /> .局部变量 随机数分布, 整数型, , "0"<br /> .局部变量 概率, 小数型<br /> .局部变量 总数, 文本型<br /> <br /> ' 1|1%,2|2%......9|9%,0是剩余<br /> i ＝ 1<br /> k ＝ 0<br /> .循环判断首 ()<br />     .计次循环首 (i, )<br />         加入成员 (随机数池, i)<br />         k ＝ k ＋ 1<br />     .计次循环尾 ()<br />     i ＝ i ＋ 1<br /> .循环判断尾 (i ＜ 10)<br /> .计次循环首 (100 － k, )<br />     加入成员 (随机数池, 0)<br /> .计次循环尾 ()<br /> 重定义数组 (随机数分布, 假, 10)<br /> 置随机数种子 ()<br /> .计次循环首 (1000000, )<br />     随机数 ＝ 取随机数 (1, 100)<br />     .如果真 (随机数池 [随机数] ＝ 1)<br />         随机数分布 [1] ＝ 随机数分布 [1] ＋ 1<br />     .如果真结束<br />     .如果真 (随机数池 [随机数] ＝ 2)<br />         随机数分布 [2] ＝ 随机数分布 [2] ＋ 1<br />     .如果真结束<br />     .如果真 (随机数池 [随机数] ＝ 3)<br />         随机数分布 [3] ＝ 随机数分布 [3] ＋ 1<br />     .如果真结束<br />     .如果真 (随机数池 [随机数] ＝ 4)<br />         随机数分布 [4] ＝ 随机数分布 [4] ＋ 1<br />     .如果真结束<br />     .如果真 (随机数池 [随机数] ＝ 5)<br />         随机数分布 [5] ＝ 随机数分布 [5] ＋ 1<br />     .如果真结束<br />     .如果真 (随机数池 [随机数] ＝ 6)<br />         随机数分布 [6] ＝ 随机数分布 [6] ＋ 1<br />     .如果真结束<br />     .如果真 (随机数池 [随机数] ＝ 7)<br />         随机数分布 [7] ＝ 随机数分布 [7] ＋ 1<br />     .如果真结束<br />     .如果真 (随机数池 [随机数] ＝ 8)<br />         随机数分布 [8] ＝ 随机数分布 [8] ＋ 1<br />     .如果真结束<br />     .如果真 (随机数池 [随机数] ＝ 9)<br />         随机数分布 [9] ＝ 随机数分布 [9] ＋ 1<br />     .如果真结束<br />     .如果真 (随机数池 [随机数] ＝ 0)<br />         随机数分布 [10] ＝ 随机数分布 [10] ＋ 1<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .计次循环首 (10, i)<br />     概率 ＝ 随机数分布 <i> ÷ 1000000 × 100<br />     总数 ＝ 总数 ＋ 到文本 (概率) ＋ 选择 (i ＜ 10, “|”, “”)<br /> <br /> .计次循环尾 ()<br /> 调试输出 (总数)

一百万次循环下来，符合预设概率

笨来无一悟

实现起来好像不难 关键是要看怎么设计写法 内存占用少 代码也少

胖KK

美稀宗 发表于 2023-7-1 23:29
正如xiikcc所说，想符合大概几率，重复添加是个不错的选择。
[e=1].版本 2
.支持库 spec

我原本也是这样弄得。。结果有一个问题：虽然运行一万次概率平均，但正常使用时我只需要65个数取10个不重复的。因此我是取十个数，然后重置一次随机数种子（模拟今天取10次，明天在取10次这样的情形），重复几万次，发现就是不平均。
需求场景就好比上课点名，程序正常的，但就是某些人一直不被抽到。。。

笨来无一悟

几何概型求解权重随机

胖KK

笨来无一悟 发表于 2023-7-2 06:46
几何概型求解权重随机

大佬，每取10个随机数，随机重置“随机数种子”。（模拟的是今天取10个随机数，明天在取10个随机数），然后反馈的结果就差太多了，

笨来无一悟

胖KK 发表于 2023-7-2 10:06
大佬，每取10个随机数，随机重置“随机数种子”。（模拟的是今天取10个随机数，明天在取10个随机数），然 ...

突然懂了 你指的是 某个数设置了百分之1的权重 随机很多很多次 结果出现的次数和你设置的权重不一样?建议你先随机一大堆0到9 看看随机无数次 出现的次数是不是都是十分之一 你搞清楚 这是随机 理论值是理论值 实际情况是实际情况