Курсовая работа по дисциплине: \

Курсовая работа по дисциплине: ''Управление в информационных сетях'' На тему: '' Трех машинный комплекс для исследования времени генерации ''


Смотрите также:
Курсовая работа по дисциплине «Информатика»...
Курсовая работа по дисциплине «Технологии программирования» на тему: «Фибоначчиевы кучи»...
Курсовая работа по дисциплине основы менеджмента на тему: «Управление рисками в организации»...
Курсовая работа по дисциплине «Экономика фирмы» на тему «Управление персоналом в современной...
Курсовая работа по дисциплине : «Основы маркетинга» На тему : «Маркетинговые исследования»...
Курсовая работа по дисциплине «Управление малыми предприятиями» на тему Бизнес-план аозт...
Курсовая работа по дисциплине: Менеджмент На тему: Методы управленческой деятельности в...
Учебно-методический комплекс по дисциплине Управление документально-информационными системами...
Учебно-методический комплекс по дисциплине Управление социокультурными информационными...
Курсовая работа по дисциплине: Зарубежные турагентства...
Курсовая работа на тему: «Поисковые системы» по дисциплине "организация ЭВМ "...
Курсовая работа на тему: «Поисковые системы» по дисциплине "организация ЭВМ "...



Загрузка...
скачать
Министерство образования российской федерации

Казанский Государственный Технический Университет

им. А. Н. Туполева

Кафедра Автоматизированных Систем Обработки Информации и Управления


КУРСОВАЯ РАБОТА

по дисциплине:

''Управление в информационных сетях''


На тему: '' Трех машинный комплекс для исследования времени генерации ''


Выполнил:

студент группы 4506

Иванов И.И.


Руководитель:

Бондаренко Б. П.


Казань 2005

Содержание

Задание 3

1.Введение. 4

2.Выбор и обоснование средств информационной системы. 7

2.1.Состав технических устройств (ЭВМ, устройства связи), система интерфейсов. 7

2.2.Способы взаимодействия пользователя с системой, организация вычислительных процессов. 9

2.3.Состав информационного и программного обеспечения 11

Листинг приложения Machine1 14

Листинг приложения Machine2 15

Листинг приложения Machine3 16

3Заключение 18

3.1.Достоинства и недостатки разработанной информационной системы. 18

3.2.Пути совершенствования разработанного программного продукта 18

3.3.Рекомендации к пользователю 18

Список литературы 19

4. Приложение. 20


Задание


Вариант 8d

Разработка трех машинного комплекса на ЛВС для исследования времени генерации.

^ Пояснения к теме курсовой работы

Функциональное назначение компьютеров в комплексе предполагается следующим.

Первый компьютер генерирует М-последовательность и байтами передает ее второму компьютеру.

Второй компьютер формирует из принимаемых байтов сообщение по 32 байта и посылает их третьему компьютеру.

Третий компьютер подсчитывает среднее количество нулей и единиц в М-последовательности, принятой от второго компьютера.
  1. Введение.


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

Последовательность случайных чисел представляет собой случайный дискретный процесс. Устройства, генерирующие такие процессы, называются генераторами случайных чисел (ГСЧ). В последнее время ГСЧ широко используются в специализированных цифровых устройствах измерительной техники, обработки информации, вычислительной техники. Проведение имитационного моделирования, решение задач методом статистических испытаний (методом Монте-Карло) на универсальных ЦВМ также невозможно без ГСЧ.

Различают два основных способа получения случайных чисел: программный и аппаратный. Быстродействие программных ГСЧ обычно значительно ниже аппаратных. А при организации всего вычислительного процесса в случае использования программного ГСЧ машинное время решения задачи значительно увеличивается за счет суммарной загрузки процессора ЦВМ процедурами получения псевдослучайных чисел и реализацией основных вычислительных команд. Поэтому применение аппаратных ГСЧ в большинстве случаев более предпочтительно. Кроме этого, в стохастических вычислительных машинах (СВМ) аппаратные ГСЧ являются одним из основных устройств.

^ Формирование М-последовательности.


М
-последовательность формируется согласно следующему рекуррентному уравнению:

Предполагается, что заданы весовые коэффициенты a1, a2, … ,an , которые образуют массив A. Причем,

П
редполагается, что заданы и начальные значения М1, М2, … Mn, которые определяют начало М- последовательности. Причем,

О
тметим, что число элементов в массиве А равно n, а в массиве M, в котором формируется М - последовательность, равно N.

Рассмотрим пример. Пусть в качестве исходных данных приняты:

n=3;

a1=1, a2=0, a3=1;

M1=0, M2=0, M3=1. Тогда М-последовательность будет такой:


i

1

2

3

4

5

6

7

Mi

0

0

1

1

1

