ex_possion.m

来自「动态实现加尔顿顶板演示」· M 代码 · 共 25 行

function ex_possion


%%%%%%%%%%%%%%%%
M=get(findobj(gcbf,'Tag','ex_edit_m'),'string');
lanmd=get(findobj(gcbf,'Tag','ex_edit_lanmd'),'string');
K=get(findobj(gcbf,'Tag','ex_edit_k'),'string');
m=str2num(M);
lam=str2num(lanmd);
k=str2num(K);
%%%%%%%%%%%%%%%%

P=[];
for i=1:k
    P=[P lam^i*exp(-lam)/f(i)];
    bar(P,0.5),axis([0 k+1 0 max(P)+0.1]);
end
sh=m*P;
%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%


%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%