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

function foo1()
   print("in foo1")
   return false
end

function foo2()
   print("in foo2")
   return false
end
print("--- OR")
if (foo1() or foo2())   then
end
print("--- AND")
if (foo1() and foo2())   then
end
 

--- OR
in foo1
in foo2
--- AND
in foo1
 

function counter_from(i)
   local x=i
   return function ()
      x=x+1
      return x-1
   end
end

c1 = counter_from(1)
c2 = counter_from(100)
for i=1, 10 do
   print("c1 = " .. c1() .. ", c2 = " .. c2())
end
 

c1 = 1, c2 = 100
c1 = 2, c2 = 101
c1 = 3, c2 = 102
c1 = 4, c2 = 103
c1 = 5, c2 = 104
c1 = 6, c2 = 105
c1 = 7, c2 = 106
c1 = 8, c2 = 107
c1 = 9, c2 = 108
c1 = 10, c2 = 109
 

Settings= {
   Name = "averEMA",
   startPeriod   = 3,
   endPeriod   = 6,
   line =
   {
      {
         Name      = "AverEMA",
         Type      = TYPE_LINE,
         Width      = 2
      }
   }
}
   
function Init()
   return 1
end

function average(_start, _end)
   local sum=0
   for i = _start, _end do
      sum=sum+C(i)
   end
   return sum/(_end-_start+1)
end

function cached_EMA(__period, __k)
   local cache={}
   local period = __period
   local k = __k or 2/(period+1)
   return function(ind)
      local n = 0
      local p = 0
      --local period = _p
      local index = ind
      if index == 1 then
         cache = {}
      end
      if index < period then
         cache[index] = average(1,index)
         return nil
      end
      p = cache[index-1] or C(index)
      n = k*C(index)+(1-k)*p
      cache[index] = n
      return n
   end
end

function OnCalculate(index)   
   local s=0
   if index == 1 then
      line   = {}
      for i=Settings.startPeriod, Settings.endPeriod do
         line[i - Settings.startPeriod + 1] = cached_EMA(i)
      end
   end

   s = 0
   for i = 1, #line do
      local res = line[i](index)
      if res == nil then
         return nil
      else
         s = s + res
      end
   end
   
   return s/#line
end

 

gPath = do_smth_with_path(getScriptPath())  -- настраиваете пути как Вам надо относительно скрипта
package.cpath = gPath .. "\\?.dll;" .. package.cpath 
package.path = gPath .. "\\?.lua;" .. package.path 

#define lua_register(L,n,f) (lua_pushcfunction(L, (f)), lua_setglobal(L, (n))) 

 DWORD WINAPI myThread(LPVOID param) 
{    
   lua_State *L = (lua_State*)param;  
   ....  
   return 0;
}   
... 
//вот тут формируется новый стек Lua для потока
lua_gc(L, LUA_GCSTOP, 0);  
thread_L_stack = lua_newthread(L); 
thread_L_ref = luaL_ref( callbackCode, LUA_REGISTRYINDEX); 
lua_pushvalue(callbackCode, -1);  
lua_gc(L, LUA_GCRESTART, 0);  
...    
CreateThread(NULL, 0, myThread, (LPVOID) tread_L_stack, 0, NULL);

lua_unref(L, thread_L_ref);

test_table={"qwe", "1qweasd", "zxc"}
test_table1={["qwe"]=true, ["1qweasd"]=true, ["zxc"]=true}
str = "1qweasd"

function check1(t, str)
  return (string.find("|"..table.concat(t,"|").."|", "|"..str .. "|") ~=nil)
end

function check2(t, str)
  for k, v in pairs(t) do
    if v == str then return true end
  end
  return false
end

function check3(t, str)
  return (t[str] or false)
end
max_count=1000000
_s=os.clock()
for i=1, max_count do
  res = check1(test_table, str)
end
_e = os.clock()
print("check1 took "..tostring(_e-_s))
_s=os.clock()
for i=1, max_count do
  res = check2(test_table, str)
end
_e = os.clock()
print("check2 took "..tostring(_e-_s))

_s=os.clock()
for i=1, max_count do
  res = check3(test_table1, str)
end
_e = os.clock()
print("check3 took "..tostring(_e-_s))   
--[[ 
check1 took 0.752
check2 took 0.261
check3 took 0.116 
--]] 

lua_getglobal(L, "OnAllTrade") 
lua_pushtable(L, trade) //псевдокод 
lua_pcall(L, 1, 0, 0) //зависит от вашей функции и наличия обработчика ошибок 
//обработка результатов если они есть