| Re: Очередная тер вер задачка ID:29730 ответ на 29673 |
Сб, 5 ноября 2005 13:26 [#] |
|
|
p=0.1;N=200; A=zeros(1,N); A(1)=(1-p)*p;
for i=2:N, A(i)=A(i-1)+(1-p)*i*(p^i); end;
A(N) даст сумму ряда для первых 200 членов.
Nexp=100000;Rez=zeros(1,Nexp);Tmp=0;
for i=1:Nexp,
while (rand<p), Tmp=Tmp+1; end;
Rez(i)=Tmp;Tmp=0;
end;
Answ=mean(Rez)
В Answ будет среднее по Nexp экспериментов. Каждый эксперимент - стреляем, пока не промахнемся.
|
|
|