Вероятность, что в N испытаниях событие А произойдет Х раз подряд (вероятность события постепенно снижается ) - Теория вероятностей - Ответ 9640465

clear all; clc; close all; 
p=[1 1 1 1 0.9 0.8 0.72 0.72 0.7 0.68 0.6 0.6 0.6 0.5 0.4 0.3 0.25 0.2 0];
N=10; %Число испытаний
Nmax=60; %Число испытаний максимальное для графика
XC=15; %Желаемый уровень
nn=200000; %Число реализаций для анализа вероятности
XCmin=5;
XCmax=15;
for XC=XCmin:XCmax
    for N=1:Nmax
        WX=0;
        for in=1:nn
            iN=0; X=0; 
            while iN<N && X<XC
                w=rand();
                %[X w]
                if w<=p(X+1)
                    X=X+1;
                else
                    X=0;
                end
                iN=iN+1;
            end
            if X>=XC
                WX=WX+1;
            end
        end
        pWX(N,XC-XCmin+1)=WX/nn;
    end
    plot( 1:Nmax, pWX(:,XC-XCmin+1))
    hold on
end
xlabel('N-число испытаний');
ylabel('Вероятность достижения, о.е.');
str=sprintf('Желаемый уровень от %.0f до %.0f',XCmin,XCmax);
title(str);
grid on
hold off
figure
XC=XCmin:XCmax;
N=1:Nmax;
 
[x, y]=meshgrid(XC,N);
contourf(x,y,pWX,30);
colorbar
grid on
xlabel('Желаемый уровень');
ylabel('N-число испытаний');