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

[Пепел Феникса]

поправте если я не прав, но...
один поток=одно ядро
значит многопоточное нужно приложение

[Anatole]

имеет 2 цикла "репит" и штук 5 условий.

Для того, чтобы вычисления выполнялись на разных ядрах необходимо, чтобы данные которые обрабатываются на этих ядрах были между собой не зависимы, иначе одному ядру придется ждать результатов работы другого. Если это условие не выполняетса, то система считает, что эффективнее использовать одно ядро. И как переубедить ее в этом я не знаю.

[Stilet]

И как переубедить ее в этом я не знаю.

Можно попробовать распараллелить этот процесс, допустим в первом потоке главный цикл будет отрабатывать от 1 до N а во втором от N+1 до М. И каждому потоку дать найвысший приоритет.
Кстати хотелось бы узнать что это за задача такая которая обязательно требует полной загрузки? И как написана.

P.S. Для справки - если организовать поток с неким циклом в котором не поставить задержку его приоритет будет 100%, так что автор - распарраллеливайте задачу.

[Daramant]

Конечно необходимо распараллеливание, если хотите загрузить все процессоры и получить результат за меньшее время.
Есть соответствующие библиотеки, например mpi (но, есть и другие).
P.S. Таким образом можно задействовать не только ядра одной машины, но и все доступные машины.
Распараллеливание более сложная вещь, здесь требуются соответствующие знания (я не говорю о распараллеливании цикла).

[Iong]

Вай. Люди, ну помогите же.

[goblinyara]

Iong, вам же сказали - используйте несколько потоков....

[Iong]

Такс. Я же студент. Делитант, и ничего не понимаю в вашем разпаралеливании.
Ну а если просто сказать про алгоритм моей программы. То она имеет массив, этот массив представляет одно большое число, а каждый элемен массива это одна цифра этого числа. И моя прога умножает это число на 2. Короче я ищу число: 2 в 31000000 степени. И вот прикиньте какая нужна мощь что бы это сделать.
Кстати, я подумал, можно один цикл разпаралелить(приблизительно получится еще 20-30 процентов к скорости обработки), только я не знаю как это сделать.
Если можно приведите хоть бы просто пример в командах и с описанием.

Как сделать несколько потоков?

[Daramant]

В данном случае - для 2-х процессоров: можно в разных потоках посчитать 2 в 15500000 (31000000 / 2), а затем перемножить результаты.
P.S. Про реализацию потоков поищи на форуме, уже обсуждалось не раз.

[Iong]

Поищу. Спасибо за помощь. Натолкнули на идею.

[Stilet]

Iong

У меня проц - Кора Дуба. Вот после такого кода оба ядра ядренно загрузились на 100% (Аш винамп погас )

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
    function tf:dword;
       function tf2:dword;
var  tid:Cardinal; th,th2:THandle; q,w:Extended;
  Form1: TForm1;

implementation


{$R *.dfm}
 // Раз поток
 //********** FUNCTION **********
 function tf;
 var i:DWORD;
 begin
 repeat
    GetExitCodeThread(th,i);
    q:=q+0.0001;
    form1.Caption:=floattostr(q)+' '+floattostr(w);
    //sleep(100)
 until  i=11;
 form1.caption:='Âñå';
 end;
 //********** END FUNCTION ******  {}
// два поток
  //********** FUNCTION **********
 function tf2;
 var i:DWORD;
 begin
 repeat
    GetExitCodeThread(th,i);
        w:=w+0.0001;
//    form1.Caption:=floattostr(w);
    //sleep(100)
 until  i=11;
 form1.caption:='Âñå';
 end;
 //********** END FUNCTION ******  {}


procedure TForm1.FormCreate(Sender: TObject);
begin
th:=CreateThread(0,0,@tf,0,CREATE_NEW,tid);
th2:=CreateThread(0,0,@tf2,0,CREATE_NEW,tid);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
TerminateThread(th,11);
TerminateThread(th2,11);
end;

end.

Думаю разберешся, но тут бы неплохо немного код подкорректировать, он не соблюдает все условия безопасности (несинхронизирован)