Пред пред предисловие:
Я сделал поиск по данной теме
Вот текст моего запроса: "метод отжига delphi"
и Гугл меня не очень обрадовал результатами.
Две темы и ничего конкретного в одной нет ответа, в другой ссылка без разбора и продолжения не было.
Если Вам скучно, проходите мимо. Не стоит писать что-то вроде Баян... и т. д.
Присылайте конкретные ссылки где эта тема обсуждалась и пришла к решению.
Предисловие:
Долго думал, стоит ли создавать данную тему, взвесив за и против решил, что нужно.
Предыстория:
Метод отжига показался мне интересным для получения решения задач требующих полного перебора (что долго).
У меня в задаче есть множество точек по которым мне необходимо строить маршрут, я пока не придумал как
сгенерировать данное множество не сложно.
Поэтому хотелось бы посмотреть действие "метода отжига" на чем-то уже простом и понятном
можно найти описание на методе "Коммивояжёра".
Основная:
Вот вторая из двух ссылок, те что "дал Гугл".
programmersforum
Вот нашлось. Вроде бы смотри и радуйся.
Цитата
Pavia дает ссылку.
Этих методов оптимизации вагон и маленькая тележка.
Вот поискал вот код:
http://surface.syr.edu/cgi/viewcontent.cgi...ecs_techreports
__________________
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
У дзен программиста программа делает то что он хотел, а не то что он написал .
Этих методов оптимизации вагон и маленькая тележка.
Вот поискал вот код:
http://surface.syr.edu/cgi/viewcontent.cgi...ecs_techreports
__________________
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
У дзен программиста программа делает то что он хотел, а не то что он написал .
Но на второй вкладке elf01 признает
что ничего не может сделать
так
Цитата elf01;1591197
Вы вообще о чем, я решить то сам могу, вы видели что я написал? там нет функций generate и swap, хотя в коде они присутствуют. Вам ли ж бы написать, вы хоть документ открывал, что добрый человек кинул? Там все цифры для примера есть.
Итак пробую добавить недостающее
generate
<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>
procedure generate(var i, j: integer);
begin
randomize;
i:= random(10);
j:= random(10);
if (i=0) or (j=0) then begin i:= 1; j:= 1; end;
if i=j then generate(i,j);
end;
и
swap
Со swap я не смог его сделать, без того чтобы delphi
на него не ругалось, поэтому просто
сделал так
<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>
begin
b[1]:= a[(i + k - 2) mod n + 1];
a[(i + k - 2) mod n + 1]:=a[(j - k + n) mod n + I];
a[(j - k + n) mod n + I]:=b[1];
end;
Хотя должно быть что-то ... но не робит (думаю потому, что var Index1, Index2: tour "не равны" локальному N:tour)
<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>
procedure Swap(var Index1, Index2: tour);
var
N:tour;
begin
N := a[Index1];
a[Index1] := a[Index2];
a[Index2] := N;
end;
Но вопрос мой не в этом.
Автор статьи получает какие-то результаты, которые интерпретирует например так
https://yadi.sk/i/VKENa_bg3XAirk
Здесь, то что без особых усилий можно выудить из документа.
Metod_Otjiga.7z (, : 124)
Вопрос: Как мне получить результат
в тоже виде, что и у автора статьи
то есть путь из связанных точек?
Заранее спасибо)
