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

   --- Загрузка CPU --- 
IsRun  =   true 
 function   main ()
     local  T
    local  hour  =   0 , N
   N  =   1000000 
     ------------------- 
     while  IsRun  do  
       T  =   os.clock () 
       for  i  =   1 , N  do  hour  =  {}  end       
      T  =  ( os.clock ()  - T)  *   1000  / N      ---- ### !! Без подключения к серверу: 1) В QUIK 8.13.1.16 (QLua 5.4)  T = 0,00016 ;      
                                                                 ---                                                         2) В QUIK 9.3.1.11 (QLua 5.4)  T = 0,0026  ??? (в 16,25 раз дольше) 
       message  (tostring(T))
         sleep ( 500 )  
     end 
     ------------------ 
 end    
   
 function   OnStop ()
     IsRun  =   false 
     return   10000    
 end 
   

   function   last_condle ()  -- самая последняя свеча 
    local  tmp_max =  getNumCandles (options.future .. "_price")
    local  tab2, n1, tmpname =  getCandlesByIndex (options.future .. "_price",  0 ,tmp_max -  1 ,  1 ) 

         -- Костыль №1 
    if  (tab2 =  =  nil )  then 
      say( " Ошибка 1748 - нет данных!!! - входим в режим ожидания данных tmp_max="  .. tmp_max)
       while  (tab2 =  =  nil )  do 
          sleep ( 731 )
         tab2, n1, tmpname =  getCandlesByIndex (options.future .. "_price",  0 ,tmp_max -  1 ,  1 )    
       end  
    end    

    -- Костыль №2 
    if  (tab2[ 0 ] =  =  nil )  then   -- Тут иногда ошибка "attempt to index a function value (local 'tab2')" 
      say( " Ошибка 1739 - нет данных!!! - входим в режим ожидания данных tmp_max="  .. tmp_max)
       while  (tab2[ 0 ] =  =  nil )  do 
          sleep ( 731 )
         tab2, n1, tmpname =  getCandlesByIndex (options.future .. "_price",  0 ,tmp_max -  1 ,  1 )    
       end  
    end 

    return  tab2[ 0 ]
 end 
  

   local  n  =   50000 
 for  i  =   1 , n  do 
  _G[ "f"  .. i]  =   function  ()  end 
 end 

 local  class  =   "SPBFUT" 
 local  sec  =   "SiZ1" 
 local  param  =  {"BIDDEPTHT",  "OFFERDEPTHT" }

 local  run  =   true 
 function   OnStop ()
  run  =   nil 
 end 

 function   main ()
  assert( Subscribe_Level_II_Quotes (class, sec))
   for  i  =   1 ,  # param  do 
    ParamRequest(class, sec, param[i])
   end 
   while  run  do   sleep ( 500 )  end 
   Unsubscribe_Level_II_Quotes (class, sec)
   for  i  =   1 ,  # param  do 
    CancelParamRequest(class, sec, param[i])
   end 
 end 

 function   OnQuote (class_code, sec_code)  end 
 function   OnParam (class_code, sec_code)  end 
 function   OnAllTrade (alltrade)  end