Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.03.03;
Скачать: [xml.tar.bz2];

Вниз

Оптимизация кода   Найти похожие ветки 

 
REA   (2003-02-19 15:37) [0]

Имеется фрагмент кода:

j := 0;
For i := StartIndex To StopIndex Do
Begin
PrjBuffer[j].X := Round(XOfs + XSegment[i]*XScl);
PrjBuffer[j].Y := Round(YOfs + YSegment[i]*YScl);
Inc(j);
End;

Хочется соптимизировать.
Сделал так:
i := StopIndex;
pSData := @XSegment.Data[i];
pYData := @YSegment.Data[i];
si := StartIndex;
pBuf := @PrjBuffer[LastPtIndex];
While i <> si Do
Begin
pBuf.X := Round(XOfs + pSData^*XScl);
pBuf.Y := Round(YOfs + pYData^*YScl);
Dec(pSData);
Dec(pYData);
Dec(pBuf);
Dec(i);
End;

Как еще можно ускорить? (желательно без ассемблера)


 
MBo   (2003-02-19 15:44) [1]

А что, второе быстрее???
Какие переменные вещественные?


 
REA   (2003-02-19 15:54) [2]

Второе вероятно быстрее: цикл по уменьшению, нет адресации к массивам, переменные перевел в локальные (на стек).
Вещественные: XOfs, pSData^, XScl, pYData^
Как свести к целочисленной математике не знаю.


 
Radionov Alexey   (2003-02-19 15:54) [3]

Чуток быстрее:
j := 0;
For i := StartIndex To StopIndex Do
with PrjBuffer[j] do
Begin
X := Round(XOfs + XSegment[i]*XScl);
Y := Round(YOfs + YSegment[i]*YScl);
Inc(j);
End;


Но лучше, конечно, знать саму задачу.


 
REA   (2003-02-19 15:57) [4]

Пробовал With - кажется ничего не дает. Ассемблерный код тот же.


 
REA   (2003-02-19 16:28) [5]

Сорри. Вместо <>, >=


 
REA   (2003-02-19 16:52) [6]

Даст ли что нибудь SetPrecisionMode(pmDouble) ?


 
MBo   (2003-02-19 17:05) [7]

нет. лучше объясни задачу


 
REA   (2003-02-19 17:11) [8]

Задача тривиальна.
Спроецировать на график (Массив пригодный для PolyLine) точки, хранящиеся в массивах X и Y с заданного индекса по заданный. Уровней проецирования много, но результирующие коэффициенты сводятся к Ax+B.


 
han_malign   (2003-02-19 17:47) [9]

ну допустим еще один декремент в цикле можно убрать - вполне можно
pBuf := @PrjBuffer[LastPtIndex];
pBBuf:= @PrjBuffer[0];//на всякий случай - надо разбираться с приведением массивного типа к указателю (от соглашений Delphi зависит и типа массива)
while(DWORD(pBuf)>DWORD(pBBuf))do ...

Кстати насчет dec(pBuf) - вы уверены что Delphi автоматически вычисляет шаг декремента по типу указателя, помоему нет???


 
REA   (2003-02-19 18:03) [10]

Очень даже вычисляет. Спасибо за подсказку.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.03.03;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.57 MB
Время: 0.039 c
8-5668
Dark Simpson
2002-11-20 00:29
2003.03.03
Задачка, мастера!


1-5634
Noname15
2003-02-15 16:08
2003.03.03
DateTimePicker


7-5898
Шонь-дзюнь
2002-11-21 12:41
2003.03.03
Блокировка монитора


14-5781
VictorT
2003-02-12 14:14
2003.03.03
Правописание.


1-5525
Checist [root]
2003-02-21 11:06
2003.03.03
Построчное чтение текста из Memo





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский