Сеть NGN города Рязани
Особенности построения сети доступа. Мониторинг и удаленное администрирование. Разработка структурной схемы сети NGN. Анализ условий труда операторов ПЭВМ. Топология и архитектура сети. Аппаратура сетей NGN и измерение основных параметров сети.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 19.06.2011 |
| Размер файла | 5,7 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
v1:=i+1;
m:=l[i];
end;
//---------------------------------------
for i:=0 to High(l) do
begin
if post[i]<>1 then
begin
if l[i]>=999999 then
matrix2.Cells[i+1,it]:=#126
else
matrix2.Cells[i+1,it]:=IntToStr(l[i]);
matrix2.Cells[i+1,matrix2.RowCount-1]:=IntToStr(pred[i]);
end;
end;
//---------------------------------------
p:=v1;
Form1.Caption:=IntToStr(m);
post[p-1]:=1;
matrix2.Cells[matrix2.ColCount-2,it]:=IntToStr(p);
matrix2.Cells[matrix2.ColCount-1,it]:=IntToStr(l[p-1]);
until it=matrix.ColCount-1;
end;
procedure multiplication(Matrix, Matrix2:TStringGrid;var Matrix3:TStringGrid);
var
i,j,k,s:integer;
begin
for i:=1 to Matrix.ColCount-1 do
for k:=1 to Matrix2.ColCount-1 do
begin
s:=0;
for j:=1 to Matrix.RowCount-1 do
s:=s+StrToInt(Matrix.Cells[j,i])*StrToInt(Matrix2.Cells[k,j-1]); // умножение
Matrix3.Cells[k,i-1]:=IntToStr(s);
end;
end;
function Min(Matrix:TStringGrid; begCols,begRows:integer{; var n:integer}): integer;
var
cols,rows,i,k:integer;
s:string;
begin
cols:=Matrix.ColCount-1; //определяем кол-во столбцов в исходной матрице
rows:=Matrix.RowCount-1; //определяем кол-во строк в исходной матрице
for i:=begCols to cols do
for k:=begRows to rows-1 do
if StrToInt(Matrix.Cells[i,k+1])<StrToInt(Matrix.Cells[i,begRows]) then
begin
s:=Matrix.Cells[i,begRows];
Matrix.Cells[i,begRows]:=Matrix.Cells[i,k+1];
Matrix.Cells[i,k+1]:=s;
end;
for i:=begCols to cols-1 do
if StrToInt(Matrix.Cells[i+1,begRows])<StrToInt(Matrix.Cells[begCols,begRows]) then
begin
s:=Matrix.Cells[begCols,begRows];
Matrix.Cells[begCols,begRows]:=Matrix.Cells[i+1,begRows];
Matrix.Cells[i+1,begRows]:=s;
end;
min:=StrToInt(Matrix.Cells[begCols,begRows]);
end;
function FindMinWeight(Matrix:TStringGrid; var Matrix3:TStringGrid):String;
var
i,j,k,col,Row,b,n:integer;
Ms: array of integer;
Md: array of array of integer;
begin
Col:=Matrix.ColCount; //определяем кол-во столбцов в исходной матрице
Row:=Matrix.RowCount; //определяем кол-во строк в исходной матрице
Setlength(Ms,row-1);
Setlength(Md,col-1,row-1);
for i:=0 to High(Ms) do
for k:=0 to High(Ms) do
if (Matrix.Cells[i+1,k+1]='-') or (Matrix.Cells[i+1,k+1]='') or (Matrix.Cells[i+1,k+1]='~') then
Md[i,k]:=999999
else
Md[i,k]:=StrToInt(Matrix.Cells[i+1,k+1]);
for i:=0 to High(Ms) do
for k:=0 to High(Ms) do
begin
for j:=0 to High(Ms) do
Ms[j]:=Md[i,j]+Md[j,k]; // сложение i строки с j столбцом
b:=Ms[0];
for n:=0 to High(Ms) do
if b>=Ms[n] then
b:=Ms[n];
Matrix3.Cells[i+1,k+1]:=IntToStr(b);
end;
for i:=1 to col-1 do
for k:=1 to row-1 do
if StrToInt(Matrix3.Cells[i,k])>=999999 then
Matrix3.Cells[i,k]:='~';
end;
procedure TForm1.LabeledEdit1Change(Sender: TObject);
var
i:integer;
begin
//---------------Исходная матрица--------------------------------------
StringGrid1.ColCount:=UpDown1.Position+1; //задаём кол-во столбцов исходной матрице
StringGrid1.RowCount:=UpDown1.Position+1; //задаём кол-во строк исходной матрице
StringGrid1.Height:=(UpDown1.Position+2)*20; //задаём строк матрицы
StringGrid1.Width:=(UpDown1.Position+2)*30; //задаём столбцов матрицы
for i:=0 to UpDown1.Position do
begin
StringGrid1.ColWidths[i]:=30; //задаём ширину столбцов матрицы
StringGrid1.RowHeights[i]:=20; //задаём высоту строк матрицы
StringGrid1.Cols[i+1].Text:=IntToStr(i+1); //Пишем заголовки столбцов матирицы
StringGrid1.Rows[i+1].Text:=IntToStr(i+1); //Пишем заголовки строк матирицы
StringGrid1.Cells[i+1,i+1]:=IntToStr(0);
end;
//---------------Матрица кратч расстояний------------------------------
StringGrid2.ColCount:=StringGrid1.ColCount;
StringGrid2.RowCount:=StringGrid1.RowCount;
for i:=0 to UpDown1.Position do
begin
StringGrid2.ColWidths[i]:=30; //задаём ширину столбцов матрицы
StringGrid2.RowHeights[i]:=20; //задаём высоту строк матрицы
StringGrid2.Cols[i+1].Text:=IntToStr(i+1); //Пишем заголовки столбцов матирицы
StringGrid2.Rows[i+1].Text:=IntToStr(i+1); //Пишем заголовки строк матирицы
end;
//---------------Матрица кратч расстояний------------------------------
StringGrid5.ColCount:=StringGrid1.ColCount;
StringGrid5.RowCount:=StringGrid1.RowCount;
for i:=0 to UpDown1.Position do
begin
StringGrid5.ColWidths[i]:=30; //задаём ширину столбцов матрицы
StringGrid5.RowHeights[i]:=20; //задаём высоту строк матрицы
StringGrid5.Cols[i+1].Text:=IntToStr(i+1); //Пишем заголовки столбцов матирицы
StringGrid5.Rows[i+1].Text:=IntToStr(i+1); //Пишем заголовки строк матирицы
end;
//---------------Матрица вершин------------------------------
StringGrid6.RowCount:=UpDown1.Position; //задаём кол-во строк исходной матрице
for i:=0 to 1 do
StringGrid6.ColWidths[i]:=30; //задаём ширину столбцов матрицы
for i:=0 to UpDown1.Position-1 do
begin
StringGrid6.RowHeights[i]:=20; //задаём высоту строк матрицы
StringGrid6.Rows[i].Text:=IntToStr(i+1); //Пишем заголовки строк матирицы
end;
//---------------Матрица опт вершин------------------------------
StringGrid7.RowCount:=StringGrid6.RowCount;
for i:=0 to 1 do
StringGrid7.ColWidths[i]:=30; //задаём ширину столбцов матрицы
for i:=0 to UpDown1.Position-1 do
begin
StringGrid7.RowHeights[i]:=20; //задаём высоту строк матрицы
StringGrid7.Rows[i].Text:=IntToStr(i+1); //Пишем заголовки строк матирицы
end;
//---------------Матрица путей------------------------------
StringGrid8.RowCount:=StringGrid1.RowCount+1; //задаём количество строк
StringGrid8.ColCount:=StringGrid1.ColCount+2; //задаем количество столбцов
StringGrid8.rows[0].Text:='№';
StringGrid8.rows[StringGrid8.RowCount-1].Text:='pred';
StringGrid8.Cols[StringGrid8.ColCount-2].Text:='p';
StringGrid8.Cols[StringGrid8.ColCount-1].Text:='l(p)';
for i:=1 to StringGrid8.RowCount-2 do
begin
StringGrid8.RowHeights[i]:=20; //задаём высоту строк матрицы
StringGrid8.Rows[i].Text:=IntToStr(i); //Пишем заголовки строк матирицы
end;
for i:=1 to StringGrid8.ColCount-3 do
begin
StringGrid8.ColWidths[i]:=30; //задаём ширину столбцов матрицы
StringGrid8.Cols[i].Text:='v'+IntToStr(i); //Пишем заголовки столбцов матирицы
end;
end;
procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
Panel1.Width:=Form1.Width div 2;// + Form1.Width div 10;
GroupBox1.Width:=Form1.Width - Panel1.Width;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
FindMinWeight(StringGrid1,StringGrid2);
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
var
i,j:integer;
begin
for i:=1 to StringGrid1.ColCount-1 do
for j:=1 to StringGrid1.RowCount-1 do
StringGrid1.Cells[i,j]:=StringGrid1.Cells[j,i];
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
var
i,j:integer;
begin
for i:=1 to StringGrid2.ColCount-1 do
for j:=1 to StringGrid2.RowCount-1 do
StringGrid5.Cells[i,j]:=StringGrid2.Cells[i,j];
FindMinWeight(StringGrid5,StringGrid2);
end;
procedure TForm1.BitBtn4Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to StringGrid6.RowCount-1 do
StringGrid6.Cells[1,i]:='1';
end;
procedure TForm1.BitBtn5Click(Sender: TObject);
var
i,b:integer;
begin
multiplication(StringGrid2,StringGrid6,StringGrid7);
b:=StrToInt(StringGrid7.Cells[1,0]);
for i:=0 to StringGrid7.RowCount-1 do
if b>=StrToInt(StringGrid7.Cells[1,i]) then
begin
b:=StrToInt(StringGrid7.Cells[1,i]);
Label1.Caption:=IntToStr(i+1);
end;
end;
procedure TForm1.BitBtn6Click(Sender: TObject);
var
i:integer;
begin
StringGrid8.RowCount:=StringGrid1.RowCount+1; //задаём количество строк
StringGrid8.ColCount:=StringGrid1.ColCount+2; //задаем количество столбцов
StringGrid8.rows[0].Text:='№';
StringGrid8.rows[StringGrid8.RowCount-1].Text:='pred';
StringGrid8.Cols[StringGrid8.ColCount-2].Text:='p';
StringGrid8.Cols[StringGrid8.ColCount-1].Text:='l(p)';
for i:=1 to StringGrid8.RowCount-2 do
begin
StringGrid8.RowHeights[i]:=20; //задаём высоту строк матрицы
StringGrid8.Rows[i].Text:=IntToStr(i); //Пишем заголовки строк матирицы
end;
for i:=1 to StringGrid8.ColCount-3 do
begin
StringGrid8.ColWidths[i]:=30; //задаём ширину столбцов матрицы
StringGrid8.Cols[i].Text:='v'+IntToStr(i); //Пишем заголовки столбцов матирицы
end;
Put(StringGrid1,StrToInt(Label1.Caption),StringGrid8);
end;
procedure TForm1.BitBtn7Click(Sender: TObject);
var
i,k:integer;
begin
for i:=1 to StringGrid1.RowCount-1 do
for k:=1 to StringGrid1.ColCount-1 do
if StringGrid1.Cells[i,k]='' then
StringGrid1.Cells[i,k]:='~';
if SaveDialog1.Execute then
for i:=1 to StringGrid1.RowCount-1 do
StringGrid1.Rows[i].SaveToFile(SaveDialog1.FileName+IntToStr(i));
end;
procedure TForm1.BitBtn8Click(Sender: TObject);
var
i:integer;
begin
if OpenDialog1.Execute then
for i:=1 to StringGrid1.RowCount-1 do
StringGrid1.Rows[i].LoadFromFile(OpenDialog1.FileName+IntToStr(i));
end;
procedure TForm1.BitBtn9Click(Sender: TObject);
begin
Label1.Caption:=LabeledEdit2.Text;
end;
end.
Список литературы
1. А. Б. Гольдштейн, Б. С. Гольдштейн. SOFTSWITCH. Спб: БХВ - Санкт-Петербург. 2006.
2. Телекоммуникационные системы и сети: учебное пособие. В 3-х томах. Том 3. - Мультисервисные сети. под ред. В. П. Шувалова. Москва: Горячая линия - Телком, 2005.
3. Гольдштейн Б.С., Пинчук А.В., Суховицкий А.Л. IP-телефония. М.: Радио и связь, 2001.
4. Р.Фриман. Волоконно-оптические системы связи. Издание 3-е дополненное. Перевод с английского под ред. Н. Н. Слепова. Москва: Техносфера. 2006.
5. С. Рашид. Проблема выбора варианта расширения FTTP для многоквартирного дома. Lightwave. 2008, № 1.
6. С. Рашид. Проблема выбора варианта расширения FTTP для многоквартирного дома. Lightwave. 2008, № 1.
7. Б. Дойч, Новая технология создаёт предпосылки для прокладки оптического кабеля в многоквартирных домах. Lightwave. 2008, № 1.
8. А.В. Волков, Пассивная активность или активная пассивность, Lightwave. 2007, № 1.
9. Р. Р. Убайдуллаев. Волоконно-оптические сети. Москва: ЭКО - ТРЕНДЗ. 2001.
10. К.Е. Телегин, Принцип выбора оборудования для построения сетей доступа. Технология и средства связи 2007 №3.
11. Сети нового поколения. Обзор проектов 2007. Технология и средства связи 2008 №1.
12. Техническое описание mGate.ITG. НТЦ Протей.
13. Техническое описание mCore.ITG. НТЦ Протей.
14. Росляков А.В., Самсонов П.В., Шиболяев А.П. IP-телефония. М.: «Эко-Тренд», 2001.
15. Олифер В.Г., Олифер Н.А. Компьютерные сети. Принципы, технологии, протоколы. - СПб.: Питер, 2007.
16. Корнеев В.А. Введение в теорию сетей связи. Учеб. пособие. РРТИ, Рязань, 1984.
17. Домин Л.Н. Элементы теории графов Пенза 2004.
18. Ю. В. Зайцев, Н. В. Веселкин, С. И. Кордюков, А. Я. Агеев; Под ред. Ю. А. Зайцева. Безопасность и экологичность проекта: Методические указания для дипломников. РГРТУ. Рязань. 2006.
19. П. А. Долин. Справочник по технике безопасности. Москва: Высшая школа. 1985.
20. В. А. Князевский, Н. А. Чекалин. Техника безопасности в электроустановках. Москва: Энергопром. 1983.
21. Ф. И. Шаровар. Устройства и системы пожарной сигнализации. Москва: Стройиздат. 1985.
22. Ю. В. Зайцев, В. И. Кремнев. Обеспечение безопасности пользователя при работе с ПЭВМ: Учебное пособие. РГРТА. Рязань. 2000.
23. Л. В. Васина, Е. Н. Евдокимова, А. В, Рыжкова. Руководство по выполнению экономической части дипломного проекта (для студентов технических специальностей). РГРТУ. Рязань. 2007.
24. http://teralink.ru
25. http://dlink.ru
26. http://3anet.com.ua/ru/gpon.html
27. http://www.syrus.ru
28. http://www.globtel.tv
Размещено на Allbest.ru
Подобные документы
Изучение понятия и особенностей построения компьютерной сети с файл-сервером. Проект структурной схемы сети и схемы сети на плане здания. Удаленный доступ и удаленное управление сервером. Сети с шинной топологией. Характеристика требуемого оборудования.
курсовая работа [1,5 M], добавлен 18.03.2013Аналитический обзор принципов построения сетей. Анализ схемы информационных потоков на предприятии. Разработка структурной схемы сети. Выбор активного и пассивного оборудования. Разработка монтажной схемы прокладки сети и размещения оборудования.
дипломная работа [1,5 M], добавлен 22.03.2018Классификация компьютерных сетей в зависимости от удалённости компьютеров и масштабов. Топология сети как физическая конфигурация сети в совокупности с ее логическими характеристиками. Основные базовые топологии сети, многозначность понятия топология.
контрольная работа [1,2 M], добавлен 12.07.2010Особенности развития технологий беспроводного доступа, современные тенденции развития компьютерных сетей. Необходимость создания компьютерной сети. Беспроводное оборудование, применяемое в Wi-Fi сетях. Разработка структурной схемы организации сети.
дипломная работа [14,5 M], добавлен 21.04.2023Сущность и классификация компьютерных сетей по различным признакам. Топология сети - схема соединения компьютеров в локальные сети. Региональные и корпоративные компьютерные сети. Сети Интернет, понятие WWW и унифицированный указатель ресурса URL.
презентация [96,4 K], добавлен 26.10.2011Классификация компьютерных сетей. Назначение компьютерной сети. Основные виды вычислительных сетей. Локальная и глобальная вычислительные сети. Способы построения сетей. Одноранговые сети. Проводные и беспроводные каналы. Протоколы передачи данных.
курсовая работа [36,0 K], добавлен 18.10.2008Первоначальная настройка сети. Управление службами, команды обслуживания. Диагностика сети и устранение неполадок. Конфигурирование сети и сетевые службы. Мониторинг служб Workstation и Server. Использование сетевых ресурсов. Просмотр сетевых компонентов.
презентация [242,9 K], добавлен 10.11.2013Современные методики диагностирования соединения в сети. Интерфейс для отображения графической информации о структуре сетей. Инструменты получения маршрутов между узлами сети. Разработка модулей администрирования локальной вычислительной сетью.
отчет по практике [199,1 K], добавлен 28.03.2011Основная цель и модели сети. Принцип построения ее соединений. Технология клиент-сервер. Характеристика сетевых архитектур Ethernet, Token Ring, ArcNet: метод доступа, среда передачи, топология. Способы защиты информации. Права доступа к ресурсам сети.
презентация [269,0 K], добавлен 26.01.2015Назначение и классификация компьютерных сетей. Обобщенная структура компьютерной сети и характеристика процесса передачи данных. Управление взаимодействием устройств в сети. Типовые топологии и методы доступа локальных сетей. Работа в локальной сети.
реферат [1,8 M], добавлен 03.02.2009
