>В
Матриця вартостей каналів C
В
Матриця завантаження каналів Ro
В
Матриця затримки каналів T
В
Маршрутизація
В
Інтегральні оцінки мережі
Довжина всієї мережі = 26117 (км)
Вартість всієї мережі = 10946 (тис. крб.)
Загальний трафік мережі = 36999 (бод)
Завантаження мережі = 0.70
макcимально затримка мережі = 3.562 (сек) в каналі 8 - 7
Мінімальна затримка мережі = 0.740 (сек) в каналі 8 - 1
Середня затримка мережі = 1.694 (сек)
Довжина повідомлень = 1300 (біт)
Обмеження на кількість переприемов 2
Кількість "поганих маршрутів" 0
Висновок
У відповідності з технічним завданням була проведена робота з проектування горизонтальної комп'ютерної мережі оптимальної топології. Для виконання завдання були використані 10 вертикальних мереж передачі даних. Для горизонтальної мережі були проаналізовані такі топології як: кільце, зірка, дерево і розподілена. У підсумку оптимальної мережею для передачі даних вийшла мережу зі зіркоподібній топологією (малюнок 17). Інтегральними оцінками даної мережі є:
Вартість всієї мережі = 10946 (тис. крб.)
макcимально затримка мережі = 3.562 (сек)
Мінімальна затримка мережі = 0.740 (сек)
Кількість "поганих маршрутів" 0
Для подальшого зменшення вартості необхідно встановити більше значення переприемов і знизити обмеження на максимальне і мінімальний час затримки в середньому на 1 секунду.
Література
. В.Оліфер, Н.Оліфер. Комп'ютерні мережі. Підручник. М.: Питер, 2008
. # "justify"> Додаток
Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, Grids, StdCtrls; = class (TForm): TImage;: TStringGrid;: TStringGrid;: TLabel;: TLabel;: TCheckBox;: TButton;: TBevel;: TBevel;: TEdit;: TEdit;: TLabel;: TLabel;: TButton;: TLabel;: TLabel; Image1MouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); FormCreate (Sender: TObject); Button1Click (Sender: TObject); Button3Click (Sender: TObject);
{Private declarations}
{Public declarations}; = record: integer;: integer;;: TForm1;: array [1 .. 50] of pp;: integer = 0;: integer;: boolean = false;
{$ R *. dfm} MatrixD (flag: boolean; FP: integer; SP: integer);, j, DecShir, DecDolg: integer; not flag then begini: = 0 to N doj: = 0 to N doi = j then Form1.D.Cells [i, j]: = '----'; (i = 0) and (j <> 0) then Form1.D.Cells...
