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

function main()
dofile ("C:\\Program Files (x86)\\Lua\\5.1\\lua\\RSI.lua")
  while is_run do
    stime=getSTime()
    if stime==nil then stime=0 end
    sleep (1)

if stime>100000 and stime<184000 then --не считаем вне сессии
  func = RSI()

for sec in string.gmatch(ticker_list,"%a+") do
local rsi_count={}
ds = CreateDataSource(class, sec, INTERVAL_M5) 
sleep (1000)
    num_candles=ds:Size()
  for i=1,num_candles do
    rsi_count[i]=func(i, {Period=14, VType="Typical"}, ds)
  end 

        indicator[sec].rsi_0 = rsi_count[num_candles]
        indicator[sec].rsi_1 = rsi_count[num_candles-1]
        indicator[sec].rsi_2 = rsi_count[num_candles-2]

и так далее

    num_candles=ds:Size()
  for i=num_candles-50,num_candles do
    rsi_count[i]=func(i, {Period=14, VType="Typical"}, ds)
  end 

val_Up[I] = (val_Up[I-1] * (P-1) + Up[I]) / P

DataSource("TQBR","RASP",INTERVAL_M5)   
local num_candles=ds:Size()             
func=RSI()
local a=func(num_candles, {Period=12, VType="Typical", round=7}, ds)

Settings = {
Name = "*RSI (Relative Strength Index)", 
round = "off",
Period = 14, 
VType = "Close", --Open, High, Low, Close, Volume, Median, Typical, Weighted, Difference
line = {{
        Name = "RSI",
        Type = TYPE_LINE, 
        Color = RGB(255, 0, 0)
        }
        }
}

function Init() 
    func = RSI()
    return #Settings.line
end

function OnCalculate(Index) 
    return func(Index, Settings)
end

function RSI() --Relative Strength I("RSI")
    local Up = {}
    local Down = {}
    local val_Up = {}
    local val_Down = {}
return function (I, Fsettings, ds)
local Out = nil
local Fsettings=(Fsettings or {})
local P = (Fsettings.Period or 14)
local VT = (Fsettings.VType or "Close")
local R = (Fsettings.round or "off")
if I == 1 then
    Up[I] = 0
    Down[I] = 0
end
if I>1 then
    local Val = Value(I,VT,ds)
    local ValPrev = Value(I-1,VT,ds)
    if ValPrev < Val then
        Up[I] = Val - ValPrev
    else
        Up[I] = 0
    end
    if ValPrev > Val then
        Down[I] = ValPrev - Val
    else
        Down[I] = 0
    end
    if (I == P) or (I == P+1) then
        local sumU = 0
        local sumD = 0
        for i = I-P+1, I do
            sumU = sumU + Up[i]
            sumD = sumD + Down[i]
        end
        val_Up[I] = sumU/P
        val_Down[I] = sumD/P
    end
    if I > P+1 then
        val_Up[I] = (val_Up[I-1] * (P-1) + Up[I]) / P
        val_Down[I] = (val_Down[I-1] * (P-1) + Down[I]) / P
    end
    if I >= P then
        Out = 100 / (1 + (val_Down[I] / val_Up[I]))
        return rounding(Out, R)
    end
end
end
end

function rounding(num, round) 
if round and string.upper(round)== "ON" then round=0 end
if num and tonumber(round) then
    local mult = 10^round
    if num >= 0 then return math.floor(num * mult + 0.5) / mult
    else return math.ceil(num * mult - 0.5) / mult end
else return num end
end

