Помогите с алгоритмом. Для произвольного графа найти хроматическое число и раскраску.
Ориентировочные размеры графа?
Граф произвольный.
Ну если произвольный - то без шансов. Общего полиномиального решения нет, насколько я знаю. Пробуй жадные подходы какие-нибудь, с итерационным приближением к оптимальному решению. Например, http://rain.ifmo.ru/cat/view.php/vis/graph-coloring-layout/coloring-2003.
А нет на Паскале?
Добавлено через 5 мин.
Хотя бы для графа с несколькими вершинами.
Для графа с несколькими вершинами - полным перебором.
Кода у меня нет.
Дайте кто-нибудь ссылку, пожалуйста!
Может и сдать за тебя?
Сдавать не надо, дайте ссылку с описанием метода решения.
Пытаешься раскрасить в один цвет; если не получилось - в два; если не получилось - в три, и т.д.
Чтобы раскрасить в k цветов, используешь такую схему. Фиксируешь порядок обхода вершин. Идешь в первую вершину, даешь ей цвет 1. Идешь во вторую, и даешь ей такой наименьший цвет, который не вызовет конфликтов. Идешь в третью, и т.д. Если на очередном ходу цвет выбрать не получается, откатываешь к предыдущей вершине, и выбираешь для нее следующий цвет, который не вызовет конфликтов. Если и для нее возможные цвета кончились - откатываешь дальше, и т.д.
Если всем вершинам назначены цвета - задача решена.
Рекурсивная процедура будет выглядеть примерно так:
procedure visit(i: integer);
begin
if i = n + 1 then
// решение найдено! выводим
else begin
for c := 1 to k // k - количество цветов
if (ни одна из вершин, смежных с i, не покрашена в цвет с) then
color[i] := c;
visit(i + 1);
end;
end;
end;
Я так понял, что граф представляется в виде матрицы.
Добавлено через 3 мин.
И там где решение найдено, нужно вывести матрицу?
да.
Mail Order Macrobid Visa Accepted Free Shipping
Перед реализацией, все автомобили проходят предпродажную подготовку - полировку, химчистку, мойку, компьютерную и техническую диагностику.
Мы сотрудничаем со многими ведущими банками России, поэтому вы сможете выбрать подходящие условия по кредитованию для себя.
Cialis Compresse Prezzo