..4
1 Pilgrim .5
1.1 Pilgrim.....5
1.2 Pilgrim6
1.3 , 腅.....7
2 腅.122
充17
..18
...20
. .
80- ., 20 . GASP-IV, SIMULA-67, GPSS-V SLAM-II, , , .
Pilgrim-2.1, , 90- . Pilgrim , . - . . C. Pilgrim ,.. Windows C++. Pilgrim , . , Pilgrim .
Pilgrim
Pilgrim
PILGRIM Gem ( Generator models), . , , . , . , , , .
Gem ++, MS Developer Studio, Visual C++ Pilgrim.
|
|
, PILGRIM :
- .
- .
- .
( ). . ++.
, .
.
Pilgrim
PILGRIM . - .
, ( ) - .
.
, , .
- - , - , , , , .. "" .
. , , , . . . , , , , .
. , t - , t+d , . , [t,t+d].
timer. .
,
, . , . , . , . .
|
|
1.3.1 AG - . ag . . .
(i,p,r,m,s,o,n). :
i - - (int);
p - (int), ( p=0 p=none);
r - . : norm - , unif - , expo - , erln - , beta - - , none - , ;
m - (float) (r = norm, unif, expo), (r=erln), (r=beta), (r=none);
s - , (float): (r=norm), (r= unif), zero (r=expo, none), (r=erln, s > 0.0), (r=beta);
o - , (float): zero (r=norm, unif, expo, erln, none), (r=beta);
cheg (change generator).
1.3.2 KEY - . key - - . , a . , . . hold rels.
- . - .
1.3.3 TERM - . term - , : .
1.3.4 SERV - . serv - , - , . . , , , , , . , . .
, . - , "" ( queue - ).
|
|
(name, c,u,r,m,s,o, next). :
name ;
c (int), c > 1;
u : abs , , none ;
r . : norm , unif , expo , erln , beta b- , none ;
m (float) (r = norm, unif, expo), (r=erln), (r=beta), (r=none);
s , (float): (r=norm), (r= unif), zero (r=expo, none), (r=erln, s > 0.0), (r=beta);
o , (float): zero (r=norm, unif, expo, erln, none), (r=beta);
next , .
r=abs, : "", , .
, , ( ) ( ) . "" .
serv t->ga=again, . serv .
, serv . , , (.. ).
1.3.5 QUEUE - . queue queue(name, u, next). name next . u : ( u none), , , , . , u=prty. , .
, 1.
.1
|
|
101 . 102 . 3 , - 106, , - 103. , - 104 65 . - 105.
:
101 , , 0,85 (. 2).
. 2 AG 101
102 , .
. 3 KEY 102 103
104 .
. 4
Kurs.ccp :
;
.cpp;
Visual Studio, (Workspace): File > New > Project > Win32Application. Location , Project Name ;
, .. Project > Add to Project > Files. :
PILGRIM- .cpp;
Windows PILGRIM \Projects\Pilgrim.res;
\Lib98\Pilgrim_2047.lib;
\Lib98\Comctl32.lib;
\Include\Pilgrim.h;
: Build > RebuildAll.
Debug, .exe.
, , .txt.
*-----------------------------------------------------------------------------*
| : 501.58 : 1 |
|-----------------------------------------------------------------------------|
| | | |-| | 2 | | | | |
| No | |-| , % | M [t] | C [t] |e|.|c.| |
|| | |,| | | |.| .| |
|-----------------------------------------------------------------------------|
| | | | | | | | | | |
| 1 queue 1.79 4.50 142 1 1 |
| 2 serv %= 55.6 5.17 1.09 141 2 0 |
| 3 term 7.96 0.79 96 0 0 |
| 4 term 5.02 0.66 45 0 0 |
| 5 ag 5.18 0.17 97 1 1 |
*-----------------------------------------------------------------------------*
(), , Pilgrim - Pilgrim: Pilgrim, , , Visual Studio, , .
, , , , .
(Ag, Key, Serv, Creat ..)
.
#include <Pilgrim.h>
forward
{
int fw;
modbeg("nonamed", 106, none, (long)time(NULL), none, none, none,none, 2);
ag("", 101, none, expo, 0.85, none, none, 102);
network(dummy, dummy)
{
top(102):
if((addr[103]->tn)<3)
{
fw=103;
}
else
{
fw=106;
}
key("?", fw);
place;
top(103):
queue("", none, 104);
place;
top(104):
serv(" ", none, none, norm, 65, 20, none, 105);
place;
top(105):
term(" ");
|
|
place;
top(106):
term(" ");
place;
fault(123);
}
modend("pilgrim.rep", 1, 8, page);
return 0;
}
1) .., .., .. : , 2002. 368.
2) .. .: , 2000. 376.
3) .., .. - . , 2002. 90.
4) .., .. : . " ". .: .., 1985.- 271 .
5) .. : . . . .: , 2000. 208.