%泊松過程的模擬、檢驗及參數估計?
syms?Un?T?W;?
n=10;%生成n*n個隨機數?
r=1;%參數?
temp=0;?
tem=0;?
Un=rand（n1）;%共產生n*1個隨機數?
for?i=1:1:n?
????T（i）=-log（Un（i））/r;?
end?
T=subs（T）;?
for?i=1:1:n?
????for?j=1:1:i?
????????temp=temp+T（j）;?????
????end?
????W（i）=temp;?
????temp=0;?
end?
W=subs（W）;?
%檢驗泊松過程使用第四條?
for?i=1:1:n?
????tem=tem+W（i）;?
end?
sigmaN=tem;?
Time=W（n）;?
alpha=0.05;%置信水平?
p=sigmaN/Time;?
p1=（1/2）*（n-1.96*（n/3）^（1/2））;?
p2=（1/2）*（n+1.96*（n/3）^（1/2））;?
c1=subs（p-p1）?
c2=su