for  k =  0 ,NmbrOfCandles -  1    do 
      count  =  count  +   1 ;  if  count  >   100000   then   break   end ;
 --преобразуем в POSIX-формат поле datetime 
 --транспонируем таблицу - индексируем по времени       
      tDT[k]  =  os.time (t[k].datetime);
      tposixByTime[tDT[k]]  =  k;
       if  k =  =  1   then  
          message ( "Init_tDT_ "  .. tostring(tDT[k]))
       end 
       if  k =  = NmbrOfCandles -  1   then 
          message ( "Init_tDT_tposixByTime_ "  .. tostring( # tDT) .. " " .. tostring( # tposixByTime))
       end       
    end 
  

tposixByTime={}
tposixByTime[2] = 1;
tposixByTime[3] = 2;
 message("tposixByTime="..tostring(#tposixByTime))

tposixByTime={}
tposixByTime[1] = 1;
tposixByTime[2] = 2;
 message("tposixByTime="..tostring(#tposixByTime))

   for k=0,NmbrOfCandles-1  do
      count = count + 1; if count > 100000 then break end;
--преобразуем в POSIX-формат поле datetime
--транспонируем таблицу - индексируем по времени      
      tDT[k] = os.time (t[k].datetime);
      tposixByTime[tDT[k]] = k;
      if k==1 then 
         message("Init_tDT_ "..tostring(tDT[k]))
      end
      if k==NmbrOfCandles-1 then
         message("Init_tDT_tposixByTime_ "..tostring(#tDT).." "..tostring(#tposixByTime))
      end      
   end

package.path = package.path .. ";" .. getWorkingFolder() .."\\LuaIndicators\\modules\\" .. "?.lua";

require ("Format");
require ("Round");
require ("Lines");

Settings={
   Name = "0_28.02.2019_0",--имя индикатора
   AssetID = "sber",--идентификатор инструмента
   LabelName = "D:\метка.bmp",--имя файла метки "down-254095_1280_1",
   stopper = false,--обработка на каждом тике 
   complect = 0,
-- начальное местоположение меток
   fplace = 100,
   splace = 5,
   Yvalue = 0,
      line=
         {
            {
               Name = "ChTrnd",
               Type =TYPE_LINE,
               Width = 1,
               Color = RGB(255,255, 0)
            },
            {
               Name = "UpTrend",
               Type =TYPE_LINE,
               Width = 1,
               Color = RGB(0,255,0)
            },
            {
               Name = "DnTrend",
               Type =TYPE_LINE,
               Width = 1,
               Color = RGB(0,255, 0)
            },
            {
               Name = "APointLvl",
               Type =TYPE_LINE,
               Width = 1,
               Color = RGB(120,90,140)
            },
            {
               Name = "BPointLvl",
               Type =TYPE_LINE,
               Width = 1,
               Color = RGB(120,90,140)
            },
            {
               Name = "IntLine1",
               Type =TYPE_LINE,
               Width = 1,
               Color = RGB(105,105,105)--DimGray
            },
            {
               Name = "IntLine2",
               Type =TYPE_LINE,
               Width = 1,
               Color = RGB(0,0,255)--Blue
            },
            {
               Name = "IntLine3",
               Type =TYPE_LINE,
               Width = 1,
               Color = RGB(218,165,32)--Goldenrod
            },
            {
               Name = "IntLine4",
               Type =TYPE_LINE,
               Width = 1,
               Color = RGB(255,0,0)--Red
            },
            {
               Name = "IntLine5",
               Type =TYPE_LINE,
               Width = 1,
               Color = RGB(0,128,0)--Green
            },
            {
               Name = "IntLine6",
               Type =TYPE_DASHDOT,
               Width = 2,
               Color = RGB(255,0,0)--Red
            }                              
         }
}

--глобальные переменные
-- Внимание, название всех параметров меток должны писаться большими буквами
   label={
                --TEXT="метка";
                IMAGE_PATH=Settings.LabelName;
                --TRANSPARENCY=50,
                --TRANSPARENT_BACKGROUND=1,
                --YVALUE=Settings.Yvalue,
                DATE=0,
                TIME=0;
             --R=255;
             --G=255;
             --B=255;
            }

t={}--исходная таблица данных свечек
tposixByTime={}--индексы свечек проиндексированные по времени
tposixOldLabelTime={}--таблица старых значений даты-времени выведенных на чарт меток в POSIX-формате
count=0--ограничитель количества циклов
Label_Id = {}--массив с идентификаторами меток         
ScriptPath=""--полный путь к иконке (для метки)
flagIndExist=false--флаг существования индикатора на чарте
flagLblModify=false--флаг, сигнализирующий о перемещении метки
a=0
b=0
c=0
k=0
v=0
tDT={}
g_PriceStep = 0--шаг цены
g_PriceScale = 0--точность цены
g_tChLines={}

g_APointIdx=0;
g_BPointIdx=0;   
g_APointLvl=0;
g_BPointLvl=0;
   
function Init()

--объявление переменных. Присваиваем начальные значения чтобы сразу типизировать.
   local n = 0--количество строк в таблице (количество свечек)
   local l = ""--подпись инструмента
   local NmbrOfCandles = 0--номер последней справа свечи на графике
   local CandleIndex = 0
   --local tDT={}

---[[   
    if Settings.AssetID == "" then 
        message("Необходимо установить идентификатор инструмента")
    end
   --ScriptPath = getScriptPath().."\\"..Settings.LabelName;   --путь к файлу метки
      --message("Init_ScriptPath  "..ScriptPath);      
   --label["IMAGE_PATH"]=ScriptPath;
--номер предпоследней справа свечи на графике. Нумерация начинается с нуля.
    NmbrOfCandles = getNumCandles(Settings.AssetID)-2;
--получим таблицу с данными всех свечек, проиндексированную по номеру свечки
--t - таблица значений свечек
--n - количество полученных свечек(строк таблицы)
--l - подпись к инструменту
--текущую свечу не получаем
   t,n,l = getCandlesByIndex(Settings.AssetID,0,0,NmbrOfCandles);
--получить индекс двух свечек, номера которых заданы во входных параметрах
--и установить метки
   CandleIndex = NmbrOfCandles-Settings.splace;
   tposixOldLabelTime["splace"], Label_Id["splace"] = PUTLABEL(CandleIndex);
   CandleIndex = NmbrOfCandles-Settings.fplace;
   tposixOldLabelTime["fplace"], Label_Id["fplace"] = PUTLABEL(CandleIndex);
--берем из таблицы только время-дату свечи
   count = 0;
   for k=0,NmbrOfCandles-1  do
      count = count + 1; if count > 100000 then break end;
--преобразуем в POSIX-формат поле datetime
--транспонируем таблицу - индексируем по времени      
      tDT[k] = os.time (t[k].datetime);
      b=k;
      tposixByTime[tDT[b]] = b;
      --[[
      if NmbrOfCandles-Settings.splace==b then
         --message("Initsplace  "..tostring(tDT[b]).."  "..tostring(tposixByTime[b]))
      end;
      if NmbrOfCandles-Settings.fplace==b then
         --message("Initfplace  "..tostring(tDT[b]).."  "..tostring(tposixByTime[b]))
      end         
      --]]
   end

   return 11

end

function OnCalculate(index)

   local info={}
   local CandleIndex
   local LblIdF = 0
   local LblIdS = 0   
   local indput
   local IndLines={}
   local VChTrend
   local VAPointLvl
   local VBPointLvl
   local flagIndChange=false--true-перестроить индикатор, false - не перестраивать

   if index==1 then
      info = getDataSourceInfo();
      --шаг цены
      g_PriceStep = getParamEx(info.class_code, info.sec_code, 'SEC_PRICE_STEP').param_value
      --точность цены
      g_PriceScale = getParamEx(info.class_code, info.sec_code, 'SEC_SCALE').param_value
   end

   
   if t==nil then
   --номер предпоследней справа свечи на графике. Нумерация начинается с нуля.
      NmbrOfCandles = getNumCandles(Settings.AssetID)-2;
   --получим таблицу с данными всех свечек, проиндексированную по номеру свечки
   --t - таблица значений свечек
   --текущую свечу не получаем
      t,n,l = getCandlesByIndex(Settings.AssetID,0,0,NmbrOfCandles);
   --берем из таблицы только время-дату свечи
      count = 0;
      for k=0,NmbrOfCandles-1  do
         count = count + 1; if count > 100000 then break end;
   --преобразуем в POSIX-формат поле datetime
   --транспонируем таблицу - индексируем по времени      
         tDT[k] = os.time (t[k].datetime);
         b=k;
         tposixByTime[tDT[b]] = b;
      --[[
      if NmbrOfCandles-Settings.splace==b then
         --message("Initsplace  "..tostring(tDT[b]).."  "..tostring(tposixByTime[b]))
      end;
      if NmbrOfCandles-Settings.fplace==b then
         --message("Initfplace  "..tostring(tDT[b]).."  "..tostring(tposixByTime[b]))
      end         
      --]]
      end
   end
   
---[[
--если флаг перемещения метки не установлен
   if flagLblModify==false then
--проверяем перемещалась ли первая метка   
      LblIdF=IsLabelChange("fplace");
--проверяем вторую метку      
      LblIdS=IsLabelChange("splace");
      --если индикатор существует, то выходим без расчетов, возвращаем массив линий
         if  flagIndExist==true then
               flagIndChange=false;
         --иначе строим индикатор, возвращаем массив линий      
            else 
            flagIndChange=true;
         end
   --если метка перемещалась flagLblModify==true         
      else
      --строим индикатор, выставляем флаг изменения индикатора, 
      --сбрасываем флаг метки, возвращаем индикатор
         flagIndChange=true;   
   end
   --рассчитываем индикатор или выводим линии без расчета
   VChTrend,VChUp,VChDn,VAPointLvl,VBPointLvl,VIntLine1=PUTINDICATOR(LblIdF,LblIdS,flagIndChange,index)
   --]]
   if index==0 then VChTrend=nil end
   if index >= Size() then VChTrend=nil end   
   return VChTrend,VChUp,VChDn,VAPointLvl,VBPointLvl,VIntLine1,VIntLine2,VIntLine3,VIntLine4,VIntLine5,VIntLine6
end

function IsLabelChange(place)
--функция принимает индекс массива Label_Id("строка")
--устанавливает глобальные флаги и 
--записывает posix-время в глобальную таблицу tposixOldLabelTime
--возврашает Id метки
   local LblId = 0
   local posixNewLblTime = 0   
   local posixOldLblTime = 0


--проверяем перемещалась ли метка   
--считываем Id метки из массива   
      LblId = Label_Id[place];
--считываем posix-время для этой метки
      posixOldLblTime = tposixOldLabelTime[place];
--преобразуем время метки с чарта в posix-формат
--если функция вернула nil, время не меняем
      if GETLABLEPOSIXTIME (LblId)== 0 then
         posixNewLblTime = posixOldLblTime
         else 
            posixNewLblTime = GETLABLEPOSIXTIME (LblId)
      end
   --если время не совпадает, выставляем флаги отсутствия индикатора и модификации метки
      if   posixOldLblTime ~= posixNewLblTime  then
      --выставляем флаги
         --метка перемещена   
         flagLblModify=true;
         --индикатор не построен
         flagIndExist=false;
      --изменяем время метки в массиве
         tposixOldLabelTime[place] = posixNewLblTime;                  
      end

   return LblId
end 
   
PUTLABEL = function (index)
--[[функция для установки метки на чарт по индексу
   принимает индекс свечи 
   возвращает время метки в posix-формате и Id метки
   
   входные параметры:
            -индекс свечи
            -строка с названием точки для индексации массива установленных меток
   вызывается в Init()
--]]
   local Date=""--дата свечки
   local Time=""--время свечки   
   local Yvalue=0
   LabelId=0
   --message ("PUTLABELindex.."..tostring(index));
--дата и время свечи
   Date=t[index].datetime.year..Format.FTEXT(t[index].datetime.month)..Format.FTEXT(t[index].datetime.day); --дата

   Time=Format.FTEXT(t[index].datetime.hour)..Format.FTEXT(t[index].datetime.min)..Format.FTEXT(t[index].datetime.sec);

--привязка к оси У
   Yvalue = t[index].high;
--заполнить структуру данных метки
      label={
         IMAGE_PATH=Settings.LabelName;
         YVALUE=Settings.Yvalue+Yvalue;
         DATE=Date,
           TIME=Time         
         };
--добавляем метку на чарт и запоминаем Id метки в массиве, проиндексированном принятой строкой         
   LabelId = AddLabel(Settings.AssetID,label);
   --message ("PUTLABELindex  LabelId  "..tostring(LabelId))
   return os.time (t[index].datetime), LabelId
end

function GETLABLEPOSIXTIME (LabelId)

--функция принимает Id метки и возвращает ее время в posix-формате
--при перемещении метки временно Id может стать нулем, поэтому функция выдает ошибку ноль
   local id--Id метки
   local NewLbLParam = {}--структура параметров метки
   local LabelTime = ""--строка с данными даты-времени метки
   local dt={}--структура в формате datetime
   local err=0
   local retval
---[[   
   id = LabelId;
--получаем таблицу с параметрами метки (в нижнем регистре в формате строки)
   if LabelId==0 then retval=err
      else
         NewLbLParam = GetLabelParams(Settings.AssetID, id);
      --преобразуем в формат datetime
         dt.year,dt.month,dt.day = string.match(NewLbLParam.date,"(%d%d%d%d)(%d%d)(%d%d)")
         if #NewLbLParam.time == 5 then 
               LabelTime="0".. NewLbLParam.time 
            else LabelTime="".. NewLbLParam.time
         end
         dt.hour,dt.min,dt.sec = string.match(LabelTime,"(%d%d)(%d%d)(%d%d)");
      --преобразуем в формат POSIX
         retval = os.time (dt)
   end;
   return retval;
end

function PUTINDICATOR(LblId1,LblId2,boolIndChange,idx)

   local a=0
   local i
   local j
   local k
   local TrndH=0
   local TrndL=0   
   local h
   local l 
   local CndlIdx1=0
   local CndlIdx2=0
   local tABIdx={}
   local IntervalCndlNmbr=0
   local koef

   local tChTrend={}
   local tChUp={}
   local tChDn={}
   local ChUpMax=0
   local ChDnMin=0
   local posixLblTime1
   local posixLblTime2   
   local APointIdx
   local BPointIdx   
   local APointLvl
   local BPointLvl
   local idxUpMax
   local idxDnMin
   local AidxUp
   local AidxDn
   local BidxUp
   local BidxDn
   local ChTrnd--=200
   local ChUp--=210
   local ChDn--=190
   local APntLvl--=220
   local BPntLvl--=180   
   local StepsUp
   local TrUp=false
   local TrDn=false
   local Lu

   
   g_tChLines["ChTrend"]=tChTrend;
   g_tChLines["ChUp"]=tChUp;
   g_tChLines["ChDn"]=tChDn;
--если метка перемещалась или индикатор строится впервые рассчитываем линии и выводим их
   if boolIndChange then
   
   --для каждой свечи в интервале между метками получить максимальное и минимальное 
   --значение цены
   --сравниваем время меток для задания переменной цикла
   --если GETLABLEPOSIXTIME вернула ошибку
      if GETLABLEPOSIXTIME (LblId1)==0 or LblId1==0 then
      --считываем старое время из массива
            posixLblTime1 = tposixOldLabelTime.fplace
         --иначе считываем новое время метки
         else posixLblTime1 = GETLABLEPOSIXTIME (LblId1)
      end
   --так же и для второй метки
      if GETLABLEPOSIXTIME (LblId2)==0 or LblId2==0 then
            posixLblTime2 = tposixOldLabelTime.splace   
         else posixLblTime2 = GETLABLEPOSIXTIME (LblId2)
      end
   --получаем значения индекса свечи по его posix-времени
      CndlIdx1=tposixByTime[posixLblTime1];
      CndlIdx2=tposixByTime[posixLblTime2];
   --если метка перемещена вправо за последнюю свечу, то индекс = максимальному
      if CndlIdx1 == nil then CndlIdx1 = Size() end
      if CndlIdx2 == nil then CndlIdx2 = Size() end
   --находим более раннюю свечу   
      if CndlIdx1 < CndlIdx2 then
            j=CndlIdx1;
            k=CndlIdx2
         else 
            j=CndlIdx2;
            k=CndlIdx1   
      end
--message("PUTINDICATOR_CndlIdx1_CndlIdx2_j_k_"..tostring(CndlIdx1).."_"..tostring(CndlIdx2).."_"..tostring(j).."_"..tostring(k));      

   --для всех свечей внутри диапазона меток
      for i = j, k, 1 do
      --находим максимальное и минимальное значение и индекс свечки
         h = t[i].high;
         l = t[i].low;
         if h~=0 then
            if h >= TrndH then 
               TrndH = h;            
               tABIdx["hi"] = i--индекс свечки
            end;
         end
         if l~=0 then
            if TrndL==0 then TrndL = l end;
            if l <= TrndL then 
               TrndL = l;
               tABIdx["lo"] = i--индекс свечки      
            end;
         end
--message("PUTINDICATOR_h_l_"..tostring(h).."_"..tostring(l));      
         
--message("PUTINDICATOR_TrndH_TrndL_tABIdx.hi_tABIdx.lo_"..tostring(TrndH).."_"..tostring(TrndL).."_"..tostring(tABIdx["hi"]).."_"..tostring(tABIdx["lo"]));      
         
      end   
   --находим количество свечек на интервале тренда (от точек А и В)
      IntervalCndlNmbr = tABIdx["hi"] - tABIdx["lo"];
      
   --если получили отрицательное число(слева индекс максимума, тренд вниз), то инвертируем
      if IntervalCndlNmbr < 0 then
         TrUp=false;
         TrDn=true;
         APointIdx=tABIdx["hi"];
         BPointIdx=tABIdx["lo"];
         APointLvl=TrndH;   
         BPointLvl=TrndL;

         else
            TrUp=true;
            TrDn=false;         
            APointIdx=tABIdx["lo"];
            BPointIdx=tABIdx["hi"];
            APointLvl=TrndL;   
            BPointLvl=TrndH;
            IntervalCndlNmbr=-IntervalCndlNmbr            
      end;

--message("PUTINDICATOR_APointIdx_BPointIdx_APointLvl_BPointLvl_"..tostring(APointIdx).."_"..tostring(BPointIdx).."_"..tostring(APointLvl).."_"..tostring(BPointLvl));      
   --вычисляем коэффициент наклона прямой
   --отрицательный (тренд вниз),положительный (тренд вверх)
      koef = (APointLvl - BPointLvl)/IntervalCndlNmbr   
--message("PUTINDICATOR  koef  "..tostring(koef));   
   
   --цикл для вычисления значений всеx линий
   --заносим значения в таблицу
      --tChTrend[APointIdx] = Round.math_round(APointLvl,g_PriceScale);
      --g_tChLines.tChTrend = tChTrend[APointIdx]
      --tChTrend[BPointIdx] = Round.math_round(BPointLvl,g_PriceScale);
      --g_tChLines.tChTrend = tChTrend[BPointIdx]      
      j=0;
      for i=APointIdx, BPointIdx, 1 do
      --вычисляем значения точек основного тренда
      --i-индекс свечи, j - номер шага
         tChTrend[i] = Round.math_round(APointLvl+koef*j,g_PriceScale);
      --заносим значения тренда в глобальную таблицу
         g_tChLines.tChTrend = tChTrend[i]
      --вычисляем значения точек верхней и нижней границы канала
         h = t[i].high;
         l = t[i].low;
         if h - tChTrend[i] > 0 and h~=0 then         
            if 
                  ChUpMax < h - tChTrend[i] 
               then
               --максимальное отклонение от тренда вверх
                  ChUpMax = h - tChTrend[i];
               --индекс свечи с максимальным отклонением от тренда
                  idxUpMax = i;
            end
         end
         if tChTrend[i] -l > 0 and l~=0 then
            if 
                  ChDnMin < tChTrend[i] -l
               then 
                  ChDnMin = tChTrend[i] - l;            
                  idxDnMin = i;
            end
         end            
         j=j+1;         
      end      
      --количество шагов от точки А
         StepsUp=Round.math_round(ChUpMax/koef,0)
      --сдвиг назад
         AidxUp = APointIdx - StepsUp;
         BidxUp = BPointIdx - StepsUp;
      --количество шагов от точки А
         StepsDn=Round.math_round(ChDnMin/koef,0)
         --сдвиг вперед
         AidxDn = APointIdx + StepsDn;
         BidxDn = BPointIdx + StepsDn;               
---[[   
   --цикл по сдвинутому назад диапазону
      j=0;
      for i=AidxUp, BidxUp, 1 do
      --линия тренда верхней границы канала
         tChUp[i] = math_round(APointLvl+koef*j,g_PriceScale);
         g_tChLines.tChUp = tChUp[i]
--message("PUTINDICATOR  tChUp_i "..tostring( tChUp[i]).."  "..tostring(i));
         j=j+1;         
      end

   --цикл по сдвинутому вперед диапазону   
      j=0;
      for i=AidxDn, BidxDn, 1 do
      --линия тренда нижней границы канала   
         tChDn[i] = math_round(APointLvl+koef*j,g_PriceScale);
         g_tChLines.tChDn = tChDn[i]
--message("PUTINDICATOR  tChDn_i "..tostring( tChDn[i]).."  "..tostring(i));         
         j=j+1;         
      end
      if TrUp==true then
      --уровени IntLine
         IntLine1=tChUp[APointIdx]
         IntLine2=tChTrend[AidxDn]
         IntLine3=tChUp[AidxDn]
         IntLine4=tChTrend[BidxUp]
         IntLine5=tChDn[BidxUp]
         IntLine6=tChDn[BPointIdx]         
      end   
      if TrDn==true then
      --уровень IntLine1
         IntLine1=tChDn[APointIdx]
         IntLine2=tChTrend[AidxUp]
         IntLine3=tChDn[AidxUp]
         IntLine4=tChTrend[BidxDn]
         IntLine5=tChUp[BidxDn]
         IntLine6=tChUp[BPointIdx]         
      end      
      
      g_APointIdx=APointIdx;
      g_BPointIdx=BPointIdx;   
      g_APointLvl=APointLvl;
      g_BPointLvl=BPointLvl;
--]]
      ChTrnd=GETTRENDLINE(1,g_APointIdx,g_BPointIdx,"ChTrend")
      ChUp=GETTRENDLINE(2,AidxUp,BidxUp,"ChUp")
      ChDn=GETTRENDLINE(3,AidxDn,BidxDn,"ChDn")
      APntLvl=GETHORLINE(g_APointLvl,4,g_APointIdx)
      BPntLvl=GETHORLINE(g_BPointLvl,5,g_BPointIdx)
      IntLin1=GETHORLINE(IntLine1,6,g_APointIdx)
      if TrUp then Lu=AidxDn end
      if TrDn then Lu=AidxUp end      
      IntLin2=GETHORLINE(IntLine2,7,Lu)
      IntLin3=GETHORLINE(IntLine3,8,Lu)      
      if TrUp then Lu=BidxUp end
      if TrDn then Lu=BidxDn end
      IntLin4=GETHORLINE(IntLine4,9,Lu)
      IntLin5=GETHORLINE(IntLine5,10,Lu)
      IntLin6=GETHORLINE(IntLine6,11,g_BPointIdx)      
   --перестроили индикатор-устанавливаем флаг
      flagIndExist=true;
      flagLblModify=false
   end         
   return ChTrnd,ChUp,ChDn,APntLvl,BPntLvl,IntLin1,IntLin2,IntLin3,IntLin4,IntLin5,IntLin6
--]]
end

function math_round (num, idp)
  local mult = 10^(idp or 0)
  return math.floor(num * mult + 0.5) / mult
end

function GETHORLINE(Level,LineNumber,Luch)
--Luch - индекс свечи от которой начнется прямая
   local indx
   local Line
   local z
   
   indx=Size()
   for i=0,indx do
      if Luch==nil then
         Line=Level
         else
         if i<=Luch then 
            Line=nil
            else
               Line=Level
         end
      end
      z=SetValue(i, LineNumber, Line)      
   end

--message("GETHORLINE  Line "..tostring(Line));
   return Line
end

function GETTRENDLINE(LineNumber,APntIdx,BPntIdx,Trend)
---[[
   local Line
   local indx
   local TrLine={}
--message("GETTRENDLINE  LineNumber Trend  "..tostring(LineNumber).."  "..tostring(Trend));
--message("GETTRENDLINE  APntIdx BPntIdx  "..tostring(APntIdx).."  "..tostring(BPntIdx));
   SetValue(1, LineNumber, nil)   
   indx=Size();
   for i=1,indx do
      if i < APntIdx then
         TrLine[i]=nil
         SetValue(i+1, LineNumber, TrLine[i])
      end
      if i > BPntIdx then
         TrLine[i]=nil      
         SetValue(i+1, LineNumber, TrLine[i])
      end         
      if i>=APntIdx and i<=BPntIdx then
            TrLine[i]=g_tChLines[Trend][i]
--message("GETTRENDLINE  TrLine_i "..tostring(i).."  "..tostring(TrLine[i]));            
            SetValue(i+1, LineNumber, TrLine[i])
      end
   
   end
   return TrLine
--]]
end

function OnDestroy ()
   local tmp
   tmp=DelAllLabels(Settings.AssetID)
end

Format={}
function Format.FTEXT (V)
--функция подставляет нули при их отсутствии на первой позиции даты-времени
   V=tostring (V)
   if string.len (V) == 1 then V = "0".. V end
   return V 
end   
return Format