match.m

来自「一些常被用于教学或者参考的概率论的实例的源代码」· M 代码 · 共 15 行

%match.m/created by PJNahin for "Duelling Idiots"(6/3/98)
%This m-file computes the probability that N people,
%flipping fair coins n times, will each get the same
%number of heads.
%
%
n=input('How many flips? ')
N=input('How many people? ')
summation=0;
for k=0:n
   bc=binomial(n,k);      %call binomial coefficient function
   summation=summation+(bc)^N;
end
summation/(2^(N*n))