Settings={
Name = "текущая позиция",
client_code="SPBFUT*****",
line={
{
Name = "Лонг",
Type =TYPE_HISTOGRAM,
Width = 3,
Color = RGB(0,255, 0)
},
{
Name = "Шорт",
Type =TYPE_HISTOGRAM,
Width = 3,
Color = RGB(255,0,0)
},
{
Name = "0",
Type =TYPE_LINE,
Width = 1,
Color = RGB(255,0,0)
}
}}

idx_prosl=0


function Init()
   return 3
end

function get_balance(sec, client_code)
local n=getNumberOf("futures_client_holding")
for i=0,n-1 do
limit = getItem("futures_client_holding", i)
if limit~=nil and limit.seccode== sec and limit.trdaccid==client_code then
return limit.totalnet
end
end
return 0
end


function OnCalculate(idx)
if idx==1 then
sec=getDataSourceInfo().sec_code
message(" Код бумаги: "..sec,1)
end
if idx==idx_prosl then -- тек свеча
local balance=get_balance(sec, Settings.client_code)-- можно ограничиться и этим))
if balance>0 then
L,S,N=balance,nil,0
elseif balance<0 then
L,S,N=nil,balance,0
elseif balance==0 then
L,S,N=nil,nil,0
end
else
L,S,N=nil,nil,0
end
idx_prosl=idx
return L,S,N
end

t={}
ID="IDD"

function OnStop()
do_main=false
end

function main ()
do_main = true
while do_main do
--nc=getNumCandles(ID)
t,_,_ = getCandlesByIndex(ID,0,1,1)

sleep(1000)
end
end

local t_ind2={}
local len2;
  function   OnCalculate (index)
    if  index ==  1   then
      t_ind2={};
      len2=0;
   else
   local len=getNumCandles (Settings.ID)-len2;
   if   len>0  then
        local t,n,l = getCandlesByIndex (Settings.ID,0,len2,len )
      if  n>0   then
         local i=0; while n>i do len2=len2+1; t_ind2[len2]=t[i] i=i+1; end
        end
   return t_ind2[len2].close
    end
   end
 end

local t_ind2={}
local len2;
  function   OnCalculate (index)
    if  index ==  1   then
      t_ind2={};
      len2=0;
   elseif   getNumCandles (Settings.ID) >=index  then
        local t,n,l =  getCandlesByIndex (Settings.ID,len2 ,index -  1 , 1 )
      if  n>0   then
         local i=0; while n>i do len2=len2+1; t_ind2[len2]=t[i] i=i+1; end
            return t_ind2[len2].close
        end
    end
 end

