twodist.m

来自「介绍了《MATLAB语言常用算法程序集》一书的源程序」· M 代码 · 共 9 行

function x =TwoDist(x0,p,n,N)
format long;
x = zeros(N,1);
for i=1:N
    y = BenuliDist(x0,p,n);
    x(i) = sum(y);
    x0 = 2*x0;
end    
format short;