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

local t=container[sec]; --это таблица цен по данному инструменту
local len=#t -- это текущее количество цен в контейнере
local n=len-N; if n<1 then n=1; end -- это номер первого из N значений цен т е Ваши цены в t[n] до t[len]

--title="<Nikolay Kamynin> kamnik@mail.ru"
Settings={
f1 ="fractals",  -- это идентификатор индикатора фрактал его надо записать в дополнительные параметры индикатора
Name = "*nk_fr_get", --имя этого индикатора
mline=0, --номер линии с графиком фрактал
}
-- выбираем фракталы в результате будет создана таблица tf
-- tf - таблица номеров свечей с фракталами
path = "./LuaIndicators/"
package.path =package.path..";"..path.."?.luac;"
require "nk_get_fr";
----------------
function Init()
 Settings.line={}; Settings.line[1]={Name = "A",Color = RGB(0,255,0),Type =1,Width = 2   };
return #Settings.line;
end
---------------
function OnCalculate(i)
  nk_get_fr.get_fractals(i);
  if i==Size() then
   local m=1; while #tf>m do  message(tostring(tf[m]),1);    m=m+1; end
  end
end

function mycallbackforallstocks(class,sec,index) 
  if container==nil then container={} end
  if container[sec]==nil then container[sec]={} end
-----------------------------
  local close=ds[sec]:C(index)
  local open=ds[sec]:O(index)
  local high=ds[sec]:H(index)
  local low=ds[sec]:L(index)
  container[sec][index]=(close+open+high+low)/4
end

Settings = {
   Name = "nk_SMA",
   Period = 9,
   line = {{Name = "SMA",Type = TYPE_LINE, Color = RGB(255, 255, 0)}}
}

function Init() return #Settings.line  end

local P,i1=0,999;  local SMA,SUM=0,0

function jget(Y,i)
local m=i;  while(m>1 and Y(m)==0) do m=m-1; end;  return m;
 end

 --расчет скользящей средней на закрытой свече
 --- расчет выполняется один раз в момент открытия новой свечи
function OnCalculate(i)
   if i~=i1 then
      if i1>i then
         SUM=C(i); i1=0; SMA=0; P=Settings.Period;
      else
         x=C(jget(C,i1)); SUM=SUM+x;
         if P>=i1 then    SMA=SUM/i1;
         else
            SUM=SUM-C(jget(C,i1-P)); SMA=SUM/P;
         end
      end
   i1=i;
   end
    return SMA;
end

Settings = {
   Name = "*nk_SMA",
   Period = 9,
   line = {{Name = "SMA",Type = TYPE_LINE, Color = RGB(255, 0, 0)}}
}

local SUM,i_,SMA,m=0,0,0,0;
function Init() return #Settings.line  end

function OnCalculate(I)
   if I == 1 then SUM=0; i_=0; SMA=C(I);m=0; end
   if I~=i_ then
      if m>Settings.Period then  m=Settings.Period;
         if C(i_-m) then SUM-C(i_-m) end
      end
      if C(I) then SUM_TMP=SUM +C(I); m=m+1; SMA=SUM/m; end
   end
      i_o=I;
   end
   return SMA;
end