Let_it_go (Автор тем)

static int forLua_AddTwoNumbers(lua_State *L) {
   // получаем первый и второй параметры вызова функции из стека с проверкой каждого на число
   double d1 = luaL_checknumber(L, 1);
   double d2 = luaL_checknumber(L, 2);
   // помещаем в стек результат сложения
   lua_pushnumber(L, d1 + d2);
   return(1);  // эта функция возвращает одно значение
}

package.cpath = "C:\\runfast.dll"
require("runfast")
iterations=10000000
function main()
   start=os.clock()
   for i=1,iterations do
      r = runfast.AddTwoNumbers(i, i)
   end
   finish=os.clock()-start
   message ("C dll:"..tostring(finish), 1)
   start=os.clock()
   for i=1,iterations do
      r = i+i
   end
   finish=os.clock()-start
   message ("Lua:"..tostring(finish), 1)
end

if string.find(reply.result_msg, "Снят") or string.find(reply.result_msg, "снят") then

end

#include <windows.h>
#define LUA_LIB
#define LUA_BUILD_AS_DLL
#ifdef __cplusplus
extern "C" {
#endif
#include <D:\_c++\contrib\lua.h>
#include <D:\_c++\contrib\lualib.h>
#include <D:\_c++\contrib\lauxlib.h>
#ifdef __cplusplus
}
#endif

static int spread(lua_State *L)
{
    double bid   = luaL_checknumber(L, 1);
    double offer = luaL_checknumber(L, 2);

    /* здесь наши вычисления */

    lua_pushnumber(L, offer-bid);
    return 1;
}

static const luaL_Reg mylib_funcs[] = {
    {"spread", spread},
    {NULL, NULL}
};

#ifdef __cplusplus
extern "C" 
#endif
LUALIB_API int luaopen_mylib(lua_State *L)
{
    luaL_register(L, "mylib", mylib_funcs);
    return 1;
}

BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved) {return TRUE;}

local calls, total, this = {}, {}, {}debug.sethook(function(event)
  local i = debug.getinfo(2, "Sln")
  if i.what ~= 'Lua' then return end
  local func = i.name or (i.source..':'..i.linedefined)
  if event == 'call' then
    this[func] = os.clock()
  else
    local time = os.clock() - this[func]
    total[func] = (total[func] or 0) + time
    calls[func] = (calls[func] or 0) + 1
  end
end, "cr")

debug.sethook()
-- print the results
for f,time in pairs(total) do
  print(("Function %s took %.3f seconds after %d calls"):format(f, time, calls[f]))
end

ds_tick[sec] = CreateDataSource(class_code[sec],sec,INTERVAL_TICK)
      ds_tick[sec]:SetUpdateCallback(function(...) mycallbackforallstocks(class_code[sec],sec,...) end)
      ds[sec] = CreateDataSource(class_code[sec],sec,INTERVAL_M1)
      ds[sec]:SetUpdateCallback(function(...) mycallbackforallstocks(class_code[sec],sec,...) end)
      while ds[sec]:Size()==nil or ds[sec]:C(ds[sec]:Size())==nil or ds[sec]:Size()==0 or ds[sec]:C(ds[sec]:Size())==0 do
         sleep (1)
      end   

require "TradeLib"

--Пример расчета индикатора Moving Average по произвольному набору чисел:
dofile(getWorkingFolder().."\\LuaIndicators\\MA.lua")
tbl = {[1]=2587.5, [2]=2588.5, [3]=2585.1, [4]=2583.7, [5]=2582.6, [6]=2581.2, [7]=2579.2, [8]=2574.7,
   [9]=2571.5, [10]=2570.8, [11]=2569.9, [12]=2569.7, [13]=2567.2, [14]=2569.3, [15]=2566.1, [16]=2567, 
   [17]=2563.3, [18]=2565.2, [19]=2564.3, [20]=2565.9, [21]=2568.5, [22]=2572.2, [23]=2572, [24]=2572, [25]=2571.3}