function Value(I,VType,ds) 
local Out = nil
VType=(VType and string.upper(string.sub(VType,1,1))) or "A"
    if VType == "O" then        --Open
        Out = (O and O(I)) or (ds and ds:O(I))
    elseif VType == "H" then     --High
        Out = (H and H(I)) or (ds and ds:H(I))
    elseif VType == "L" then    --Low
        Out = (L and L(I)) or (ds and ds:L(I))
    elseif VType == "C" then    --Close
        Out = (C and C(I)) or (ds and ds:C(I))
    elseif VType == "V" then    --Volume
        Out = (V and V(I)) or (ds and ds:V(I)) 
    elseif VType == "M" then    --Median
        Out = ((Value(I,"H",ds) + Value(I,"L",ds)) / 2)
    elseif VType == "T" then    --Typical
        Out = ((Value(I,"M",ds) * 2 + Value(I,"C",ds))/3)
    elseif VType == "W" then    --Weighted
        Out = ((Value(I,"T",ds) * 3 + Value(I,"O",ds))/4) 
    elseif VType == "D" then    --Difference
        Out = (Value(I,"H",ds) - Value(I,"L",ds))
    elseif VType == "A" then    --Any
        if ds then Out = ds[I] else Out = nil end
    end
return Out
end

function mycallbackforallstocks(class,sec,index)         

расчёт логики, трудоёмкий процесс анализа
   
end

function DataSource(class,sec,interval)
   ds[sec] = CreateDataSource(class,sec,interval)
   ds[sec]:SetUpdateCallback(function(...) mycallbackforallstocks(class,sec,...) end)
   return ds[sec]
end

local num_candles=ds[sec]:Size()      
if index==num_candles then         
func = BB()              
line_10[sec],_,line_3[sec]=func(num_candles,...............)            
end

    local num_candles=ds[sec]:Size() 
    if index==num_candles then
        func = BB()     
        line_10[sec],_,line_3[sec]=func(num_candles,...............)      
     end

   if index==ds[sec]:Size()  then
        func = BB()     
        line_10[sec],_,line_3[sec]=func(ds[sec]:Size() ,...............)      
     end

function mycallbackforallstocks(class,sec,index)
    toLog (log, sec.." я в колбеке")
     func = BB()
     local num_candles=ds[sec]:Size()   
      line_10[sec],_,line_3[sec]=func(num_candles, {Period=60, Metod = "SMA", VType="Typical", round=4, Shift=7}, ds[sec])
      tbl:Highlight(line_count_table[sec],'SECURITY',WHITE,RED,1000)   
end

function DataSource(class,sec,interval)
   ds[sec] = CreateDataSource(class,sec,interval)
   ds[sec]:SetUpdateCallback(function(...) mycallbackforallstocks(class,sec,...) end)
   return ds[sec]
end

function main()
    while getSTime()==nil do sleep (10000) end
    dofile(getWorkingFolder().."\\LuaIndicators\\BB.lua")
    for sec in string.gmatch(ticker_list,"%a+") do
        line_count=line_count+1
        line_count_table[sec]=line_count
        line=tbl:AddLine()
        tbl:SetValue(line_count_table[sec],'SECURITY', sec)

        lot[sec]=getParamEx(class,sec,"lotsize").param_value
        step[sec]=getParamEx(class,sec,"SEC_PRICE_STEP").param_value
        line_10[sec]=0
        line_3[sec]=0

        last_price[sec]=tonumber(getParamEx(class,sec,"last").param_value)
            if last_price[sec]==0 or last_price[sec]==nil then
                last_price[sec]=tonumber(getParamEx(class,sec,"prevprice").param_value)
                toLog (log, sec.." при запуске нет цены последней сделки "..type(last_price[sec]))
            end

        tablebid = getParamEx(class,  sec, "bid") --получаем таблицу "bid"
        bid_best[sec]=tonumber(toPrice(sec, tablebid.param_value)) --из таблицы берЄм значение
        tableoffer = getParamEx(class,  sec, "offer") --получаем таблицу "offer"
        offer_best[sec]=tonumber(toPrice(sec, tableoffer.param_value)) --из таблицы берЄм значение
        
        local path=require"pl.path"
            if path.exists ("C:\\trash3\\ap"..sec..".log")==false then
            status_container ("C:\\trash3\\ap"..sec..".log", "sleep") --создаёт кто то один
            end
    
        DataSource(class,sec,interval)
        sleep (10)
        toLog (log, sec.." готова!!!")
        func = BB()         
        local num_candles=ds[sec]:Size()            
        line_10[sec],_,line_3[sec]=func(num_candles, {Period=12, Metod = "SMA", VType="Typical", round=4, Shift=2}, ds[sec])            
    end
    
  while is_run do
    stime=getSTime()
    if stime==nil then 
    stime=0 
    sleep (1)
    end

