Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 11)

Edit2: TEdit;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Edit3: TEdit;

Label6: TLabel;

Label7: TLabel;

Edit4: TEdit;

Label8: TLabel;

Label9: TLabel;

Edit5: TEdit;

GroupBox2: TGroupBox;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Edit6: TEdit;

Edit7: TEdit;

Label13: TLabel;

Edit8: TEdit;

Label14: TLabel;

Label15: TLabel;

Edit9: TEdit;

Label16: TLabel;

Edit10: TEdit;

Label17: TLabel;

Label18: TLabel;

Edit11: TEdit;

Label19: TLabel;

Edit12: TEdit;

Edit13: TEdit;

Label20: TLabel;

Edit14: TEdit;

Label21: TLabel;

Label22: TLabel;

Edit15: TEdit;

Edit16: TEdit;

Edit17: TEdit;

Edit18: TEdit;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

function step(x:real; y:integer):real;

var

Form1: TForm1;

N:integer; // Число РС

T0:real; // Вр. доработки запроса на РС

Tp:real; // Вр. формирования запроса на РС

Tk1:real; // Вр. передачи запроса РС->сервер

Tk2:real; // Вр. передачи данных сервер->РС

C:integer; // Кол-во процессоров сервера

Tn:real; // Вр. обработки запроса в процессоре

M:integer; // Кол-во дисков сервера;

Td:real; // Вр. обработки запроса в сервере

Pii:real; // Вер-ть обращения к i-му диску

G:real; // Вер-ть пост. з-са после обр-ки снова в процессор

b:real;

v,v1,v2,v3:real;

Tk:real;

TkL:real;

TnL:real;

TdL:real;

L,L1,L2,D1:real;

TTp:real; // Время реакции системы на запрос

Pk:real; // Коэф. загрузки канала передачи данных

Pn:real; // Коэф. процессора

Pd:real; // Коэф. диска

implementation

{$R *.DFM}

function step(x:real; y:integer):real;

var i:integer;

begin

result:=x;

for i:=1 to y do result:=result*x;

end;

procedure TForm1.Button1Click(Sender: TObject);

var i:integer;

begin

N:=StrToInt(Edit1.Text);

T0:=StrToFloat(Edit2.Text);

Tp:=StrToFloat(Edit3.Text);

Tk1:=StrToFloat(Edit4.Text);

Tk2:=StrToFloat(Edit5.Text);

C:=StrToInt(Edit6.Text);

Tn:=StrToFloat(Edit7.Text);

M:=StrToInt(Edit8.Text);

Td:=StrToFloat(Edit9.Text);

if M<>0 then Pii:=1/M

else Pii:=0;

Edit10.Text:=FloatToStr(Pii);

G:=StrToFloat(Edit11.Text);

b:=1/(1-G);

Tk:=(Tk1+Tk2)/2;

v1:=1/(2*Tk);

v2:=C/(b*Tn);

v3:=1/(b*Pii*Td);

if (v1<v2) then v:=v1

else v:=v2;

if (v3<v) then v:=v3;

L2:=0.99995*v*(N-1)/N;

Edit18.Text:=FloatToStr(L2);

repeat

L1:=L2;

{ TkL:=2*Tk/(1-2*L1*Tk);

TnL:=Tn/(1-Power(b*L1/C,C));

TdL:=Td/(1-b*Pii*L1);}

TkL:=2*Tk/(1-2*L1*Tk);

TnL:=Tn/(1-Power(b*L1*Tn/C,C));

TdL:=0;

for i:=1 to M do

TdL:=TdL+Pii/(1/Td-b*Pii*L1);

// TdL:=Td/(1-b*Pii*L1);

L:=(N-1)/(T0+Tp+TkL+b*(TnL+TdL));

D1:=abs(L1-L)/1000;

L2:=L1-D1;

until abs((L1-L)/L)<0.00001;

TTp:=T0+Tp+TkL+b*(TnL+TdL);

Pk:=Tk*L;

Pn:=Tn*b*L;

Pd:=Td*Pii*L;

Edit12.Text:=FloatToStr(TTp);

Edit13.Text:=FloatToStr(Pk);

Edit14.Text:=FloatToStr(Pn);

Edit15.Text:=FloatToStr(Pd);

Edit16.Text:=FloatToStr(L);

Edit17.Text:=FloatToStr(L1);

end;

end.

8.2. Моделирование с помощью языка GPSS.

8.2.1. Преимущества имитационного моделирования.

Моделирование архитектуры “Клиент-сервер” средствами GPSS позволяет, не производя сложных расчетов, в оптимальные сроки получить упрощенный аналог системы - ее модель, функционирующую аналогично реальной системе.

К достоинствам способа исследования системы путем ее моделирования на GPSS следует отнести следующие особенности:

• возможность исследования системы без экспериментов с компонентами реально существующей системы, на основании данных о функционировании системы,

• отсутствие сложных математических расчетов при разработке и описании модели,

• наглядность представления функционирования модели,

• возможность моделирования практически неограниченных периодов времени функционирования реальной системы,

• возможность фиксирования изменения состояния системы во времени путем наблюдения за ходом моделирования,

