ex_jihe.m

动态实现加尔顿顶板演示

function ex_jihe


%%%%%%%%%%%%%%%%
K=get(findobj(gcbf,'Tag','ex_edit_k'),'string');
P=get(findobj(gcbf,'Tag','ex_edit_p'),'string');
k=str2num(K);
p=str2num(P);
if p>1
    msgbox('请重新输入概率P(0<P<1)','提示对话框');
else

%%%%%%%%%%%%%%%%
P=[];
for i=1:k
    P=[P p*(1-p)^(i-1)];
    bar(P,0.5),axis([0 k+1 0 max(P)+0.1]);
end
end
%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%