Информационно-вычислительная сеть коллективного пользования

    

имеет место с вероятностью не меньшей,  чем 1-α (доверительная вероятность, α=0,05,..0,01). Под корнем стоит дисперсия оценки :

    D(

) = D[t]/N

    Чтобы обеспечить заданную точность ε, необходимо взять N таким, чтобы имело место

    Неизвестную дисперсию D[t] в этом соотношение заменяют при вычислении её оценкой

 
 
 
 
 
 
 
 
 
 
 
 
 
 

Алгоритм  моделирования исследуемой  системы

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

         Первым разрабатывается и описывается  родительский класс setl (рис. 2). 

    

 

    Рисунок 2. Диаграмма класса setl.

         Он является наследником базового  класса TObject.

         nomogid – общий атрибут (public), т. е. любой класс, имеющий доступ к объекту класса setl, имеет доступ и к этому атрибуту. Атрибут nomogid является целочисленной переменной.

         Класс setl имеет операцию: create(). Операция имеет признак видимости public. Кроме того create является операцией класса, тип выражения, возвращающего значения которого object.

         Класс setl является родительским для классов abevm, kanal и monitor.

         Класс abevm (рис. 3) имеет общие атрибуты tvh, tv и toz. Они являются массивами из 15 элементов типа float (real). 

    

 

    Рисунок 3. Диаграмма класса abevm

        Операции create(), ochered(), obrab(), finish() - имеют признак видимости public. Все, кроме create(), являются операциями представителя. create  - операция класса, возвращающая выражения типа object.

         Класс kanal (рис. 4) имеет общие атрибуты tvh[1..3000] и toz[1..3000], которые являются массивами из 3000 элементов типа float.

    

    Рисунок 4. Диаграмма класса kanal 

         Операции create(), sendtoabevm() - имеют признак видимости public. Последняя является операцией представителя класса, create  - операция класса, возвращающая выражения типа object.

         Класс monitor (рис. 5) имеет общие атрибуты tvh[1..3000] и toz[1..3000], которые являются массивами из 3000 элементов типа float.  

    

    Рисунок 5. Диаграмма класса monitor

         Операции create(), dosoob() – имеют признак видимости public. Последняя является операцией представителя класса, create  - операция класса, возвращающая выражения типа object.

         На рисунке 6 показана общая  диаграмма классов системы. 
 

    

 

    Рис. 6. Диаграмма классов

   

         Взаимодействия классов между  собой показаны на рисунке  7. 

    

    Рисунок 7. Диаграмма связей между классами

         Для каждого класса создаются  экземпляры (объекты), которые используются  при моделировании.

         Для класса abevm экземпляр - abevm1 (рис. 8). 

    

 

    Рисунок 8. Диаграмма объекта abevm1

         Для класса kanal – kanal1 (рис. 9). 

    

 

    Рисунок 9. Диаграмма объекта kanal1

         Для класса monitor создается массив экземпляров m. (рис. 10) 

    

    Рис.10. Диаграмма объекта m.

