Разработка программного инструментария управления маршрутизацией информационных потоков в корпоративных вычислительных сетях тема диссертации и автореферата по ВАК РФ 05.13.06, кандидат технических наук Лашт, Дмитрий Геннадьевич

• Лашт, Дмитрий Геннадьевич
• кандидат технических наук
• 1998

Оглавление диссертации кандидат технических наук Лашт, Дмитрий Геннадьевич

ВВЕДЕНИЕ.

1. ИССЛЕДОВАНИЕ ИНФРАСТРУКТУРЫ ВЫЧИСЛИТЕЛЬНЫХ СЕТЕЙ.

1.1 Основные концепции сетевых взаимодействий.

1.2 Использование технологии маршрутизации для построения крупномасштабных вычислительных сетей.

1.3 Использование технологии коммутации для построения крупномасштабных вычислительных сетей.

1.4 использование технологии коммутации 1Р-пакетов на канальном уровне для построения крупномасштабных вычислительных сетей.

ВЫВОДЫ ПО ГЛАВЕ 1.

2. МАТЕМАТИЧЕСКОЕ ОБЕСПЕЧЕНИЕ МАРШРУТИЗАЦИИ ИНФОРМАЦИОННЫХ ПОТОКОВ В ВЫЧИСЛИТЕЛЬНЫХ СЕТЯХ.

2.1 основные концепции маршрутной политики.

2.2 Организация процесса обмена маршрутной информацией между автономными системами на базе внешнего протокола маршрутизации BGP.

2.3 Организация процесса локальной маршрутизации на базе протокола RIP.

2.4 Организация процесса локальной маршрутизации на б азе протокола IGRP.

2.5 Организация процесса локальной маршрутизации на базе протокола OSPF.

ВЫВОДЫ ПО ГЛАВЕ 2.

3. ПРИМЕНЕНИЕ ТЕОРИИ ГРАФОВ ДЛЯ МОДЕЛИРОВАНИЯ ИНФОРМАЦИОННЫХ ПРОЦЕССОВ В ВЫЧИСЛИТЕЛЬНЫХ СЕТЯХ.

Построение структурной схемы корпоративной вычислительной сети. Построение топологической базы данных корпоративной вычислительной сети.

3.3 Исследование связей элементов вычислительных сетей на базе связности компонентов графа состояния.

3.4 Исследования возможных методов представления результатов построения эффективных маршрутов в памяти ЭВМ.

3.5 Анализ алгоритмов поиска маршрутов на графах.

ВЫВОДЫ ПО ГЛАВЕ 3.

4. РЕШЕНИЕ ЗАДАЧИ ОПТИМАЛЬНОЙ ДИНАМИЧЕСКОЙ МАРШРУТИЗАЦИИ ИНФОРМАЦИОННЫХ ПОТОКОВ В ВЫЧИСЛИТЕЛЬНЫХ СЕТЯХ.

4.1 Создание эффективного подхода и методики динамической маршрутизации информационных потоков в корпоративных вычислительных сетях

4.2 Разработка алгоритма поиска на графе состояния вычислительной сети всех нетривиальных маршрутов представляющих собой ориентированные простые цепи.

4.3 Анализ потребностей разработанного алгоритма к ресурсам вычислительной системы.

4.4 Пример функционирования разработанного алгоритма.

4.5 Анализ преимуществ предложенного подхода к решению задачи маршрутизации.

4.6 Программный инструментарий построения оптимальных маршрутов.

ВЫВОДЫ ПО ГЛАВЕ 4.

Введение диссертации (часть автореферата) на тему «Разработка программного инструментария управления маршрутизацией информационных потоков в корпоративных вычислительных сетях»

Актуальность работы.

В настоящее время во всём мире вычислительные сети (Internet / Intranet) становятся неотъемлемой частью существования общества. Получают широкое распространение прикладные средства, использующие вычислительные сети в качестве транспортной среды для передачи огромных объёмов информации и требующие при этом гарантированного времени доставки (аудио / видео конференции, "аудио / видео по требованию", компьютерная телефония, .).

Удовлетворение постоянно растущих потребностей прикладных средств в качестве обслуживания, предоставляемого вычислительными сетями, обеспечивается за счёт развития двух основных направлений в сетевых технологиях.