0

1






Следует отметить, 1) что, если для данного примера продолжить формирование М-последовательности (для i>N) по той же формуле, то вновь начинает формироваться М-последовательность. Поэтому часто число N называют периодом М-последовательности.

2) Далеко не любые значения весовых коэффициентов ai (i=1,2,…n) дают М- последовательность. Некоторые значения весовых коэффициентов для М- последовательностей приведены ниже.


n

ai (i=1,2,…n)

N

3

101, 110

7

4

1001, 1100

15

5

10010, 10111, 10100, 11011, 11110

31

6

100001, 100100, 111001

63

7

1011111

127


В данной работе используется М-последовательность вида: 100001. Период данной последовательности равен 63


  1. ^

    Выбор и обоснование средств информационной системы.

    1. Состав технических устройств (ЭВМ, устройства связи), система интерфейсов.


Локальная сеть - ЛВС [local area network - LAN] – Совокупность близко расположенных вычислительных машин, связанных между собой определенными интерфейсами и оснащенных программными средствами, которые обеспечивают информационное взаимодействие между вычислительными процессами. ЛВС – сеть терминалов (Рабочие станции, серверы, сетевые станции), подключенных через сетевое оборудование к единой физической среде передачи данных, которые совместно используют ресурсы (диски, принтеры, файлы данных прикладные программы)

Ethernet – это одна из самых распространенных на сегодняшний день технологий локальных сетей. В широком смысле Ethernet – это целое семейство технологий, включающие различные фирменные и стандартные варианты. Почти все виды технологий Ethernet используют один и тот же метод разделения среды передачи данных – метод случайного доступа CSMA/CD, который определяет облик технологии в целом

Витая пара – это два изолированных провода, скрученных между собой. Скручивание проводов снижает влияние помех на полезные сигналы Для Ethernet используется 8-жильный кабель, состоящий из четырех витых пар. Для защиты от воздействия окружающей среды кабель имеет внешнее изолирующее покрытие.

Нub (концентратор) – один из часто встречающихся сетевых устройств. Каждый компьютер должен быть подключен к нему с помощью своего сегмента кабеля. Длина каждого сегмента не должна превышать 100 м. На концах кабельных сегментов устанавливаются разъемы RJ-45. Одним разъемом кабель подключается к хабу, другим – к сетевой плате. Разъемы RJ-45 очень компактны, имеют пластмассовый корпус и восемь миниатюрных площадок.

Хаб – центральное устройство в сети на витой паре, от него зависит ее работоспособность. Располагать его надо в легкодоступном месте, чтобы можно было легко подключать кабель и следить за индикацией портов.

Хабы выпускаются на разное количество портов – 8, 12, 16 или 24. Соответственно к нему можно подключить такое же количество компьютеров.


TCP/IP.

Сегодня стек TCP/IP представляет собой один из самых распространенных стеков транспортных протоколов вычислительных сетей.

Лидирующая роль стека TCP/IP объясняется следующими его свойствами:

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

  • Почти все большие сети передают основную часть своего трафика с помощью протокола TCP/IP.

  • Это метод получения доступа к сети Internet.

  • Все современные операционные системы поддерживают стек TCP/IP.

  • Это устойчивая масштабируемая межплатформенная среда для приложений клиент-сервер

Процесс передачи информации между компьютерами на основе протокола TCP/IP реализуется через обмен пакетами. На уровне IP блок данных протокола (PDU, Protocol Data Unit) называется пакетом (строго говоря, PDU сетевого уровня, называется "дейтаграмма", хотя иногда, если это не вызывает разночтений, используется и название "пакет"), на уровне TCP -- сегментом, а на уровне сетевого интерфейса (например, ethernet) -- кадром. Тем не менее, термин "пакет" используется как для описания блока данных проходящего сквозь уровни модели TCP/IP, так и для блока данных пересылаемого между компьютерами.

Вот как выглядит пакет Ethernet:

Преамбула

Адрес получателя

^ Адрес источника

Тип

Поле данных

ЦПП

64 бит

1010…1011

6 байт 6 байт


2 байта

От 46 до 1500 байт

4 байта


Данная работа разработана для работы в ЛВС и тестировалась на сети вида Fast Ethernet со звездообразной топологией построенной на витой паре со скоростью передачи 100 Мбит/с.

Системные требования:

Windows95/98

Тактовая частота более 100 MHz

Оперативная память более 32 MB

На всех машинах должен быть установлен сетевой протокол TCP/IP, так как качестве интерфейса взаимодействия выбран TCP/IP.

    1. ^

      Способы взаимодействия пользователя с системой, организация вычислительных процессов.


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

на 1 компьютере



на 2 компьютере



на 3 компьютере



