Добавить математику в цикл

[SilverFish]

График строиться с большим кол-вом точек. Хочется сохранить прямые линии на графике и при этом не выводить все точки.
Если расскоментировать строчки в цикле ниже, то теряются прямые участки на графике в этом втором цикле.
Можно ли как-то модифицировать цикл, чтобы убирать точки с одинаковыми показаниями, но при этом сохранить достоверность графика (прямые линии/возрастание/убывание). Было бы идеально не выводить точки в красной рамке на рисунке.
Спасибо.

Код

int i;
double Val = 0;
double PreviosVal = 0;
TDateTime Head;
for(i = 0; i  UniMainModule()->ClientDataSetGraphic->RecordCount; i++)
               {
 
            Val = UniMainModule()->ClientDataSetGraphic->FieldByName(L"temperature")->AsFloat;
               Head = UniMainModule()->ClientDataSetGraphic->FieldByName(L"curenttime")->AsDateTime;
            //if(PreviosVal != Val)
                       UniLineSeries1->Add(Val, Head);
 
             //PreviosVal = Val;
             UniMainModule()->ClientDataSetGraphic->Next();
           }
 

[POV]

Средствами чарта никак. Это просто отображалка.
Надо самому выводя очередную точку сравнить её ординату с прошлой - если не изменилась, то и не выводить.
Добавлять точки конечно же методом AddXY чтобы абсцисса указывалась принудительно.

Твой код кажется так и делает.. Значит сравнивать нужно на попадание в диапазон:
if (fabs(last-current) > delta) то добавляем точку

[SilverFish]

А что если "бегать" по точкам ClientDataSet-а?
Правда график совсем по другому теперь выглядит.  

Код

 int i;
double Val = 0;
TDateTime Head;
for(i = 0; i  UniMainModule()->ClientDataSetGraphic->RecordCount; i++)
          {
                //первая точка
                  if(i == 0)
                  {
                   Val = UniMainModule()->ClientDataSetGraphic->FieldByName(L"temperature")->AsFloat;
               Head = UniMainModule()->ClientDataSetGraphic->FieldByName(L"curenttime")->AsDateTime;
            UniLineSeries1->Add(Val, Head);
                  UniMainModule()->ClientDataSetGraphic->Next();
           }
 
              if(i != UniMainModule()->ClientDataSetGraphic->RecordCount)
                   {
                        //анализ точки и ее окружения
                        //текущая точка
                      double DotNow = UniMainModule()->ClientDataSetGraphic->FieldByName(L"temperature")->AsFloat;
                     //предыдущая точка
                   UniMainModule()->ClientDataSetGraphic->Prior();
                        double DotPrevious = UniMainModule()->ClientDataSetGraphic->FieldByName(L"temperature")->AsFloat;
                        //точка после текущей
                        UniMainModule()->ClientDataSetGraphic->Next();
                         UniMainModule()->ClientDataSetGraphic->Next(); //встать на следущую точку
                         double DotNext = UniMainModule()->ClientDataSetGraphic->FieldByName(L"temperature")->AsFloat;
                    //и вернуться к текущей
                      UniMainModule()->ClientDataSetGraphic->Prior();
                        if(DotNow == DotPrevious && DotNow == DotNext)
                        {
                               UniMainModule()->ClientDataSetGraphic->Next();
                         continue;
                          }
 
                     Head = UniMainModule()->ClientDataSetGraphic->FieldByName(L"curenttime")->AsDateTime;
                    UniLineSeries1->Add(DotNow, Head);
 
                 }
 
             UniMainModule()->ClientDataSetGraphic->Next();
 
               }
 

[SilverFish]

По моему что-то не правильно. А что если точек всего две или три...

[POV]

Задача поставлена некорректно. Что значит много точек, мало точек.... Хочется-то чего?

На чарте линейные участки (не только горизонтальные) можно описывать лишь двумя крайними точками. Линию между ними он и сам нарисует.

Если точек всего две, то и выкидать нечего.

[SilverFish]

Код

Хочется-то чего?

Того, что показано в первом посте на рисунке. Откинуть точки на прямых участках. Я так понимаю достоверность графика не нарушиться если будут откинуты одинаковые значения на прямых участках.
Если подводные камни в этом коде:

Код

int i;
double Val = 0;
TDateTime Head;
double DotNow = 0;
double DotPrevious = 0;
double DotNext = 0;
 
