Станислав (Все сообщения пользователя)

--[[
    rman(src, len)

    src – таблица чисел (или «series»), длина которой должна быть >= len.
    len – количество элементов, которые будем обрабатывать.

    Возвращает: сумма квадратов разницы между позицией элемента после сортировки
    по убыванию его значения и исходной позицией в массиве.
--]]
function rman(src, len)
    -- 1) Собираем «матрицу» как таблицу вложенных таблиц:
    --      {value = <значение>, idx = <исходный индекс>}
    local m = {}
    for k = 1, len do
        local val = src[k] or 0          -- заменяем nil/NaN на 0 (nz в Pine)
        local idx = k - 1                -- Pine использует индексы от 0,
                                         -- поэтому смещаем на 1
        m[#m + 1] = {value = val, idx = idx}
    end

    -- 2) Сортируем по убыванию значения (первый столбец)
    table.sort(m, function(a, b)
        return a.value > b.value         -- descending order
    end)

    -- 3) Вычисляем сумму квадратов разницы позиций
    local sum = 0.0
    for i = 1, len do
        local diff = m[i].idx - (i - 1)   -- опять смещение индексов на 0
        sum = sum + diff * diff          -- math.pow(diff,2) можно заменить умножением
    end

    return sum
end

-- пример входных данных
local src = {5.2, nil, 3.7, 4.1, 0.9}
local len = #src          -- считаем все элементы

print(rman(src, len))     -- выведет сумму квадратов разниц

secondfile = io.open('fifobuys.csv', 'r+');

for line in secondfile:lines() do … end

local function read_all_lines(filename)
    local lines = {}
    for line in io.open(filename, "r"):lines() do
        table.insert(lines, line)
    end
    return lines
end

local function write_all_lines(filename, tbl)
    local f = io.open(filename, "w")
    for _, l in ipairs(tbl) do
        f:write(l .. "\n")
    end
    f:close()
end

local function remove_line(filename, line_to_remove)
    local lines = read_all_lines(filename)
    table.remove(lines, line_to_remove)   -- 1‑based index
    write_all_lines(filename, lines)
end

local tradeFile   = io.open("FifoTrades.csv", "a")   -- открываем для дозаписи

-- Если файл не существует – создаём пустой
if not tradeFile then
    tradeFile = io.open("FifoTrades.csv", "w")
end

BOOLEAN ParamRequest(STRING class_code, STRING sec_code, STRING db_name)