龙字期望大约1000金出

hiddenmarkovmodel 关注

1. set.seed(666)
   
2. p <- c(.12, .12, .12, .11, .11, .11, .12, .07, .07, .03, .01, .01)
   
3. B <- 100000
   
4. x <- numeric(B)
   
5. for (i in 1:B) {
   
6.   sam <- sample(1:12, prob = p, replace = F)
   
7.   x[i] <- which(sam == 7) * 200
   
8. }
   
9. theta <- sum(x) / B
   
10. se <- sqrt(var(x) / B)
    
11. CI <- c(theta - 1.96 * se, theta + 1.96 * se)
    
12. theta
    
13. CI

复制代码

> theta
[1] 1000.828
> CI
[1]  997.3574 1004.2986

3507*** 关注

我1400出的，是不是亏大了？

sunlang35 关注

我花了800出的

煽情的扮演 关注

set.seed(666)                                                                         /设置种子为666号，即为666号种子的结果将会发生，这个意思大概有可能代表着每个人的概率在活动出来时已经固定/
p <- c(.12, .12, .12, .11, .11, .11, .12, .07, .07, .03, .01, .01)      /设置每个物品的概率/
B <- 100000                                                                          /设置一个代码/
x <- numeric(B)                                                                     /设置一个代码/  
for (i in 1:B) {                                                                        /i会在1到B中/
  sam <- sample(1:12, prob = p, replace = F)                           /从1到12中抽取一个，prob为概率，就是p那一排，replace=f代表着不放回的抽取/
  x <- which(sam == 7) * 200                                             /这句话我不是太懂，这句话大概是指如果没有点到第7排的，就可以再点一次，每次200金币，在游戏里面的表示结果是6排2列都可以抽奖，每次消耗200金币/
}
theta <- sum(x) / B                                                               /设置了theta的计算公式/
se <- sqrt(var(x) / B)                                                            /设置了se的计算公式/
CI <- c(theta - 1.96 * se, theta + 1.96 * se)                           /设置了CI，并将这两个公式的结果组成了向量/
theta                                                                                  /输出theta/
CI                                                                                      /输出CI/

首先声明我是业余的，如果我翻译的有问题，出现了错误，就当我没说过这一段话。
这段代码是R语言，虽然我没学过这种语言，但因为学过其他的语言，再查查资料后大概能懂这段代码的意思。
根据我查的资料，这个抽奖是一个伪随机事件，意思是你抽龙字花多少金子，跟set.seed()有关。
关于伪随机和set.seed()，你可以这么理解：
       现在有1,2,两个数字，进行不放回抽取2次
       抽到的顺序为 1 2   2 1这2种情况，前面的为set.seed(1)，后面的为set.seed(2)
       然后来了10个人要进行抽取，但在抽取之前，他们10个人会被分配set.seed()这一函数，而括号中数字相同的人，他们的抽取结果也是相同的。
       所以伪随机就是，系..统会先进行随机组合，每一个组合会赋予一个代号，如果有人来进行抽取，系..统会赋予这个人一个代号，所以不管他怎么抽取，实际上的结果，已经由set.seed()这一个函数所决定。

放在游戏中，你抽龙的花费已经由set.seed()确定了，我不知道刷新会不会改变set.seed()括号中的数字，但可以试一试。
最后，我这个理论是无法在游戏中验证的，理论上一共有12！=4 7900 1600 种可能，现在活人有没有1万都难讲，你要是想去验证，可以看看set.seed()括号中的数字是否一样，一样的时候，你再试试抽取的顺序是否是一样的。

hiddenmarkovmodel 关注

煽情的扮演 发表于 2022-1-29 22:38
set.seed(666)                                                                         /设置种子为666 ...

R的sample采样个数默认为length(arg1)，因此sample(1:10)的输出是1到10的一种排列
which(sam==7)是取7这个元素的index(龙字是第7个)，代表了要抽到龙字所需要的次数
网页上看有方括号i，x【i】<- which(sam==7)*200，手机上没看到，你的回复里也没有，这可能造成了一定困扰，可能是因为方括号i在这里被编译成了斜体声明

随机数种子只是为了数值结果可复现，随手加的，这里不是很重要，毕竟模拟了B=100000次

宇豪 关注

上图吧  不知道楼主说的概率

上等兵 关注

还是概率吧。

ncjhcioa 关注

转盘知道吧～～～假设是百分之10的中奖率～它并不是抽100次中10次也不是抽10次中1次。他是每次抽奖都是单独计算的，每次都是百分之十

ncjhcioa 关注

你就算抽1万次，他还是百分之10

ncjhcioa 关注

没有多少次稳定中的，但乐趣应该有一个阀值，达到这个阀值可能就会中。以我自身的经历这个阀值应该还是不固定，具体还可能涉及到你的充值力度，游戏时长，距离上一次充值的时长。
很多同僚放映过一个情况就是之前没钱充值得钱亦或者没充值但偶尔人品爆发经常中大奖～～～但充值过后中奖率感人。（应该很多人有这个问题吧）。