附件：
1.泊松分布P(t)累积分分布函数 for x=1:0.1:20 y=poisscdf(x, ); stem(x,y,'o') hold on; end
title('泊松分布Lambda= 累积分分布函数'); 2. 拉格朗日插值法
function yh=lagrange(x,y,xh) n = length(x); m = length(xh); x = x(:); y = y(:); xh = xh(:); yh = zeros(m,1); c1 = ones(1,n-1); c2 = ones(m,1); for i=1:n,
xp = x([1:i-1 i+1:n]);
yh = yh + y(i) * prod((xh*c1-c2*xp')./(c2*(x(i)*c1-xp')),2); end
3.泊松分布随机数产生
Lambda=[4.1,3.2,5,4,3.7,3.5,2.3,2.1]; S=[6,5,7,6,5,5,4,3]; for i=1:8 b= Lambda (1,i); c=S(1,i);
ram=poissrnd(b,100,100); drop=sum(sum(ram>c)); [m,n]=size(ram); total=m*n; P=drop/total; Pd(1,i)=P; End
4.距离矩阵VBA求解 Sub test() Dim a, b, m, n, x
a = Range(\b = Range(\For m = 2 To a For n = 2 To b x = x + 1
Cells(x + 1, 3) = Cells(m, 1) & Cells(n, 2) Next Next End Sub