local RingBuffer = {}
RingBuffer.__index = RingBuffer

function RingBuffer:new(size)

    local o = {
        buffer = {},
        size = size,
        head = 0,
        count = 0
    }

    setmetatable(o, self)
    return o
end

function RingBuffer:push(value)

    self.head = (self.head % self.size) + 1
    self.buffer[self.head] = value

    if self.count < self.size then
        self.count = self.count + 1
    end
end

function RingBuffer:get(i)

    if i > self.count then
        return nil
    end

    local idx = (self.head - self.count + i - 1) % self.size + 1
    return self.buffer[idx]
end

function RingBuffer:last()

    if self.count == 0 then
        return nil
    end

    return self.buffer[self.head]
end

function RingBuffer:values()

    local out = {}

    for i = 1, self.count do
        out[i] = self:get(i)
    end

    return out
end

function RingBuffer:clear()

    self.buffer = {}
    self.head = 0
    self.count = 0

end

return RingBuffer

-- Класс Stack (LIFO)
Stack = {}
Stack.__index = Stack

function Stack:new(max_size)
    local o = {
        elements = {},      -- таблица-хранилище
        max_size = max_size or 5,  -- по умолчанию храним 5 элементов
        count = 0
    }
    setmetatable(o, Stack)
    return o
end

-- Добавить элемент наверх (push)
function Stack:push(value)
    table.insert(self.elements, value)
    self.count = self.count + 1
    
    -- Если превышен максимальный размер, удаляем самый старый (снизу)
    if self.count > self.max_size then
        table.remove(self.elements, 1)  -- удаляем первый (самый старый)
        self.count = self.max_size
    end
end

-- Удалить и вернуть верхний элемент (pop)
function Stack:pop()
    if self.count == 0 then return nil end
    local value = table.remove(self.elements)  -- удаляем последний
    self.count = self.count - 1
    return value
end

-- Посмотреть верхний элемент без удаления (peek)
function Stack:peek()
    if self.count == 0 then return nil end
    return self.elements[self.count]
end

-- Получить все элементы в порядке от старого к новому (для отображения)
function Stack:get_all()
    return self.elements
end

-- Получить все элементы в обратном порядке (новые сверху)
function Stack:get_all_reversed()
    local rev = {}
    for i = self.count, 1, -1 do
        table.insert(rev, self.elements[i])
    end
    return rev
end

-- Текущий размер
function Stack:size()
    return self.count
end

-- В начале скрипта, после конфигурации
local deltaP_stack = Stack:new(20)   -- для нормализации (20 значений)
local deltaQ_stack = Stack:new(20)

local c_stack = Stack:new(5)         -- для отображения последних 5 значений
local alpha_stack = Stack:new(5)
local signal_stack = Stack:new(5)

-- для отображения исходных данных (опционально)
local deltaP_display_stack = Stack:new(5)
local deltaQ_display_stack = Stack:new(5)
local deltaOI_display_stack = Stack:new(5)
local deltaNB_display_stack = Stack:new(5)
local deltaNA_display_stack = Stack:new(5)

