Замена умножения и деления

[Alex Cones]

X Div Y * Y

На что более быстродейственное это можно заменить?

[DIgorevich]

Ну быстрее только ассемблерные вставки... А так разве медленно?

[Alex Cones]

Ну, насколько я помню, умножение и деление - самые медленные действия. Быстрее написать A+A, чем A*2

Кажись, нашел кое-что:

X mod Y = X - (X div Y) * Y.

Т.е.

X mod Y - X = - (X div Y) * Y.
X - (X mod Y) = X div Y * Y

Кажись так, если ничего не напутал...

[InternetStranger]

умножение и деление - самые медленные действия

На самом деле не совсем так. Сложение (вычитание), умножение выполняются очень даже быстро по сравнению с делением (по обстоятельствам раз в 5-15 быстрее).
Надо стараться избегать операции деления)

Вообще я обычно делаю замену z=1/y. и все операции деления превращаются в умножение. Но вот в вашем случае так видимо не получится.
Тут нужно математически оптимизировать )

[Alex Cones]

Не ну если даже так, левая часть уже должна выполнятся быстрее правой:

X - (X mod Y) = X div Y * Y

[InternetStranger]

Не думаю что получится соль нибудь ощутимого прироста. Тут слишком много нюансов. Нужно этот код профилировать непосредственно в программе.

Следующий нехитрый код:

procedure TForm1.Button1Click(Sender: TObject);
var x,y    : integer;
var z,q    : real;
begin
     x:= 1;
     y:= 5;
     z := X - (X mod Y);
     q := X div Y * Y;
     Button1.Caption := FloatToStr( z + q );
end;

компилируется вот в следующие строки. С точки зрения производительности не вижу никаких преимуществ: операция sub "поменялась" на imul (при целочисленных (?) операциях разница будет минимальна)
Alex Cones.jpg

ps: ориентируюсь на опубликованную документацию Intel ( ноябрь 2009 ):
Intel®64 and IA-32 Architectures Optimization Reference Manual

[Alex Cones]

Ну если выдрать код из проекта, то будет так:

FRMMain.Canvas.Draw(((P.X - Coord.Left) Div CELL_SIZE * CELL_SIZE) + Coord.Left, Coord.Top, BITLight);

P - TPoint

 TCoordn = Record
  Left   : Integer;
  Top    : Integer;
  Width  : Integer;
  Height : Integer;
 End;

CELL_SIZE - целочисленная константа.

[alexBlack]

Сообщение от Alex Cones

CELL_SIZE - целочисленная константа.

Случайно, не степень двойки ? Или даже так: нельзя ли изменить код, чтобы это была степень двойки ? Было бы совсем просто: x and not (y-1)

[Alex Cones]

64 ..............

Но хотелось бы увидеть в асме, как это изменится.

[alexBlack]

вот это?:

z := x and not (y-1)

mov ebx, edx  // y
dec  ebx  
not  ebx
and  ebx, eax

или даже так:

z := x and $FFFFFFC0;

mov  ebx, eax   // x
and  ebx, -$40