Моделирование в системе PILGRIM

Автор работы: Пользователь скрыл имя, 04 Октября 2010 в 16:12, Не определен

Описание работы

Имитационное моделирование (от англ. simulation) – это распространенная разновидность аналогового моделирования, реализуемого с помощью набора математических инструментальных средств, специальных имитирующих компьютерных программ и технологий программирования, позволяющих посредством процессов-аналогов провести целенаправленное исследование структуры и функций реального сложного процесса в памяти компьютера в режиме «имитации», выполнить оптимизацию некоторых его параметров

Файлы: 1 файл

Курсовой по имитациям.doc

— 608.00 Кб (Скачать файл)

 

modbeg("Система обработки информации", 119, 16500, (long)time(NULL), none, none, none,none, 2);

ag("Датчик",  101, none, norm, 10, 5, zero, 102);

network(dummy, dummy)

{

  top(102):

        queue("Очередь", prty, 103);

             place;

 

  top(103):

        if( addr[5]->tn<=addr[4]->tn && addr[5]->tn<=addr[6]-> )

             {

              fw=117;

             }

            else

             if( addr[6]->tn<=addr[5]->tn && addr[6]->tn<=addr[4]-> )

             {

              fw=118;

             }

            else

             {

              fw=116;

             }

             serv("Сервер", 3, abs, norm, 10, 3, zero, fw);

             place;

 

  top(104):

       if addr[4]->tn==10 hold(116)

        queue("Очередь", prty, 113);

             place;

 

  top(105):

       if addr[5]->tn==10 hold(117)

        queue("Очередь", prty, 114);

             place;

 

  top(106):

       if addr[6]->tn==10 hold(118)

        queue("Очередь", prty, 115);

             place;

 

  top(110):

        term("мини-ЭВМ 1");

             place;

 

  top(111):

        term("мини-ЭВМ 2");

             place;

 

  top(112):

        term("мини-ЭВМ 3");

             place;

 

  top(113):

       if addr[4]->tn<10 rels(116)

        serv("Сервер", 1, abs, none, 33, zero, zero, 110);

             place;

 

  top(114):

       if addr[5]->tn<10 rels(117)

        serv("Сервер", 1, abs, none, 33, zero, zero, 111);

             place;

 

  top(115):

       if addr[6]->tn<10 rels(118)

        serv("Сервер", 1, abs, none, 33, zero, zero, 112);

             place;

 

  top(116):

        key("Ключ 1", 104);

             place;

 

  top(117):

        key("Ключ 2", 105);

             place;

 

  top(118):

        key("Ключ 3", 106);

             place;

 

  fault(123);

}

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

 return 0;

}

Информация о работе Моделирование в системе PILGRIM