На 2 и 3 машине необходимо ввести для соединения имена 1 и 2 машины соответственно. После установления соединения можно будет начинать генерацию. А в окошечках состояния подключения появится IP адрес и номер порта, присоединившегося компьютера.

    1. ^

      Состав информационного и программного обеспечения


Данная работа предназначена для работы в операционной системе Windows95/98 и выше, имея в своем распоряжении установленную среду разработки Visual Basic 6.0.

Созданное приложение работает следующим образом:

первый компьютер при нажатии на кнопку «Сгенерировать 8 бит М-последовательности» генерирует 8 бит М-последовтельности и передает их 2 компьютеру; второй компьютер ожидает, когда от первого компьютере придет 32 байта, и только после этого отправляет полученную М-последовательность 3 компьютеру; 3 компьютер анализирует полученную последовательность и подсчитывает количество 0 и 1.


Результат работы программы приведен на рисунке









^

Листинг приложения Machine1



Dim State As Integer


Private Sub Form_Load()

ConnectionStatus.Text = "Подключение отсутствует"

OutSocket1.Bind 20480 'Привязка сокета к порту

OutSocket1.Listen 'Ожидание соединения

State = 1 'Начальное состояние генератора М последовательности

GenerateButton.Enabled = False


End Sub


Private Sub Form_Unload(Cancel As Integer)

If OutSocket1.State <> sckClosed Then OutSocket1.Close 'При закрытии формы закрывается сокет

End Sub


Private Sub GenerateButton_Click()

Dim Data As Byte 'Создаем переменную Data типа Byte

Data = GenerateByte() 'Генерирует 8 бит (1 байт)М-последовательности

Sequence.Text = Sequence.Text + Str(Data) 'Выводим содержимое байта в окошко последовательности

If OutSocket1.State = sckConnected Then OutSocket1.SendData Data 'Если есть соединение, то отсылаем сгенерированный фрагмент М-последовательности

End Sub


Private Sub OutSocket1_Close()

OutSocket1.Close 'Закрываем соединение

ConnectionStatus.Text = "Подключение отсутствует"

OutSocket1.Listen 'Ожидание соединения

End Sub


Private Sub OutSocket1_ConnectionRequest(ByVal requestID As Long) 'Обработчик события запроса соединения

If OutSocket1.State <> sckClosed Then OutSocket1.Close 'Если сокет не закрыт, то закрываем его

OutSocket1.Accept requestID 'Производим соединение

GenerateButton.Enabled = True

RemoteHostName = OutSocket1.RemoteHost

If Len(RemoteHostName) < 1 Then RemoteHostName = OutSocket1.RemoteHostIP

ConnectionStatus.Text = "Подключено: " & RemoteHostName & ":" & OutSocket1.RemotePort

End Sub


Private Sub OutSocket1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

ConnectionStatus.Text = "Ошибка " + Number + ". " + Description

End Sub

'Генерация одного бита М-последовательности

Private Function GenerateBit() As Byte

Back1 = State And 1

Back6 = (State \ 32) And 1

GenerateBit = (Back1 Xor Back6)

State = ((State * 2) + GenerateBit) And 63

End Function

'Генерация одного байта М-последовательности

Private Function GenerateByte() As Byte

GenerateByte = GenerateBit()

For i = 1 To 7

GenerateByte = (GenerateByte * 2) + GenerateBit()

Next

End Function


^

Листинг приложения Machine2



Dim Buffer(1 To 32) As Byte 'Буфер для М-последовательности

Dim Bytes As Integer 'Количество байт М-последовательности в буфере

'Обработчик нажатия кнопки "Подключиться"

Private Sub ConnectBtn12_Click()

InSocket2.LocalPort = 20481

InSocket2.RemoteHost = ServerName2.Text

InSocket2.RemotePort = 20480

InSocket2.Connect

End Sub

'Действия при загрузке формы

Private Sub Form_Load()

ConnectionStatus2.Text = "Подключение отсутствует"

Sequence.Text = ""

OutSocket2.Bind 20482

OutSocket2.Listen

Bytes = 0

End Sub

'Действия при выгрузке формы

Private Sub Form_Unload(Cancel As Integer)

If InSocket2.State <> sckClosed Then InSocket2.Close

If OutSocket2.State <> sckClosed Then OutSocket2.Close

End Sub


Private Sub InSocket2_Close()

InSocket2.Close

End Sub


'Прием данных из сокета

Private Sub InSocket2_DataArrival(ByVal bytesTotal As Long)

If bytesTotal <> 1 Then Return

Bytes = Bytes + 1

InSocket2.GetData Buffer(Bytes), vbByte, 1

Sequence.Text = Sequence.Text + Str(Buffer(Bytes))

If Bytes = 32 Then

OutSocket2.SendData Buffer()

