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

void sortb(int *m,int n) 
{   int tmp,k;
   while(n>1) { // проход проверят, не пора ли заканчивать 
      k=0; // нет перестановок
      for (int i=1; i<n;++i) {
         if(m[i]/10<m[i-1]/10) {
            tmp=m[i-1];
            m[i-1]=m[i];
            m[i]=tmp;    
            k=i; // в к будет последний переставленный элемент
         }
      }
      n=k; // с k все отсортировано
   }
}

// компаратор для qsort
int fcomp(const void *i, const void *j) 
{   return (*(int *)i)/10 - (*(int *)j)/10;
}
void sortq(int *m,int n) 
{
   qsort(m,n,sizeof(int),&fcomp);  
}

id=id+1; t1.TRANS_ID=tostring(id);    -- Уникальный идентификационный номер заявки,  от «1» до «2 147 483 647»
local str=sendTransaction(t1); --отправить транзакцию
Log:write("str="..tostring(str)..",id="..tostring(id).."\n");   Log:flush()

   id=id+1; t1.TRANS_ID=tostring(id);  -- Уникальный идентификационный номер заявки
   local str=sendTransaction(t1);   --отправить транзакцию
   Log:write("str2="..tostring(str)..",id2="..tostring(id).."\n");   Log:flush()

str=,id=2173
str2=,id2=2174
str2=,id2=2175

local function initT(sec,clas,account,client)
   tS={};     tS[0]=0; for i=1,7 do tS[i]={0,0} end  --стоп заяки
   tO={};    tO[0]=0; for i=1,7 do tO[i]={0,0} end  -- заявки
   tOi={};tOi[0]=0; for i=1,7 do tOi[i]={0,0} end  --транзакции заявок
   tSi={};tSi[0]=0; for i=1,7 do tSi[i]={0,0} end  --транзакции стоп-заявок
   id,nOrder,nStop,obal,tbal,nto,nts=0,0,0,0,0,0,0; jD=-1;
   step,lot_size,scale=0,0,0;
--   Log:write("sec="..tostring(sec)..",clas="..tostring(clas)..",tS0="..tostring(tS[0])..",tO0="..tostring(tO[0]).."\n");   Log:flush()
-----------------
end
---------------
local function nkInit()
--   DelAllLabels(tag);
   tinfo=getDataSourceInfo();
   clas=tinfo.class_code;   sec=tinfo.sec_code;    tag=sec;    pname=tinfo.param;
   interval=tinfo.interval;
   Log=io.open(path_Log..name..sec..".log","w")
   client=Settings.client;
--   Log:write("sec="..tostring(sec)..",clas="..tostring(clas)..",client="..tostring(client).."\n");   Log:flush()
    t_acc={};
--- определяем торговый счет
   local N=getNumberOf("trade_accounts");
   for i=0,N-1 do  z=getItem("trade_accounts", i);
      if string.find(z.class_codes,clas,1,true) and z.status==0 then
         firmid=z.firmid;    account=z.trdaccid; break;
      end
   end
-----------------------------
end

function OnCalculate(i)
--------------------
Order("orders",0);  --снять заявку, если она есть 
------------------
if conX("orders")==0 then  
buy_sel(1,1,-1); --выставить заявку на покупку 1 лота, если ее нет
end
---------------
end

depo t1=47.8, таб.стоп_ордер t2=1.8, таб.ордер t3=272.4, ордер t4=30.7
m=1,flag=2.0,nu=6947069167,idt=421
depo t1=40.2, таб.стоп_ордер t2=1.6, таб.ордер t3=67.6, ордер t4=304.5
m=1,flag=1.0,nu=6947069357,idt=423
depo t1=48.1, таб.стоп_ордер t2=1.6, таб.ордер t3=257.6, ордер t4=29.6
m=1,flag=2.0,nu=6947069357,idt=423
depo t1=38.5, таб.стоп_ордер t2=1.9, таб.ордер t3=75.6, ордер t4=309.8
m=1,flag=1.0,nu=6947069489,idt=425
depo t1=52.4, таб.стоп_ордер t2=2.1, таб.ордер t3=339.3, ордер t4=38.9
m=1,flag=2.0,nu=6947069489,idt=425
depo t1=72.4, таб.стоп_ордер t2=3.1, таб.ордер t3=124.2, ордер t4=584.2
m=1,flag=1.0,nu=6947069557,idt=427
depo t1=47.9, таб.стоп_ордер t2=1.7, таб.ордер t3=240.8, ордер t4=27.6
m=1,flag=2.0,nu=6947069557,idt=427
depo t1=64.9, таб.стоп_ордер t2=2.5, таб.ордер t3=123.0, ордер t4=580.2
m=1,flag=1.0,nu=6947069616,idt=429
depo t1=59.9, таб.стоп_ордер t2=2.3, таб.ордер t3=334.9, ордер t4=39.1
m=1,flag=2.0,nu=6947069616,idt=429
depo t1=70.8, таб.стоп_ордер t2=2.5, таб.ордер t3=123.9, ордер t4=518.8
m=1,flag=1.0,nu=6947069717,idt=431
depo t1=62.7, таб.стоп_ордер t2=2.6, таб.ордер t3=397.2, ордер t4=52.4
m=1,flag=2.0,nu=6947069717,idt=431
depo t1=70.3, таб.стоп_ордер t2=3.0, таб.ордер t3=124.9, ордер t4=523.5

t1.PRICE=tostring(price);
t1.QUANTITY=tostring(Q);
t1.TRANS_ID=tostring(id+1);    -- Уникальный идентификационный номер заявки,  от «1» до «2 147 483 647»
local str=sendTransaction(t1); --отправить транзакцию
Log:write("сообщение"..str.."\n");   Log:flush()  -- вывод сообщения в файл
if str=="" then  id=id+1; ji=ji+1; ti[ji]={id,0}; ti[0]=ji;
   Log:write("заявка id"..tostring(id)..",ji="..tostring(ji).."\n");   Log:flush()
end ---если  сообщение пустое то в файл выводится id транзакции

сообщение
заявка id31,ji=1