Как улучшить код

[kirza]

Подскажите как представить ниже приведенный код в виде процедуры:

//3
repeat
//2
repeat
//1
repeat
i:=i+1;
if {(f_4DD(grad1,grad2,grad3,grad4,grad5,grad6) > 0) and } (q_des_5_464(Z) < 31) then begin
//**************
if (ches_5_464(Z) > max_D) then begin
max_D:=ches_5_464(Z);
opt_5_464[tm,0]:=Z[0];
opt_5_464[tm,1]:=Z[1];
opt_5_464[tm,2]:=Z[2];
opt_5_464[tm,3]:=ches_5_464(Z);
opt_5_464[tm,4]:=q_des_5_464(Z);
end;
//**********
end;
ProgressBar1.Position:=ProgressBar1.Position+1;
Update;
Z[0]:=Z[0]+stp;
if (abs(Z[0]) < 0.00001) then
Z[0]:=0;
until (Z[0] > 1.00001);
Z[0]:=-1;
ProgressBar1.Position:=0;
//
//2
i:=i+1;
if {(f_4DD(grad1,grad2,grad3,grad4,grad5,grad6) > 0) and } (q_des_5_464(Z) < 31) then begin
//**************
if (ches_5_464(Z) > max_D) then begin
max_D:=ches_5_464(Z);
opt_5_464[tm,0]:=Z[0];
opt_5_464[tm,1]:=Z[1];
opt_5_464[tm,2]:=Z[2];
opt_5_464[tm,3]:=ches_5_464(Z);
opt_5_464[tm,4]:=q_des_5_464(Z);
end;
//**********
end;
ProgressBar2.Position:=ProgressBar2.Position+1;
Update;
Z[1]:=Z[1]+stp;
if (abs(Z[1]) < 0.00001) then
Z[1]:=0;
until (Z[1] > 1.00001);
Z[1]:=-1;
ProgressBar2.Position:=0;
//
//3
i:=i+1;
if {(f_4DD(grad1,grad2,grad3,grad4,grad5,grad6) > 0) and } (q_des_5_464(Z) < 31) then begin
//**************
if (ches_5_464(Z) > max_D) then begin
max_D:=ches_5_464(Z);
opt_5_464[tm,0]:=Z[0];
opt_5_464[tm,1]:=Z[1];
opt_5_464[tm,2]:=Z[2];
opt_5_464[tm,3]:=ches_5_464(Z);
opt_5_464[tm,4]:=q_des_5_464(Z);
end;
//**********
end;
ProgressBar3.Position:=ProgressBar3.Position+1;
Update;
Z[2]:=Z[2]+stp;
if (abs(Z[2]) < 0.00001) then
Z[2]:=0;
until (Z[2] > 1.00001);
l:=Z[2]-1;
Z[2]:=-1;
ProgressBar3.Position:=0;

Хорошо еще, что здесь только 3 повтора, а нужно штук 20 и с рекурсией что-то никак сочинить не могу.

[GunSmoker]

http://www.gunsmoker.ru/2011/01/blog-post.html

[SNUPY]

Полностью поддерживаю пост GunSmoker... ну раз уж попросил, то вот накидал:

procedure f(ai: byte);
begin
  if ai>0 then
  begin
    f(ai-1);
    Z[ai-1]:=-1;
  end;
  repeat
    i:=i+1;
    if {(f_4DD(grad1,grad2,grad3,grad4,grad5,grad6) > 0) and } (q_des_5_464(Z) < 31) then
    begin
      //**************
      if (ches_5_464(Z) > max_D) then
      begin
        max_D:=ches_5_464(Z);
        opt_5_464[tm,0]:=Z[0];
        opt_5_464[tm,1]:=Z[1];
        opt_5_464[tm,2]:=Z[2];
        opt_5_464[tm,3]:=ches_5_464(Z);
        opt_5_464[tm,4]:=q_des_5_464(Z);
      end;
      //**********
    end;
    ProgressBar1.Position:=ProgressBar1.Position+1;
    Update;
    Z[ai]:=Z[ai]+stp;
    if (abs(Z[ai]) < 0.00001) then
    Z[ai]:=0;
  until (Z[ai] > 1.00001);
end;

[kirza]

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

if ai>0 then
  begin
    f(ai-1);
    Z[ai-1]:=-1;
  end;

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

Почитал тут: http://www.cyberforum.ru/cpp-beginne...ead228201.html и все получилось!!!!!

[SNUPY]

внутрь цикла зацикливает процедуру, т.к. параметр ai после принятия последнего значения остается неизменным.

не совсем понял о чем это вы?

[kirza]

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

procedure f(ai: byte);
begin
  if ai=3 {к примеру 3 вложенных цикла} then
exit;
  repeat
f(ai+1)
    i:=i+1;
    if {(f_4DD(grad1,grad2,grad3,grad4,grad5,grad6) > 0) and } (q_des_5_464(Z) < 31) then
    begin
      //**************
      if (ches_5_464(Z) > max_D) then
      begin
        max_D:=ches_5_464(Z);
        opt_5_464[tm,0]:=Z[0];
        opt_5_464[tm,1]:=Z[1];
        opt_5_464[tm,2]:=Z[2];
        opt_5_464[tm,3]:=ches_5_464(Z);
        opt_5_464[tm,4]:=q_des_5_464(Z);
      end;
      //**********
    end;
    ProgressBar1.Position:=ProgressBar1.Position+1;
    Update;
    Z[ai]:=Z[ai]+stp;
    if (abs(Z[ai]) < 0.00001) then
    Z[ai]:=0;
  until (Z[ai] > 1.00001);
Z[ai]:=-1;
end;

По крайней мере в таком виде у меня все работает!

[SNUPY]

procedure f(ai: byte);
var i: integer;
begin
  repeat
  if ai>0 then
  begin
    f(ai-1);
      Z[ai-1]:=-1;
    end;
    i:=i+1;
    if {(f_4DD(grad1,grad2,grad3,grad4,grad5,grad6) > 0) and } (q_des_5_464(Z) < 31) then
    begin
      //**************
      if (ches_5_464(Z) > max_D) then
      begin
        max_D:=ches_5_464(Z);
        opt_5_464[tm,0]:=Z[0];
        opt_5_464[tm,1]:=Z[1];
        opt_5_464[tm,2]:=Z[2];
        opt_5_464[tm,3]:=ches_5_464(Z);
        opt_5_464[tm,4]:=q_des_5_464(Z);
      end;
      //**********
    end;
    ProgressBar1.Position:=ProgressBar1.Position+1;
    Update;
    Z[ai]:=Z[ai]+stp;
    if (abs(Z[ai]) < 0.00001) then
    Z[ai]:=0;
  until (Z[ai] > 1.00001);
end;

Вызов для тройного вложения:

f(2);

[kirza]

Кстати, уважаемый SNUPY, думаю Вы заметили дурацкий кусок в моём коде:

if (abs(Z[ai]) < 0.00001) then
    Z[ai]:=0;
  until (Z[ai] > 1.00001);

У меня

Z[ai]

изменяется от -1 до 1 с шагом

stp

(частности 0,05), но почему-то получается не 0, а число близкое к нему и не 1, а что-то вроде 1,00000007548. Почему так случайно не знаете и как от этого избавиться?

[SNUPY]

как объявлены Z и Stp ?

[kirza]

type
    TX = array[0..5] of real;
...
  procedure optimize_ches_4_447_new(var Z: TX; stp: real; tm, inx: byte; var max_D: real);
...
var
  Form3: TForm3;
  Z: TX;