Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.02.2009, 14:14   #11
s.Creator
Форумчанин
 
Регистрация: 28.09.2008
Сообщений: 344
По умолчанию

Цитата:
Сообщение от AXS Посмотреть сообщение
К примеру моя программа раскроя написанная двумя годами ранее сделала крой тоже на шесть заготовок но остаток от последней заготовки на 50 больше чем сделала программа выше ^ Значит этот крой лучше.
...
А как ТВОЯ программа выбирала лучший раскрой?
s.Creator вне форума Ответить с цитированием
Старый 05.02.2009, 14:22   #12
SNUPY
Форумчанин
 
Регистрация: 15.02.2008
Сообщений: 621
По умолчанию

Цитата:
А как ТВОЯ программа выбирала лучший раскрой?
Помоему он раскраивает по жадному алгоритму ^_^
Помог? Ну так нажми на весы!
SNUPY вне форума Ответить с цитированием
Старый 05.02.2009, 19:42   #13
AXS
Программер
Пользователь Подтвердите свой е-майл
 
Аватар для AXS
 
Регистрация: 03.07.2008
Сообщений: 36
По умолчанию

Цитата:
Сообщение от SNUPY Посмотреть сообщение
Помоему он раскраивает по жадному алгоритму ^_^
Сов. верно. Нынешняя версия раскраивает жадным, но то что крой получился лучше - это частный случай. В общем же (среднем) крой не оптимален. Поэтому и требуется разработать более совершенный алгоритм.
В этом и загвоздка...

PS: Два года назад, кроме как на "жадный" алгоритм я просто не решился на что то серьёзнее
<AXS> Если один из двух выходов - ловушка, надо найти третий... </AXS>
<AXS> "Живой" - явление временное... </AXS>

<><><> www.mak-ms.com <><><>

Последний раз редактировалось AXS; 05.02.2009 в 19:44.
AXS вне форума Ответить с цитированием
Старый 05.02.2009, 19:47   #14
SNUPY
Форумчанин
 
Регистрация: 15.02.2008
Сообщений: 621
По умолчанию

И скора я понимаю вы хотите пойти методом перебора?
Помог? Ну так нажми на весы!
SNUPY вне форума Ответить с цитированием
Старый 05.02.2009, 20:05   #15
AXS
Программер
Пользователь Подтвердите свой е-майл
 
Аватар для AXS
 
Регистрация: 03.07.2008
Сообщений: 36
По умолчанию

Не исключаю другие, более разумные варианты.
Но пока ничего подобного на ум не идёт.
<AXS> Если один из двух выходов - ловушка, надо найти третий... </AXS>
<AXS> "Живой" - явление временное... </AXS>

<><><> www.mak-ms.com <><><>
AXS вне форума Ответить с цитированием
Старый 05.02.2009, 22:16   #16
SNUPY
Форумчанин
 
Регистрация: 15.02.2008
Сообщений: 621
По умолчанию

ночью я надумал следующее....
во рекусрия выбора.. (M массив использованных вариантов из все возможных):
Код:
Procedure ChangeOptimal;
var
 i:integer;
begin
  CreateCorrectList(Chg);//создает нормальный список с учетом уже выбранных и записывает в массив N. Сhg массив выбранных
  for i:=0 to length(N)-1 do
  begin 
    Change(N[i]);//продцедура добавлет N[i] в Chg
    if Not AllDetails(Chg) then
    //если не использованы все детали, то опять вызываем
    ChangeOptimal
    else 
    //если использованы все детали, то проверяем на оптимальность по сравнению с предъидущим оптимумом и при необходиости заменем оптимум на этот вариант.
    Optimun;
  end;
end;
Помог? Ну так нажми на весы!
SNUPY вне форума Ответить с цитированием
Старый 06.02.2009, 16:33   #17
JTG
я получил эту роль
Старожил
 
Аватар для JTG
 
Регистрация: 25.05.2007
Сообщений: 3,694
По умолчанию

Попробуй найти
Цитата:
Л.В. Канторович, В.А. Залгаллер "Рациональный раскрой промышленных материалов." Издательство "НАУКА", Сибирское отделение, Новосибирск, 1971
Там должен быть жутко тормозной алгоритмический метод, который даст на 100% оптимальное решение, чувак Нобелевскую премию за это получил
пыщь
JTG вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сортировка линейного массива. C++ DOS Xeon332 Общие вопросы C/C++ 2 15.12.2008 16:21
Сортировка линейного списка. ТИВ Паскаль, Turbo Pascal, PascalABC.NET 3 23.11.2008 22:39
Алгоритмы линейного и бинарного поиска. Seafulf Паскаль, Turbo Pascal, PascalABC.NET 4 01.03.2008 21:39
[За деньги] Написать программу оптимального раскроя заготовок на фрагменты. Eretik Фриланс 3 18.12.2007 08:11