РПЗ Агаян (954314), страница 12
Текст из файла (страница 12)
Treaction := 0;
// шаг 1
Lf1 := K1*GetMinimum(1 / (2 * tk_), C/tcs, 10000) * (NPC - 1) / NPC;
while true do
begin
// шаг 2
Tk := 2 * tk_ / (1 - 2 * Lf1 * tk_);
Tc := tcs / (1 - GetPower(( Lf1 * tcs / C), C));
// шаг 3
Lf := (N - 1) / (T0 + Tp + Tk + Tc);
// шаг 4
Delta := (Abs(Lf1 - Lf) / Lf);
if ( Delta < Precision) then Break;
// шаг 5
delta1 := (Lf1 - Lf) / K2;
Lf1 := Lf1 - delta1;
end;
// шаг 6
Tk:= 2 * tk_ / (1 - 2 * Lf1 * tk_);
Tc := B * tcs / (1 - GetPower((B * Lf1 * tcs / C), C));
Tcircle := T0 + Tp + Tk + B * Tc;
Ppc := (T0 + Tp) / Tcircle;
L := N / Tcircle;
Pk := 2 * L * tk_;
Pc := B * L * tcs/C;
Treaction := Tcircle - (Tp);
// вывод
Form2.Edit4.Text := FloatToStr(RoundTo(Pk,-2));
Form2.Edit12.Text := FloatToStr(roundto(Ppc,-2));
Form2.Edit14.Text := FloatToStr(roundto((T0 / Tcircle),-2));
Form2.Edit10.Text := FloatToStr(roundto(Tcircle,-2));
Form2.Edit15.Text := FloatToStr(roundto((NPC * Ppc),-2));
Form2.Edit19.Text := FloatToStr(roundto(NPC * (Tp / Tcircle),-2));
Form2.Edit18.Text := FloatToStr(roundto(Treaction,-2));
Form2.Edit16.Text := FloatToStr(roundto((Pc/2),-2));
Form2.Edit17.Text := FloatToStr(roundto(L,-2));
/// конец
result:= true;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
Calc();
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
Close();
end;
end.
-
Интерфейс программы
Главная форма программы имеет вид:
Рис9. Главная форма программы
Вводим исходные данные и нажимаем кнопку «Вычислить»
Рис 10. Результаты работы программы
-
Результаты аналитического эксперимента.
Таблица 40. Результаты аналитического эксперимента.
| Номер эксперимента | 1 | 2 | 3 | 4 | 5 |
| Исходные данные | |||||
| Количество рабочих станций | 31 | 31 | 31 | 31 | 31 |
| Среднее время дообработки запроса на РС | 310 | 210 | 310 | 310 | 310 |
| Среднее время формирования запроса на РС | 310 | 310 | 210 | 310 | 310 |
| Среднее время передачи через канал в прямом направлении | 5 | 5 | 5 | 5 | 5 |
| Среднее время передачи через канал в обратном направлении | 5 | 5 | 5 | 5 | 5 |
| Количество процессоров | 2 | 2 | 2 | 2 | 2 |
| Среднее время обработки запроса на процессоре | 10 | 10 | 10 | 20 | 10 |
| Результаты моделирования. | |||||
| Загрузка рабочей станции | 0,83 | 0,92 | 0,92 | 0,78 | 0,82 |
| Загрузка пользователя рабочей станции | 0,41 | 0,23 | 0,69 | 0,39 | 0,41 |
| Среднее количество работающих РС | 5,8 | 6,4 | 6,44 | 5,5 | 5,77 |
| Среднее количество РС формирующих запрос | 2,9 | 1,6 | 4,83 | 2,7 | 2,9 |
| Загрузка канала | 0,42 | 0,23 | 0,23 | 0,39 | 0,41 |
| Загрузка процессора | 0,21 | 0,13 | 0,13 | 0,39 | 0,2 |
| Среднее время цикла системы | 167,7 | 304,3 | 304,3 | 179,3 | 169,6 |
| Среднее время реакции системы | 97,7 | 234,3 | 94,3 | 109,3 | 99,6 |
-
Имитационное моделирование сети.
-
Формализованная схема.
-
Рис.11. Формализованная схема.
-
Листинг программы.
WOSF QUEUE QSYSTEM
ENTER WORKSTATION_F,1
ADVANCE X$STATION_TF,FN$EXPON
LEAVE WORKSTATION_F,1
ASSIGN 1,0
ASSIGN 3,SVR
CAN QUEUE QCANAL
SEIZE CANAL
DEPART QCANAL
ADVANCE X$CANAL_T,FN$EXPON
RELEASE CANAL
TRANSFER ,P3
SVR QUEUE SERV
QUEUE QPROC
ENTER PROCESSOR,1
DEPART QPROC
ADVANCE X$SERVER_T,FN$EXPON
LEAVE PROCESSOR,1
ASSIGN 5,FN$DISK_N
QUEUE P5
SEIZE P5
DEPART P5
ADVANCE X$DISK_T,FN$EXPON
RELEASE P5
DEPART SERV
TEST NE P1,0,PER
ASSIGN 1,(P1-1)
TRANSFER ,SVR
PER ASSIGN 3,WOSD
TRANSFER ,CAN
WOSD ENTER WORKSTATION_D,1
ADVANCE X$STATION_TD,FN$EXPON
LEAVE WORKSTATION_D,1
DEPART QSYSTEM
TRANSFER ,WOSF
GENERATE 1000000
TERMINATE 1
Start 1
-
Листинг результата имитационного моделирования.
GPSS World Simulation Report - КП_мой.2.1
Sunday, October 30, 2011 20:11:45
START TIME END TIME BLOCKS FACILITIES STORAGES
0.000 1000000.000 40 7 3
NAME VALUE
CAN 10.000
CANAL 10014.000
CANAL_T 10003.000
DISK_N 10005.000
DISK_T 10006.000
EXPON 10010.000
PER 32.000
PROCESSOR 10009.000
QCANAL 10013.000
QFORM 10012.000
QPROC 10016.000
QSYSTEM 10011.000
SERV 10015.000
SERVER_T 10004.000
STATION_N 10000.000
STATION_TD 10001.000
STATION_TF 10002.000
SVR 16.000
WORKSTATION_D 10007.000
WORKSTATION_F 10008.000
WOSD 34.000
WOSF 2.000
LABEL LOC BLOCK TYPE ENTRY COUNT CURRENT COUNT RETRY
1 GENERATE 7 0 0
WOSF 2 QUEUE 39790 0 0
3 QUEUE 39790 0 0
4 ENTER 39790 0 0
5 ADVANCE 39790 1 0
6 LEAVE 39789 0 0
7 ASSIGN 39789 0 0
8 ASSIGN 39789 0 0
9 DEPART 39789 0 0
CAN 10 QUEUE 79577 1 0
11 SEIZE 79576 0 0
12 DEPART 79576 0 0
13 ADVANCE 79576 1 0
14 RELEASE 79575 0 0
15 TRANSFER 79575 0 0
SVR 16 QUEUE 39788 0 0
17 QUEUE 39788 0 0
18 ENTER 39788 0 0
19 DEPART 39788 0 0
20 ADVANCE 39788 0 0
21 LEAVE 39788 0 0
22 ASSIGN 39788 0 0
23 QUEUE 39788 0 0
24 SEIZE 39788 0 0
25 DEPART 39788 0 0
26 ADVANCE 39788 0 0
27 RELEASE 39788 0 0
28 DEPART 39788 0 0
29 TEST 39788 0 0
30 ASSIGN 0 0 0
31 TRANSFER 0 0 0
PER 32 ASSIGN 39788 0 0
33 TRANSFER 39788 0 0
WOSD 34 ENTER 39787 0 0
35 ADVANCE 39787 4 0
36 LEAVE 39783 0 0
37 DEPART 39783 0 0
38 TRANSFER 39783 0 0
39 GENERATE 1 0 0
40 TERMINATE 1 0 0
FACILITY ENTRIES UTIL. AVE. TIME AVAIL. OWNER PEND INTER RETRY DELAY
1 6513 0.064 9.847 1 0 0 0 0 0
2 6615 0.065 9.804 1 0 0 0 0 0
3 6682 0.066 9.921 1 0 0 0 0 0
4 6633 0.067 10.105 1 0 0 0 0 0
5 6672 0.067 10.089 1 0 0 0 0 0
6 6673 0.067 10.086 1 0 0 0 0 0
CANAL 79576 0.398 5.000 1 5 0 0 0 1
QUEUE MAX CONT. ENTRY ENTRY(0) AVE.CONT. AVE.TIME AVE.(-0) RETRY
1 2 0 6513 6165 0.003 0.532 9.957 0
2 3 0 6615 6200 0.004 0.653 10.403 0
3 2 0 6682 6322 0.004 0.626 11.616 0
4 2 0 6633 6219 0.004 0.636 10.185 0
5 3 0 6672 6285 0.004 0.667 11.498 0
6 2 0 6673 6290 0.004 0.562 9.791 0
QSYSTEM 7 7 39790 0 7.000 175.924 175.924 0
QFORM 7 1 39790 0 2.805 70.483 70.483 0
QCANAL 5 1 79577 52371 0.187 2.355 6.889 0
SERV 7 0 39788 0 0.828 20.818 20.818 0
QPROC 4 0 39788 38008 0.010 0.251 5.617 0
STORAGE CAP. REM. MIN. MAX. ENTRIES AVL. AVE.C. UTIL. RETRY DELAY
WORKSTATION_D 7 3 0 7 39787 1 2.782 0.397 0 0
WORKSTATION_F 7 6 0 7 39790 1 2.805 0.401 0 0
PROCESSOR 2 2 0 2 39788 1 0.397 0.199 0 0
SAVEVALUE RETRY VALUE
STATION_N 0 7.000
STATION_TD 0 70.000
STATION_TF 0 70.000
CANAL_T 0 5.000
SERVER_T 0 10.000
DISK_N 0 6.000
DISK_T 0 10.000
FEC XN PRI BDT ASSEM CURRENT NEXT PARAMETER VALUE
8 0 1000001.482 8 5 6 1 0.000
3 34.000
5 6.000
5 0 1000008.516 5 13 14 1 0.000
3 16.000
5 6.000
1 0 1000024.599 1 35 36 1 0.000
3 34.000
5 6.000
4 0 1000024.784 4 35 36 1 0.000
3 34.000
5 4.000
3 0 1000051.439 3 35 36 1 0.000
3 34.000
5 4.000
6 0 1000135.895 6 35 36 1 0.000
3 34.000
5 3.000
9 0 2000000.000 9 0 39
-
Результаты имитационного эксперимента
Таблица 41. Результаты имитационного эксперимента.
| Номер эксперимента | 1 | 2 | 3 | 4 | 5 |
| Исходные данные | |||||
| Количество рабочих станций | 31 | 31 | 31 | 31 | 31 |
| Среднее время дообработки запроса на РС | 310 | 210 | 310 | 310 | 310 |
| Среднее время формирования запроса на РС | 310 | 310 | 210 | 310 | 310 |
| Среднее время передачи через канал в прямом направлении | 5 | 5 | 5 | 5 | 5 |
| Среднее время передачи через канал в обратном направлении | 5 | 5 | 5 | 5 | 5 |
| Количество серверов | 2 | 2 | 2 | 2 | 2 |
| Среднее время обработки запроса на сервере | 10 | 10 | 10 | 20 | 10 |
| Результаты моделирования. | |||||
| Загрузка рабочей станции | 0,8 | 0,9 | 0,87 | 0,74 | 0,74 |
| Загрузка пользователя рабочей станции | 0,4 | 0,23 | 0,67 | 0,37 | 0,37 |
| Среднее количество работающих РС | 5,58 | 6,2 | 6,2 | 5,2 | 5,2 |
| Среднее количество РС формирующих запрос | 2,8 | 1,6 | 4,7 | 2,6 | 2,6 |
| Загрузка канала | 0,4 | 0,22 | 0,23 | 0,38 | 0,38 |
| Загрузка процессора | 0,2 | 0,12 | 0,12 | 0,37 | 0,2 |
| Среднее время цикла системы | 167,7 | 304,3 | 304,3 | 179,3 | 169,6 |
| Среднее время реакции системы | 97,7 | 234,3 | 94,3 | 109,3 | 99,6 |
-
Сравнительный анализ результатов моделирования.
Таблица 42. Сравнительный анализ результатов моделирования.
| № | Модель | Загрузка устройств | Время цикла | ||
| Pk | Pп | Pд | |||
| 1 | Аналитическая Имитационная | 0,42 0,4 | 0,21 0,2 | 0,07 0,07 | 167,7 176 |
| 2 | Аналитическая Имитационная | 0,23 0,22 | 0,13 0,12 | 0,04 0,04 | 304,3 310 |
| 3 | Аналитическая Имитационная | 0,23 0,23 | 0,13 0,12 | 0,04 0,04 | 304,3 311 |
| 4 | Аналитическая Имитационная | 0,39 0,38 | 0,39 0,37 | 0,07 0,07 | 179,3 185,7 |
| 5 | Аналитическая Имитационная | 0,41 0,38 | 0,2 0,2 | 0,14 0,13 | 169,6 186,6 |
Сравнительный анализ приведенных результатов показывает, что различие между результатами аналитического и имитационного моделирования составляет практически не более 8 %. Это вполне приемлемый для инженерных расчетов результат.
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
