GameMale
登陆 / 注册 搜索

USERCENTER

SEARCHSITE

搜索

查看: 1377|回复: 33
收起左侧

[技术交流] 【自编脚本】R语言告诉你:离三黄蛋还有多远?

[复制链接] |关注本帖

裸体克里斯圣甲虫秘典【新春限定】果体 隆生金蛋的鹅永远的克叔亚瑟‧摩根史莱姆牧场虚空之海的鲸業火死鬥Forever Titanic

     楼主| 星之子 发表于 2024-10-20 00:15:02 | 显示全部楼层 |阅读模式 <
    本帖最后由 星之子 于 2024-10-20 00:27 编辑
    动机
    我也不知道我的脑子大半夜在抽什么疯,总之就是突然想想看看自己离一帖生三魂还有多远,就简单写了一小段R。
    发完帖回来编辑:这帖一个都没生(悲)

    使用方法

    修改m和n参数,其中m代表含【2%发帖+1灵魂】词条勋章的数量,同理n则是【1%发帖+1灵魂】。
    改完参数之后,运行代码即可输出(个人感觉四黄蛋概率太过渺茫、没有统计学意义,所以只到了三黄蛋,如果有需要,可以依葫芦画瓢自行添加一行)。
    一帖至少3魂的概率为: 0.000752377 平均主题数: 1329.121
    一帖至少2魂的概率为: 0.01471589 平均主题数: 67.95375
    一帖至少1魂的概率为: 0.1745055 平均主题数: 5.730479
    寄,1329帖感觉要发到下辈子(这是可以说的吗

    代码

    1. # 至少成功k次
    2. KSouls <- function(m, n, k) {
    3.   # 成功率为2%的实验次数和1%的实验次数
    4.   prob_m <- 0.02
    5.   prob_n <- 0.01
    6.   # 计算至少成功k次的概率
    7.   total_prob <- 0
    8.   for (i in 0:m) {
    9.     for (j in 0:n) {
    10.       if ((i + j) >= k) {
    11.         # 计算m次成功i次的概率和n次成功j次的概率的乘积
    12.         prob_i <- dbinom(i, m, prob_m)
    13.         prob_j <- dbinom(j, n, prob_n)
    14.         total_prob <- total_prob + (prob_i * prob_j)
    15.       }
    16.     }
    17.   }
    18.   return(total_prob)
    19. }

    20. # 参数m和n分别是2%魂和1%魂勋章的数量 执行前在此处修改
    21. m <- 8
    22. n <- 3
    23. cat("一帖至少3魂的概率为:",KSouls(m, n, 3),"平均主题数:",1/KSouls(m, n, 3),"\n")
    24. cat("一帖至少2魂的概率为:",KSouls(m, n, 2),"平均主题数:",1/KSouls(m, n, 2),"\n")
    25. cat("一帖至少1魂的概率为:",KSouls(m, n, 1),"平均主题数:",1/KSouls(m, n, 1),"\n")
    复制代码

    R语言虽然比较冷门,但解决概率论问题的时候还是蛮舒服的。而且本身相对轻量,用什么包就装什么包。
    我个人是用部署在本地的R和R Studio,但在线工具也很好找。随便在Google搜索,比如关键词“在线运行R”,就能搜出一大片。
    我这里也是在搜的几个中,随便挑了一个界面看着好看点儿的点击直达,效果如下:





    来自群组: 星象占卜

    本帖子中包含更多资源

    您需要 登录 才可以下载或查看,没有账号?立即注册

    x

    评分

    参与人数 1血液 +3 追随 +1 堕落 +1 收起 理由
    三分春色描来易 + 3 + 1 + 1 很给力!

    查看全部评分

    回复

    使用道具 举报

    漂洋小船冒险用指南针破损的旧书人鱼之泪雪王的心脏苏格兰圆脸胖鸡[Pro Max]丛林的鸟飞走了不曾寄出的信件幽灵竹筒『随时随地开启!』

      凯诺斯 发表于 2024-10-20 00:23:47 | 显示全部楼层 <
      回复

      举报

      吃了一半的面包暗纹鲨遍江云霞狩猎用小刀布衣+10 史诗的奇怪的宝箱赛博朋克2077荒野大镖客:救赎 II

        a1343672175 发表于 2024-10-20 00:25:27 | 显示全部楼层 <
        回复

        举报

        『搓粉团珠』永亘环裸体克里斯【圣诞限定】心心念念小雪人虚空之海的鲸黑曜石赤螯蝎我的天使

          cinder 发表于 2024-10-20 00:28:47 | 显示全部楼层 <
          回复

          举报

          永亘环小狮欢舞『搓粉团珠』黄粱一梦【新春限定】果体 隆死灵之书永远的克叔業火死鬥实现梦想官复原职

            娱乐法师火布偶 发表于 2024-10-20 00:35:41 | 显示全部楼层 <
            回复

            举报

            男巫之歌缘起星空信仰之心不灭狂雷『不败之花』【新春限定】果体 隆红心玉情难自抑崩朽之青铜龙王泰比里厄斯

              Freeze123 发表于 2024-10-20 00:42:31 | 显示全部楼层 <
              回复

              举报

              没有梦想的咸鱼『不败之花』『搓粉团珠』永亘环都市:天际线2岛田半藏岛田源氏刀锋女王 - 归宿丹妮莉丝·坦格利安

                娱乐伙伴琴键猴 发表于 2024-10-20 00:47:39 | 显示全部楼层 <
                回复

                举报

                无瑕的回忆朴素的誓言卡利亚权杖BIG BOSS亚当‧简森虚空之海的鲸保加利亚妖王辐射:新维加斯杰森‧斯坦森

                  sinhotiger 发表于 2024-10-20 00:57:47 | 显示全部楼层 <
                  回复

                  举报

                  我的天使天灾骑士和你一起飞行的皮卡丘吃饱金币的Doge官复原职实现梦想冰原史莱姆牧场丹妮莉丝·坦格利安不朽之恋

                    2297988 发表于 2024-10-20 01:03:45 | 显示全部楼层 <
                    回复

                    举报

                    卡洛斯·奥利维拉The original vampire超人罗根剑指撒冷

                      恶之华 发表于 2024-10-20 01:20:56 | 显示全部楼层 <
                      回复

                      举报

                      亚索月影狼晓月终焉旅行骰子!卡利亚权杖

                        黑达克 发表于 2024-10-20 01:26:56 | 显示全部楼层 <
                        回复

                        举报

                        我的天使GM吸血伯爵吃饱金币的Doge阿拉喵?神灯苏格兰圆脸胖鸡小小舞台永浴爱河

                          毛茸茸兽兽 发表于 2024-10-20 02:09:07 | 显示全部楼层 <
                          回复

                          举报

                          『搓粉团珠』雪王的心脏肉垫手套『落樱缤纷』里昂‧S‧甘乃迪小小安全帽丹雀衔五穗,人间始丰登『随时随地开启!』『随时随地开启!』寶可夢 Pokémon

                            zhuovboyan 发表于 2024-10-20 04:20:48 | 显示全部楼层 <
                            回复

                            举报

                            雷霆晶球敖蜃星炼金之心召唤古代战士邪恶圣杯百相千面-戏弗图AI岛田半藏诺克提斯·路西斯·伽拉姆铁汉柔情

                              2302594 发表于 2024-10-20 06:39:38 | 显示全部楼层 <
                              回复

                              举报

                              缘起星空虚空之海的鲸

                                you9632587 发表于 2024-10-20 07:38:26 | 显示全部楼层 <
                                回复

                                举报

                                最终幻想XIV最终幻想XVI赛博朋克2077丹妮莉丝·坦格利安希尔瓦娜斯·风行者官复原职塞巴斯蒂安·斯坦杰森‧斯坦森荒野大镖客:救赎 II

                                  tuxonstar 发表于 2024-10-20 08:20:24 | 显示全部楼层 <
                                  回复

                                  举报

                                  裸体克里斯海螺号角虚空之海的鲸卡利亚权杖Vergil卡洛斯·奥利维拉杰西·麦克雷官复原职实现梦想丹雀衔五穗,人间始丰登

                                    drtdrtf 发表于 2024-10-20 08:32:01 | 显示全部楼层 <
                                    回复

                                    举报

                                    牧羊人桑克瑞德·沃特斯Act of Ultimate Trust库伦 (审判)Drover威克多尔·克鲁姆驯化红龙幼崽猎鹰图腾小丑与格雷与星光璀璨

                                      Vins 发表于 2024-10-20 10:15:42 | 显示全部楼层 <
                                      回复

                                      举报

                                      阿拉喵?神灯和你一起飞行的皮卡丘GHOST实现梦想吃饱金币的Doge幸福的小阿尔男巫之歌『落樱缤纷』『搓粉团珠』组成家庭

                                        1017186309 发表于 2024-10-20 10:54:10 | 显示全部楼层 <
                                        回复

                                        举报

                                        『不败之花』『搓粉团珠』永亘环小狮欢舞金牌矿工幸运女神的微笑人鱼之泪和你一起飞行的皮卡丘圣甲虫秘典幸福的小阿尔

                                          PURO_ 发表于 2024-10-20 10:57:42 | 显示全部楼层 <
                                          回复

                                          举报

                                          您需要登录后才可以回帖 登录 | 立即注册

                                          本版积分规则

                                          关闭

                                          站长公告

                                          【日常卡片】积分抽奖长驻
                                          【日常卡片】积分抽奖长驻
                                          坛友们可以通过【日常卡片】获得血液积分奖励:每日2枚金币可以抽取5~25点血液!

                                          查看 »

                                          文字版|手机版|小黑屋|GameMale

                                          GMT+8, 2025-2-27 23:45 , Processed in 0.389909 second(s), 147 queries , Redis On.

                                          Copyright © 2013-2025 GameMale

                                          All Rights Reserved.

                                          快速回复 返回列表