function???do（timesnp）
%該函數用以進行試驗，得到times次n重貝努利試驗的統計
k=zeros（1times）;
for?i=1:times
????t=poss（np）;
????k（i）=t;
end
r=zeros（1n）;
c=1:1:n;
for?i=1:times%遍歷所有n重貝努利試驗，得到各次試驗事件發生次數
????r（k（i））=r（k（i））+1;
end
pro=zeros（1n）;
for?i=1:n
????%得到事件發生次數所對應的頻率
????pro（i）=r（i）*1.0/times;
end
q=0;
for?i=1:n%驗證頻率的歸一性
????q=q+pro（i）;
end
q
figure?;
plot（cpro‘g*‘）;
hold?on;
pros=zeros（1n）;
lamda=n*p;
q=0;
for?i=1:n
????pros（i）=exp（-lamda）;
????for?j=1:i
????????pros（i）=pros（i）*jx（lamdaj）;
????end
????q=q+pros（i）;
end
q
%驗證泊松分布概率的歸一性
plot（cpros‘r-‘）;
a=strcat（num2str（times）“次“）;
a=strcat（anum2str（n）“重概率為“num2str（p））;
legend（“實驗頻率““泊松分布“）
title（a）
end

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件????????795??2019-01-04?11:27??數學實驗報告+1707010312+計科1703+徐永麒\do.m

?????文件?????????65??2019-01-04?15:00??數學實驗報告+1707010312+計科1703+徐永麒\jx.m

?????文件????????196??2019-01-04?11:22??數學實驗報告+1707010312+計科1703+徐永麒\poss.m

?????文件????????350??2019-01-04?11:46??數學實驗報告+1707010312+計科1703+徐永麒\Test.m

?????文件??????40493??2019-01-04?11:51??數學實驗報告+1707010312+計科1703+徐永麒\結果\100.png

?????文件??????39571??2019-01-04?11:50??數學實驗報告+1707010312+計科1703+徐永麒\結果\1100.png

?????文件??????39600??2019-01-04?11:50??數學實驗報告+1707010312+計科1703+徐永麒\結果\1300.png

?????文件??????38232??2019-01-04?12:06??數學實驗報告+1707010312+計科1703+徐永麒\結果\1490.png

?????文件??????38051??2019-01-04?11:50??數學實驗報告+1707010312+計科1703+徐永麒\結果\300..png

?????文件??????43174??2019-01-04?11:50??數學實驗報告+1707010312+計科1703+徐永麒\結果\500.png

?????文件??????40591??2019-01-04?11:50??數學實驗報告+1707010312+計科1703+徐永麒\結果\700.png

?????文件??????41920??2019-01-04?11:50??數學實驗報告+1707010312+計科1703+徐永麒\結果\900.png

?????目錄??????????0??2019-01-04?12:08??數學實驗報告+1707010312+計科1703+徐永麒\結果

?????目錄??????????0??2019-04-05?17:40??數學實驗報告+1707010312+計科1703+徐永麒

-----------?---------??----------?-----??----

???????????????323038????????????????????14