function main() 
  func = MA()
  t_id = AllocTable()
  AddColumn(t_id,1,"Price",true,QTABLE_INT_TYPE,10)
  AddColumn(t_id,2,"MA",true,QTABLE_INT_TYPE,10)
  CreateWindow(t_id)
  SetWindowCaption(t_id,"MA")
  for i=1,#tbl do
   ma_out=func(i, {Period=3, Metod = EMA, VType=ANY}, {[i]=tbl[i]})
   tmp=InsertRow(t_id,-1)
   SetCell(t_id,tmp,1,tostring(tbl[i]),tbl[i])
   SetCell(t_id,tmp,2,tostring(ma_out),ma_out)
  end 
end

tbl={
{20170703,100500,146.6900000,147.1900000,146.6100000,146.8700000,1817320},
{20170703,101000,146.9000000,148.3000000,146.9000000,147.8000000,3684060}
------
------
------
}

tbl = {[1]=2587.5, [2]=2588.5, [3]=2585.1, [4]=2583.7, [5]=2582.6, [6]=2581.2, [7]=2579.2, [8]=2574.7,
   [9]=2571.5, [10]=2570.8, [11]=2569.9, [12]=2569.7, [13]=2567.2, [14]=2569.3, [15]=2566.1, [16]=2567,     [17]=2563.3, [18]=2565.2, [19]=2564.3, [20]=2565.9, [21]=2568.5, [22]=2572.2, [23]=2572, [24]=2572, [25]=2571.3}

profit_loss=1*(getPortfolioInfoEx (firm, client_code, 2).profit_loss or profit_loss or 0)

f_ticker_list="GAZR,SBRF,MIX,Si,RTS"
         for instrument in string.gmatch(f_ticker_list,"%w+") do
--утомительные расчёты на основе анализа множества файлов с рыночной информацией
end

function tableMerge(table1, table2)
    for k,v in pairs(table2) do
   --deceleration()
      table.insert(table1,v)
      --проверим качество данных в таблице. Нет ли разрывов в записях.
   
      -- if v.stime-(remember_prev_time or v.stime)>100 then
         -- mm("в таблице дырка "..v.stime.." "..v.bid)
      -- end
      remember_prev_time=v.stime
    end
   remember_prev_time=nil
    return table1
end 

function rec_big_data(file_path,value)         
if rn==nil then rn={} end         
   if file_open==nil then file_open={} end
      if file_open[file_path]==nil then
         rn[file_path]=io.open(file_path,"a+")
         file_open[file_path]=true
         mm("QL:open file "..file_path)
      end
      rn[file_path]:write(value.."\n")
      rn[file_path]:flush()
end   

iterations=20
start=0
finish=100
step=(finish-start)/iterations
for i=start,finish,step do
--делаем расчёт.
   if profit>0 then
      --возвращаемся на step назад
      --iterations=100 (шаг становится более мелким)
   end
end

      sum_vol=0
      for n,w in pairs (simple_volume) do
         vremya_diff=stime-simple_volume[n].time_time
         if vremya_diff>60 then
            simple_volume[n]=nil
         else
            sum_vol=(sum_vol or 0)+simple_volume[n].deal
         end
      end   

--Внутри колбека OnParam
--Считаем средний спред
         local tablebid = getParamEx(class_code,  fff, "bid") --получаем таблицу "bid"
         local bid=tablebid.param_value --из таблицы берём значение
         local tableoffer = getParamEx(class_code,  fff, "offer") --получаем таблицу "offer"
         local offer=tableoffer.param_value --из таблицы берём значение
         local p_spread = (offer - bid) / bid * 100 --считаем текущий спред по бумаге
         local elem = average_spreads[fff] --создаём таблицу для хранения расчётных данных
            if elem == nil then
               average_spreads[fff] = { Count = 1, Spread = p_spread, Avr = p_spread}
               elem = average_spreads[fff]
               else
               elem.Spread = p_spread
               elem.Avr = (elem.Avr * elem.Count + p_spread) / (elem.Count + 1)
               elem.Count = elem.Count + 1
               spread[fff]=elem.Avr
            end

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

dofile ("C:\\Program Files\\Lua\\5.1\\lua\\ATR.lua")--ATR
ds_v = CreateDataSource(instr[k].v_class,instr[k].v_sec,INTERVAL_D1)
ds_v:SetEmptyCallback()
sleep(1000)
func2 = ATR() 
candles=ds_v:Size() --до этого места доходит и выдаёт количество свечей
long_v={}
short_v={}
for i=1,candles do   
long_v[i]=func2(candles, {Period=252}, ds_v)                  
short_v[i]=func2(candles, {Period=5}, ds_v)   
end