Bytes = 0

End If

End Sub


Private Sub InSocket2_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

Sequence.Text = "Ошибка In " & Number & ". " & Description

End Sub


Private Sub OutSocket2_Close()

OutSocket2.Close

ConnectionStatus2.Text = "Подключение отсутствует"

OutSocket2.Listen

End Sub


Private Sub OutSocket2_ConnectionRequest(ByVal requestID As Long)

If OutSocket2.State <> sckClosed Then OutSocket2.Close

OutSocket2.Accept requestID

RemoteHostName = OutSocket2.RemoteHost

If Len(RemoteHostName) < 1 Then RemoteHostName = OutSocket2.RemoteHostIP

ConnectionStatus2.Text = "Подключено: " & RemoteHostName & ":" & OutSocket2.RemotePort


End Sub


Private Sub OutSocket2_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

ConnectionStatus.Text = "Ошибка Out " + Number + ". " + Description

End Sub


^

Листинг приложения Machine3



Dim Zeroes As Integer 'Количество нулей в М-последовательности

Dim Units As Integer 'Количество единиц в М-последовательности

Dim Buffer(1 To 32) As Byte 'Буфер для М-последовательности

'Обработчик нажатия кнопки "Подключиться"

Private Sub ConnectBtn23_Click()

InSocket3.LocalPort = 20483

InSocket3.RemoteHost = SecondM.Text

InSocket3.RemotePort = 20482

InSocket3.Connect


End Sub

'Действия при загрузке формы

Private Sub Form_Load()

Sequence.Text = ""

ZeroCount = "0"

UnitCount = "0"

Zeroes = 0

Units = 0

End Sub

'Действия при выгрузке формы

Private Sub Form_Unload(Cancel As Integer)

If InSocket3.State <> sckClosed Then InSocket3.Close

End Sub


Private Sub InSocket3_Close()

InSocket3.Close

End Sub


'Прием данных из сокета

Private Sub InSocket3_DataArrival(ByVal bytesTotal As Long) 'Событие прихода данных

If bytesTotal <> 32 Then Return 'Если размер пришедших данных

For i = 1 To 32 '

InSocket3.GetData Buffer(i), vbByte, 1 '

Sequence.Text = Sequence.Text + Str(Buffer(i)) '

For j = 1 To 8

If (Buffer(i) And 1) = 1 Then 'проверяем 1 бит

Units = Units + 1 '

Else

Zeroes = Zeroes + 1 '

End If

Buffer(i) = Buffer(i) \ 2 'сдвигаем на 1 бит, чтобы 2 бит байта стал 1

Next

Next

ZeroCount = Str(Zeroes)

UnitCount = Str(Units)

End Sub


Private Sub InSocket3_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

Sequence.Text = "Ошибка " & Number & ". " & Description

End Sub
  1. ^

    Заключение

    1. Достоинства и недостатки разработанной информационной системы.


Система очень удобна в пользовании и не требует от пользователя особых навыков работы с компьютером.

    1. ^

      Пути совершенствования разработанного программного продукта


Хотелось бы реализовать эту программу не для одного вида М-последовательности, а с возможностью выбора вида М-последовательности

    1. ^

      Рекомендации к пользователю





  1. Запустите на одной машине Machine1.exe, на второй машине Machine2.exe, а на третьей машине Machine3.exe.

  2. Для установления соединения необходимо:

на 3 машине ввести имя 2 машины и нажать клавишу «Подключиться».

на 2 машине ввести имя 1 машины и нажать клавишу «Подключиться».


  1. После установления соединения клавиша «GenerateButton» будет разблокирована. Для генерации 8 бит (1 байта) М-последовательности нужно нажать на данную клавишу



Список литературы


  1. Лекции и лабораторные работы Бондаренко Б.П.




  1. В.Г. Олифер, Н.А. Олифер «Компьютерные сети» учебник С/Пб, "Питер", 1999 г.




  1. Валов О.П. «Цифровые сети интегрального обслуживания» учебное пособие Казань 2000г.

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

Диаграммы UML





Скачать 138,13 Kb.
оставить комментарий
Дата26.11.2011
Размер138,13 Kb.
ТипКурсовая, Образовательные материалы
Добавить документ в свой блог или на сайт

Ваша оценка этого документа будет первой.
Ваша оценка:
Разместите кнопку на своём сайте или блоге:
rudocs.exdat.com

Загрузка...
База данных защищена авторским правом ©exdat 2000-2017
При копировании материала укажите ссылку
обратиться к администрации
Анализ
Справочники
Сценарии
Рефераты
Курсовые работы
Авторефераты
Программы
Методички
Документы
Понятия

опубликовать
Загрузка...
Документы

Рейтинг@Mail.ru
наверх