• возможность управления ходом моделирования,

• возможность просмотра статистической информации в ходе моделирования,

• возможность получения статистических результатов процесса функционирования модели системы и ее составных частей,

• возможность варьирования параметрами системы путем незначительных изменений в тексте описания модели (аналитический метод в этом случае требует больших объемов вычислений), что относительно просто позволяет производить поиск оптимальных характеристик функционирования моделируемой системы,

• возможность множественного моделирования системы с различными значениями параметров функционирования.

8.2.2. Моделирование.

Ф ормализованная схема ЛВС.

Пояснения к схеме :

OАдр - ОА, имитирующий работу рабочей станции по дообслуживанию запроса к базе данных;

OАр - ОА, имитирующий работу рабочей станции по формированию запроса к базе данных;

OАк - ОА, имитирующий работу канала по передаче информации от рабочей станции к серверу и от сервера к рабочей станции;

OАп - ОА, имитирующий работу процессора сервера;

OАд - ОА, имитирующий работу диска сервера;

Бк - буфер, имитирующий очередь запросов к каналу;

Бп - буфер, имитирующий очередь запросов к процессору;

Бд - буфер, имитирующий очередь запросов к диску;

 - вероятность обращения запросов от диска к процессору при работе с базой данных на сервере.

Схема моделируемой ЛВС в обозначениях блоков языка GPSS.

Пояснения к схеме :

1 – P$RS+10;

2 – P$RS;

3 – P$NAPR;

4 – P$NAPR;

5 - PROCESSOR;

6 - PROCS;

7 – P$NDISC;

8 – P$NDISC;

9 – TRANSFER;

 - вероятность обращения запросов от диска к процессору при работе с базой данных на сервере.

Данные: T_{дообработки} = (90, 110)

T_{формирования} = (90, 110)

N = 10

T_{пр. канала} = (100, 300)

T_{обр. канала} = (100, 300)

T_цп = (90, 110)

С = 2

T_диска = (300, 700)

M = 8

P_{перехода на диск} = 0.125

 = 0.06

Найти: загрузку ЦП

загрузку дисков

загрузку канала

время реакции

Текст программы на GPSS.

10 NRS FUNCTION RN1,D10

.1,1/.2,2/.3,3/.4,4/.5,5/.6,6/.7,7/.8,8/.9,9/1,10

20 DISC FUNCTION RN2,D8

.125,31/.25,32/.375,33/.5,34/.625,35/.75,36/.875,37/1,38

30 EXP FUNCTION RN3,C24

0,0/.1,.104/.2,.222/.3,.355/.4,.509

.5,.69/.6,.915/.7,1.2/.75,1.38

.8,1.6/.84,1.83/.88,2.12/.9,2.3

.92,2.52/.94,2.81/.95,2.99/.96,3.2

.97,3.5/.98,3.9/.99,4.6/.995,5.3

.998,6.2/.999,7./.9998,8.

40 INITIAL X$KAN,300

50 DRS VARIABLE P$RS+10

60 PROCS STORAGE 2

70 *

80 GENERATE 100,FN$EXP

90 ASSIGN RS,FN$NRS

95 BEGG queue globall

100 SEIZE P$RS

110 ADVANCE 100,10

120 RELEASE P$RS

130 ASSIGN NAPR,51

140 ONEMORE QUEUE P$NAPR

150 SEIZE P$NAPR

160 DEPART P$NAPR

170 ADVANCE X$KAN,50

180 RELEASE P$NAPR

190 TEST E P$NAPR,51,ENDD

200 SEVEN QUEUE PROCESSOR

210 ENTER PROCS

220 DEPART PROCESSOR

230 ADVANCE 100,10

240 LEAVE PROCS

250 ASSIGN NDISC,FN$DISC

260 QUEUE P$NDISC

270 SEIZE P$NDISC

280 DEPART P$NDISC

290 ADVANCE 500,200

300 RELEASE P$NDISC

310 ASSIGN NAPR,52

320 TRANSFER .06,ONEMORE,SEVEN

330 ENDD SEIZE V$DRS

340 ADVANCE 100,10

350 RELEASE V$DRS

355 depart globall

360 TRANSFER ,BEGG

370 *

380 GENERATE 10000

390 TERMINATE 1

MICRO 4,C1

WINDOW BLOCKS

400 *

410 REPORT Kostin1.REP

420 START 1

430 *

440 CLEAR

450 INITIAL X$KAN,200

460 REPORT Kostin2.REP

470 START 1

480 *

490 CLEAR

500 INITIAL X$KAN,100

510 REPORT Kostin3.REP

520 START 1

8.2.3. Результаты моделирования.

Результаты моделирования системы с различными значениями параметров можно свести в таблицу:

8.3. Сравнение результатов моделирования с результатами аналитического расчёта.

Заключение.

При разработке проектного решения на интерсеть, связывающую все подразделения фирмы, получены следующие основные результаты:

1. Проведен сравнительный анализ ЛВС и выбрано оборудование для ЛВС центрального и удаленного офисов, выбраны сетевые компоненты, дисковые подсистемы, источники бесперебойного питания, модемы.

Характеристики

Список файлов домашнего задания