local t_ind2={}
local len2;
  function   OnCalculate (index)
    if  index ==  1   then
      t_ind2={};
      len2=0;
   elseif   getNumCandles (Settings.ID) >=index  then
        local t,n,l =  getCandlesByIndex (Settings.ID,len2 ,index -  1 , 1 )
      if  n>0   then
         local i=0; while n>i do t_ind2[#t_ind2+1]=t[i] i=i+1; end
         return t_ind2[#t_ind2].close
        end
    end
 end

local t_ind2={}
local len2;
  function   OnCalculate (index)
    if  index ==  1   then
      t_ind2={};
      len2=0;
   elseif   getNumCandles (Settings.ID) >=index  then
        local t,n,l =  getCandlesByIndex (Settings.ID,len2 ,index -  1 , 1 )
      if  n>0   then   
         local i=0; while n>i do t_ind2[#t_ind2+1]=t[i] i=i+1; end
         return t_ind2[#t_ind2]
        end
    end
 end

  Settings = {
Name =  "Indicator B" ,
line = {{
Name =  "Indicator B" ,
Color =  0x0000ff ,
Type =  1 ,
Width =  1 
}}}

 function   Init ()
    return   # Settings.line
 end 

 function   OnCalculate ()
    return   68 
 end 
  

  Settings = {
Name =  "Indicator A" ,
ID =  "ID" ,
line = {{
Name =  "Indicator A" ,
Color =  0xff0000 ,
Type =  1 ,
Width =  1 
}}}

 function   Init ()
    return   # Settings.line
 end 

 local  t = {}
 local  n =  0 
 local  l =  0 
 local  value =  0 

 function   OnCalculate (index)
    if  index =  =  1   then   return   end              --проверяем если первая свечка, расcчёт не ведется 
    if   getNumCandles (Settings.ID) =  =  0   then           --Settings.ID содержит название идентификатора, которое задаёт пользователь 
       return                    --проверяем если индикатор "Б" не содержит свечек, рассчёт не ведется 
    else 
      t,n,l =  getCandlesByIndex (Settings.ID, 0 ,index -  1 , 1 )
       if  t[ 0 ].doesExist =  =  1   then           --проверяем если свечки нет, рассчет не ведется 
          if  t[ 0 ].close~ =  1e10   then        --проверяем если новое значение свечки не получено, рассчет не ведется 
             if  t[ 0 ].close~ = value  then  value = t[ 0 ].close  end 
            t[ 0 ].close =  1e10 
             return  value
          end 
       end 
    end 
 end 
  

Settings={
Name="Indicator B",
line={{
Name="Indicator B",
Color=0x0000ff,
Type=1,
Width=1
}}}

function Init()
   return #Settings.line
end

function OnCalculate()
   return 68
end

Settings={
Name="Indicator A",
ID="ID",
line={{
Name="Indicator A",
Color=0xff0000,
Type=1,
Width=1
}}}

function Init()
   return #Settings.line
end

local t={}
local n=0
local l=0
local value=0

function OnCalculate(index)
   if index==1 then return end            --проверяем если первая свечка, расcчёт не ведется
   if getNumCandles(Settings.ID)==0 then         --Settings.ID содержит название идентификатора, которое задаёт пользователь
      return                  --проверяем если индикатор "Б" не содержит свечек, рассчёт не ведется
   else
      t,n,l=getCandlesByIndex(Settings.ID,0,index-1,1)
      if t[0].doesExist==1 then         --проверяем если свечки нет, рассчет не ведется
         if t[0].close~=1e10 then      --проверяем если новое значение свечки не получено, рассчет не ведется
            if t[0].close~=value then value=t[0].close end
            t[0].close=1e10
            return value
         end
      end
   end
end

   local  t = {}
 local  n =  0 
 local  l =  0 
 local  value =  0 

 function   OnCalculate (index)
    if  index =  =  1   then   return   end              --проверяем если первая свечка, расcчёт не ведется 
    if   getNumCandles (Settings.ID) =  =  0   then           --Settings.ID содержит название идентификатора, которое задаёт пользователь 
       return                    --проверяем если индикатор "Б" не содержит свечек, рассчёт не ведется 
    else 
      t,n,l =  getCandlesByIndex (Settings.ID, 0 ,index -  1 , 1 )
       if  t[ 0 ].doesExist =  =  1   then           --проверяем если свечки нет, рассчет не ведется 
          if  t[ 0 ].close~ =  1e10   then        --проверяем если новое значение свечки не получено, рассчет не ведется 
             if  t[ 0 ].close~ = value  then  value = t[ 0 ].close  end 
            t[ 0 ].close =  1e10 
             return  value
          end 
       end 
    end 
 end 
  

   local  t = {}
 local  n =  0 
 local  l =  0 
 local  value =  0 

 function   OnCalculate (index)
    if  index =  =  1   then   return   end              --проверяем если первая свечка, расcчёт не ведется 
    if   getNumCandles (Settings.ID) =  =  0   then           --Settings.ID содержит название идентификатора, которое задаёт пользователь 
       return                    --проверяем если индикатор "Б" не содержит свечек, рассчёт не ведется 
    else 
      t,n,l =  getCandlesByIndex (Settings.ID, 0 ,index -  1 , 1 )
       if  t[ 0 ].doesExist =  =  1   then           --проверяем если свечки нет, рассчет не ведется 
          if  t[ 0 ].close~ =  1e10   then        --проверяем если новое значение свечки не получено, рассчет не ведется 
             if  t[ 0 ].close~ = value  then  value = t[ 0 ].close  end 
            t[ 0 ].close =  1e10 
             return  value
          end 
       end 
    end 
 end 
  

local t={}
local n=0
local l=0
local value=0

function OnCalculate(index)
   if index==1 then return end            --проверяем если первая свечка, расcчёт не ведется
   if getNumCandles(Settings.ID)==0 then         --Settings.ID содержит название идентификатора, которое задаёт пользователь
      return                  --проверяем если индикатор "Б" не содержит свечек, рассчёт не ведется
   else
      t,n,l=getCandlesByIndex(Settings.ID,0,index-1,1)
      if t[0].doesExist==1 then         --проверяем если свечки нет, рассчет не ведется
         if t[0].close~=1e10 then      --проверяем если новое значение свечки не получено, рассчет не ведется
            if t[0].close~=value then value=t[0].close end
            t[0].close=1e10
            return value
         end
      end
   end
end