以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]概率问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194561)
--  作者：ezilu
--  发布时间：2024/12/21 17:21:00
--  [求助]概率问题
比如有十个物品，物品1，物品2，物品3，…物品10
现在需要一段代码，让物品1出现的概率是90%，物品2出现的概率是70%，物品3出现的概率是50%，…每种物品的概率可以自由设定，这代码如何写？请教各位大咖，谢谢！
--  作者：有点蓝
--  发布时间：2024/12/21 17:40:00
--  
思路大概是
1、必须知道一个要出现的总次数，比如总共抽取100次，物品1出现的概率是90%，也就是100*0.9=90次....物品10出现的概率是10%，也就是100*0.1=10次
2、使用一个字典记录每个物品抽取的次数，使用一个变量记录抽取的总次数
3、使用do while不断循环处理
3.0、随机抽取
3.1、抽取到的物品到字典里判断有没有超出这个物品出现的次数
3.2、如果没有超出，就给字典这个物品次数+1；总次数+1
3.3、如果超出，就把这个物品从可抽取记录中删除
3.4、如果总次数>=100，就退出循环
--  作者：linyunu1
--  发布时间：2024/12/21 18:09:00
--  
Public Sub Main()
	Dim random As New Random()
	Dim items() As String = {"物品1", "物品2", "物品3", "物品4", "物品5", "物品6", "物品7", "物品8", "物品9", "物品10"}
	Dim probabilities() As Double = {0.9, 0.7, 0.5, 0.3, 0.2, 0.15, 0.12, 0.1, 0.08, 0.05}
	\' 确保概率之和为1
	Dim totalProbability As Double = probabilities.Sum()
	For i As Integer = 0 To probabilities.Length - 1
		probabilities(i) /= totalProbability
	Next
	\' 随机选择物品1000次并输出
	For i As Integer = 1 To 1000
		Dim randValue As Double = random.NextDouble()
		Dim cumulativeProbability As Double = 0
		For j As Integer = 0 To probabilities.Length - 1
			cumulativeProbability += probabilities(j)
			If randValue <= cumulativeProbability Then
				Console.WriteLine("第" & i & "次选中的物品是: " & items(j))
				Exit For
			End If
		Next
	Next
End Sub
这段代码将执行以下步骤：
  1. 初始化一个Random对象用于生成随机数。
  2. 定义物品数组items和对应的概率数组probabilities。
  3. 确保概率之和为1，通过将每个概率除以总概率来标准化。
  4. 循环1000次，每次生成一个0到1之间的随机数。
  5. 根据随机数和累积概率选择物品，并输出每次被选中的物品。