Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 09.02.2018, 17:25
DrInfinity DrInfinity вне форума
Прохожий
 
Регистрация: 09.02.2018
Сообщения: 6
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Цикл в цикле некорректно работает

Люди добрые помогите. Я с делфи7 знаком неделю, жизнь заставила написать программу, но корректно работать не хочет. Суть проблемы такая:
я сравниваю двумерные массивы и найденными значениями заполняю stringgrid, значения ищутся с с увеличением погрешности, если не нашел, и т.д. пока погрешность не дойдет до максимальной, первая погрешность работает, а вторая не работает В коде подписано //сравнение данных по оборотам.
Что я делаю не так?

код:
Код:
procedure TForm1.Button3Click(Sender: TObject); //поиск бцн
label
  point;
var
  i : integer;
  k : integer;
  y : integer;
  s,q : real;
  o,p : real;
  pogrdz:real;
  pogrrpm:real;

  begin
  //показать и сбросить прогресс бар
   progressbar2.Visible:=true;
   progressbar2.Position:=0;
   pogrdz:=0;
   pogrrpm:=0;

   //gotolabel:
    //перебор квантований
   for k := 1 to stringgrid2.ColCount-1 do
   for y := 1 to stringgrid2.RowCount-1 do
   for i := 1 to stringgrid1.RowCount-1 do
   if (stringgrid1.Cells[1,i]<>'') and (stringgrid2.Cells[k,0]<>'') then //пропуск пустых ячеек
   //pogrdz<strtofloat(inttostr(TrackBar1.Position))*0.1
    //strtofloat(inttostr(TrackBar1.Position))*0.1;
      begin
         //сравнение данных дросселя
         progressbar2.Position:=round(100*(k+1)/stringgrid3.ColCount-1); //меняем положение прогресс бар
         s:=0;
         s:=s + strtofloat(stringgrid1.Cells[1,i]);
         q:=0;
         q:=q + strtofloat(stringgrid2.Cells[k,0]);
         if ((q-pogrdz<=s) and (s<=q+pogrdz)) then
                   begin
                   //сравнение данных оборотов
                   if (stringgrid1.Cells[0,i]<>'') and (stringgrid2.Cells[0,y]<> '')then  //пропуск пустых ячеек
                          begin
                          o:=0;
                          o:=o+ strtofloat(stringgrid1.Cells[0,i]);
                          p:=0;
                          p:=p+ strtofloat(stringgrid2.Cells[0,y]);
                          //pogrrpm:=strtofloat(inttostr(TrackBar3.Position));
                          if ((p-pogrrpm<=o) and (o<=p+pogrrpm))then
                                                  begin
                                                   if stringgrid2.Cells[k,y]='' then
                                                   stringgrid2.Cells[k,y]:=stringgrid1.Cells[2,i]
                                                   end;

                          end else if pogrrpm < strtofloat(inttostr(TrackBar3.Position)) then pogrrpm:=pogrrpm+1; Edit2.Text:= floattostr(pogrrpm);

       end else if pogrdz < strtofloat(inttostr(TrackBar1.Position))*0.1 then pogrdz:=pogrdz+0.1;  Edit1.Text:= floattostr(pogrdz);
    end;
  progressbar2.Visible:=false; //скрываем прогресс бар
  end;

lmikle: Используем ПРАВИЛЬНЫЕ теги.
Вложения
Тип файла: rar proga.rar (459.9 Кбайт, 0 просмотров)

Последний раз редактировалось lmikle, 09.02.2018 в 23:57.
Ответить с цитированием
  #2  
Старый 10.02.2018, 00:05
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,003
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Что-то мне кажется, что ты что-то напутал в реализации алгоритма.
Можешь рассказать сам принцип, а то у тебя получается, что ты сравниваешь все ячейки со всеми, что, как мне кажется, не правильно.

ЗЫ. Сравнивать по епислон лучше так:
Код:
function CompareValues(a, b, eps : Extended) : Boolean;
begin
  Result := abs(a-b) < abs(eps);
