Завершение одной процедуры из другой

[Shahimat]

Алекс, в принципе я кое в чем согласен, возможно и не стоит париться. Я когда делал проверки (а их я для кучи вариантов проводил), то действительно, наиболее сильный вариант - это goto с условием if EndCondition^ then exit;
Просто я предполагаю, тут уже по опыту, что есть теоретическая возможность как-то отследить положение "курсора считывания" и кинуть его в конец процедуры извне ее. К чему это приведет? Условие if отпадает как ненужное, что уже уменьшит число ненужных сравнений как минимум в 100 раз, у меня программа построена таковым образом, что повторений может быть и больше (не расчетов, а проверки условия if, перед тем, как выйти). Это-то меня и заставляет искать различные возможности, ведь если получиться, то (тут я уже предполагаю) можно добиться десятикратного увеличения производительности, а это существенно.
Резюме: не хочется оставлять эту задачу недобитой, хочется разобрать по полочкам и вынести вердикт, ведь в любом случае, я не один с ней столкнулся, поможет мне, поможет и другим.

[p51x]

К чему это приведет?

к тому что я написал. Вы будете обязаны разматать стек и вызвать нужные деструкторы или мириться с тем, что оно будет вести себя очень нестабильно/жрать память и т.д.

ведь если получиться, то (тут я уже предполагаю) можно добиться десятикратного увеличения производительности, а это существенно.

Не получите. Это вам не счетная машинка 30 летней давности, процы стали гораздо сложнее и умнее.

Есть еще один вариант: поменять алгоритм.

[Shahimat]

p51x, в принципе я вашу идею понял, как вариант отдельно рассмотрю.
Что касается алгоритма, то я в постоянном поиске, потому-то эту тему и поднял.

[Pavia]

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

[Shahimat]

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

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

Можете пояснить на примере пожалуйста? Как я if вынесу из цикла?

[Pavia]

В каждом случае это решается индивидуально. Как математическими задачами в школе.
Пусть есть такой код

for y:=0 to Height-1 do
   for x:=0 to Width-1 do
     if (sqr(x-cx)+sqr(y-cy)<=sqr(r)) then buf[x,y]:=color;

Очевидно что если вычислить приделы, то цикл можно переписать так

for y:=0 to Height-1 do
   begin
   ...
   for x:=x1 to x2 do
     buf[x,y]:=color;
   end;

Осталось найти x1 и x2, так как это формула простая то мы можем найти границу и подставить её.
sqr(x-cx)+sqr(y-cy)=sqr(r)
sqr(x-cx)=sqr(r)-sqr(y-cy)
x-cx=±sqrt(sqr(r)-sqr(y-cy));
x=cx±sqrt(sqr(r)-sqr(y-cy));

for y:=0 to Height-1 do
   begin
   x1:=round(cx-sqrt(sqr(r)-sqr(y-cy)));
   x2:=round(cx+sqrt(sqr(r)-sqr(y-cy)));
   ...
   for x:=x1 to x2 do
     buf[x,y]:=color;
   end;

Остаётся правильно обработать выход за границу буфера

for y:=0 to Height-1 do
   begin
   x1:=round(cx-sqrt(sqr(r)-sqr(y-cy)));
   x2:=round(cx+sqrt(sqr(r)-sqr(y-cy)));
   if x1<0 then x1:=0;
   if x2<0 then x2:=0;
   if x1>Width then x1:=Width;
   if x2>Width then x2:=Width;

   for x:=x1 to x2 do
     buf[x,y]:=color;
   end;

И данный код будет работать примерно раз в 100 быстрее изначального.

Другие примеры можно посмотреть в лекциях:
http://www.intuit.ru/studies/courses...2/lecture/5556

[Shahimat]

Pavia, спасибо конечно большое за совет... просто специфика задачи несколько другая)
в моей программе в том ответственном коде some2 не используется цикл for как таковой по той причине, что он тормознутый)

[p51x]

не используется цикл for как таковой по той причине, что он тормознутый)

Для вас может быть удивительным, но в машинных кодах все типы цикла практически одинаковы... по таким комментариям виден ваш уровень.

[Shahimat]

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

Для вас может быть удивительным, но в машинных кодах все типы цикла практически одинаковы... по таким комментариям виден ваш уровень.

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

[p51x]

Это открытый форум. Здесь может писать, кто угодно, пока не нарушает правили или законы. Так что закрой рот, а то я и послать могу.