一边对多号养成严防死守，一边在加百利投放账绑自选套装史诗罐子

换一个名字刷c站

丹牛 发表于 2025-1-13 17:06
模拟次数: 10000
平均抽取次数 (达到 9 个不同小球): 16.6433
达到 80% 概率 (至少 9 个不同小球) 的抽 ...

那按照你这个来，我的估计是把他当独立变量算多了不少。我那这个算法算了一下，但是11件也要70多个。九件在计算太初武器的情况下也要三个多月还是大概率毕业。只能说没有想的快。

喵尼玛的愤怒

WINDKISS 发表于 2025-1-13 17:01
我有一小疑问❓，这个道具是需要碰加百利，那么需要花钱买深渊票，但是氪佬充的钱就流向了玩家或者币商，策 ...

这玩意摆明了照顾重氪玩家的游戏体验  大力氪金可以解决一切问题 让重氪大佬不至于脱坑跑路
以账号为单位送养成单个角色所需的深渊票的是照顾回归/新手的游戏体验 他们才是氪金的主力
牺牲了中氪轻氪多号党的利益 这些群体的角色都有最近几年的特色 对礼包不一定买账

换一个名字刷c站

丹牛 发表于 2025-1-13 17:06
模拟次数: 10000
平均抽取次数 (达到 9 个不同小球): 16.6433
达到 80% 概率 (至少 9 个不同小球) 的抽 ...

你这ai有问题吧，80%的要求怎么可能比平均值（50%）的要求还要低。我拿这个算法反推是要42次。

丹牛

qiuxin 发表于 2025-01-13 17:17:18
你这ai有问题吧，80%的要求怎么可能比平均值（50%）的要求还要低。我拿这个算法反推是要42次。 ...

Function SimulateBalls(numBalls As Integer, numDistinct As Integer, targetProbability As Double, numSimulations As Long) As Variant

  ' 声明变量
  Dim i As Long, j As Long
  Dim balls() As Integer
  Dim distinctCount As Integer
  Dim draws As Long
  Dim totalDraws As Long
  Dim successCount As Long
  Dim probabilityReached As Boolean
  Dim drawsForProbability As Long

  ' 初始化变量
  ReDim balls(1 To numBalls)
  totalDraws = 0
  successCount = 0
  probabilityReached = False
  drawsForProbability = 0

  ' 进行模拟
  For i = 1 To numSimulations
    ReDim distinctBalls(1 To numBalls) As Boolean ' 用于记录已抽到的不同小球
    distinctCount = 0
    draws = 0

    Do While distinctCount < numDistinct
      draws = draws + 1
      j = Int(Rnd() * numBalls) + 1 ' 随机抽取一个小球
      If Not distinctBalls(j) Then
        distinctBalls(j) = True
        distinctCount = distinctCount + 1
      End If
    Loop

    totalDraws = totalDraws + draws

    ' 检查是否达到目标概率
    If distinctCount >= numDistinct Then
        If Not probabilityReached Then ' 只记录第一次达到概率的抽取次数
            If successCount / i >= targetProbability Then
                drawsForProbability = draws
                probabilityReached = True
            End If
        End If
        successCount = successCount + 1
    End If
  Next i

  ' 计算平均抽取次数
  Dim averageDraws As Double
  averageDraws = totalDraws / numSimulations

  ' 将结果以数组形式返回
  Dim results(1 To 2) As Variant
  results(1) = averageDraws
    If probabilityReached Then
        results(2) = drawsForProbability
    Else
        results(2) = "未达到指定概率"
    End If


  SimulateBalls = results

End Function

Sub TestSimulateBalls()

    Dim numBalls As Integer
    Dim numDistinct As Integer
    Dim targetProbability As Double
    Dim numSimulations As Long
    Dim results As Variant

    numBalls = 11
    numDistinct = 9
    targetProbability = 0.8 ' 80%
    numSimulations = 10000 ' 模拟次数，越多越精确

    results = SimulateBalls(numBalls, numDistinct, targetProbability, numSimulations)

    Debug.Print "模拟次数: " & numSimulations
    Debug.Print "平均抽取次数 (达到 " & numDistinct & " 个不同小球): " & results(1)
    Debug.Print "达到 " & targetProbability * 100 & "% 概率 (至少 " & numDistinct & " 个不同小球) 的抽取次数: " & results(2)


    numDistinct = 11
    results = SimulateBalls(numBalls, numDistinct, targetProbability, numSimulations)

    Debug.Print "平均抽取次数 (达到 " & numDistinct & " 个不同小球): " & results(1)
    Debug.Print "达到 " & targetProbability * 100 & "% 概率 (至少 " & numDistinct & " 个不同小球) 的抽取次数: " & results(2)
End Sub

亚灭爹

你只会嘤嘤嘤 发表于 2025-1-13 14:54
白朴组合会让DNF再次伟大吗？MDGA!MDGA!

Again！Again！！

换一个名字刷c站

丹牛 发表于 2025-1-13 17:18
Function SimulateBalls(numBalls As Integer, numDistinct As Integer, targetProbability As Double,  ...

正确的应该是这个式子，你那这个去问你ai在算一遍。你可以问他他之前是不是算错了。我还专门拿chat跑了一遍，结果是k是次数，p(k)>0.8的话k=42

丹牛

qiuxin 发表于 2025-01-13 17:27:27
正确的应该是这个式子，你那这个去问你ai在算一遍。你可以问他他之前是不是算错了。我还专门拿chat跑了一 ...

数学还给老师了。。
42次我觉得挺正常的，不难接受

换一个名字刷c站

丹牛 发表于 2025-1-13 17:29
数学还给老师了。。
42次我觉得挺正常的，不难接受

42次，一天深渊票就算100块钱15个小号两天一个加上300的开罐子费用也要差不多14w呢。只能说还是非常贵。就这样15个小号一个月还刷不出来这么多。只能说全身快速毕业没有那么简单。你要30-40个小号住深渊才能一月毕业。但是你要是这么刷票肯定暴涨，会更贵。只能说比想象的难。

盖盖子没cp

可乐0823 发表于 2025-01-13 01:58:42
你搞错了 家人。策划照顾的不是头部玩家而是他们投资广告引流回来的回归玩家和新人他们只有一个大号。照顾 ...

有道理的

Panapo

很难不支持