end;
Ну и убери паразитные строки типа
Код:
variable := 0;
Плюс поправь форматирование кода, а то нечитабельно.
Ответить с цитированием
  #3  
Старый 10.02.2018, 13:55
DrInfinity DrInfinity вне форума
Прохожий
 
Регистрация: 09.02.2018
Сообщения: 6
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от lmikle
Что-то мне кажется, что ты что-то напутал в реализации алгоритма.
Можешь рассказать сам принцип, а то у тебя получается, что ты сравниваешь все ячейки со всеми, что, как мне кажется, не правильно.

ЗЫ. Сравнивать по епислон лучше так:
Код:
function CompareValues(a, b, eps : Extended) : Boolean;
begin
  Result := abs(a-b) < abs(eps);
end;
Ну и убери паразитные строки типа
Код:
variable := 0;
Плюс поправь форматирование кода, а то нечитабельно.

Спасибо что откликнулись!
Код поправлю.
Паразитные строки уберу.
Все правильно, я всю таблицу со всей сравниваю, мне надо разделить циклы, но вот как?
Пытался использовать GOTO Label, вообще программа уходила в бесконечный цикл.
Код:
Цель такая
 Берем одно число(они заданы как квантования во второй
 таблице, в 0 столбце(обороты) и 0 строке(положение дроссельной заслонки))
 ищем ПДЗ в нужном столбце таблицы 1, если не находим, 
то добавляем допуск +0,1(например ищем 3, если не находим, 
то пойдет и 2,9 и 3,1),
если не нашли, добавляем еще 0,1, и так пока не упремся в значение
 которое задано в трек баре 1, если не находим ни чего, 
то выбираем следующее значение ПДЗ, если нашли нужное ПДЗ, то в 
той строке таблицы 1 ищем обороты, начиная с значения 
заданного во второй таблице (кванты)[0,1], пусть там 600, ищем сначала
 точное совпадение, не нашли ищем уже (с шагом 1) 
599 и 601, не нашли 598 и 602, и так пока не упремся в максимальную 
погрешность заданную в трек бар 3, если нашли записали 
значение в таблицу 2, в место пересечения оборотов и ПДЗ , если нет
 тогда выбираем значение из таблицы 2 [0,2] и до конца столбца идем,
 если больше ни чего нет выбираем следующее положение ПДЗ.

Последний раз редактировалось DrInfinity, 10.02.2018 в 14:11.
Ответить с цитированием
  #4  
Старый 11.02.2018, 14:13
DrInfinity DrInfinity вне форума
Прохожий
 
Регистрация: 09.02.2018
Сообщения: 6
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

получилось! может кому пригодится.

Код:
procedure TForm1.Button3Click(Sender: TObject); //ïîèñê áöí
var
  i : integer;
  k : integer;
  y : integer;
  b : integer;
  e : integer;
begin
for e := 1 to TrackBar3.Position do
for b := 1 to TrackBar1.Position do
for k := 1 to stringgrid2.ColCount-1 do
for i := 1 to stringgrid1.RowCount-1 do
if (stringgrid2.Cells[k,0]<>'') and (stringgrid1.Cells[1,i]<>'') then
if (abs((strtofloat(stringgrid1.Cells[1,i]))-(strtofloat(stringgrid2.Cells[k,0])))<=(strtofloat(inttostr(b))*0.1)) then
for y := 1 to stringgrid2.RowCount-1 do
if (stringgrid2.Cells[0,y]<>'') then
if (abs((strtofloat(stringgrid1.Cells[0,i]))-(strtofloat(stringgrid2.Cells[0,y])))<=(strtofloat(inttostr(e)))) then
begin
Edit2.Text:=inttostr(y);
Edit1.Text:=inttostr(i);
if stringgrid2.Cells[k,y]='' then
stringgrid2.Cells[k,y]:=stringgrid1.Cells[2,i];  break;
end;
end;
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 17:56.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter