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

[lara197a]

Да все там проще, я к примеру писал структуру(если много значений), из нее делал массив.
Далее так
IF VAR1 THEN (команда сдвига)
FOR Cn:= 30 TO 0 BY-1 DO ( к примеру архив на месяц от 31 до 0-текущей даты)
ARRAY[cn+1]:= ARRAY[cn];
END_FOR
END_IF

[Yegor]

Господа, от перестановки слагаемых сумма не изменяется. Зачем двигать весь массив, если можно сдвинуть новое значение? Просто записывайте очередной элемент на место того, который надо удалить. Для этого всего-навсего нужен счётчик входящих элементов. Псевдокод:

count := count + 1;
array[count MOD size_of_array] := value;

(* Считаем среднее по массиву *)

Для пущей аккуратности и безболезненности за размер массива в цикле усреднения можно брать минимум между счётчиком и, собственно, размером массива.

[Валенок]

Зачем двигать весь массив, если можно сдвинуть новое значение?

Про это уже ответили :

..
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;

..в цикле усреднения..

А этот цикл зачем ?

[Yegor]

Про это уже ответили

Верно, не удосужился дочитать.

А этот цикл зачем ?

для последующего усреднения

[Валенок]

А без цикла никак ?

[Yegor]

С накапливающейся ошибкой — как.

[Валенок]

Да все так же

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

**********

nP:= nP + 1;
IF nP > 10 THEN
nP := 1;
END_IF;
average:=average+(yNew-ar[nP])/10;
ar[nP] := yNew;

[Yegor]

Вот оно и есть. Прогрессирующая потеря точности.

[Валенок]

А где прогрессирует ?
Всегда среднее последних 10-ти

PS
Для наглядности :
summ := summ -ar[nP] + yNew; (*ушел самый старый, на смену новый*)
averagwe:=summ / 10;

[Yegor]

В арифметических операциях с плавающей запятой не гарантируется точность результата. Эту неточность вы накапливаете в average.