INDICATORS.ZIP

Settings = {
                Name = "test",
                line =
                        {
                            {
                                Name = "test",
                                Color = RGB(192,224,255),
                                Type = TYPE_LINE,
                                Width = 2
                            }

                        }
            }
         
function Init()

   local params = {"VERSION", "TRADEDATE", "SERVERTIME",
            "LASTRECORDTIME", "NUMRECORDS", "LASTRECORD","LATERECORD",
            "CONNECTION", "IPADDRESS", "IPPORT", "IPCOMMENT",
            "SERVER", "SESSIONID", "USER", "USERID", "ORG", "MEMORY",
            "LOCALTIME", "CONNECTIONTIME", "MESSAGESSENT", "ALLSENT",
            "BYTESSENT", "BYTESPERSECSENT", "MESSAGESRECV", "BYTESRECV",
            "ALLRECV", "BYTESPERSECRECV", "AVGSENT", "AVGRECV",
            "LASTPINGTIME", "LASTPINGDURATION", "AVGPINGDURATION",
            "MAXPINGTIME", "MAXPINGDURATION"}
   logfile = io.open(getScriptPath() .. "/Logs/" .. Settings.Name..".log", "a+");
   for key,v in ipairs(params) do
      logfile:write(v .. " = " .. GetInfoParam(v) .. "\n")
   end
   logfile:flush();



    return 1

end

function OnCalculate(index)
   
   WriteLog ("OnCalc() ".."CandleExist("..index.."): "..tostring(CandleExist(index)).."; T("..index.."); "..isnil(toYYYYMMDDHHMMSS(T(index))," - ").."; C("..index.."): "..isnil(C(index),"-"));
   
   return nil;

end

-- Пользовательcкие функции
function WriteLog(text)

   logfile:write(tostring(os.date("%c",os.time())).." "..text.."\n");
   logfile:flush();
   LASTLOGSTRING = text;

end;

function isnil(a,b)
   if a == nil then
      return b
   else
      return a
   end;
end;

function toYYYYMMDDHHMMSS(datetime)
   if type(datetime) ~= "table" then
      message("в функции toYYYYMMDDHHMMSS неверно задан параметр: datetime="..tostring(datetime))
      return ""
   else
      local Res = tostring(datetime.year)
      if #Res == 1 then Res = "000"..Res end
      local month = tostring(datetime.month)
      if #month == 1 then Res = Res.."0"..month; else Res = Res..month; end
      local day = tostring(datetime.day)
      if #day == 1 then Res = Res.."0"..day; else Res = Res..day; end
      local hour = tostring(datetime.hour)
      if #hour == 1 then Res = Res.."0"..hour; else Res = Res..hour; end
      local minute = tostring(datetime.min)
      if #minute == 1 then Res = Res.."0"..minute; else Res = Res..minute; end
      local sec = tostring(datetime.sec);
      if #sec == 1 then Res = Res.."0"..sec; else Res = Res..sec; end;
      return Res
   end
end --toYYYYMMDDHHMMSS

function GetPrice(ind)
   if ind ~= 0 then
      if CandleExist(ind) == false then
         return GetPrice(ind-1);
      else
         return С(ind)
      end
   else
      return 0
   end
end

dofile(getScriptPath().."\\MA.lua")
function main() 
  func = MA()
  t_id = AllocTable()
  AddColumn(t_id,1,"Price",true,QTABLE_INT_TYPE,10)
  AddColumn(t_id,2,"MA",true,QTABLE_INT_TYPE,10)
  CreateWindow(t_id)
  SetWindowCaption(t_id,"MA")
  ds = CreateDataSource("TQBR", "LKOH", INTERVAL_M5) 
  sleep(1000)
  message (""..ds:Size(),1)
  for i=1,ds:Size() do
   ma_out=func(i, {Period=3, Metod = EMA, VType=ANY}, ds)
   tmp=InsertRow(t_id,-1)
   SetCell(t_id,tmp,1,tostring(ds:C(i)),ds:C(i))
   SetCell(t_id,tmp,2,tostring(ma_out),ma_out)
  end 
end

tmp.p = (tmp.pp*(P-1) + 2*GetValue(it.p,VT,ds)) / (P+1)