【异界方块】R语言计算本次活动概率
先说结论一等奖概率: 0.045208 （4.5%）
二等奖概率: 0.32307 （32.3%）
三等奖概率: 0.631722 （63.2%）
总和: 1
比起新年的活动，1-2等奖的中奖概率可以说翻倍了，我记得今年过年的中奖率从8个数字提升到15个数字，中奖率才35%
（但是我依旧什么都没有）
感兴趣的同学可以让AI跑一下发1贴和2贴的概率是多少，我就摸鱼去了
R语言线上执行网页https://rtool.cn/run/r400.html
相关代码如下
# 定义颜色及其概率
colors <- c("金色", "黑色", "白色", "绿色", "蓝色", "粉色",
"橙色", "红色", "紫色", "青色")
probs<- c(0.01, 0.04, 0.04, 0.13, 0.13, 0.13,
0.13, 0.13, 0.13, 0.13)
# 生成所有有序组合（3 次抽取，每次独立）
results <- expand.grid(rep(list(colors), 3), stringsAsFactors = FALSE)
colnames(results) <- c("c1", "c2", "c3")
# 计算每个结果的概率（乘积）
results$prob <- apply(results, 1, function(x) {
prod(probs)
})
# 判断每个结果的中奖等级（优先级：一 > 二 > 三）
award <- character(nrow(results))
for (i in 1:nrow(results)) {
triple <- as.character(results)
freq <- table(triple)
n_unique <- length(freq)
# ----- 一等奖 -----
# 条件1：含有金色（至少一次）
# 条件2：三个颜色相同
if ("金色" %in% triple || n_unique == 1) {
award <- "一等奖"
next
}
# ----- 二等奖 -----
# 条件1：两个相同 + 一个不同（且不含金色，因为金色已过滤）
if (n_unique == 2 && max(freq) == 2) {
award <- "二等奖"
next
}
# 条件2：黑、白、其他（三个不同颜色，且同时包含黑和白）
if (n_unique == 3 && "黑色" %in% triple && "白色" %in% triple) {
award <- "二等奖"
next
}
# ----- 三等奖 -----
# 三个不同颜色（此时一定不含金色，也不含黑+白组合）
if (n_unique == 3) {
award <- "三等奖"
next
}
# 理论上不应有未覆盖的情况，但以防万一
award <- "无奖"
}
# 汇总概率
prob_first<- sum(results$prob)
prob_second <- sum(results$prob)
prob_third<- sum(results$prob)
cat("一等奖概率:", prob_first, "\n")
cat("二等奖概率:", prob_second, "\n")
cat("三等奖概率:", prob_third, "\n")
cat("总和:", prob_first + prob_second + prob_third, "\n")
中奖的概率个人感觉差不多吧，最近的都是30%+左右变化不会很大{:6_169:} 哇，概率居然有提高吗，看来我太非了，什么感觉都没有，这下只能靠模拟爽爽了 三十多的概率已经很不错了，虽然大概率又是陪跑，但是霉运小精灵谁不想要呢（真的吗） 看样子这次的活动获奖概率还是很大的，而且三等奖也有个保底。 https://img.gamemale.com/album/202408/03/102143cg4m0k80083qhk80.gif主要这次三等奖也有个保底呢，总体上来说就是中了血赚不中也是不亏的程度 有横向对比才知道新年福卡的中奖率原来这么低吗，而且这回还有保底，以后新年福卡估计也有了，这是好事呀.jpg 有保底就是很好的事情啦，总好过没有保底至于中奖概率什么的，根本没指望过qaq
本非酋体质并不抱太大希望，0.5概率的抽卡都能5连歪{:6_164:} 今年周年庆的时候概率已经往上翻了一次了，晚些时候我也来算一下概率吧W，概率论大神，启动！ 这个活动基本上是纯运气了，不过有新的保底机制还不错 商人弗霖打开异界的百宝袋，袋口微光一闪，一枚【蓝色方块】轻巧地蹦了出来。 还好最低是三等奖，作为中奖绝缘体，这次会拿下第一个倒霉蛋了 好像已經有人計算過了
如果可以自動採集自己蒐集到甚麼方塊會很方便 还是会有2/3的人陪跑，感觉这次会陪跑(
不过今后有大保底都不亏 一发入魂的概率这么低咩(´×ω×`)要多发帖了啊～～懒～ https://img.gamemale.com/album/202509/04/083047t3sjzml6szil4o26.gif这次新增了保底机制，抽中三等奖也有小精灵~ 二等奖概率看起来也不低嘛！感觉有机会能欧到欸
运气女神眷顾我一次吧 还是得看个人运气，不然太倒霉的话，99%中奖率也是0 目前发了俩贴，我感觉已经是命中注定三等奖了
想要绝版勋章啊啊啊啊啊啊啊