for(i = 0; i  UniMainModule()->ClientDataSetGraphic->RecordCount; i++)
             {
                //если только три точки - все их и выводим
              if(UniMainModule()->ClientDataSetGraphic->RecordCount  3)
                   {
                       Val = UniMainModule()->ClientDataSetGraphic->FieldByName(L"temperature")->AsFloat;
                    Head = UniMainModule()->ClientDataSetGraphic->FieldByName(L"curenttime")->AsDateTime;
                 UniLineSeries1->Add(Val, Head);
                       UniMainModule()->ClientDataSetGraphic->Next();
                 continue;
                  }
 
             //сюда попадаем если точек больше чем три и
             //первую точку надо нарисовать и перейти на вторую
              if(i == 0)
                  {
                   Val = UniMainModule()->ClientDataSetGraphic->FieldByName(L"temperature")->AsFloat;
               Head = UniMainModule()->ClientDataSetGraphic->FieldByName(L"curenttime")->AsDateTime;
            UniLineSeries1->Add(Val, Head);
                  UniMainModule()->ClientDataSetGraphic->Next();
            continue;
                 }
 
              //если точка последняя нарисуем ее без анализа
                  if(i == UniMainModule()->ClientDataSetGraphic->RecordCount)
                  {
                   Val = UniMainModule()->ClientDataSetGraphic->FieldByName(L"temperature")->AsFloat;
               Head = UniMainModule()->ClientDataSetGraphic->FieldByName(L"curenttime")->AsDateTime;
            UniLineSeries1->Add(Val, Head);
                  //UniMainModule()->ClientDataSetGraphic->Next();
                  break;
            }
 
              //сюда попадаем если точек больше трех и делаем анализ значений
                 //анализ точки и ее окружения
                  //текущая точка
                      DotNow = UniMainModule()->ClientDataSetGraphic->FieldByName(L"temperature")->AsFloat;
                         //предыдущая точка
                   UniMainModule()->ClientDataSetGraphic->Prior();
                        DotPrevious = UniMainModule()->ClientDataSetGraphic->FieldByName(L"temperature")->AsFloat;
                    //точка после текущей
                        UniMainModule()->ClientDataSetGraphic->Next(); //вернемся на текущую
                      UniMainModule()->ClientDataSetGraphic->Next(); //встать на следущую точку
                         DotNext = UniMainModule()->ClientDataSetGraphic->FieldByName(L"temperature")->AsFloat;
 
                    //и вернуться к текущей для дальнейшей работы цикла
                  UniMainModule()->ClientDataSetGraphic->Prior();
 
                    //анализ и откидывание повторяющихся значений
                        if(DotNow == DotPrevious && DotNow == DotNext)
                        {
                               UniMainModule()->ClientDataSetGraphic->Next();
                         continue;
                          }
 
                    //рисуем если есть отличия
                   Head = UniMainModule()->ClientDataSetGraphic->FieldByName(L"curenttime")->AsDateTime;
                         UniLineSeries1->Add(DotNow, Head);
 
 
             UniMainModule()->ClientDataSetGraphic->Next();
           }
 

[POV]

Сорри, пытать код некогда. Но "достоверность" действительно не нарушится.
А зачем вообще нужно выкидывать точки? Хочется показать моменты измерения узлами?

[SilverFish]

А зачем вообще нужно выкидывать точки?

Потому что в реальности точек может быть ОЧЕНЬ много - долгое построение, каша и т.п.

P.S.
Нет мой код вроде не до конца правильный...

[SilverFish]

Мой алгоритм становиться бесполезным, если все показания разные. На рисунке ниже график с разными показаниями и огромным числом точек. Все точки выводятся на график. Точки перекрывают друг друга, отсюда и жирные линии.
Можно ли придумать алгоритм, что если точка перекрывает соседнюю, то не выводить ее? Хотелось бы иметь график, на котором точки бы не перекрывали друг друга. Может надо анализировать размер чарта в пикселях и размер точки в пикселях и как-то это использовать?
Как правильно решить такую задачу?
Спасибо.

[POV]

Ну так а зачем же тогда выводить эти кружочки если их хочется частично выбросить?
Оставить одну лишь линию.
Вопрос редактирования данных для их отображения "интимен". Он зависит от чувства прекрасного, технических требований и физического обоснования этих данных ))

[SilverFish]

Ничего не поняла из вашего сообщения.
Повторюсь: как получить похожий график, без наложения точек друг на друга? Какой алгоритм поможет понять, что точка перекрывает соседнию и ее тогда надо отбросить?