underdog2.m

一些常被用于教学或者参考的概率论的实例的源代码

%underdog2.m/created by PJNahin for "Duelling Idiots"(2/17/98)
%
%
duration=zeros(1,100);
for i=1:100
   p=i/100;
   common1=(1-p)^4;
   common2=p^4;
   duration(i)=4*(common1+common2)+20*(common1*p+common2*(1-p));
   duration(i)=duration(i)+60*(common1*p^2+common2*(1-p)^2);
   duration(i)=duration(i)+140*(common1*p^3+common2*(1-p)^3);
end
p=.01:.01:1;
plot(p,duration)
grid
xlabel('Probability, p, of a team winning an individual game')
ylabel('Duration, in games')
title('Fig.4.2-Expected Duration of the World Series')
figure(1)