Многопроцессорное приложение на делфи

[Daramant]

Немного переделал и упростил.

Чтобы лучше разобраться с потоками почитай вот это:
http://www.interface.ru/home.asp?artId=6105

Непосредственно о семафорах:
http://frolov-lib.ru/books/bsp/v26/ch4_6.htm
http://trubetskoy1.narod.ru/art/synch/semaphore.html

[Iong]

Уважаемый Daramant я посмотрел Вашу программу, с кодом до конца не разобрался, но обязательно разберусь, спасибо за помощь. У меня есть пара замечаний ну или как это назвать. Короче я создал файл, того типа, который нужен для загрузки данных в Вашу программу(в файл записал результат достигнутый на моей программе это число в 28795000 степени с количеством цифер 8668160), и загрузил его, Ваша программа после начала обработки не подает ни каких признаков жизни, висит намертво. Даже в логах чисто. И что я еще заметил, она загружает ТОЛЬКО 50% ЦП. Да и еще про оперативную память, на таком числе Ваша программа занимает уже 50 МБ памяти, а моя постоянно 14,5 МБ. Это же получается что по всем показателям Ваша программа затратнее.
Про потоки, по ссылкам которые Вы дали, я еще не читал, но почитаю.

[Daramant]

я создал файл, того типа, который нужен для загрузки данных

Может ты с форматом где ошибся. Выложи файл, я посмотрю, так трудно что-то сказать.

она загружает ТОЛЬКО 50% ЦП

Видимо система назначает эти потоки на один процессор.
Попробуй назначить потоки на разные процессоры, для этого:
в модуле uSolver в самом низу в разделе initialization после кода создания потоков:

  LowPartSolverThread := CreateThread(0, 0, @LowPartSolverThreadProc, 0, CREATE_NEW, tid);
  HighPartSolverThread := CreateThread(0, 0, @HighPartSolverThreadProc, 0, CREATE_NEW, tid);

вставть следующий код:

  SetThreadIdealProcessor(LowPartSolverThread, 0); // 1-й поток на 1-й процессор
  SetThreadIdealProcessor(HighPartSolverThread, 1); // 2-й поток на 2-й процессор

на таком числе Ваша программа занимает уже 50 МБ памяти, а моя постоянно 14,5 МБ

Закоментируй вывод в mmLog на 220 строке.

frmMain.mmLog.Lines.Add(...);
frmMain.Refresh;

if (CurPower mod 500 = 0) or Suspended then

Можно реже записывать промежуточные результаты в файл. (вместо 500 напиши что-нибудь побольше)

Память выделяется при создании строк в которые преобразуется массив, в функции GetArrayAsString().
Это функция вызывается при записи в mmLog и сохранении/загрузке из файла.

P.S. Если размер используемой памяти критичен, можно переписать функции сохранения/загрузки данных из файла.

[Iong]

Может ты с форматом где ошибся. Выложи файл, я посмотрю, так трудно что-то сказать.

сделал число поменьше, файл с числом выложил. на нем тоже зверски виснет.
С оперативной памятью проблем пока нет, да думаю и не будет, а то что 50 МБ занимает, это я так просто подметил этот факт. Еще одно замечание, Кнопка "Suspend" не работает при обработки большого числа.

SetThreadIdealProcessor(LowPartSolv erThread, 0); // 1-й поток на 1-й процессор
SetThreadIdealProcessor(HighPartSol verThread, 1); // 2-й поток на 2-й процессор

Вставил этот код как Вы и сказали, эффект есть, загрузка ЦП 100%.
Закомментировал вывод в mmLog на 220 строке, в производительности прирост заметен.
Сравнил по скорости обработки Вашу и мою программы, моя жрет 50% ЦП а дает такую же скорость обработки. Это не рационально:-( должна быть разница в скорости как минимум на 30-40%

[Daramant]

Подвисало от:

frmMain.mmLog.Lines.Add(...);
frmMain.Refresh;

т.е. при выводе на экран большого числа.
Также закомментируй тело процедуры ShowResults;
Это увеличит производительность и не будет подвисать.
И в 224 строке убери условие

if CurPower mod 100 = 0 then

,
т.е. оставь только Application.ProcessMessages; тогда форма подвисать не будет.

Также можно заменить:

  
  d := mArray[i] div 10;
  mArray[i] := mArray[i] mod 10;

на:

 
  d := 1;
  mArray[i] := mArray[i] - 10;

[Daramant]

Я немного оптимизировал алгоритм, по тестируй его, должен работать быстрее.