Описание  программы моделирования

         Текст программы моделирования информационно-вычислительной сети коллективного пользования написан в среде программирования Delphi с использованием объектно–ориентированной технологии программирования. Delphi использует объектно-ориентированный язык, который сочетает выразительную мощь, простоту программирования, эффективность языка программирования.

         Входными данными для моделирующей  программы являются время обработки  заявки (tv) – случайная величина, распределенная равномерно. tv– массив из 3000 элементов типа real.

         Выходной величиной является  среднее время обработки информации  абонентской ЭВМ и зависимость  среднего времени обработки информации  графика.

         После запуска выполняемого файла  программы, появляется форма с  кнопкой для инициализации (рис.  11).  

    

    Рисунок 11. Форма появляющаяся после запуска  программы

    После нажатия кнопки «инициализировать»  в окне вывода результата появится  список средних времен обработки  информации. После первого запуска  программы на форме появится  график, показывающий зависимость среднего времени обработки информации от быстродействия ЭВМ(рис. 12). Выход из программы осуществляется нажатием кнопки закрытия окна в правом верхнем углу формы. 

    

 

    Рисунок 12. Форма с результатом работы программы

    t0 – среднее время обработки информации при быстродействии абонентской ЭВМ равном 100000 операций в секунду.  

    t1 – среднее время обработки информации при быстродействии абонентской ЭВМ равном 150000 операций в секунду.

    t2 – среднее время обработки информации при быстродействии абонентской ЭВМ равном 200000 операций в секунду.

    t3 – среднее время обработки информации при быстродействии абонентской ЭВМ равном 250000 операций в секунду.

    t4 – среднее время обработки информации при быстродействии абонентской ЭВМ равном 300000 операций в секунду.

    t5 – среднее время обработки информации при быстродействии абонентской ЭВМ равном 350000 операций в секунду.

    t6 – среднее время обработки информации при быстродействии абонентской ЭВМ равном 400000 операций в секунду.

    t7 – среднее время обработки информации при быстродействии абонентской ЭВМ равном 450000 операций в секунду.

    t8 – среднее время обработки информации при быстродействии абонентской ЭВМ равном 500000 операций в секунду.

      Текст программы приведен в  приложении 1.   
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Анализ результата моделирования

         Результатом программы является  зависимость среднего времени  обработки информации абонентской  ЭВМ от быстродействия ЭВМ,  представленная в виде графика  (рис. 13).

    

 

    Рисунок 15. График, отражающий зависимость

    среднего  времени обработки информации

    от  быстродействия ЭВМ

   

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

Заключение

         Программа моделирования информационно-вычислительной  сети коллективно пользования предоставляет среднее время обработки информации и график зависимости среднего времени обработки информации от быстродействия абонентской ЭВМ. График соответствует ожидаемому. На основании этого можно сделать заключение о правильной работе программы и об адекватности результатов ее работы. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Библиографический список

1. Бусленко  Н.  П.  Моделирование сложных  систем. М.: Наука, 1978. - 400 с.

2. Советов  Б.Я., Яковлев С.А. Моделирование  систем: Учебник для вузов по спец. «Автоматизир. системы обработки информ. и упр.». – 2-е изд., перераб. и доп. – М.: Высш. шк., 1998. – 319 с.:ил.  
 
 
 
 
 
 
 
 
 
 
 
 
 
 

       
 
 
 
 
 
 

Приложение 1.

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

unit msk; 

interface 

uses

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

  Dialogs, StdCtrls, ExtCtrls, Buttons, Mask, TeeProcs, TeEngine, Chart,

  ComCtrls, Series;

type

    TForm1 = class(TForm)

    Button1: TButton;

    Bevel1: TBevel;

    Image1: TImage;

    ListBox1: TListBox;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

      { Private declarations }

  public

    { Public declarations }

  end; 

point=class

public

constructor create(a,b:integer); overload;

procedure draw; virtual;

end; 

line=class(point)

public  x,y,vector,radius:integer;

scalelevel:real;

constructor create(a2,b2,c2:integer); overload;

procedure draw; override;

end; 

setl = class

public

nomoz:integer;

constructor create; overload;

end; 

abevm = class(setl)

  public

  tvh,toz,tv:array [1..15] of real;

  nomvh:integer;

  constructor create; overload;

  procedure ochered;

  procedure obrab(i:integer);

  procedure finish(i:integer);

  end; 

monitor = class(setl)

  public

  tvh,toz:array [1..3000] of real;

  nomvh:integer;

  constructor create; overload;

  procedure dosoob(i:integer);

  end; 

kanal = class(setl)

  public

  tvh,toz:array [1..3000] of real;

  nomvh:integer;

  constructor create; overload;

  procedure sendtoabevm(i:integer);

  end; 

var

  form1:TForm1;

  abevm1: abevm;       

  m: array [1..15] of monitor;

  kanal1: kanal;               

  tobd, tvip: array [1..1500] of real;

  x,y,lx,ly,lc,lc1,ly1,lx1,mm,nn,ind,prall,col,p: integer;

  t,sumall,sroz:real;

  aline:line; 

implementation

{$R *.dfm}

constructor point.create(a,b:integer);

begin