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

local t0 = os.clock()
local t1,t2,t3,t4,t5,t6,t7=t0,t0,t0,t0,t0,t0,t0  -- таймеры
-- функции исполняемого кода
function f1(x1) print(x1..", f1");   end
function f2(x1,x2) print(x1..", f2");   end
function f3(x1,x2,x3) print(x1..", f3");   end
function f4(x1,x2,x3,x4) print(x1..", f4");   end
function f5(x1,x2,x3,x4,x5) print(x1..", f5");   end
function f6(x1,x2,x3,x4,x5,x6) print(x1..", f6");   end
function f7(x1,x2,x3,x4,x5,x6,x7) print(x1..", f7");   end

 while true  do   --бесконечный цикл
local x=os.clock()
 if x-t1>1 then f1(x) t1=x end
 if x-t2>2 then f2(x,x2) t2=x end
 if x-t3>3 then f3(x,x2,x3) t3=x end
 if x-t4>4 then f4(x,x2,x3,x4) t4=x end
 if x-t5>5 then f5(x,x2,x3,x4,x5) t5=x end
 if x-t6>6 then f6(x,x2,x3,x4,x5,x6) t6=x end
 if x-t7>7 then f7(x,x2,x3,x4,x4,x6,x7) t7=x end
end

local timers = {
    [1] = function(...)
        for key, value in pairs({...}) do
            print("arg num=", key, " val=", value)
        end
    end
}
-- Заполнение таймеров одной функцией (влом копи-пастить)
for key, value in pairs({3, 5, 8, 9, 16}) do
    timers[value] = timers[1]
end
-- Цикл
while true do
    local tm = math.tointeger(os.clock())
    for sec, fun in pairs(timers) do
        if (tm % sec) == 0 then
            fun(tm, sec, "Любое количество", "аргументов!")
        end
    end
    sleep(100)
end

arg num=   1    val=   6767.77
arg num=   2    val=   6768.88
arg num=   3    val=   Любое количество
arg num=   4    val=   аргументов!

local timers = {
    [1] = function(...)
        for key, value in pairs({...}) do
            print("arg num=", key, " val=", value)
        end
    end
}
-- Заполнение таймеров одной функцией (влом копи-пастить)
for key, value in pairs({3, 5, 8, 9, 16}) do
    timers[value] = timers[1]
end
-- Цикл
local tmlast = 0
while true do
    local tm = os.clock()
    local fun = timers[math.tointeger(tm - tmlast)]
    if fun then
        fun(tm, tmlast, "Любое количество", "аргументов!")
    end
    tmlast = tm
end

local rd = require("roffild")

function main()
    ISRUN = true
    while ISRUN and rd.isTradingAllowed() ~= true do
        sleep(1000)
    end
    message("started")
    while ISRUN do
        if rd.isTradingAllowed() then
            -- здесь основной код
        end
        sleep(100) -- 0.1сек
    end
end

function OnStop(flag)
    ISRUN = false
    return 3000 -- Timeout
end

---@type qlmoney_limits
local tbl = getItem("money_limits", 2)

Settings = {
    Name = "Tester",
    Step = 0,
    line = {}
}

LINES = 1

for x = 1, LINES, 1 do
    Settings.line[x] = {
        Name = "Line" .. tostring(x),
        Type = TYPE_LINE,
        Color = RGB(255, 255, 255),
        Width = 1
    }
end

function Init()
    LINES = #Settings.line
    return LINES
end

function OnCalculate(index)
    local start = O(index)
    if start == nil then
        return nil
    end
    return indicMoneyFlowIndex(indicToDataSource(), 6, Size()-index)
end

---Money Flow Index
---@param datasource fnCreateDataSourceReturn DataSource
---@param period number Период
---@param shift number Сдвиг в барах
---@return number
function indicMoneyFlowIndex(datasource, period, shift)
    if shift == nil then
        shift = 0
    end
    local stop = datasource.Size() - shift
    local start = stop - period
    if start < 1 or stop < 1 then
        return nil
    end
    local pos = 0.0
    local neg = 0.0
    local last = (datasource.H(start) + datasource.L(start) + datasource.C(start)) / 3.0
    for x = start+1, stop, 1 do
        local tp = (datasource.H(x) + datasource.L(x) + datasource.C(x)) / 3.0
        if tp >= last then
            pos = pos + (tp * datasource.V(x))
        else
            neg = neg + (tp * datasource.V(x))
        end
        last = tp
    end
    if neg ~= 0.0 then
        return 100.0 - (100.0 / (1.0 + (pos / neg)))
    else
        return 100.0
    end
end

---DataSource for Indicator
---@return fnCreateDataSourceReturn
function indicToDataSource()
    return {["O"] = O, ["H"] = H, ["L"] = L, ["C"] = C, ["V"] = V, ["T"] = T, ["Size"] = Size}
end

function OnCalculate(index)
    local start = O(index)
    if start == nil then
        return nil
    end
    if MINSTEP == nil then
        local info = getDataSourceInfo()
        local secinfo = getSecurityInfo(info.class_code, info.sec_code)
        MINSTEP = secinfo.min_price_step
        STEP = Settings.Step
        -- ..........
    end
    local result = {}
    start = start - ((math.tointeger(rd.round(start / MINSTEP)) % STEP) * MINSTEP) + FIRST
    for x = 1, LINES, 1 do
        table.insert(result, start - (x * STEP * MINSTEP))
    end
    return table.unpack(result)
end