if stime>100000 and stime<184005 then --не считаем вне сессии

for sec in string.gmatch(ticker_list,"%a+") do
................................. и так далее.

 function mycallbackforallstocks(class,sec,index) 
    toLog (log, sec)    
 end

function DataSource(class,sec,interval)
   ds[sec] = CreateDataSource(class,sec,interval)
   ds[sec]:SetUpdateCallback(function(...) mycallbackforallstocks(class,sec,...) end)
   return ds[sec]
end

function DataSource(class,sec,interval)
   ds[sec] = CreateDataSource(class,sec,interval)

   ds[sec]:SetEmptyCallback ()
   return ds[sec]
end

function main()
    dofile(getWorkingFolder().."\\LuaIndicators\\BB.lua")
    for sec in string.gmatch(ticker_list,"%a+") do
        DataSource(class,sec,interval)
    end
  while is_run do
    stime=getSTime()
    if stime==nil then stime=0 end

if stime>100000 and stime<184005 then --не считаем вне сессии

for sec in string.gmatch(ticker_list,"%a+") do
    toLog (log, sec)
    toLog (log, "1")
    func = BB() 
    toLog (log, "2")
    local num_candles=ds[sec]:Size()     
    toLog (log, "3")    
    line_10,_,line_3=func(num_candles, {Period=12, Metod = "SMA", VType="Typical", round=4, Shift=2}, ds[sec])
    toLog (log, "4")
    -- tbl:SetValue(line_count_table[sec],'BB_middle', line_10)
    -- tbl:SetValue(line_count_table[sec],'BB_lower', line_3)    
    --sleep (1)

дальше не сложный анализ.
end

ds[sec]:SetUpdateCallback(function(...) mycallbackforallstocks(class,sec,...) end)

ds[sec]:SetEmptyCallback () ?

ds[sec]:SetUpdateCallback(function(...) mycallbackforallstocks(class,sec,...) end)

ds[sec]:SetUpdateCallback()

interval = INTERVAL_M1
ticker_list = "AFKS,AFLT,AKRN,ALRS,AVAZP,BANE,BANEP,CHMF,DIXY,FEES,GAZP,GCHE,GMKN,GRAZ,HYDR,IRAO,KMAZ,LKOH,LNTA,LSRG,MAGN,MFON,MGNT,MOEX,MSNG,MSRS,MSTT,MTLR,MTLRP,MTSS,MVID,NLMK,NMTP,NVTK,OGKB,PHOR,PIKK,PLZL,POLY,PRTK,RASP,ROSN,RSTI,RSTIP,RTKM,RTKMP,RUALR,SBER,SBERP,SIBN,SNGS,SNGSP,SVAV,TATN,TATNP,TGKA,TRMK,TRNFP,UPRO,URKA,VTBR,VZRZ,VZRZP,YNDX"

class="TQBR"
ds={}
is_run = true

 function mycallbackforallstocks(class,sec,index) 
   -- Теперь в колбеке нам доступны код и класс инструмента
   message(class .. " " .. security,1)
   -- Также доступны все параметры, которые приходят с колбеком из терминала
   xxx = index
end

function DataSource(class,sec,interval)
   ds[sec] = CreateDataSource(class,sec,interval)
   ds[sec]:SetUpdateCallback(function(...) mycallbackforallstocks(class,sec,...) end)
   return ds[sec]
end

function main()
    dofile(getWorkingFolder().."\\LuaIndicators\\MA.lua")
    for sec in string.gmatch(ticker_list,"%a+") do
    DataSource(class,sec,interval)
    end

    while is_run do

        for sec in string.gmatch(ticker_list,"%a+") do
            func = MA() 
            ma_out=func(ds[sec]:Size(), {Period=3, Metod = "EMA", VType="Close", round=2}, ds[sec])
        end
    end
end    

        EMA_TMP[I]=rounding((EMA_TMP[I-1]*(Period-1)+2*Value(I, VType, ds)) / (Period+1),round)