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

   function   Init ()
   func  =  MOMENTUM()
    return   # Settings.line
 end 

 function   OnCalculate (Index)
    return  tonumber(Settings.Horizontal_line), ConvertValue(Settings, func(Index, Settings))
 end 

 function   MOMENTUM () 
    local  it  =  {[ 1 ] =  0 , l =  0 }
 return   function  (I, Fsettings, ds)  

   local  run  =   true 
 local  tabid  =   nil 
 local  rowid  =   nil 
 local  counter  =   0 
 local  recursion_level  =   0 
 local  max_recursion_level  =   0 

 function   OnInit ()
   tabid  =   AllocTable ()
    if   0   =  =   AddColumn (tabid,  1 ,  'recursion level' ,  true , QTABLE_STRING_TYPE,  16 )  then 
       DestroyTable (tabid)
      tabid  =   nil 
      error( "AddColumn failed" )
    end 
    if   0   =  =   AddColumn (tabid,  2 ,  'counter' ,  true , QTABLE_STRING_TYPE,  16 )  then 
       DestroyTable (tabid)
      tabid  =   nil 
      error( "AddColumn failed" )
    end 
    if   0   =  =   CreateWindow (tabid)  then 
       DestroyTable (tabid)
      tabid  =   nil 
      error( "CreateWindow failed" )
    end 
   rowid  =   InsertRow (tabid,  -  1 )
    if   -  1   =  =  rowid  then 
       DestroyTable (tabid)
      tabid  =   nil 
      rowid  =   nil 
      error( "InsertRow failed" )
    end 
 end 

 function   OnAllTrade (v)
   recursion_level  =  recursion_level  +   1 
   counter  =  counter  +   1 
    if  recursion_level  >  max_recursion_level  then 
      max_recursion_level  =  recursion_level
    end 
    if  tabid  then 
       SetCell (tabid, rowid,  1 , tostring(max_recursion_level))
       SetCell (tabid, rowid,  2 , tostring(counter))
    end 
   recursion_level  =  recursion_level  -   1 
 end 

 function   OnStop ()
    if  tabid  then 
       local  t  =  tabid
      tabid  =   nil 
       DestroyTable (t)
      rowid  =   nil 
    end 
   run  =   false 
 end 

 function   main ()
    while  run  do 
       sleep ( 1000 )
    end 
 end 
  

  a =  9952336732254970146 
 message ( string.format ( "%.f" ,a) .. " " .. tostring(a))  

  a =  1952336732254970146    
 message ( string.format ( "%.f" ,a) .. " " .. tostring(a))
  

  a =  9952336732254970146 
 message ( string.format ( "%.d" ,a) .. " " .. tostring(a))