[Dogmat-iGwt]

Подскажите пожалуйста, я делаю программу, которая рассчитывает все возможные исходы одного процесса.

Процесс зависит от 20-ти переменных, диапазоны значений которых либо известны изначально, либо зависят друг от друга. Таким образом получается 20 вложенных циклов for.

Расчет происходит в 4 этапа (6-6-6-2 цикла), после каждого происходит обращение к подпрограмме, в которой только блок условий if-then-else,считающий переменные для следующего этапа.

При стандартном наборе переменных программа вычисляет больше миллиарда вариаций, что занимает у нее больше 12 минут. Процесс идет в 2 потока и грузит 33% ЦП, при этом программа виснет и не отвечает в диспетчере задач.

Я попытался снизить количество вычислений следующим образом: вычленил некоторые закономерности процесса и, в случае наступления такой закономерности, пропускал последнее обращение к подпрограмме переходя к следующему значению по циклу. Однако время расчета не снизилось даже на секунду, то есть, как я понял, блок, содержащий только условия, ЦП практически не грузит. Есть ли способ как-то еще снять нагрузку, чтобы снизить время хотя бы до 3,5 минут? Некоторые циклы при определенных условиях содержат всего одно значение, если от них как-нибудь избавиться, то это снизит нагрузку?

[@Rafa3L]

Закинь сюда проджект, посмотрим.

[Dogmat-iGwt]

Я б закинул, но он уже сейчас растянулся на 2 с лишним тысячи строк, это к нему как минимум комментарии надо писать...

[@Rafa3L]

Без кода можешь обращаться в "Битву экстрасенсов" или программу "Люди Хэ".

Кидай 2000 строк, посмотрю по врмени выполнения.

[YVitaliy]

Сообщение от @Rafa3L

Без кода можешь обращаться в "Битву экстрасенсов" или программу "Люди Хэ".

Кидай 2000 строк, посмотрю по врмени выполнения.

Вот посмотрит человек на твою подпись, и не скинет
Я вообще не понял: есть 20 вложенных циклов, а процесс идет в 2х потоках. Это как?

[Dogmat-iGwt]

Сообщение от YVitaliy

Вот посмотрит человек на твою подпись, и не скинет
Я вообще не понял: есть 20 вложенных циклов, а процесс идет в 2х потоках. Это как?

Это я кстати тоже не догнал почему в 2 потока, но судя по инфе из диспетчера задач, их 2. Грузят они ровно 33% ЦП. У меня трехядерный атлон.

[icsander]

Код в студию. А чтобы программа "не зависала" во время вычислений вставь внутри циклов <Application.ProcessMessages>.

[Ferra]

Сообщение от Dogmat-iGwt

Процесс зависит от 20-ти переменных, диапазоны значений которых либо известны изначально, либо зависят друг от друга. Таким образом получается 20 вложенных циклов for.

Я бы не усложнял так код, а сделал бы массив таких диапазонов По идее и скорость может повысить.

Сообщение от Dogmat-iGwt

При стандартном наборе переменных программа вычисляет больше миллиарда вариаций, что занимает у нее больше 12 минут. Процесс идет в 2 потока и грузит 33% ЦП, при этом программа виснет и не отвечает в диспетчере задач.

Всё просто, нужно принудительно обрабатывать сообщения для окна программы от windows. Но это будет тормозить вычисления.
И оно точно в 2 потока работает? Т.е. если оно действительно многопоточное, то почему, например, не 10?

Сообщение от Dogmat-iGwt

Я попытался снизить количество вычислений следующим образом: вычленил некоторые закономерности процесса и, в случае наступления такой закономерности, пропускал последнее обращение к подпрограмме переходя к следующему значению по циклу. Однако время расчета не снизилось даже на секунду, то есть, как я понял, блок, содержащий только условия, ЦП практически не грузит.

Можешь попробовать кэширование или динамическое программирование.

Сообщение от Dogmat-iGwt

Есть ли способ как-то еще снять нагрузку, чтобы снизить время хотя бы до 3,5 минут? Некоторые циклы при определенных условиях содержат всего одно значение, если от них как-нибудь избавиться, то это снизит нагрузку?

Так тут чисто твоя логика должна работать, алгоритм работы ты не показал\не описал а спрашиваешь как оптимизировать
Посмотри на пакеры exe, теоретически могут и ускорить работу. + Могут помочь опции компиляции.

[YVitaliy]

если оно действительно многопоточное, то почему, например, не 10?

С 10ю потоками оно быстрее работало бы только на 10ти ядерном проце) А по сути, с "20 вложенными циклами" - я не представляю, как можно цикл пустить в один поток, а операторы в нем (вложенные циклы) - в иной!

[Ferra]

Сообщение от YVitaliy

С 10ю потоками оно быстрее работало бы только на 10ти ядерном проце) А по сути, с "20 вложенными циклами" - я не представляю, как можно цикл пустить в один поток, а операторы в нем (вложенные циклы) - в иной!

Это непрада. Количество ядер почти не имеет значения если программа не оптимизирована специальным образом. Я не знаю, делает ли это компилятор дельфи автоматически, но можешь посмотреть сам.

Но ты путаешь понятия. Например вот посмотри http://www.cyberguru.ru/programming/delphi/threads.html
Если твой алгоритм можно распараллелить - то это прилично ускорит скорость работы.

И необязательно циклы в разных потоках запускать. Просто выдели части алгоритма которые могут выполняться параллельно.

[Dogmat-iGwt]

Ладно, вот приложил чуть-чуть упрощенную версию проги, рассчитывает только количество вариаций=победы+поражения+ничьи. В коде весь ступор в обработчике главной кнопки, остальное все работает нормально.

Как пользоваться: в каждой из 8-ми панелей нужно выбрать по карте, выбор производится проще всего по имени (верхний левый комбобокс на каждой из 8 панелей). Рекомендую прежде чем нажать вычислить выставить в 2-х комбобоксах с надписью 12 в правом-верхнем и правом-нижнем углах окна цифры поменьше. Уже при значении 8 в каждом из них программа считает около минуты. При 12 количество вариаций переваливает за миллиард, прога виснет надолго.

Если что, не удивляйтесь некоторым моим решениям, я новичок самоучка, заранее спасибо. Советам, не относящимся к сути вопроса, тоже буду благодарен.