func = RSI()
            local rsi_count={}            
            for i=1,ds[бумага]:Size() do         
               rsi_count[i]=func(i, {Period=rsi_period, VType="Typical"}, ds[бумага])
            end         
               rsi0=rsi_count[ds[бумага]:Size()]
               rsi1=rsi_count[ds[бумага]:Size()-1]
               rsi2=rsi_count[ds[бумага]:Size()-2]      

func = RSI()
            local rsi_count={}            
            num_candles=ds[бумага]:Size()
            for i=1,num_candles do               
               rsi_count[i]=func(i, {Period=rsi_period, VType="Typical"}, ds[бумага])
            end      
               rsi0=rsi_count[num_candles]
               rsi1=rsi_count[num_candles-1]
               rsi2=rsi_count[num_candles-2]

s={}
for i=1,10 do
   table.insert(s,random_max()) --в будущем вместо рандомных чисел будут номера активных заявок.
end

toLog(log, s)

for i=1,#s do
        if i>0 then -- Сейчас я написал условие наугад. В будущем будет условие "удалить номер заявки из таблицы s если эта заявка снята или исполнена"
      table.remove(s,i)
        end
end

toLog(log, s)

PrintDbgStr("dbg from " ..getScriptPath())

a=step*1
PrintDbgStr("dbg from " ..a)
step=getParamEx("SPBFUT","MXZ7","SEC_PRICE_STEP").param_value

function QTable:SetValue(row, col_name, data, formatted)
   -- Установить значение в ячейке
   local col_ind = self.columns[col_name].id or nil   
   if col_ind == nil then
      return false
   end
   local col_type = self.columns[col_name].c_type
   if row==nil or col_name==nil or data==nil or col_ind==nil then
      message ((row  or "nil").." | "..(col_name  or "nil").." | "..(data  or "nil").." | "..(col_ind or "nil")),1)
   end   
   if self.data[row][col_ind]==data then return true end
   self.data[row][col_ind]=data
   local col_type = self.columns[col_name].c_type
   -- если для числового столбца дано НЕчисловое значение, то применяем к нему tonumber
   if type(data) ~= "number" and (col_type==QTABLE_INT_TYPE or col_type==QTABLE_DOUBLE_TYPE or col_type==QTABLE_INT64_TYPE) then
      data = tonumber(data) or 0
   end
   -- если для НЕстрокового значения уже дан отформатированный вариант, то сначала используется он
   if formatted and col_type~=QTABLE_STRING_TYPE and col_type~=QTABLE_CACHED_STRING_TYPE then
      return SetCell(self.t_id, row, col_ind, formatted, data)
   end
   -- если для столбца задана функция форматирования, то она используется
   local ff = self.columns[col_name].format_function
   if type(ff) == "function" then
      -- в качестве строкового представления используется
      -- результат выполнения функции форматирования
      if col_type==QTABLE_STRING_TYPE or col_type==QTABLE_CACHED_STRING_TYPE then
         return SetCell(self.t_id, row, col_ind, ff(data))
      else
         return SetCell(self.t_id, row, col_ind, ff(data), data)
      end
   else
      if col_type==QTABLE_STRING_TYPE or col_type==QTABLE_CACHED_STRING_TYPE then
         return SetCell(self.t_id, row, col_ind, tostring(data))
      else
         return SetCell(self.t_id, row, col_ind, tostring(data), data)
      end
   end
end

function Sbor()
   local order_line
   count=0
   for t=getNumberOf("orders"),1,-1 do
      order_line=getItem("orders",t-1)
      if order_line.class_code=="SPBFUT" then 
         count=count+1
      end
   end
   orders=count
    local deal_line
    count=0
    comiss=0
    for t=getNumberOf("trades"),1,-1 do
       trade_line=getItem("trades",t-1)
          if trade_line.class_code=="SPBFUT" then 
            comiss=comiss+trade_line.exchange_comission 
             count=count+1
          end
    end
   trades=count
   sbor=0.1*(orders*2*1-(trades*comiss*40))
   tbl:SetValue(1,'sbor', orders.." | "..trades.." | "..comiss.." | "..sbor)   
   return orders,trades,comiss
end