Стек, динамический массив в ПЛК, Codesys

[Frayl]

Добрый день. Необходим совет.
Хочется считывать значения с датчика в динамический массив типа стек или очередь (в конец массива вставил новый элемент, с начала 1 удалил), для последующего усреднения. Как бы это аккуратно и безболезненно организовать?

[lara197a]

Через цикл FOR.
По команде, к примеру когда новое значение не равно старому, запускаете цикл и присваиваете значения от предпоследнего к последнему и...до верха.

[capzap]

Добрый день. Необходим совет.
Хочется считывать значения с датчика в динамический массив типа стек или очередь (в конец массива вставил новый элемент, с начала 1 удалил), для последующего усреднения. Как бы это аккуратно и безболезненно организовать?

Обращайтесь к библиотеке oscat, в папке Logic\memory есть реализации и стека и "певый вошел первый вышел"

[Frayl]

Рабочая схема. Только немного неудобно цикл в цикле делать. Вроде бы попроще нашел. Может пригодится кому (или покритикует).

PROGRAM PLC_PRG
VAR
ar:ARRAY[1..10]OF BYTE:=0,1,2,3,4,5,6,7,8,9;
i:BYTE:=10;
END_VAR
SysMemMove(dwDest:=ADR(ar[1]),dwSrc:=ADR(ar[2]), dwCount:=9);
ar[10]:=i;
i:=i+1;
IF i=255 THEN i:=0; END_IF;

[capzap]

а разве цикл в цикле работает на ПЛК?

[Frayl]

не пробовал. поэтому сделал без FOR

[ksn33]

а разве цикл в цикле работает на ПЛК?

писал, работает! приходилось и дважды цикл вкладывать на ПЛК100!

[lazy]

Если усреднение это простое среднее из 10 то необязательно чтобы в буфере (массиве) они были по порядку. В смысле среднее равно сумме значений в буфере поделенное на их количество. Если так то можно без копирования. Просто затирать в массиве самый "древний" результат.

PROGRAM PLC_PRG
VAR
ar:ARRAY[1..10]OF BYTE:=0,1,2,3,4,5,6,7,8,9;
nP: INT;
yNew: BYTE; (* новое значение чего то там *)
END_VAR

**********

nP:= nP + 1;
IF nP > 10 THEN
nP := 1;
END_IF;

ar[nP] := yNew;

[Frayl]

значения новые по времени и идут постоянно по времени опроса датчика. В конкретном случае тензодатчика. Усреднение для понижения шума и вибраций
предыдущий вариант понравился. Но величина массива нужна переменная. Памяти то можно выделять по переменной.

[lazy]

В таком случае цикл программы может "покрутиться" несколько раз в то время как значения с датчиков могут оставаться без изменений. Поэтому важно в массив "класть" действительно "новые" значения. Если память нужно выделять "динамически". Попробуйте SysMemAlloc. Но работать придется не с индексами массива а с "указателем" на выделенную память.

dwBuffer: POINTER TO BYTE (* буфер *)
dwPointer: POINTER TO BYTE; (* указатель на текщее значение в буфере *)
dwSize: DWORD; (* размер буфера *)
yNew: BYTE; (* новое!!! значение с датчиков *)
bInit: BOOL;

*****************

IF NOT bInit THEN

dwBuffer:= SysMemAlloc ( dwSize + 1 ); (* + 1 на всякий случай *)
dwPointer := dwBuffer;
bInit := TRUE;

ELSE

IF (* если пришло новое значение *) THEN

dwPointer^ := yNew;

dwPointer := dwPointer + 1;
IF dwPointer > dwBuffer + dwSize THEN
dwPointer := dwBuffer;
END_IF;

END_IF;

END_IF;

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