Первое направление, это увеличение пропускной способности каналов связи. Результатами его развития является внедрение всё более высокоскоростных стандартов передачи данных и ежегодное увеличение количества и пропускной способности каналов связи, объединяющих рабочие места, корпорации, города, страны и континенты.

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

Цель исследований.

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

Для достижения поставленной цели решаются следующие задачи:

• Исследование функциональных возможностей и внутренней архитектуры программных и технических средств межсетевого взаимодействия;

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

• Создание методики построения оптимальных маршрутов для информационных потоков в вычислительных сетях, обеспечивающей эффективное использование коммуникационных ресурсов корпоративных вычислительных сетей.

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

• Разработка программного инструментария реализующего предложенную методику и алгоритм.

• Моделирование процесса внутренней динамической маршрутизации на основе разработанного алгоритма на примере спроектированной корпоративной вычислительной сети.

Идея работы.

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

Поставленные в работе задачи решаются методами теории графов и теории открытых систем.

Научная новизна работы.

Научная новизна работы состоит в следующем:

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

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

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

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

Практическая ценность.

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

Внедрение результатов исследований.

Результаты диссертации в виде разработанных инструментальных средств локальной динамической маршрутизации, приняты к внедрению институтом "Гипроуглеавтоматизация" (Россия) и "Институтом развития измерительной техники" (Россия).

Апробация работы.

Основные положения диссертации докладывались на международном конгрессе microCAD'95 International Computer Science Conference (Miskolc-Egyetemvaros February 23, 1995); Международных симпозиумах: Proceedings of the Fourth International Symposium on Mine Planning and Equipment Selection 1995 (Calgary / Canada / 31 October - 3 November 1995), Третий международный симпозиум "Интеллектуальные системы" (Псков, 30 июня - 4 июля 1998г.); Научно-технической конференции "Диагностика, информатика и метрология - 95" (Санкт-Петербург 4-6 июля 1995 года);

Публикации.

По теме диссертации опубликовано б печатных работ. Объем и структура работы.

Диссертационная работа состоит из введения, четырех глав, заключения, изложенных на 163 стр. текста, включает 41 рисунок, 22 таблицы и список использованных источников из 100 наименований.

Заключение диссертации по теме «Автоматизация и управление технологическими процессами и производствами (по отраслям)», Лашт, Дмитрий Геннадьевич

Заключение?

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

1. Для оценки перспективности проводимых исследований, проанализированы функциональные возможности и внутренняя архитектура технических средств межсетевого взаимодействия. Исследованы устройства, реализующие межсетевые взаимодействия ( повторители, мосты, маршрутизаторы, коммутаторы, . )

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

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

4. Создана методика построения оптимальных маршрутов информационных потоков в вычислительных сетях, обеспечивающая эффективное использование коммуникационных ресурсов корпоративных вычислительных сетей. Эффективность методики достигается за счёт реализации в ней нового подхода к решению задачи определения оптимальности того или иного маршрута. Решение упомянутой выше задачи выносится за рамки алгоритма поиска маршрутов и осуществляется на последующем этапе путём минимизации суммарной метрики.

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

6. Разработан программный инструментарий, реализующий предложенную методику и алгоритм. Данный инструментарий реализован на языке программирования ANSI С в виде исполняемого модуля операционной системы LINUX

7. Произведено моделирование процесса внутренней динамической маршрутизации в спроектированной корпоративной вычислительной сети с использованием программного инструментария разработанного на языке Delphi для операционной системы Windows NT

Список литературы диссертационного исследования кандидат технических наук Лашт, Дмитрий Геннадьевич, 1998 год

1. Федунец НИ, Куприянов В.В. Системы основанные на знаниях. Материалы конференции 1CED, 1993

2. Fedunec N.I., Kupriyanov V.V., Fomicheva О.Е. Expertise of complex Object on the principáis of knowledge bases. ICPR, Finland 1993.

3. Эд Крол. Все об INTERNET. — Киев: BNV, 1995.

4. Интернет. Всемирная компьютерная сеть. Практическое пособие и путеводитель. — М.: Синтез, 1995.

