如何求解下面的一个概率分布问题？ 第1页
1
liu-yang-zhou-23 网友的相关建议:
程序
Redball <- function(M, m, N) { ball = c(rep(1,m), rep(0,M-m)) ball = sample(ball, M) List = list() order = 1:M k = 0 for(i in 1:(M/N)) { B = sample(order,N) order = order[-B] List[[i]] = ball[B] if(max(ball[B])==1)k = k + 1 } list(组 = List, 含红球组数 = k) } pro.Redball <- function(M, m, N, n) #n为实验重复次数 { g = M/N + 1 b = rep(0,g) for(i in 1:n) { num = Redball(M,m,N)[[2]] + 1 b[num] = b[num] + 1 } p = b/n g = g - 1 barplot(p, names.arg = paste(0:g), col = rgb(0.3,0.5,0.7)) p } pro.Redball(24, 5, 6, 1000) 计算
注：此处我和题主有一对符号概念互换了，但是我将错就错了，不想改了。声明： 为组数， 为一组球的个数。
设组数 ， 表示第 组红球的个数， 表示第 组第 个球是否是红球，若是则 ；否则为 ，则满足不定方程：
则该方程解的全体 是全空间，显然有
而我们研究的 事件空间对应的不定方程：
设它的解集 ，
……
所求概率即为
其中
1
相关话题
如何用数学知识解答「在进行社区大规模核酸检测时，分成几人一组进行混检效率最高」？鹈鹕抽中 2019 年状元签，浓眉依然申请交易，鹈鹕今夏会怎么操作？
在本科数学阶段你学过最有趣的一门数学课是什么？为什么？
和女朋友在商场走丢了，随机乱逛和守在特定地点等候，哪个相遇的概率更高？
为什么熵值最大的分布状态是正态分布而不是均匀分布？
黑箱里有n个小球，编号为1, 2, ..., n，随机抽一个球的号码是10，能获得什么关于n的信息？
高级计量问题，主要跟线代概率论有关，求大佬解答?
以数据为基础从概率论的角度分析，飞机到底是不是最安全的交通工具？
分布函数相同，概率密度一定相同吗?
这个赌局的漏洞在哪里？
下一个讨论
请问是质数更多还是合数更多还是一样多？
相关的话题
如何用数学知识解答「在进行社区大规模核酸检测时，分成几人一组进行混检效率最高」？如果生男生女概率相同，且坚持计划生育政策，是否有可能以后中国只剩下一个姓？
多元回归为什么总可以转为多元线性回归？
概率论中，局部极限定理和积分极限定理不是一回事吗？
怎么通过一维分布的随机样本推测原分布？
有没有一种概率世界上有那么一个司机从来没有等过红灯?
有没有一种概率世界上有那么一个司机从来没有等过红灯?
从0,2 中选一个数字,从1,3,5中选两个数字,组成无重复数字的三位数,构成奇数的概率是多少？
这个赌局的漏洞在哪里？
为什么我提的知乎问题都没有人回答？要如何才能得到自己满意的回答？
相关系数和R方的关系是什么？
理想细绳随机切为n段，为什么最短段长度的期望为原长的1/n²？
分布函数相同，概率密度一定相同吗?
中心极限定理的适用范围有哪些？
数学中的概率是有漏洞的吗？我随机在R中取一个数，取到1的概率为0，但也是有可能取到的，这是怎么回事？
怎样用非数学语言讲解贝叶斯定理（Bayes's theorem）？
怎么通过一维分布的随机样本推测原分布？
离散型随机变量有没有概率密度？
概率论中的coupling是指什么？
圣彼得堡悖论，期望与实际相差为何这么大？
你遇到过哪些让你拍案叫绝的巧合？
圆内均匀随机地取三个点，三点确定的新圆在旧圆内的概率是多少？
在打麻将单吊将时，是换牌赢的概率大，还是不换牌赢的概率大？
如何理解 95% 置信区间？
KL散度衡量的是两个概率分布的距离吗？
50%几率输光本金，50%几率赚回双倍，这样的投资有必要继续下去吗？
概率的本质是文字游戏吗？
如何求得空间内若干不同大小的球体间相互碰撞所需平均时间或移动距离？
扫雷初始的点开位置会不会影响最后的结局？
Dirichlet Processes 是一个什么样的随机过程？