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

function continue ()
--бла-бла-бла

end

for i=1, 10 do

   if i==5 then continue() end
--бла-бла

end

function fn(t)

    if stop_search then return nil end --stop_search - это флаг. Изначально равен nil

    if t.sec_code == paper and t.client_code==client_code and t.limit_kind==2 then
      stop_search=true      
        return true
    else
        return false
    end

end

function get_position (sec)
   paper=sec
   stop_search=nil --убиваем флаг, выставленный на прежних запусках функции.
   tbl_indxs=SearchItems('depo_limits', 0, getNumberOf("depo_limits")-1, fn)   
   if tbl_indxs then
      limit = getItem("depo_limits", tbl_indxs[1]) --найден 1 индекс, его и берём.
      local lot=lot[sec]--lot[sec] ранее определена
      return limit.currentbal/lot,limit.locked_buy/lot, limit.locked_sell/lot, limit.awg_position_price
   else
      return 0,0,0,0
   end
end

function fn(t)
   if stop_search then return nil end --stop_search - это флаг. Изначально равен nil
    if t.sec_code == sec and t.client_code==client_code and t.limit_kind==2 then
      stop_search=true
        return true
    else
        return false
    end
end


function get_position (sec)
   stop_search=nil --убиваем флаг, выставленный на прежних запусках функции.
   tbl_indxs=SearchItems('depo_limits', 0, getNumberOf("depo_limits")-1, fn)
   limit = getItem("depo_limits", tbl_indxs[1]) --найден 1 индекс, его и берём.
   local lot=lot[sec]--lot[sec] ранее определена
   return limit.currentbal/lot,limit.locked_buy/lot, limit.locked_sell/lot, limit.awg_position_price
end

function fn(t)
    if t.sec_code == sec and t.client_code==client_code and t.limit_kind==2 then 
        return true
    else
        return false
    end
end

tbl_indxs=SearchItems('depo_limits', 0, getNumberOf("depo_limits")-1, fn)

function fn (t)
   if t.sec_code=='BANEP' then
      return true
   end
end

tbl=SearchItems('trades', 0, getNumberOf("trades")-1, fn, "qty,class_code, sec_code")

function fn (t)
   if t.sec_code=='BANEP' then
      return t
   end
end

tbl=SearchItems('trades', 0, getNumberOf("trades")-1, fn)

1=SBER;2=GAZP;3=GMKN;4=LKOH;................

function tableContains(table, key)    
return table[key] ~= nil
end

'SBER'=1; 'GAZP' = 2; 'GMKN' = 3;

for i=0,getNumberOf("orders")-1,1 do

function CleanActive (ticker_list) --переписать её, чтобы искать с конца.
   local row={}
   for i=0,getNumberOf("orders")-1,1 do
      row=getItem("orders",i)   
      local sec=row.sec_code
      if table_contains(ticker_list, sec) and orderflags2table(row.flags).active then
         res,ms=killOrder(tostring(row.order_num),sec,row.class_code)
      end
   end
end

function table_contains(table, element)   
   for _, value in pairs(table) do
      if value == element then return true end
   end
   return nil
end   

send_msg ("Снята: "..k)

Settings = {
Name = "*FRACTALS (Fractals)", 
Period = 5,
line = {{
      Name = "Horizontal line",
      Type = TYPE_LINE, 
      Color = RGB(140, 140, 140)
      },
      {
      Name = "FRACTALS - Up", 
      Type = TYPE_TRIANGLE_UP, 
      Color = RGB(0, 206, 0)
      },
      {
      Name = "FRACTALS - Down", 
      Type = TYPE_TRIANGLE_DOWN, 
      Color = RGB(221, 44, 44)
      }
      },
Round = "off",
Multiply = 1,
Horizontal_line="off"
}
         
function Init()
   func = FRACTALS()
   return #Settings.line
end

function OnCalculate(Index)
local Out1,Out2 = func(Index, Settings)
   SetValue(Out1, 2, ConvertValue(Settings,H(Out1)))
   SetValue(Out2, 3, ConvertValue(Settings,L(Out2)))
   return tonumber(Settings.Horizontal_line),nil,nil
end

function FRACTALS() --Fractals ("FRACTALS")
   local H_tmp={}
   local L_tmp={}
   local it = {[1]=0, l=0}