5. Клименко С., Уразметов В. Internet. Среда обитания информационного общества // РФФИ. Информационные системы в науке. — М., 1995.

6. Айгнер М. Комбинаторная теория.— М.: Мир, 1982.— 556 с.

7. Ахо X., Хопкрофт Дж., Ульман Дж. Построение и анализ вычислительных алгоритмов.—М.: Мир, 1979.—536 с.

8. БержК. Теория графов и ее применения.—М.: ИЛ, 1962.— 319 с.

9. Басакер Р., Саати Т. Конечные графы и сети,—М.-.Наука, 1974.— 368 с.

10. Ю.Белов В.В., Воробьев Е.М., Шаталов В.Е. Теория графов.— М.: Высшая школа, 1976,— 392 с.

11. ВиртЯ. Систематическое программирование. Введение.—М.: Мир, 1977.

12. Вирт Н. Алгоритмы + Структуры данных = Программы.— М.: Мир, 1985.

13. Гэри М., Джонсон Д. Вычислительные машины и труднорешаемые задачи. — М.: Мир, 1982.

14. Гудман С., Уидетниеми С. Введение в разработку и анализ алгоритмов М.: Мир, 1981.

15. Горбатова М. В. Быстродействующий алгоритм раскраски вершин графа. В кн.: Логическое управление в промышленности. — Ижевск: ИМИ. 1984.

16. Диниц Е. А. Алгоритм решения задачи о максимальном потоке в сети со степенной оценкой. Докл. Академии наук СССР, Серия Мат., Физ., 1970, 194, 4, с. 754—757.

17. Донец Г. A., IIIop Н. 3. Алгебраический подход к проблеме раскраски плоских графов.— Киев. Наукова думка, 1982.— 143 с.

18. Евстигнеев В. А. Применение теории графов в программировании.— М.: Наука, 1985 — 352 с.

19. Емеличев В.А., Ковалев М.М., Кравцов М.К. Многогранники, графы, оптимизация.— М.: Наука, 1981,— 341 с.

20. Земляченко В. Н., Корнеенко Н. М., Тышкевич Р. И. Зыков A.A. Основы теории графов —М.: Наука, 1987 — 381 с.

21. Корнильев К.Г., Никитин В.Д., Шидяев Е.И. UNIX: Сетевые возможности. СП "Эко-трендз", 1992.

22. Зыков A.A. Теория конечных графов.—Новосибирск, Наука, 1969.— 543 с.

23. Зыков A.A. Гиперграфы // УМН,— 1974 — Т. 29, вып. 6,— С. 89—154.

24. Коршунов А.Д. Основные свойства случайных графов с большим числом вершин и ребер//УМН,—1985,— Т. 40, вып. 1—С. 107—173.

25. Кристофидес Н. Теория графов. Алгоритмический подход.— М.: Мир, 1978.— 432 с.

26. Липский В. Комбинаторика для программистов. — М.: Мир, 1988.

27. Майника Э. Алгоритмы оптимизации на сетях и графах. М.: Мир, 1981.

28. Маркус К., Минк X. Обзор по теории матриц и матричных неравенств.— М.: Наука, 1972 —232 с.

29. Пападимитриу X., Стайглиц К. Комбинаторная оптимизация. Алгоритмы и сложность.—М.: 1985.—510 с.

30. Проблема изоморфизма графов // Теория сложности вычислений, 1. Записки научных семинаров ЛОМИ.—1982.—Т. 118—С. 83—158.

31. Рейнгольд Э., Нивергельт К)., Део Н. Комбинаторные алгоритмы. Теория и практика.— М.: Мир, 1980.— 476 с.

32. Рингель Г. Теорема о раскраске карт.—М.: Мир, 1977.— 256 с.

33. Ope О. Теория графов,—М.: Наука, 1980.—336 с.

34. Свами М., Тхуласираман К. Графы, сети и алгоритмы,— М.: Мир, 1984.— 454 с.

35. Сешу С., Рид М. Б. Линейные графы и электрические цепи.—М.: Высшая школа, 1971.

36. Сергиенко И.В. Математические модели и методы решения задач дискретной оптимизации. ----- Киев: Наукова думка, 1985—381 с.

