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

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

Где t_к1 и t_к2 соответственно среднее время передачи запроса по каналу в прямом и обратном направлениях.

1. Порядок расчета рассматриваемой системы методом фонового потока.

Приближённый итерационный алгоритм нахождения значения и выходных характеристик аналитической модели имеет следующий вид:

1. Определяем начальное значение для _ф1

ф1= К₁min (6)

К₁ принимает значения в диапазоне 0.995…0.99995.

2. Определяем значения Т_п и Т_д соответственно из выражений (2), (3) и (4).

3. Определяем значение _ф из следующего выражения:

(7)

4. Определяем относительную погрешность 1 для _ф1 1 принимает значения в диапазоне 0.001…0.00001.

Если , то алгоритм завершил работу, и переходим к пункту 6, иначе выполняется следующий пункт алгоритма.

5. Определяем новое приближённое значение для _ф1:

(8)

К2 принимает значения в диапазоне 10…1000.

(9)

После этого переходим к пункту 2 данного алгоритма.

Определяем выходные результаты аналитической модели:

T_реак=T₀+T_к+(T_п+T_д) (10)
T_реак=(N-1)/_ф–T_р (11)
₂=Т/(T_реак+T_р) (12)
p_п=₂t_п/С (13)
p_дi=P_i₂t_д (14)

Предложенная аналитическая модель реализована программно на языке Delphi.

1. Листинг программы.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Math, ExtCtrls, jpeg;

type

TForm2 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

Label18: TLabel;

Label19: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Edit9: TEdit;

Edit10: TEdit;

Edit11: TEdit;

Edit12: TEdit;

Edit13: TEdit;

Edit14: TEdit;

Edit15: TEdit;

Edit16: TEdit;

Edit17: TEdit;

Edit18: TEdit;

Edit19: TEdit;

Button1: TButton;

Button2: TButton;

Label20: TLabel;

Label21: TLabel;

Label22: TLabel;

Image1: TImage;

Label23: TLabel;

Label24: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

function GetMinimum(f1:real; f2:real; f3:real):real;

function GetPower( f:real;Power:real) :real;

var

Form2: TForm2;

//////////////////////////////////

NPC,NServ:Integer; //кол-во рабочих станций, серверов

MTQueryPC , // время дообработки запроса

MTFormQueryPC , //формирование запроса

MTTChannelDirect , // время передачи в прямом направлении

MTTChannelRevers , //время передачи в обратном направлении

MTQueryServer , //обработка на сервере

Precision : real;

implementation

{$R *.dfm}

function GetMinimum(f1:real; f2:real; f3:real):real;

var Minimum:real;

begin

Minimum := f1;

if (f2 < Minimum)then Minimum := f2;

if (f3 < Minimum)then Minimum := f3;

result:= Minimum;

end;

function GetPower( f:real;Power:real) :real;

var i:Integer;

begin

if Power=0 then result:= 1;

i:= 0;

while i < Power

do

begin

f := f*f;

i:= i+1;

end;

result:= f;

end;

function Calc():bool;

var tcs,T0,Tp,K1,K2,delta1,

Tk,Tc,Lf,B,Lf1,tk_,Ppc,

Pk,Pc,Tcircle,L, Treaction,Delta:real;

C :Integer;

N,IterationNumber :Integer;

begin

NPC := StrToInt(Form2.Edit1.Text);

NServ:= StrToInt(Form2.Edit6.Text);

MTQueryPC := StrToInt(Form2.Edit2.Text); // время дообработки запроса

MTFormQueryPC:= StrToInt(Form2.Edit3.Text); //формирование запроса

MTTChannelDirect := StrToInt(Form2.Edit8.Text); //время передачи в прямом направлении

MTTChannelRevers := StrToInt(Form2.Edit9.Text); //время передачи в обратном направлении

MTQueryServer := StrToInt(Form2.Edit7.Text); //обработка на сервере

Precision := StrToFloat(Form2.Edit5.Text);

IterationNumber :=0;

tcs := MTQueryServer; // время дообработки запроса

C := NServ;

N := NPC; //кол-во рабочих станций, серверов

T0 := MTQueryPC; // время дообработки запроса

Tp := MTFormQueryPC; //формирование запроса

K1 :=StrToFloat(Form2.Edit11.Text);

K2 := StrToInt(Form2.Edit13.Text);

delta1 := 0;

Tk := 0;

Tc := 0;

Lf := 0;

B := 1;

Lf1:= 0;

tk_ := 0.5 * (MTTChannelDirect + MTTChannelRevers);

// выходные данные

Ppc := 0;

Pk := 0;

Pc := 0;

Tcircle := 0;

L := 0;

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.

1. Интерфейс программы

Главная форма программы имеет вид:

Рис9. Главная форма программы

Вводим исходные данные и нажимаем кнопку «Вычислить»

1. Результаты аналитического эксперимента.

Таблица 38. Результаты аналитического эксперимента.

1. Имитационное моделирование сети.

   1. Формализованная схема.

Рис.11. Формализованная схема.

ОАдб – обслуживающий аппарат (ОА), имитирующий работу рабочей станции по дообработке запроса к серверу.

ОАф – ОА, имитирующий работу рабочей станции по формированию запроса к серверу.

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

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