Ось фрагмент коду для визначення середньої кількості підкидань монетки, щоб досягнути послідовності РОО і РОР. Цікаво, чи відрізнятиметься ця довжина для цих двох випадків?
Код:
% Теорія імовірності у прикладі на монетках
% Потрібно знайти середє число підкидань монети, поки випаде Р-О-Р та Р-О-О
clear;
% r - 1; O - 0;
N = 1e5;
dim1 = 150;
ror = zeros(N,1);
roo = zeros(N,1);
k=1;
while k <= N
old = floor(rand(dim1,1)+0.5);
for i = 1:dim1-2
if ( old(i,1) == 1 && old(i+1,1) == 0 && old(i+2,1) == 1 ) %ror
ror(k,1) = i;
break;
end
end
for j = 1:dim1-2
if ( old(j,1) == 1 && old(j+1,1) == 0 && old(j+2,1) == 0 ) %roo
roo(k,1) = j;
break;
end
end
k = k+1;
end
mean(ror)
mean(roo)