37. ТаттУ. Теория графов,—М.: Мир, 1988.

38. Теория графов: Сборник переводов/Под ред. В. Б. Алексеева, Г. П. Гаврилова, А. А. Сапоженко. —М.: Мир, 1974,—223 с.

39. Уилсон Р. Введение в теорию графов.—М.: Мир, 1977.— 207 с.

40. Форд Л. Р., Фалкерсон Д. Р. Потоки в сетях.—М.: Мир, 1966

41. Харари Ф., Пал мер Э. Перечисление графов,—М.: Мир, 1977. 324 с.

42. Харари Ф. Теория графов,— М.; Мир, 1973— 300 с.

43. Холл М. Комбинаторика.—М.: Мир, 1970.—424 с.

44. Хоровин Ф. Вычислительные сети. — М: ЭИГЮ Комплекс, 1992 — 37 с.

45. Цветкович Д., Дуб М., Захс X. Спектры графов. Теория и приложения.— Киев: Наукова думка., 1984,— 381 с.

46. Яблонский С. В. Введение в дискретную математику.— М: Наука, 1986.— 384 с.

47. Guide to Network Resource Tools/ EARN Association, Sept. 15, 1993. — Vol.2.0.

48. Douglas Е Comer. Internetworking with TCP/IP. — Prentice Hall, Englewood Cliffs, N.J. 07632, 1988.

49. Uyless Black. TCP/IP and Related Protocols. — New York: McGraw-Hffi, Inc.

50. Feinler E. DDN Protocol Handbook/DDN Nework Information Center, SRI International. — California, USA, 1985.

51. Packets and Protocols/Spider Systems Ltd. — Edinburgh, UK, 1990.

52. Tony Bates et al. Representation of IP Routing Polices, in a Routing Registry/RIPE- 181.txt, October 1994.

53. Robert J.T. Monis. Neurai Network Control of Communications Systems// IEEE Trans, on Neural Networks. —July 1944. —Vol. 5, No. 4.

54. W.Richard Stevens TCP/IP Illustrated. — Addison-Wesley Publishing Company, 1994.

55. Douglas E.Corner. Internetworking with TCP/IP, vol. 1: Principles, Protocols, and Architecture, 2nd ed„ Prentice-Hail, 1991,p.p. 550.

56. Douglas E.Comer. Operating System design, vol.2.: fnterworking with Xinu, Prentice-Hall, 1987, P.P. 507.

57. Douglas Tophani. InforWord: A DOS User's Guide to UNIX, Brady, N.Y„ 1990, p.p.273.'

58. JoAnne Woodcock, Michael Halvorson, Robert Ackerman Running UNIX. An Introduction to SCO UNIX System V/386 and XENIX. Operating Systems, Microsoft Press, 1990, p.p.397.

59. Maurice J.Bach. The design of the UNIX Operating system, Prentice-Hall, 1986, p.p.471.

60. Peter W.Gofton. Mastering UNIX Serial Communications. SYBEX, 1991, p.p.307.

61. Stevens W.R. UNIX Network Programming, Prentice-Hall, 1990, p.p. 783.

62. Bellman R. E. On a routing problem. Quart. Appl. Math. 1958, 16, s. 87— 90.

63. Benes V. E. Mathematical Theory of Connecting Networks and Telephone Traffic. New York, Academic Press 1965.

64. Clos С. A study of non-blocking switching networks. Bell Systems Techn. J„ 1953, 32, s. 406—424.

65. De Bruijn N. G. A combinatorial problem. Indagationes Math., 1946, 8, s. 461—467.

66. Diguid A. M. Structural properties of switching networks. Techn. Rep. BTL-7, Brown Univ., Providence, RI 1959.

67. Edmonds J., Karp R. M. Theoretical improvements in algorithmic efficiency for network flow problems. J. ACM, 1972., 19, s. 248—264.

68. Even S. Graph algorithms. Potomac, MD, Computer Science Press 1979.

69. Even S., Kariv 0. An 0(nZ5) algorithm for maximum matching in general graphs. Proc. 16th Annual Syrnp. on Foundations of Computer Science, IEEE, 1975, s. 100—112.