tbl[#tbl] = nil          -- удалить последний элемент таблицы

  tbl  =  {}          -- создать таблицу 
tbl[ # tbl +  1 ]  =  v      -- добавить в конец таблицы 
v  =  tbl[ # tbl]        -- получить последний элемент таблицы 
tbl[ # tbl]            -- удалить последний элемент таблицы   

• Push — добавляет новый элемент в стек. practicum.yandex.ru
  
• Pop — удаляет элемент, который находится сверху. practicum.yandex.ru
  
• Peek (или Top) — показывает верхний элемент стека, но не убирает его. practicum.yandex.ru
  
• Size — возвращает количество элементов, которые находятся в стеке. practicum.yandex.ru
  

• Программирование — например, когда одна задача вызывает другую и нужно вернуться обратно после завершения. practicum.yandex.ru
  
• История действий в браузере — каждый переход по ссылке сохраняется в стек, при нажатии «Назад» происходит pop, и открывается предыдущая страница. practicum.yandex.ru
  
• Управление товарными запасами на складе — первыми отгружаются товары, поступившие на склад последними. Новая партия размещается поверх предыдущей, что упрощает процессы погрузки и разгрузки. skladolog.ru
  

tbl = {}         -- создать таблицу
tbl[#tbl+1] = v     -- добавить в конец таблицы
v = tbl[#tbl]       -- получить последний элемент таблицы
tbl[#tbl]           -- удалить последний элемент таблицы

local LIFO = {}
LIFO.__index = LIFO
function LIFO.new()
  return setmetatable({}, LIFO)
end
function LIFO:push(v)
  self[#self+1] = v
end
function LIFO:pop()
  local idx = #self
  if idx == 0 then return nil end
  local v = self[idx]
  self[idx] = nil
  return v
end

function F_SMA()
   local sum = {}
   local it = {p=0, l=0}
return function (I, P, VT, ds)
   if I == 1 then
      sum = {}
      it = {p=0, l=0}
   end
   if CandleExist(I,ds) then
      if I~=it.p then it={p=I, l=it.l+1} end
      local Ip,Ipp,Ippp = Squeeze(it.l,P),Squeeze(it.l-1,P),Squeeze(it.l-P,P)
      sum[Ip] = (sum[Ipp] or 0) + GetValueEX(it.p,VT,ds)
      if it.l >= P then
         return (sum[Ip] - (sum[Ippp] or 0)) / P
      end
   end
return nil
end
end

local lifo=List.new() List.pushlast(lifo,i) List.popfirst(lifo)

local fifo=List.new() List.pushfirst(fifo,i) List.popfirst(fifo)

local list=List.new()
local length=10; local M=1000--00--00
print("объем начального массива", M, "Кол. элементов в созданном length=",length);
local count1 = collectgarbage("count") -- получаем текущий размер памяти
------------------------------ LIFO
for i=1, M do 
 
print(i, ')','Начальные индексы', 'list.first =', list.first, '; list.last =', list.last )

List.pushlast(list,i)
print(i, ')','Вставил', 'index list.last =', list.last,'; присвоил значение элементa =',list[list.last], '(',collectgarbage("count"),')' )

if i>length then 
List.popfirst(list)
print( i, 'Операция - Удаление первого:', ')', 'присвоил индекс первоve элементу =', list.first, 'вернул значение первого элементa =', list[list.first] ,'(',collectgarbage("count"),')' ) --, list.first
end

end
print("LIFO (вариант реализации стека с помощью двусторонней очереди.) ----------------------");
print("начальный объем занятой памяти",count1);

print("число элементов в LIFO list после "..(M).." циклов функции рор=" ..(list.last-list.first))
local countOUT = collectgarbage("count")
print("объем занятой памяти",countOUT);
--------------------------------
collectgarbage("collect")
print("объем занятой памяти после сборщика мусора",collectgarbage("count"));

объем начального массива   1000   Кол. элементов в созданом length=   10
1   )   Начальные индексы   list.first =   0   ; list.last =   0
1   )   Вставил   index list.last =   1   ; присвоил значение элементa =   1   (   27.3759765625   )
2   )   Начальные индексы   list.first =   0   ; list.last =   1
2   )   Вставил   index list.last =   2   ; присвоил значение элементa =   2   (   28.4384765625   )
3   )   Начальные индексы   list.first =   0   ; list.last =   2
3   )   Вставил   index list.last =   3   ; присвоил значение элементa =   3   (   28.5166015625   )
4   )   Начальные индексы   list.first =   0   ; list.last =   3
4   )   Вставил   index list.last =   4   ; присвоил значение элементa =   4   (   28.5634765625   )
5   )   Начальные индексы   list.first =   0   ; list.last =   4
5   )   Вставил   index list.last =   5   ; присвоил значение элементa =   5   (   28.6728515625   )
6   )   Начальные индексы   list.first =   0   ; list.last =   5
6   )   Вставил   index list.last =   6   ; присвоил значение элементa =   6   (   28.7197265625   )
7   )   Начальные индексы   list.first =   0   ; list.last =   6
7   )   Вставил   index list.last =   7   ; присвоил значение элементa =   7   (   28.7666015625   )
8   )   Начальные индексы   list.first =   0   ; list.last =   7
8   )   Вставил   index list.last =   8   ; присвоил значение элементa =   8   (   28.8134765625   )
9   )   Начальные индексы   list.first =   0   ; list.last =   8
9   )   Вставил   index list.last =   9   ; присвоил значение элементa =   9   (   28.9853515625   )
10   )   Начальные индексы   list.first =   0   ; list.last =   9
10   )   Вставил   index list.last =   10   ; присвоил значение элементa =   10   (   29.0146484375   )
11   )   Начальные индексы   list.first =   0   ; list.last =   10
11   )   Вставил   index list.last =   11   ; присвоил значение элементa =   11   (   29.0625   )
11   Операция - Удаление первого:   )   присвоил индекс первоve элементу =   1   вернул значение первого элементa =   1   (   29.1484375   )
.........
1000   )   Начальные индексы   list.first =   989   ; list.last =   999
1000   )   Вставил   index list.last =   1000   ; присвоил значение элементa =   1000   (   51.08203125   )
1000   Операция - Удаление первого:   )   присвоил индекс первоve элементу =   990   вернул значение первого элементa =   990   (   51.109375   )

LIFO (вариант реализации стека с помощью двусторонней очереди.) ----------------------
начальный объем занятой памяти   26.5283203125
число элементов в LIFO list после 1000 циклов функции рор=10
объем занятой памяти   51.28125
объем занятой памяти после сборщика мусора   30.7470703125