return function (I, Fsettings, ds)
local Fsettings=(Fsettings or {})
local P = (Fsettings.Period or 5)
if (P>0) then
   if I == 1 then
      H_tmp={}
      L_tmp={}
      it = {[1]=0, l=0}
   end
   if CandleExist(I,ds) then
      if I~=it[Squeeze(it.l,P)] then
         it.l = it.l + 1
         it[Squeeze(it.l,P)] = I
      end
      local Ip,Ipppp = Squeeze(it.l,P),Squeeze(it.l,P-1)+1
      local nP = math.floor(P/2)*2+1
      H_tmp[Ipppp] = GetValue(it[Ip],HIGH,ds)
      L_tmp[Ipppp] = GetValue(it[Ip],LOW,ds)
      if it.l >= nP then
         local S = it[Squeeze(it.l-nP+1+math.floor(nP/2),P)]
         local val_h=math.max(unpack(H_tmp))
         local val_l=math.min(unpack(L_tmp))
         local L = GetValue(S,LOW,ds)
         local H = GetValue(S,HIGH,ds)
         if (val_h == H) and (val_h >0) 
            and (val_l == L) and (val_l > 0) then
               return S,S
         else
            if (val_h == H) and (val_h > 0) then
               return S,nil
            end
            if (val_l == L) and (val_l > 0) then
               return nil,S
            end
         end
      end
   end
end
return nil,nil
end
end


SMA,MMA,EMA,WMA,SMMA,VMA = "SMA","MMA","EMA","WMA","SMMA","VMA"
OPEN,HIGH,LOW,CLOSE,VOLUME,MEDIAN,TYPICAL,WEIGHTED,DIFFERENCE,ANY = "O","H","L","C","V","M","T","W","D","A"

function CandleExist(I,ds)
return (type(C)=="function" and C(I)~=nil) or
   (type(ds)=="table" and (ds[I]~=nil or (type(ds.Size)=="function" and (I>0) and (I<=ds:Size()))))
end

function Squeeze(I,P)
   return math.fmod(I-1,P+1)
end

function ConvertValue(T,...)
local function r(V, R) 
   if R and string.upper(R)== "ON" then R=0 end
   if V and tonumber(R) then
      if V >= 0 then return math.floor(V * 10^R + 0.5) / 10^R
      else return math.ceil(V * 10^R - 0.5) / 10^R end
   else return V end
end
   if arg.n > 0 then
      for i = 1, arg.n do
         arg[i]=arg[i] and r(arg[i] * ((T and T.Multiply) or 1), (T and T.Round) or "off")
      end
      return unpack(arg)
   else return nil end
end

function GetValue(I,VT,ds) 
VT=(VT and string.upper(string.sub(VT,1,1))) or ANY
   if VT == OPEN then         --Open
      return (O and O(I)) or (ds and ds:O(I))
   elseif VT == HIGH then       --High
      return (H and H(I)) or (ds and ds:H(I))
   elseif VT == LOW then      --Low
      return (L and L(I)) or (ds and ds:L(I))
   elseif VT == CLOSE then      --Close
      return (C and C(I)) or (ds and ds:C(I))
   elseif VT == VOLUME then      --Volume
      return (V and V(I)) or (ds and ds:V(I)) 
   elseif VT == MEDIAN then      --Median
      return ((GetValue(I,HIGH,ds) + GetValue(I,LOW,ds)) / 2)
   elseif VT == TYPICAL then   --Typical
      return ((GetValue(I,MEDIAN,ds) * 2 + GetValue(I,CLOSE,ds))/3)
   elseif VT == WEIGHTED then   --Weighted
      return ((GetValue(I,TYPICAL,ds) * 3 + GetValue(I,OPEN,ds))/4) 
   elseif VT == DIFFERENCE then   --Difference
      return (GetValue(I,HIGH,ds) - GetValue(I,LOW,ds))
   else                     --Any
      return (ds and ds[I])
   end
return nil
end

" sd="..(t_big[candle][6] or "nil")

for i=start_year,cur_year,1 do
  --если размер таблицы нулевой, шагаем на 2 шага
  --после этого всегда шагаем 1 шагом
end

t_big[candle] --хранит цены: {1=open,2=high,3=low,4=close}
sd[candle]--хранит стандартные отклонения для этих свечек: sd[candle]=4.6432234444

t_big[candle] --хранит цены: {1=open,2=high,3=low,4=close, 5=sd}

local f = package.loadlib("C:/Program Files (x86)/Lua/5.1/lua/QL.lua", "math_round")

  std::map < std::string, int >  period_muvinga;
  period_muvinga[ "GAZP" ]  =   23 ;
  period_muvinga[ "SBER" ]  =   19 ;
  period_muvinga[ "GMKN" ]  =   20 ;

  period_muvinga[ 1 ]  =   23 ; 
  period_muvinga[ 2 ]  =   19 ;
  period_muvinga[ 3 ]  =   20 ;

os.execute("C:\\InstallPython\\python.exe C:\\FINAM\\py+lua\\Finam_parser.py")

if string.find(package.path,'C:\\Program Files (x86)\\Lua\\5.1\\lua\\?.lua')==nil then
   package.path=package.path..';C:\\Program Files (x86)\\Lua\\5.1\\lua\\?.lua;'
