єв В.І. В«Алгоритмічне моделювання елементів економічних систем В». - М.: Фінанси і статистика, 2000р. p> 5. Клейнрок Л. В«Теорія масового обслуговування.В»-М.: Машинобудування, 1979.-432 с. p> 6. Пріцкер А. В«Введення в імітаційне моделюванняВ»-М.: Світ, 1987.-644с. p> 7. Ємельянов А.А., Власова Е.А., В«Імітаційне моделювання економічних процесів В»- М. Фінанси і статистика, 2002.
8. Соболь І.М. В«Чисельні методи Монте-КарлоВ».-М.Наука, 1973. p> 9. Бахвалов Н.С. В«Чисельні методиВ» - М.: Наука, 1973
Додаток
Програма, що реалізує моделювання роботи Парикмахерской.
# include
# include
# include
# include
# include
# define VACANCY (-1)
# define T (200 * 8 * 60)
# define RCLIENTS x1 [discrete (p1)]
float x1 [] = {7,8,9,10,11,12,13,14,15};
float p1 [] = {0.05,0.05,0.05,0.2,0.2,0.2,0.05,0.05,0.15};
# define RCOST x2 [discrete (p2)]
float x2 [] = {10,12,13,14,15,16,17,18,19};
float p2 [] = {0.05,0.05,0.05,0.05,0.05,0.2,0.2,0.2,0.15};
# define a 3
# define L 10
# define RAND (125 * 125 * 125 * 125 * 5)
float rand1 (void)
{
static unsigned long int u = RAND;
u * = RAND;
return u/(float (0xFFFFFFFF) +1.0);
}
unsigned int discrete (float p [])
void main (void)
{
unsigned long int i, j, cost, k, n, r, R;
float t, tin;
n = 0; k = 0; R = 0;
for (t = RIN; t
{
i = RCLIENTS;
n + = i;
for (; i
if (rand1 () <= P)
{
cost = cost + a * RCOST;
k + +;
}
}
cout <<"Posetili parikmaherskuu "<
cout <<"Iz nih obslugeno "<
cout <<"Iz nih ne obslugeno "<
cout <<"Viruchka" <
cout <<"Srednei dlina ocheredi "<
}
