Теория веротности

[midorya]

Для $p=q=1/2$ вероятность получается 3/5. Я проверил - она должна быть больше

[TOTAL]

midorya писал(а):

Для $p=q=1/2$ вероятность получается 3/5. Я проверил - она должна быть больше

Почему должна быть больше, как проверяли?

[midorya]

Написал небольшую программку, она выдает в среднем около 70% (проверял на большом количестве испытаний несколько раз)

[TOTAL]

midorya писал(а):

Написал небольшую программку, она выдает в среднем около 70% (проверял на большом количестве испытаний несколько раз)

Если программа действительно небольшая, то покажите её здесь. В ней должна быть ошибка.

    tot=0; even=0 

 1   tot=tot+1; length=0; last=0
 2  length=1-length;  call random(ss)

    last1=0; if(ss < 0.5) last1=1

   if(last+last1 .eq. 2) then
       if(length.eq. 0) even=even+1;  ratio=1.0*even/tot
      if(mod(tot,1000000) == 0)  write(*,*) "ratio=",ratio,'  tot=',tot/1000000;  goto 1
                         else
      last=last1; goto 2
   endif

С такой программой у меня получается $0.6$

[midorya]

Прошу прощения, в моей программе действительно была ошибка. Спасибо за помощь.