end
if string.find(package.path,'C:\\Program Files\\Lua\\5.1\\lua\\?.lua')==nil then
   package.path=package.path..';C:\\Program Files\\Lua\\5.1\\lua\\?.lua;'
end

require "socket"
is_run=true
http = require 'socket.http'
local address = 'http://smart-lab.ru/dividends/index/order_by_t2_date/desc/'
local ts={"tr","strong","span"}
local lMax=91 --число строк в таблице


function do_smart ()
   local body = http.request(address)
   ----------------------
   for i=1,#ts do
      body = string.gsub (body,"(<%s*"..ts[i].."[^>]*>)","")
      body = string.gsub (body,"(<%s*/"..ts[i].."[^>]*>)","")
   end
   body = string.gsub (body," "," ")
   local t={}  -- результат
   local j=0; local k=0; local text=0;
   local m=1; 
   local n=string.find(body,"td>",m,#body,true);
   local x=string.byte(body,n-1); 
   m=m+3;
   -----------------
    while #body>m do
      n=string.find(body, "td>",m,#body,true);
      if n then  local n1=n;
        if x~=47 then
          x=string.byte(body,n-1); if x==47 then n=n-1; end
          text = string.sub(body, m,n-2); text = nkdelspace(text);
          local len=string.len(text);
          if len<20 then
            j=j+1; if j==1 then k=k+1; t[k]={} end
            local tt=t[k]; tt[#tt+1]=text;
            if j==8 then     if k==lMax then break end
            j=0 end
          end
        else
          x=string.byte(body,n-1);
        end
      m=n1+3;
      else break;
      end
   end

   trade_date=getParamEx("TQBR","GAZP","TRADE_DATE_CODE").param_image
   prev_date=getParamEx("TQBR","GAZP","PREVDATE").param_image
   for k,v in ipairs (t) do
      local td=trade_date.." "
      local pd=prev_date.." "
      if td==t[k][2] then
         message ("Zavtra GAP "..t[k][1].." div="..t[k][6].." | "..t[k][8],1)
      end
      
      if pd==t[k][2] then
         message ("Segodnya GAP "..t[k][1].." div="..t[k][6].." | "..t[k][8],1)
      end
      
   end

end
function OnCleanUp ()
sleep (700000)
do_smart ()
end

function OnConnected ()
do_smart ()
end

function OnStop ()
   return 100
end

--------------------
function nkdelspace(s)
   local len=string.len(s); local z=""; local x1=32;
   for i=1,len do local x=string.byte(s,i); if x<32 then x=32 end
      if (x~=32 or x1~=32) then
         if z=="" then z=string.char(x) else z=z..string.char(x) end
         x1=x; end
   end    --убираем проблелы
return z;
end

do_smart ()

function main ()
   while is_run do
      sleep (1000)
   end
end

for word in allwords() do
print(word)
end

local element = values(t)() 

local element = iter()

function allwords ()
   local line = io.read() -- текущая строка
   local pos = 1 -- текущая позиция в строке
   return function () -- итерирующая функция
         while line do -- повторяет, пока есть строки
            local s, e = string.find(line, "%w+", pos)
            if s then -- слово найдено?
               pos = e + 1 -- следующая позиция после этого слова
               print(string.sub(line, s, e))
               return string.sub(line, s, e) -- возвращает это слово
            else
               line = io.read() -- слово не найдено; пробуетследующую строку
               pos = 1 -- перезапуск с первой позиции
            end
         end
   return nil -- строк больше нет; конец обхода
   end
end

function values (t)
   local i = 0
   return function () i = i + 1; return t[i] end
end

t = {10, 20, 30}
iter = values(t) -- создает итератор
while true do
   local element = iter() -- вызывает итератор
   if element == nil then break end
   print(element)
end

local element = iter() -- вызывает итератор

local element = values(t)

function newCounter ()
   local i = 0
   return function () i = i + 1 return i end
end
c1 = newCounter()
print(c1()) --> 1
print(c1()) --> 2

function derivative (f, delta)
   delta = delta or 1e-4
   return function (x) return (f(x + delta) - f(x))/delta end
end

c = derivative(math.sin)
print(math.cos(5.2), c(5.2))

function Window (options)
-- проверка обязательных опций
if type(options.title) ~= "string" then
error("no title")
elseif type(options.width) ~= "number" then
error("no width")
elseif type(options.height) ~= "number" then
error("no height")
end
-- everything else is optional
_Window(options.title,
options.x or 0, -- значение по умолчанию
options.y or 0, -- значение по умолчанию
options.width, options.height,
options.background or "white", -- по умолчанию
options.border -- по умолчанию false (nil)
)
end