如何求解下面的一个概率分布问题？ 第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
相关话题
量子力学和概率学有什么关系吗？这个概率应该怎么算？
为什么我学过微积分、线性代数和概率论，还是看不懂机器学习？
概率论和实变函数（测度论）有什么联系？
假设有个游戏，你可以无偿获得五千元，但有百万分之一的几率会当场毙命。那么你会玩多少次游戏？
蒙提霍尔问题（又称三门问题、山羊汽车问题）的正解是什么？
时间序列，AR（2）的方差怎么求?
如何评价Yann LeCun宣称『他已经做好放弃概率论的准备』？
什么是核密度估计？如何感性认识？
个别情况下概率是无实际意义的吗？
下一个讨论
请问是质数更多还是合数更多还是一样多？
相关的话题
如何证明Metropolis Hastings algorithms)能够达到马尔科夫稳态？如何通俗易懂地讲解什么是 PCA（主成分分析）？
股市之中百分之九十的散户都是在亏钱，那从概率角度来看，我是否大概率能赢散户的钱?
为什么概率的公理化基础选择了测度论？
猴子瞎敲键盘敲出莎士比亚全集，和地球瞎鼓捣鼓捣出最初的单细胞，这两者哪一个的概率更小？
打开概率为 1/8000 的保险箱，8000 次内一定能打开吗？
从概率上说，外星生物是否很大可能是非智能生物？
时间序列，AR（2）的方差怎么求?
任取两个大于 2 的整数，其互质的概率是多少？
p-p plot图不在直线上，但是有规律，怎么调整原始数据？
你遇到过哪些让你拍案叫绝的巧合？
怎么通过一维分布的随机样本推测原分布？
1000桶水，其中一桶有毒，猪喝毒水后会在15分钟内死去，想用一个小时找到这桶毒水，至少需要几头猪？
任取两个大于 2 的整数，其互质的概率是多少？
一把左轮能装六颗子弹，对着脑袋打，是装五发子弹开一枪死亡几率大，还是装一发子弹开五枪死亡几率大？
有一个盒子，把钱放进去有一半的概率变成双倍，也有一半的概率钱会消失，你会放钱进去吗？
概率（Probability）的本质是什么？
量子力学和概率学有什么关系吗？
如何在一晚内速成概率论与数理统计？
测度论（measure theory）和实变函数是什么关系？
时间序列，AR（2）的方差怎么求?
个别情况下概率是无实际意义的吗？
如何计算投掷多个骰子得到某个给定总点数的概率？
极大似然估计一定是相合估计吗？
R语言，累计求和号连续几个∑∑∑∑这样的怎么编码？
如何评价Yann LeCun宣称『他已经做好放弃概率论的准备』？
在舰队collection中你最欧的一次经历是什么？
怎么通过一维分布的随机样本推测原分布？
为什么方差要定义成平方？这么定义有什么利弊？如果把方差定义成 |X－E(X)|，这又有什么利弊？
时间序列，AR（2）的方差怎么求?