VNG_nemo (Автор тем)

function GETTRENDLINE(LineNumber,APntIdx,BPntIdx,Trend)
---[[
   local Line
   local indx
   local TrLine={}
   indx=Size()-1;
   for i=0,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]
if LineNumber==2 then
message("GETTRENDLINE  "..tostring( g_tChLines[Trend][i]).."  "..tostring(i))
end               
      SetValue(i+1, LineNumber, TrLine[i])
      end
   
   end
   return TrLine
--]]
end

      j=0;
      for i=AidxUp, BidxUp, 1 do
      --линия тренда верхней границы канала
         tChUp[i] = math_round(APointLvl+koef*j,g_PriceScale);
         g_tChLines.tChUp = tChUp[i]
if idx==Size() then
message("PUTINDICATOR_Up  "..tostring(g_tChLines.tChUp).."  "..tostring(i))
end            
         j=j+1;      
      end

      ChUp=GETTRENDLINE(2,AidxUp,BidxUp,"ChUp")

Settings =    {
         Name = "0_Candle",
         line =
         {
            {
            Name = "__Trend",
            Color = RGB(255, 255, 128),
            Width = 2,
            Type = TYPE_LINE
            }
         }
         }
dt={}
function Init()

   local Num=Size()

   
   for i=1, Num do
      dt=T(i)
      message(tostring(dt(i).hour))
   end

   return 1
end

function OnCalculate(index)

         
return Line1      

end

t,n,l = getCandlesByIndex(Settings.AssetID,0,0,NmbrOfCandles);      
for i=0, NmbrOfCandles do
message("Init_t   "..tostring(t[i]))
end

h = t[i].high;

function GETTRENDLINE(LineNumber,APntIdx,BPntIdx)
   local Line
   local indx
   local TrLine={}

   indx=Size();
   for i=1,indx do
      if i < APntIdx then
         TrLine[i]=nil
         SetValue(i, LineNumber, TrLine[i])
      end
      if i>=APntIdx and i<=BPntIdx then
            TrLine=g_tChLines["ChTrends"][i]
            SetValue(i, LineNumber, TrLine)
      end
      if i > BPntIdx then
         TrLine[i]=nil      
         SetValue(i, LineNumber, TrLine[i])
      end      
   end
   return TrLine
end

Settings={
   Name = "2_ind",--имя индикатора
   AssetID = "sber",--идентификатор иструмента
   LabelName = "D:\метка.bmp",--имя файла метки
   stopper = false,--обработка на каждом тике 
   complect = 0,
-- начальное местоположение меток
   fplace = 40,
   splace = 5,
   Yvalue = 0,
      line=
         {
            {
               Name = "High",
               Type =TYPE_LINE,
               Width = 1,
               Color = RGB(120,90, 140)
            }--,
            --{
               --Name = "Low",
               --Type =TYPE_LINE,
               --Width = 1,
               --Color = RGB(120,90,140)
            --},
            --{
               --Name = "Close",
               --Type =TYPE_LINE,
              -- Width = 1,
               --Color = RGB(120,90, 140)
            --},
            --{
              --Name = "Open",
               --Type =TYPE_LINE,
               --Width = 1,
               --Color = RGB(120,90,140)
            --}
         --}
         }
}

--глобальные переменные
-- Внимание, название всех параметров меток должны писаться большими буквами
   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={}
   
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; --путь к файлу метки
--номер предпоследней справа свечи на графике. Нумерация начинается с нуля.
    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["spl"] = PUTLABEL(CandleIndex);
      --message("Initsplace  "..tostring(tposixOldLabelTime["splace"]));   
      --message("Initsplace  "..tostring(Label_Id["spl"]));                  

   CandleIndex = NmbrOfCandles-Settings.fplace;
   tposixOldLabelTime["fplace"], Label_Id["fpl"] = PUTLABEL(CandleIndex);
      --message("Initfplace  "..tostring(tposixOldLabelTime["fplace"]));   
      --message("Initfplace  "..tostring(Label_Id["fpl"]));   
--берем из таблицы только время-дату свечи
   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 1

end