Автор: Пользователь скрыл имя, 26 Июля 2011 в 11:31, курсовая работа
Целью данного курсового проекта является построение имитационной модели вычислительной сети и определение её оптимальных критериев для минимизации убытков.
Введение 4
1 Описание моделируемой системы и задание на моделирование 6
2 Структурная схема модели системы 8
3 Результат работы модели 16
4 Эксперимент пользователя 17
5 Расчет статистических показателей 26
Заключение 30
Список использованной литературы 31
Приложение А 32
Приложение Б 38
CommandString =PolyCatenate("SHOW """,ShowString,"""","");
DoCommand(CommandString);
Flag1=0;
Tavr=0;
end;
else Prev1=Cur1;
end;
else Prev1=Cur1;
end;
end;
end;
experiment SeekOptInv()
begin
temporary ShowString, CommandString;
temporary Prev1, Cur1, Flag1, Tprev, Nprev;
Ncapacity=4;
Prev1=100000;
Flag1=1;
while (Flag1 'NE' 0) do
begin
Ncapacity=Ncapacity+1;
Tavr=0;
while (Tavr 'LE' 34) do
begin
Nprev=Ncapacity;
if (Tavr=0) then
begin
Tprev=35;
Nprev=Ncapacity-1;
end;
else Tprev=Tavr;
Tavr=Tavr+1;
Cur1=GetResult();
if(Cur1<Prev1) then
begin
if (Prev1<0) then
begin
ShowString=PolyCatenate(" Optimum.Summ ", String(Prev1),".");
ShowString=PolyCatenate(
ShowString=PolyCatenate(
CommandString =PolyCatenate("SHOW """,ShowString,"""","");
DoCommand(CommandString);
Flag1=0;
Tavr=35;
end;
else Prev1=Cur1;
end;
else Prev1=Cur1;
end;
end;
end;
Приложение Б
Результаты
оптимизационного эксперимента
| Вариант |
Оптимальная ёмкость | Оптимальное время авральной обработки | Суммарные затраты |
| 2 | 5 | 90 | 923562 |
| 3 | 5 | 135 | 1933480 |
| 4 | 5 | 188 | 2327596 |