0 / 0 / 0
Регистрация: 28.03.2010
Сообщений: 6
1

Алгоритм Флойда (графы - поиск кратчайшего пути)

08.06.2010, 14:59. Показов 7113. Ответов 5
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Собственно очень нужен алгоритм на VBA. Народ если кто то видел, или у кого то есть, поделитесь пожалуйста информацией. Курсяк горит ппц. С другого языка программирования боюсь не осилю перегнать на VBA
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.06.2010, 14:59
Ответы с готовыми решениями:

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

Алгоритм кратчайшего пути: метод Флойда, StringGrid
Помогите с данной темой , я не понимаю как сделать данную программу . Язык написания Delphi . Был...

Печать кратчайшего пути из матрицы последовательности вершин (Алгоритм флойда)
Здравствуйте, проблема следующая: не могу получить список вершин из результирующей матрицы. В...

Поиск кратчайшего пути в алгоритме флойда! (На графах)
Алгоритм флойда! Нужно найти поиск кратчайшего пути в графе Program Algoritm_Floyda; Const ...

5
3896 / 899 / 122
Регистрация: 16.04.2009
Сообщений: 1,825
08.06.2010, 16:21 2
Может кто из других перегонит?
Покажите код хоть на каком-нибудь языке
0
0 / 0 / 0
Регистрация: 28.03.2010
Сообщений: 6
08.06.2010, 16:45  [ТС] 3
Вообще мне препод дал вот этот алгоритм из учебника (картинка). Говорит делай как хочешь в VBA.

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

по этой ссылке есть вроде как решение на Паскале данного метода
http://forum.sources.ru/index.php?showtopic=255614
Миниатюры
Алгоритм Флойда (графы - поиск кратчайшего пути)  
Вложения
Тип файла: xls АлгФлойда.xls (42.0 Кб, 245 просмотров)
0
496 / 130 / 19
Регистрация: 30.03.2010
Сообщений: 224
09.06.2010, 09:40 4
Выкладываю тупой перевод с Паскаля на VB
Понятия не имею, что такое алгоритм Флойда, насколько правильно это все работает и как сочетается с АлгФлойда.xls - придется проверить самому

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub NN()
Dim C() As Double
Dim T() As Double
Dim H() As Double
Dim p As Long
Dim i As Long
Dim j As Long
Dim k As Long
 
ReDim C(1 To p)
ReDim T(1 To p, 1 To p)
ReDim H(1 To p, 1 To p)
 
For i = 1 To p
    For j = 1 To p
        T(i, j) = C(i, j) 'инициализация
        If C(i, j) = БЕСКОНЕЧНОСТЬ Then 'ROFL
           H(i, j) = 0    'нет дуги из i в j
        Else
           H(i, j) = j    'есть дуга из i в j
        End If
    Next
Next
 
For i = 1 To p
    For j = 1 To p
        For k = 1 To p
            If i <> j And T(i, j) <> БЕСКОНЕЧНОСТЬ And _
               i <> k And T(i, k) <> БЕСКОНЕЧНОСТЬ And _
               T(j, k) <> БЕСКОНЕЧНОСТЬ Or _
               T(j, k) > T(j, i) + T(i, k) Then
               H(j, k) = H(i, j)            'запомнить новый путь
               T(j, k) = T(j, i) + T(i, k)  'и его длину
            End If
        Next
    Next
    For j = 1 To p
        If T(j, j) < 0 Then Exit Sub
    Next
Next
End Sub
1
0 / 0 / 0
Регистрация: 28.03.2010
Сообщений: 6
09.06.2010, 09:56  [ТС] 5
Огромное спасибо за такую помощь!!! ща буду ковырятся
0
0 / 0 / 0
Регистрация: 12.05.2015
Сообщений: 1
23.12.2016, 06:56 6
lgk, подскажите, вам удалось реализовать алгоритм фонда на vba
0
23.12.2016, 06:56
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.12.2016, 06:56
Помогаю со студенческими работами здесь

Поиск кратчайшего пути (алгоритм Уоршала)
В области имеется N городов, соединены автобусными маршрутами. Стоимость билета с i-го города в j-й...

Поиск кратчайшего пути в лабиринте. Алгоритм А*
Добрый день, реализовал алгоритм A* на java, довольно коряво, но проблема в другом. Мне нужно найти...

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

Поиск кратчайшего пути (алгоритм Дейкстры) с наименьшим максимальным ребром
Есть классическая реализация Дейкстры, пытаюсь добавить условие: если есть несколько кратчайших...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru