Исследование и разработка моделей и методов оптимизации систем сетевой структуры в условиях высокогорья
Диссертация
Глава 2 посвящена методологическим вопросам исследования и оптимизации сетей различного назначения. Предложены различные типы теоретических моделей инженерных сетей, с помощью которых прогнозируются характеристики и оцениваются возможности проектируемых сетей, проверяется их соответствие предъявляемым требованиям. Исследованы основные типы гиперсетей как универсальной модели, описывающей… Читать ещё >
Список литературы
- АБРАМОВ Н. Н. Водоснабжение. Учеб. для вузов. — Изд. 2-е перераб. и доп. -М.: Стройиздат, 1974. — 480 с.
- Антонов М. Ф. К вопросу выбора экономически наилучших вариантов. — Томск, 1959. — 50с.
- Басакер Р. Конечные графы и сети / Басакер Р., Саати Т. Перевод с англ. -М.: Наука, 1973. 368 стр.
- Безкоровайный В. П. Разработка методов оптимизации трасс магистральных газопроводов и их разветвлений для сетей произвольной конфигурации: Автореф.дис. .канд. техн. наук —М.: 1978. 25 с.
- Берж К. Теория графов и ее применения. М.: ИЛ, 1962. 320 с.
- Бойков В. Н. Сплайны в трассировании автомобильных дорог / В. Н. Бойков, Б.М. Шумилов- Томск: ЦНТИ, 2001.- 164 с.
- Бокарев д. И. Основы систем автоматизированного проектирование в сварке: Учеб. пособ. — Воронеж, 2006. — 264 с.
- Болтов И. Ф. Геодезические измерения при строительстве инженерных сооружений. Куйбышев, 1982. — 80 с.
- Бородавкин П. П. Выбор оптимальных трасс магистральных трубопроводов / П. П. Бородавкин, В. Л. Березин, С. Ю. Рудерман. М.: Недра, 1974.-240 с.
- Бородавкин П.П. Сооружение магистральных трубопроводов / П. П. Бородавкин, В. Л. Березин М.: Недра, 1977. — 407 с.
- Браун Ю. Г. Применение ЭВМ при проектировании газовых сетей / Ю. Г. Браун, В. А. Гайда // Нефть, газ и нефтехимия. 1985. — № 4 — С. 14 — 20.
- БУЛЕНКО П. Г. Сложность задачи поиска Ь-медианы гиперсети и ее точное решение // Проблемы оптимизации: сложных систем: материалы 1-й Азиат, между нар. школы-семинара — Новосибирск, 2005. — С. 16−20.
- БУХАРКИН Е. II. Инженерные сети: Оборудование зданий и сооружений: Учеб. / Под ред. Ю. П: Соси на / Е. Н. Бухаркин, В. М. Овсянников, К. С. Орлов. М: Высш. шк., 2001. — 415 с.
- ВАРФОЛОМЕЕВ- Ю. М. Отопительные и тепловые сети: Учеб. * / 10. М. Варфоломеев, О. Я. Кокорин. М.: ИНФРА-М, 2008. — 480 стр.
- Еалямов В. А. О задаче оптимизации построения первичной сети связи /А Проблемы оптимизации сложных систем: материалы 1-й: Азиат, междунар. школы-семинара. — Новосибирск, 2005. — С. 66 78.
- Галямов В. А. Исследование и разработка- моделей и методов оптимизации структур телекоммуникационных систем: Дис.. канд. техн. наук Новосибирск, 2006. — 167 с.
- Глотов Г. Ф- Изыскание, проектирование и строительства инженерных сооружений. М. — 1964.
- Голятин В. К. Гидрологические изыскания трасс линий электропередач.-М-: Энергия, 1968--120 с.
- A. Я. Толчан М.: Связь, 1977. — 360 с.
- Демидова П. Г. и др. Математические методы в геоинформационных технологиях. — М.: Наука, 2003. — 119 с. 28. Делоне Б. Н. О пустоте сферы // Изв. АН СССР. ОМЕН. 1934. № 4. С. 793−800.
- Оптимизация систем обустройства нефтяных месторождений / Ш. С. Донгарян, Я. М. Каган, В. А. Горбатиков и др. — Свердловск: Средне-Уральское книжное издательство, 1976. 208 с.
- Алгоритмы оптимального движения мобильных объектов по пересеченной местности и транспортной сети /А-Ю. Дорогов,.В. Ю. Лесных,. И. В. Раков и др. // Искус, интеллект. 2008. — № 3. — С. 419−427.
- Надежность и живучесть системы связи / Б. Я. Дудник,
- B. Ф. Овчаренко, В. К. Орлов и др.- М.: Радио и связь, 1984. 216 с.
- Журавлев В. Г. Построение трассы высоковольтной линии электропередач минимальной длины путём добавления новых точек / В: Г. Журавлев, В. И. Чиник, М. А. Чиник // Электроэнергетика и автоматика. — Кишинев. АН Молд. ССР, 1965.
- Зыков A.A. Гиперграфы //Успехи мат. наук- Вып. 6, 1974.-С.89- 154.
- ИДЕЛЬЧИК В. И. Электрические системы и сети. М. — 1989. — 592 с.
- Ионин А. А. Газоснабжение: Учеб. для вузов. 4-е изд., перераб. и доп. — М.: Стройиздат, 1989. — 439 с.
- Ковалев М. Мг Дискретная оптимизация (целочисленное программирование): Изд. 2-е М-: Едиториал УРСС, 2003. — 192 с.
- Коровина А. Моделирование, телекоммуникационной системы Владимирской области с применением ГИС-технологий. — Владимир, 2001. — 109 с. ,
- Алгоритмы: Построение и анализ, 2-е изд. / Т. X. Кормен, Ч. И. Лейзерсон, Р. Л- Ривест и др. М.: Изд. дом «Вильяме!1, 2005. — 1296 с. 47. кристофиднес Н. Теория графов. Алг.подход.-М.: Мир, 1978.-432 с.
- Методы анализа и оценивания рисков в. задачах менеджмента безопасности сложных технических систем / С. П. Крюков, С. Д. Бодрунов, Л. Н. Александровская и др. СПб.: Б. и., 2007. — 460 с.
- Кузнецов Р. Н. Определение оптимального маршрут прокладки: Автореф. дис.. канд. техн. наук Воронеж: Б. и., 2009. — 16 с.
- Медиоланская М. М. Проектирование водопроводных сетей: Учеб. пособ. / М. М. Медиоланская, Е. А. Мезенева, С. В. Колобова. Вологда: ВТУ, 1999.- 150 с.
- Меньчуков А. Е. Предварительное изыскание трасс линий электропередач / А. Е. Меньчуков, В. В. Овсеенко, Н. П. Путник. М.: Госэнергоиздат, 1963. — 224 с. 61. музалевская Г. Н. Инженерные сети городов и населенных пунктов. м.: б. и. — 2006. — 148 с.
- Николаев Е. Ю. Водоотводящие сети: учебное пособие. -Новосибирск: НГАСУ, 2007. 104 с.
- Николаевская И. А. Инженерные сети и оборудование территорий, зданий и стройплощадок / И. А. Николаевская, Л. А. Горлопанова, Н. Ю. Морозова М.: Издательство Академия ИЦ — 2008: — 224 с.
- Выбор алгоритма- определения- экономичных трасс прокладки кабелей: Отчет „Гипросвязь — 4″ по изысканию- и проектированию сооружений связи МСС! Новосибирск, сентябрь 1977. — 192-с.
- Нападмитриу X. Комбинаторная оптимизация. Алгоритмы и сложность / Пер. с англ. В. Б. Алексеева. / Х. Пападмитриу, К. Стайглиц М.: Мир, 1985. -510 с. '
- ПОПОВ Ю: И. Оптимальное трассирование газосборных сетей на месторождениях: Автореф.дис. .канд. техн-.наук- М-:МИНХиГЩ 1981 .-22'с.
- ПОПКОВ В. К. Математические модели' живучести сетей- связи- -Новосибирск: Изд-во СО АН СССР, 1990. -235 с.
- Попков В. К. Математические модели связности / Огв.ред. А. С. Алексеев., — 2-е изд.- Новосибирск: ИВМиМГ СО РАН, 2006. 490 с.
- Попков В. К. Гиперсети и их характеристики связности // Исследования- по прикладной теории- графов. — Новосибирск: Наука, 1986. -С.25−59., ' ' '' ¦ V“ :¦ Г.» • -V-V. '
- Попков В: К. Гиперсети и структурные модели сложных систем // Математические5 и имитационные модели сложных систем. — Системное моделирование-6: Сб. науч. тр. / Под редакцией М. И. Нечепуренко. -Новосибирск: ВЦСО АН СССР 1981.-С. 26−48.
- Попков В. К. Задачи поиска оптимальных схем системы энергоснабжения-методом? сеточной аппроксимации / В. К. Попков, Г. Ы.
- Попков В. К. Гиперсетевая технология оптимизации инженерных сетей в горной или пересеченной местности / В. К. Попков, Г. Ы. Токтошов // Вестн. Бурят, гос. ун-та. Сер. Матем. и информатика. — июнь 2010. — Вып. 9. — С. 276−282.
- Попков В. К. Методологические вопросы оптимизации инженерных сетей на неоднородной территории / В. К. Попков, Г. Ы. Токтошов // Изв. Том. политехи, ун-та. — Сер. Управление, вычисл. техн. и информ. — 2010. — № 5.-Т. 317.-С. 40−44.
- Свами М. Графы, сети и алгоритмы.: Пер. с англ:/ М. Свами, К. Тхуласираман М.: Мир, 1984. — 455с.
- Скворцов А. В. Триангуляция Делоне и ее применение Томск: Изд-во Том. гос. ун-та, 2002. 128 с.
- Скворцов А. В. Разработка геоинформационных и инженерных систем на факультете информатики и в ООО «Индорсофт» // Вестник ТГУ, 2003.-№ 280-С. 346−349.
- Татт У. Теория графов. М.: Мир, 1988. — 424 с.
- ТИЩЕНКО А. С. Оптимальное технологическое проектирование нефтепроводов.-М.: Недра, 1982. -263 с.. ¦.¦¦'¦ •
- Токтошов Г. Ы. О задаче оптимального проектирования линейных сооружений в горных условиях // Проблемы оптимизации сложных: систем: материалы 2-й Азиат, между нар. школы-семинара — Новосибирск, 7−12 авг. 2006. С. 210−221. .
- Ток готов Г. Ы. Математическая модель топоосновы горной местности // Проблемы оптимизации сложных систем: материалы 3-й Азиат, междунар. школы-семинара — Бишкек (Кыргызская Респ), 1−12 июля 2007. С. 123−126. .
- Токтошов Г. ЬГ. Об одной задаче анализа-связности иерархических систем // Тез. докл. 9-й Всерос. конф. молодых ученых по Математическому моделированию и, информационным: технологиям — Кемерово, 28−30 окт. 2008. :С. 27 -28.. ' ,
- TOKTOlliOB-F., bIi Особенности- выбора- направлений трасс-линейных сооружений в условиях высокогорья // Проблемы оптимизации сложных систем: материалы 4-й Азиат, междунар. школы-семинара с. Чемал (Республика Алтай), 20−30'июня 2008 -С. 206г2Т1. V
- Токтошов Г. Ы. Задача анализа живучесть иерархических сетей // Наука. Технологии. Инновации: материалы всерос. науч. конф. молодых ученых Новосибирск, 4−7 декабря 2008. — Ч. 1. — С. 43−45.
- ТОКТОШОВ F. Ы. Сеточная аппроксимация элементов рельефа местности // Информатика и проблемы телекоммуникаций: материалы Рос. науч.-техн. конф. Новосибирск, 27−28 апреля 2009. — Т. 1- G. 23−24.
- ТОКТОШОВ Г. Ы. Сеточная аппроксимация ¦ в задаче поиска р-медианы гиперсети // Проблемы оптимизации и экономические приложения: материалы IV-й всерос. конф. — Омск, 29 июня 4 июля 2009: — С. 167. :
- Токтошов Г. Ы. Гиперсетевой подход к проектированию инженерных сетей// Информатика и проблемы телекоммуникаций: материалы: Российской научноттехнической конференции — Новосибирск, 21−22 апр. 2011.-Том 1,-С. 167−170.'
- Трассировка и монтаж высоковольтных линий' передач в горных условиях.- Отчет —Тифилиси, 1986. 166 с.
- Третьяков В. Ю- Геоинформационные системы (ГИС): Метод, пособие. СПб.: Изд-во С.-Петерб. ун-та- 2005. — 16 с.
- Федотов Г. А. Инженерная геодезия. М.: Б. и., 2009. — 463 с.
- Филлипс Д., Гарсиа-Диас А. Методы анализа сетей. Пер. с англ./ Д. Филлипс, А. Гарсиа-Диас М.: Мир, 1984. — 496 с. 115. Фрэнк Г. Сети, связи и потоки / Г. Фрэнк, И. Фриш. М.: Связь, 1978.-448 с. 116. харари Ф. Теория графов. М.: Б. и., 2003. — 296 с.
- Хомяк Я. В. Построение оптимальных сетей автомобильных дорог. -М.: Транспорт, 1969. 144 с. 118. хохлов В- X. Экономика передачи электрической энергии. М.: Б. и., 1961.-№ 1.-108 с.
- Хохлов В. X. Экономика передачи электрической энергии. М.: Б. и., 1961.-№'2 — 111'с.
- XY Т. Целочисленное программирование и потоки в сетях. М.: Мир, 1974.-520 с.
- Чепцов В. М. Системы распределения- информации. Синтез структуры и управления. — М.: Связь, 1980.,. V :
- ЧерноруцкиЙ И. Г. Методы- оптимизации. и принятия решения: учебное пособие. Спб: Лань. — 2001. 384 с.
- Чита ев И. В. Методы и алгоритмы автоматизированного проектирования проводных телекоммуникационных сетей минимальной. стоимости: Автореф. дис.. канд. техн. наук Рязань, 2006. — 16 с.
- Шубенко В. А. Технико-экономические расчеты при проектировании сетей электрических систем. — Красноярск,. 1973. — 36 с.
- Канализация: Учеб. пособ- для вузов. Изд. 5-е, перераб. и дополн. / С. В. Яковлев, Я. А. Карелин, А. И. Жуков и др.-М.:Стройиздат, 1975.-632 с.
- Ямлеева Э. У. Инженерные сети и оборудование: водоснабжение и водоотведение. Ульяновск: Б. и., 2006. — 122 с. 1. АКТо внедрении результатов кандидатской диссертации Токтошова Г. Ы.
- Данная работа проводилась по результатам научно-исследовательских работ, выполненных Токтошовым Г. Ы.аспирантом профессора Попкова В.К.
- В рамках предложенной Токтошовым Г. Ы. методики были запроектированы линейные сооружения для международного аэропорта «Манас-2″ в г. Бишкек, филиала международного аэропорта „Манас“ в г. Ош, школы непрерывного образования в г. Нарын.
- Разработанная Токтошовым Г. Ы. методика программно реализована в J среде Delphi. Проведено соответствующий численный эксперимент показывающий эффективность применяемого метода по сравнению с известными.
- RadioButtonl: TRadioButton-
- RadioButtonlO: TRadioButton-
- RadioButton2: TRadioButton-
- RadioButton3: TRadioButton-
- RadioButton4: TRadioButton-
- RadioButton5: TRadioButton-
- RadioButton7: TRadioButton-
- RadioButton8: TRadioButton-1. RadioGroup2: TRadioGroup-1. Savel: TMenuItem-1. Exitl: TMenuItem-1. Openl: TMenuItem-1. Close 1: TMenuItem-1. OpenDialogl: TOpenDialog-
- Forml: TForml- implementation {TForml } var
- G, Tree: TGraph- WSS, WSS2: TWS- GWS: TGraphW- V: arrayl. NMax2. of Vertex- wscol: BT-leng, total: real- { }procedure MyRepaint- begin
- Forml .Image 1.Canvas.Pen.Color:=clBtnFace- Forml.Imagel.Canvas.Brush.Color:=clBtnFace- Forml. Image l.Canvas.Rectangle (0,0,500,500) — end-
- Процедура рисует первичную сеть} procedure DrawGraph (var G: TGraph)-vari j, count, sq, sql: BT- begin
- Vi+o-l)*sql.X~trunc ((Forml.Imagel.Width-30)/(sql-l)*(i-l))+15-
- Vi+(j-l)*sql.Y:=trunc ((Forml.Imagel.Height-30)/(sq-l)*(j-l))+15−1. Vi+o-l)*sql.M:=0-end-
- Forml .Imagel .Canvas.Pen. Width:=2-
- Forml.Imagel.Canvas.Pen.Color:=clGreen-for i:=l to G. sides dofor j:=G.KAO1. to G. KAOi+l.-l doif j≥0 thenbegin
- Form 1. Image 1 .Canvas.MoveTo (V1. .X, Vi. Y) —
- Forml .Imagel.Canvas.LineTo (VG.FO[j.]. X, V[G.FO[j]].Y)-end-1. Рисуются вершины}
- Form 1.Imagel.Canvas.Pen.Width:=l-
- Forml .Imagel .Canvas.Brush.Color:=clGreen-
- Form 1. Image 1 .Canvas.Pen.Color:=cIBlack-for count:=l to G. sides dobegin
- Заполняются данные о вершинах и их местоположении} Forml. Imagel .Canvas.Pen. Width:=2- Forml.Imagel.Canvas.Pen.Color:=clRed- for i:=l to G. sides do for j:=G.KAO1. to G. KAOi+l.-l do if j≥0 then begin
- Form 1. Image 1 .Canvas.MoveTo (V1. .X, Vi. .Y) — Forml.Imagel.Canvas.LineTo (V[G.FO[j]]. X, V[G.FO[j]].Y) — end-1. Рисуются вершины}
- Form 1. Image 1 .Canvas.Pen. Width:= 1-
- Forml. Imagel. Canvas.Brush.Color:=clGreen-
- Forml .Imagel .Canvas.Pen.Color:=clBlack-for count:=l to G. sides dobegin
- Form 1. Image 1 .Canvas.Pen. Width:=2-
- Form 1. Image l.Canvas.Pen.Color:=clRed- Forml.Imagel.Canvas.MoveTo (Vil.X, V[il]. Y) — Form 1. Image 1 .Canvas.LineTo (V[i2] .X, V[i2]. Y) — end-procedure DrawEdgeS (i 1, i2:integer) — begin
- Forml.Imagel.Canvas.Pen.Width:=2- Forml.Imagel.Canvas.Pen.Color:=clBluc- Form 1. Image 1 .Canvas.MoveTo (Vi 1. .X, V[i 1]. Y) — Form I. Image 1, Canvas. LineTo (V[i2]. X, V[i2].Y) — end-procedure DrawVertex6(n:BT) — begin
- Рисуется вершина} Forml. Imagel .Canvas.Pen.Width:=l- Forml.Imagel.Canvas.Brush.Color:=clYellow- Forml.Imagel.Canvas.Pen.Color:=clBlack-
- Forml .Imagel.Canvas.Ellipse (Vn.X-radius 1, V[n]. Y-radius 1, V[n] .X+radius 1, V[n] .Y+radius 1) —
- Forml.Image l.Canvas.TextOut (Vn.X-(radius2+2), V[n]. Y-radius2−3,IntToStr (n))-end-procedure DrawVertex5(n:BT) — begin
- Рисуется вершина} Form 1. Image 1 .Canvas .Pen. Width:= 1- Form 1. Image 1 .Canvas.Brush.Color:=clBlue- Forml. Image 1 .Canvas.Pen.Color:=clBlack-
- SpecVEj.:= StrToInt (sl) — if SpecVE[j]>G.sides then begin
- MessageDlg ('0HH6Ka', Такого номера вершины нет!', mtrnformation,[mbOK.,») — exit- end- end- specol:=j-ss:=Forml .Editl .Text- sl:=" — j:=0- for i:=l to length (ss)do if ss1. o',' then sl:=sl+ssi. else begin
- SpecVSj.:= StrToInt (sl) — sl:=" — end-if slo" then begin j:=j+l-
- SpecVSj.:= StrToInt (sl) — if SpecVS[j]>G.sides then begin
- MessageDlg ('Oum6Ka', 'Такого номера вершины нет!', mtInformation, mbOK.,") — exit- end- end-if (specoloj) then begin
- MessageDlg ('OiiiH6Ka', 'Количество начальных и конечных вершин не совпадает!', mtInformation, mbOK.,") — exit- end-end-1. GWS. sides:=G.sides-end-else simbol l:=simboll+simbol- end- end-
- G.FO1.:=StrToInt (simboll) — if ioG.KAOG.sides+l.-l then begin
- MessageDlg ('OmH6Ka','Ошибка в открытом Вами файле!', mtInformation, mbOK.,") — Exit- end- readln (Fl) — i:=l-
- Simboll:-'- while not Eoln (Fl)do beginread (Fl, simbol)-1. Case simbol oft f.
- G.CostD1. :=StrToFloat (simbol 1) — simboll:-'- i:=i+l- end-else simboll:=simboll+simbol- end- end-
- G.CostD1.:=StrToFloat (simboll) — if ioG.KAOG.sides+1 .-1 then begin
- MessageDlg ('OmH6Ka','OuiH6Ka в открытом Вами файле!', mtInformation, mbOK.,") — MyRepaint- Exit- end- readln (Fl) — i:=l-
- Simbol 1:=" — while not Eoln (Fl)do beginread (Fl, simbol)-1. Case simbol of11.
- G.CostA1.:=StrToFloat (simbol 1) — simboll:-1- i:=i+l- end-else simboll^simboll+simbol- end- end-
- G.CostA1. :=StrToFloat (simbol 1) — if ioG.KAOG.sides+l.-l then begin
- MessageDlg ('OuiH6Ka','Ошибка в открытом Вами файле!', mtInformation, mbOK.,") — MyRepaint- Exit- end-end- end-
- DrawGraph (G) — GenWSl (GWS) — end-procedure TForm 1. TabSheet2ContextPopup (Sender: TObject- MousePos: TPoint- var Handled: Boolean)-begin end-procedure TForml. CloselClick (Sender: TObject) — begin
- Gl.FO1.:=Gl.FOi-l.- Gl. CostA[i] :=G 1. CostA[i-1 ]- G1. CostD[i] :=G 1. CostD [i-1 ]- end-1. Gl.FOGl.KAO[vl + l.]: =v2-
- Gl.CostAGl.KAO[vl+l.]: =costa-
- Gl.CostDGl.KAO[vl+l.]: =costd-for i:=(GI.sides+1) downto vl+1 do Gl. KAO1.:=Gl.KAOi.+l-end-
- Удалить ребро (к, т) в графе со стоимостями} procedure DeleteEdgeC (var Gl: TGraph- k, m: BT) — var i, l: BT- beginfor i:=Gl.KAOk+l.-l downto Gl. KAO[k] do if Gl. FO1.=m then beginfor 1:= i to Gl.KAOGl.sides+l.-l do begin1. G1 .FO 1. :=G 1 .FOl+l .-
- G1 .Cost Al. :=G 1. CostA[l+1 ]- G1. CostDfl] :=G 1. CostD[l-H ]- //G1 .Prob[l] :=G 1 .Prob[l+1 ]- end-for 1:= Gl.KAOGl.sides+l.-l to Gl. KAO[Gl.sides+l] do begin
- FloydPathl (i, Pij., M, P, WSS, k) — FloydPathl (P[ij] j, M, P, WSS, k) — end else begin
- FloydPathT (i, Pij., M, P, WSS, k) — FloydPathT (P[i, j]j, M, P, WSS, k) — end else begin1. WSSk. col:=WSS[k]. col+l-
- WSSk.VertexfWSS[k]. col]:=j-end-end-end-procedure FirstFloyd (var G: TGraph- var GWS: TGraphW- var WSS: TWS- var wscol: ВТ) — vark, i, j:BT- M: TMatr- P: TMatrlnt- suml, sum2: real- begin k:=0-
- FloydStartl (G, M, P) — for i:=l to GWS. sides dofor j:=GWS.KAO1. to GWS. KAOi+l.-l do begin
- Разворачиваем путь от вершины до вершины if minl
- Vec1.:=0- VecRi.:=i- for j:=l to wscol doif (ioj) then Vec1.:= Veci.+Dis[ij]- end-
- Bubble (wscol, Vec, VecR) — end-procedure DistanceT (var WSS: TWS- wscol: BT- var VecR: TVector) — varij, k, kk, sum: BT- Dis: TMatrlnt- Vec: TVector- begin
- VecR1.:=i- Bubble (wscol, Vec, VecR) — end-procedure RandomSort (wscol: BT- var VecR: TVector) — vari, kk, q: BT- beginfor i:=l to wscol do
- Distance (WSS, wscol, VecR) — if Form 1. RadioButton3 .Checked=true then
- DistanceT (WSS, wscol, VecR) — if Form 1. RadioButton4.Checked=true then RandomSort (wscol, VecR) — for j:=wscol downto 1 do begin i:=VecRj.- Buff:= WSS1.- GBuff:=G-for k:=l to WSS1. col-l do
- DelFlag (WSS1.Vertexfk., WSSi]. Vertex[k+I], G) — FloydStart2(G, M, P) — WSS[i]. col:=l-
- WSS1.Vertexl.:=Buff.Vertex[l]-
- Timl: TClock- str, strl: string- begin leng:=l-if G. sides=0 then begin
- MessageDlg ('OmH6Ka', 'Вы еще не загрузили граф!', mtInformation, mbOK.,") — exit- end-if (CheckBox2.Checked=true) then
- Forml.Memol. Lines. Add ('Floydl = '+FloatToStr (total)) — str:=str+FloatToStr (total)+','- end-if ((RadioButton2.Checked=true) or (Forml.RadioButton3.Checked=true) or (Forml.RadioButton4.Checked=true)) and (wscol>0) then begin i:=0- repeat suml:=total-
- Forml .Memo 1.Lines. Add (str 1 +FloatToStr (total)) — str:=str+FloatToStr (total)+','- str 1 :=str 1 +FloatToStr (i-1)+','- end-if (RadioButton5.Checked=true) then beginfor i:=l to G.KAOG.sides+l.-l do G. Flag1.:=0-
- Forml.Memo 1.Lines. Add ('CreateMetr = '+FloatToStr (total)) — str:=str+FloatToStr (total)+','- end- ifkk=12 then begin
- Form 1 .Memo 1.Lines. Add ('---------------')-end-if (CheckBox2.Checked=false) then
- Edit2.Text:=FloatToStr (total) — for i:= 1 to wscol do beginfor j:= 1 to WSS1. col-l do
- DrawEdge (WSS1.VertexO., WSSi]. Vertex[j+l])-end-for i:= 1 to wscol do begin
- AddArcEVAll (i*sq+j,(i+ii)*sq+j+jij, costd, costa, G) — AddArcEVAll ((i+ii)*sq+j+jj, i*sq+j, costd, costa, G) — end-if (j-jj>0) and (jj>0) and (i+ii<=(sq-l)) and (ii>0)then begincostd:=random (5)+5- costa:=random (5)+1-
- AddArcEVAll (i*sq+j,(i+ii)*sq+j-jj, costd, costa, G) — AddArcEVAll ((i+ii)*sq+j-jj, i*sq+j, costd, costa, G) — end-end-end-for i:=l to G. sides do G. Cost1.:=l-//random (5)+l-it
- MyRepaint- DrawGraph (G) — GenWSl (GWS) — end-procedure SaveMyFile (var G: TGraph- strfile: string) — var
- SaveDialogl.Filename:=SaveDialogl.Filename+'.txt'- str:=SaveDialog 1. Filename- SaveMyFileG (G, str) — end- end-initialization$ 1 unitws. lrs} G. sides:=0- Randomize- end.