Моделирование простейших систем массового обслуживания

Министерство образования  Российской Федерации

Рязанский государственный  радиотехнический университет

Кафедра вычислительной и прикладной математики

 

 

 

 

Отчет

о лабораторной работе 7

«Моделирование простейших систем массового обслуживания»

по курсу

«Имитационное проектирование экономических процессов»

 

 

 

Выполнил:

Студент 944 гр.

Горюшкин А.О.

Проверил:

Доц. Филатов И.Ю.

 

 

 

 

 

Рязань 2012

Задание

Составить программу  моделирования системы массового  обслуживания (СМО), определенной вариантом задания.

В процессе проведения эксперимента определить характеристики СМО, требуемые в варианте задания и следующие вероятностные характеристики:

– нагрузку устройства обслуживания (доля времени занятости) ;

– среднее время ожидания требований в очереди ;

– среднее время пребывания требований в системе  ;

Экспериментальные результаты проверить с помощью аналитического расчета.

 

Вариант 9.

Пост диагностики автомобилей  представляет собой одноканальную  СМО с отказами. Заявка на диагностику, поступившая в момент, когда пост занят, получает отказ. Интенсивность потока заявок на диагностику l = 0,5 автомобиля в час. Средняя продолжительность диагностики t = 1,2 часа. Все потоки событий в системе простейшие. Определите в установившемся режиме вероятностные характеристики системы.

 

Фрагмент программы:

 

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

 

namespace ConsoleApplication2

{

    class Program

    {

        static void Main(string[] args)

        {

             double[] line = new double[101];

             double a =(float)0.5/1.2;

             double[] work = new double[100];

             Random r = new Random();

             float tSumm = 0;

             for (int i = 0; i < 101; i++)

             {

                 tSumm+=(float)(a*Math.Pow(Math.E,((a)*i)));

                 line[i]=tSumm;

                 Console.WriteLine(line[i]);

             }

             work[1] = line[1] + 1;

             int n = 1;

             int def = 0;

             int ans = 0;

             for (int i = 0; i < 101; i++) {

                 if (line[i] < work[n])

                 {

                     def++;

                 }

                 else {

                     ans++;

                     n++;

                     work[n] = line[i] + 1;

                 }

             }

            double N = (a*(1-a))/(1-a*a);

             Console.WriteLine("ANS-="+ans);

             Console.WriteLine("DEF-="+def);

             Console.WriteLine("Коэффициент использования = " + a);

             Console.WriteLine("Среднее время ожидания  в системе: 0.00 ");

             Console.WriteLine("Среднее время пребывания  заявки в системе:  " + 1/0.5*N);

 

             Console.ReadKey();

        }

    }

}

 

 
Министерство образования Российской Федерации

Рязанский государственный  радиотехнический университет

Кафедра вычислительной и прикладной математики

 

 

 

 

Отчет

о лабораторной работе 8

«Изучение системы имитационного моделирования Pilgrim»

по курсу

«Имитационное проектирование экономических процессов»

 

 

 

Выполнила: Астахова Н.

Проверил: проф. Овечкин Г.В.

 

 

 

 

 

 

 

 

Рязань 2012

Задание

С помощью графического конструктора моделей Gem построить Pilgrim-модель системы массового обслуживания, указанной в практической части данной лабораторной работы. Выполнить исследование построенной модели, выполнив оценку требуемых характеристик системы.

 

Граф исследуемой СМО

Фрагмент программы:

 

#include "Pilgrim.h"

 

#define T_wait t->ru0

#define T_start t->ru1

#define T_max 0.3

 

forward

{

int fw;

 

modbeg("Ast", 106, 500, (long)time(NULL), none, 102, none,105, 2);

ag("Заявки",  101, none, norm, 0.95, 0.1, none, 102);

network(dummy, dummy)

{

  top(102):

       T_start=timer;

        queue("Ожидание", none, 103);

             place;

 

  top(103):

       T_wait=timer-T_start;

        if( T_wait<=T_max )

             {

              fw=104;

             }

            else

             {

              fw=106;

             }

             key("Обслужить?", fw);

             place;

 

  top(104):

        serv("Обслуживание", 1, none, norm, 1, 0.1, none, 105);

             place;

 

  top(105):

        term("Обслужен");

             place;

 

  top(106):

        term("Отказ");

             place;

 

  fault(123);

}

modend("pilgrim.rep", 1, 8, page);

return 0;

}

 

 

 

Результаты расчета

 

 

 
Министерство образования Российской Федерации

Рязанский государственный  радиотехнический университет

Кафедра вычислительной и прикладной математики

 

 

 

 

Отчет

о лабораторной работе 9

Моделирование простейших систем массового обслуживания с использованием системы имитационного моделирования Pilgrim»

по курсу

«Имитационное проектирование экономических процессов»

 

 

 

Выполнила: Астахова Н.

Проверил: проф. Овечкин Г.В.

 

 

 

 

 

 

 

 

Рязань 2012

Задание

Выполнить задание из лабораторной работы №1 с использованием системы имитационного моделирования Pilgrim.

 

Одноканальная СМО с  отказами представляет собой одну телефонную линию. Заявка (вызов), пришедшая в  момент, когда линия занята, получает отказ. Все потоки событий простейшие. Интенсивность потока l = 0,95 вызова в минуту. Средняя продолжительность разговора t = 1 мин. Определите вероятностные характеристики СМО в установившемся режиме работы.

 

 

Граф исследуемой СМО

Фрагмент программы:

 

#include "Pilgrim.h"

 

#define T_wait t->ru0

#define T_start t->ru1

#define T_max 0.001

 

forward

{

int fw;

 

modbeg("Ast", 106, 500, (long)time(NULL), none, 102, none,105, 2);

ag("Заявки",  101, none, norm, 0.95, 0.1, none, 102);

network(dummy, dummy)

{

  top(102):

       T_start=timer;

        queue("Ожидание", none, 103);

             place;

 

  top(103):

       T_wait=timer-T_start;

        if( T_wait<=T_max )

             {

              fw=104;

             }

            else

             {

              fw=106;

             }

             key("Обслужить?", fw);

             place;

 

  top(104):

        serv("Обслуживание", 1, none, norm, 1, 0.1, none, 105);

             place;

 

  top(105):

        term("Обслужен");

             place;

 

  top(106):

        term("Отказ");

             place;

 

  fault(123);

}

modend("pilgrim.rep", 1, 8, page);

return 0;

}

 

Результаты расчета