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

local s="depo_limits";
local N1=getNumberOf(s)-1
for j=0,N1 do local x=getItem(s,j);
 if x and x.sec_code==sec then Qp=x.currentbal; jdep=j;
   Log:write(value2text(x,"depo=").."\n");Log:flush(); -- вывод в лог файл
   end;
end

depo={
["trdaccid"]=NL0011100043,
["currentlimit"]=0.0,
["locked_buy"]=0.0,
["currentbal"]=0.0,
["limit_kind"]=-2000001,
["locked_buy_value"]=0.0,
["openlimit"]=0.0,
["openbal"]=0.0,
["awg_position_price"]=0.0,
["sec_code"]=SBER,
["locked_sell"]=0.0,
["wa_position_price"]=0.0,
["client_code"]=10326,
["wa_price_currency"]=SUR,
["locked_sell_value"]=0.0,
["firmid"]=NC0011100000}

paths = "D:/QUIK_SCRIPT/" -- путь к файлу nkbot24_func.luac
dofile(paths.."nkbot24_func.luac")

Settings.account=""; Settings.client=""; --вписать счет и клиент
Settings.Nind=2;
function OnCalculate(i)
   Hi,Li=H(i),L(i);
   if i==1 then _nkInit(); return end--инициализация
   _getI(i); --читаем значения индикаторов
   f=_cross(1,1,2,1,i);  -- сигнал пересечение линий индикаторов
   _torg(f,i); --выставляем заявки по пересечению
   return SE,BU;  -- отображаем сигналы в режиме советника
end

function OnCalculate(index)
 
  if index == 1 then
    
    _ds = getDataSourceInfo()
 --....
    
  end
  
  return 0
  
end 

function OnCalculate(index)
  
  local _ds = nil
  
  if index == 1 then
    
    _ds = getDataSourceInfo()
 --....
    
  end
  
  return 0
  
end 

local _ds;
function OnCalculate(index)
  if index == 1 then   
    _ds = getDataSourceInfo()
  --....
  end
 
  return 0
  
end

name="nkbot24"
Settings={["Name"] =name,["line"] ={},["account"]="",["client"]="",["Q"]=1;["wt"]=1000,["short"]=0}
Settings.Nind=0;

paths = "D:/QUIK_SCRIPT/"
package.cpath =package.cpath ..";"..paths.."?.dll";
package.path =package.path..paths.."?.lua;"
fnlog=paths..name..".log"; Log=io.open(fnlog,"w")

loadfile(paths.."nkbot24_func.lua")

function nkbuy(i,f)
---алгоритм покупки
 -- f=cross(1,1,2,1,1);
return f;
end

function nksell(i,f)
--алгоритм продажи
-- f=cross(1,1,2,1,1);
return f;
end

function nobuy(i,f)
--фильтр покупки
return f;
end

function nosell(i,f)
--фильтр продажи
return f;
end

function OnCalculate(i)
   local i1=i-1;
   if i==1 then nkInit(); return end
   if i~=i_ then    getI()   end
   N,torder=order(N);    Q=depo();
   if #t==0 then
--      f,j=cross(1,1,2,1,5); --пересечение двух индикаторов
      if i~=i_ then torg(nkbuysel(i));end
      M=os.clock();
   else
      del_ord(M);
   end
   i_=i;
return M1,M2;
end

local M=1000000
local t=newCA(1024)
for i=1, M do  setCA(t,i) end
count1 = collectgarbage("count") print("объем занятой памяти",count1//1);
--------------------------------
collectgarbage("collect") count1 = collectgarbage("count") print("объем занятой памяти после сборщика мусора",count1//1);

>D:/lua53/lua53.exe -e "io.stdout:setvbuf 'no'" "Test_List.lua" 
объем занятой памяти   82.0
объем занятой памяти после сборщика мусора   76.0
>Exit code: 0

local M=10000000
local t=nk_newV(1024)
for i=1, M do  nk_push(t,i) end
count1 = collectgarbage("count") print("объем занятой памяти",count1//1);
collectgarbage("collect") count1 = collectgarbage("count") print("объем занятой памяти после сборщика мусора",count1//1);

>D:/lua53/lua53.exe -e "io.stdout:setvbuf 'no'" "Test_List.lua" 
объем занятой памяти   97.0
объем занятой памяти после сборщика мусора   91.0
>Exit code: 0

local M=10000000
local list=List.new()
local count1 = collectgarbage("count") print("начальный объем занятой памяти",count1//1);
--------------------------
for i=1, M do  List.pushlast(list,i)   end
collectgarbage("collect") count1 = collectgarbage("count")  print("объем занятой памяти после сборщика мусора",count1//1);

>D:/lua53/lua53.exe -e "io.stdout:setvbuf 'no'" "Test_List.lua" 
начальный объем занятой памяти   65.0
объем занятой памяти после сборщика мусора   262203.0
>Exit code: 0