Компьютерное моделирование. Тарасов В.Н - 123 стр.

if i<=m then
 p[i]:=p[0]*(step(m*Ro,i)/fuct(i))
else
 p[i]:=p[0]*((step(Ro,i)*step(m,m))/fuct(m));
 until (p[i]<0.0001)or (i>=20);
 Nq:=(p[0]*(step(Ro*m,m+1)))/(fuct(m)*m*(1-Ro)*(1-Ro));
 W:=Nq/lam;
 N:=Nq+Ro*m;
 u:=N/lam;
                             end
{____________________M/M/1/K__________________}
else                           begin
 if m=1 then      begin
 p[0]:=(1-lam*mu)/(1-step(lam/mu,k+1));
 for i:=1 to k do
 p[i]:=p[0]*step(lam/mu,i);
             end
 else
 if k=m then      begin
 p[0]:=0;
 for i:=0 to m do p[0]:=p[0]+(step(lam/mu,i)/fuct(i));
 p[0]:=1/p[0];
 for i:=1 to k do
 p[i]:=p[0]*(step(lam/mu,i)/fuct(i))
             end;
 Nq:=(p[0]*(step(Ro*m,m+1)))/(fuct(m)*m*(1-Ro)*(1-Ro));
 W:=Nq/lam;
 N:=Nq+Ro*m;
 u:=N/lam;
                              end;
end;

Exports
MySMO name 'SMO' resident;

 begin
end.




                                                          13