70. Glenn Gabriel Ben-Yosef, LAN Switching, BiLiM Systems Ltd. 1998.

71. Galil Z. A new algorithm for the maximal flow problem. Proc. 19th IEEE Symp. on Foundations of Computer Science, Ann Arbor MI October 1978 s. 231—245.

72. Hopcroft J., Karp R. M. Ал n,:2 algorithm for maximum Matchings in bipartite graphs. SIAM J. Comput, 1973, 2, s. 225—231.

73. Horowitz E., Sahni S. Fundamentals of Data Structures, Potomac, MD, Computer Science Press 1976.

74. Horowitz E., Sahni S. Fundamentals of Computer Algorithms. Potoraac, MD, Computer Science Press 1978.

75. Johnson D. B. Efficient algorithms for shortest paths in sparse networks J. ACM, 1977, 24, s. 1—13.

76. Kruskal J. B. On the shortest spanning subgraph of a graph and the travelling salesman problem. Proc. Amer. Math. Soc., 1956, 7, s. 48—49.

77. Malhotra V. M., Kumar P. M., Maheshwari S. N. An 0(|УП algorithm for finding maximum flows in networks. Information Processing Lett., 1978, 7, s. 277—278.

78. Masson G. M., Gingher G. С., Nakamura S. A sampler of circuit switching networks. Computer, June 1979, s. 32—48.

79. Nijenhuis A. Wilf H. S. Combinatorial Algorithms. New York, Academic Press 1975.

80. Sedge wick R. Permutation generation methods. Comp. Surveys, 1977, 9. s. 137—164.

81. Strassen V. Gaussian elimination is not optimal. Numer. Math., 1969, 13, s. 354—356.

82. Syslo M. M., Dzikiewicz J. Computational experience with some transitive closure algorithms. Computing, 1975, 15, s. 33—39.

83. Tarjan R. E. Depth first search and linear graph algorithms. SI AM J. Comput, 1972, 1, s. 146—160.

84. Tarjan R. E. On the efficiency of a good but not linear set merging algorithms. J. ACM, 1975, 22, s. 215—225.

85. Trotter H. F. Perm (Algorithm 115), Comm. ACM, 1962, 5, s. 434—435.

86. Warshall S. A theorem on Boolean matrices. J. ACM, 1962, 9, s. 11—12.

87. Wells M . B. Generation of permutations by transposition. Math. Сотр., 1961, 15, s. 192— 195.

88. Whitney FI. On the abstract properties of linear independence. Arner. J, Math., 1935, 57, s. 509—533.

89. Moy A. OSPF Anatomy of an Internet Routing Protocol. O'Reilly 1998

90. Best M.R., van Emde Boas P., Lenstra H.W.A. sharpend version of the Andreaa-Rosenberg conjecture. Techn.Rep ZW 30/74, Mathematisch Centrum, Amsterdam 1974.

91. Rivest R.L. Vuillemin 1. A generalization and proof of the Andreaa Rosenberg conjecture. Proc 7th Annual ACM Syrnp. on the theory of Computing, May 5-7, 1975. Albuquerque, NM s. 6-11

92. Олифер В., Олифер H. Локальные сети на основе коммутаторов. ЦИТ 1998

93. Малых Н., Что это такое коммутатор или маршрутизатор? BiLiM Systems Ltd 1998

94. Малых H., Коммутаторы Ethernet. BiLiM Systems Ltd 1998

95. Брежнев А.Ф., Смелянский P.Л. Семейство протоколов TCP/IP, Cronix 1994 г.

96. Карпов Д. Статическая !Р-маршрутизация. МИСиС 1998

97. CISCO Internetworking Technology Over-view, CISCO Systems 1996

98. Д. Комер "Межсетевой обмен с помощью TCP/IP" ЦИ ! 1998

99. Олифер В., Олифер Н. Введение в IP-сети. ЦИТ 1998.

100. Программное обеспечение модуля расчёта маршрутов.

101. Автор: Лашт Д. Г. Версия: 1.1а

102. Дата модификации: 14.09.19981. E-mail: [e-mail] }1. Unit ROUTED;interfaceuses

103. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Buttons; const MaxPointsNum 22;typearr25 = array 1.MaxPointsNum} of Byte;

104. MatrType = array 1.MaxPointsNum, 1.MaxPointsNum. of Byte; MatrPtr = AMatrType; PathType = record BUF: arr25; NUM: Byte; end;1. PathPtr == *PathType;

105. Public declarations } end;var1. Forml: TForml;

106. GRAF: MatrPtr; {матрица смежности графа состояния сети}1. CURENTPATH: PathPtr;1. FileMemo : Text;1. Timel : Real;ij: byte;1. F: Text;

107. AssignFile(F, FileName); Append(F);

108. For i:=1 to Path.NUM do beginstr(Path.BUF1.S); Write(F, S+''); end;str(Path.BUFPath.NUM.,S);

109. Write(F, 'I ' + S +' | '); {записать номер последней вершины}str(CALCULATEPRICE(Path,GRAF),S);

110. Writeln(F, S); {записать значение суммарной метрики}

111. CloseFile(F); { сохранить изменения и закрыть файл }1. End;модуль LOAD DATA загружает данные в оперативную память } procedure LOADDATA(Matr: MatrPtr; FileName: string); var i,j: byte; code: integer;

112. S: stringMaxPointsNurn*2.; F: Text;1. Begin1. AssignFile(F, FileName);

113. FileMode := 0; {Set file access to read only}1. Reset(F);

114. For i:=1 to MaxPointsNum do begin1. Readln(F, S);

115. For j:=1 to MaxPointsNum do val(Sj*2-1., MatrA[j,i], code); end;

116. CloseFile(F); { сохранять изменения и закрыть файл } End;модуль ADDPOINT добавляет узел к текущему маршруту}procedure ADDPOINT(Path: PathPtr; Point: byte);begin

117. Path\NUM := PathA.NUM + 1!; PathA.BUFPathA.NUM. := Point; end;

118. Модуль DELETEPOINT удаляет последний узел из текущего маршрута }procedure DELETEPOINT(Path: PathPtr);begin

119. PathA.NUM := PathA.NUM -1; end;

120. Модуль FINDPATH осуществляет поиск маршрутов } procedure FINDPATH(Matr: MatrPtr; Path: PathPtr; Point: byte); var i: byte;beginfor i:=1 to MaxPointsMum doif (MatrAi,Point. <> 0) and (not(CONTAINS(Path, i))) then begin

121. ADDPOINT(Path,i); FIN D PATH (M atr, Path, i}; end;if Path\NUM > 1 then begin

122. SAVEPATH(PathA, Form1.SaveDia!og1.FileName, Matr); DELETEPOINT(Path); Timel := Timel + 0.3; end; end;procedure TForm1.BitBtn1Click(3enoer: TObject);var

123. Time2 : string; line : string; Code : integer; begin

124. Get text from TEdii control > Val(Edit1.Text, StartPoint, Code); { Error during conversion to integer? } if code <> 0 then begin

125. MessageDlgfError at position: ' + IntToStr(Code), mtWarning, mbCkj.O); exit; end;1. BitBtn3.Enabled False;

126. FINDPATH(GRAF, CURENTPATH, StartPoint);1. Str(Timel,Time2);

127. MessageDlgf Расчет произведен, длительность '+ Time2 + ' мс' .milnformalion, mbYes.,0); BitBtnl.Enabled :== False; Memol. Clear;

128. AssignFile(FileMemo,SaveDialog1.FileName);1. Reset(FileMemo);while not EOF(FileMemo) dobegin

129. Readln(FileMemo,line); Memol.Lines.Add(line); end;1. CloseFile(FileMemo); end;procedure TForm1.BitBtn2Click(Sender: TObject); varline : string; begin Timel := 0;if ОpenDialogl.Execute = True then begin

130. ADDATA(GRAF, OpenDialogl.FileNarne); Memol.Clear;

131. AssignFile(FileM«mo,OpenDtalog1. Filename);1. Reset(FileMemo):

132. While not EOF(FileMemo) dobeginreadln(Fi!eMemo,line);

133. Forml. Memo's. Lines. Ada'(line); end;