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

local  x, y
 function   main ()
   while   true   do 
    y=99
    x= 99 
    x, y  =  y, x
     if  x~= 99   or  y ~= 199   then 
      s  =  tostring(x) .. "," .. tostring(y) .. "\n"
     end 
       sleep(1);
   end  
 end  

minfo=debug.getinfo(1, "S").source:sub(2);  path=minfo:match("(.*[/\\])") or "."
Log=io.open(path.."/test.log","w"); 
fconnect=1; 
local x,y;
function main()
    while true do
        y=99 x=199      x,y=y,x;
        if x~=99 or y~=199 then
            Log:write(tostring(x)..","..tostring(y).."\n");Log:flush();
        end
            sleep(1);
       end 
end   
function OnParam(c, s) 
   y=100 x=200      x,y=y,x;
   if x~=100 or y~=200 then
        Log:write(tostring(x)..","..tostring(y).."\n");Log:flush();
    end
end

function OnInit(p) 
 fconnect=1;
end

minfo=debug.getinfo(1, "S").source:sub(2);  path=minfo:match("(.*[/\\])") or "."
Log=io.open(path.."/test.log","w"); 
fconnect=1; 
local x,y;
function main()
  while  fconnect do 
        fconnect=2
        while fconnect==2 do
            y=99 x=199      x,y=y,x;
            if x~=99 or y~=199 then
                Log:write(tostring(x)..","..tostring(y).."\n");Log:flush();
            end
        end 
        sleep(10);
    end
    sleep(1000) 
end   
function OnParam(c, s) 
   y=100 x=200      x,y=y,x;
   if x~=100 or y~=200 then
        Log:write(tostring(x)..","..tostring(y).."\n");Log:flush();
    end
end

function OnInit(p) 
 fconnect=1;
end

function OnCalculate(i)
  local buy,sel;
  if i==1 then OnChangeSettings() 
    i1=0; t={}; Prof=0; Los=0; Q=Settings.Q; com=Settings.com; ProfAll=0;  BS=0;
  elseif i1~=i  then 
     ind(i1,Settings.tag,t); 
     if #t>0 then
          local Oi,Hi,Li=O(i1),H(i1),L(i1)  local prib=0;  local z=T(i1);   x=t[#t]; 
          params.DATE=100*(100*z.year+z.month)+z.day; 
          params.TIME=100*(100*z.hour+z.min)+z.sec;
          if Li>x and 0>=BS then buy=Li-0.05;  if BS==0 then prib=-com; else prib=(1-com)*(price/Oi-1); end  BS=1; price=Oi; params.YVALUE=buy-0.1; end
          if x>Hi and BS>=0  then  sel=Hi+0.05 if BS==0 then prib=-com; else prib=(1-com)*(Oi/price-1); end price=Oi;  BS=-1; params.YVALUE=sel+0.1; end
          if buy or sel then
            ProfAll=ProfAll+prib;    params.TEXT=(0.1*(1000*ProfAll//1)).."%" 
            if ProfAll>=0 then params.B=255 params.R=0 else params.B=0 params.R=255 end
            Label=AddLabel(Settings.tag,params);
          end
      end
  end
  i1=i;  
 return buy,sel;
 end

function Init() 
local t={} Settings.line =t;
   t[#t+1]={Name = "Bu",Color = RGB(0,255,0),Type = 10,Width = 4};
    t[#t+1]={Name = "Se",Color = RGB(255,0,0),Type = 11,Width = 4};
   return #t; end
    
function OnDestroy ()  DelAllLabels(Settings.tag) end
function OnChangeSettings() 
   DelAllLabels(Settings.tag); 
end

Settings={ tag="moving", Name = '*nk_test'}
params={R=0,G=0,B=255,TRANSPARENCY=0,FONT_HEIGHT=10,TRANSPARENT_BACKGROUND= 1,FONT_FACE_NAME= 'Verdana'}

function ind(i,tag,t)
  local M=getNumCandles (tag);  
  if M>=i then x=getCandlesByIndex(tag,0,i,1); if x then t[#t+1]=x[0].close end   end
  end

function OnCalculate(i)
local buy,sel;
  if i==1 then  i1=0; t={}; BS=0;
  elseif i1~=i  then  ind(i1,Settings.tag,t);  
      if #t>0 then  local x=t[#t];  if L(i)>x and 0>=BS then  buy=L(i)-0.05; BS=1; params.TEXT="buy" 
      end  if x>H(i) and BS>=0 then   sel=H(i)+0.05 BS=-1; params.TEXT="sel" end end
      -----------------------------------
      if sel or buy then  
        local x=T(i); params.DATE=100*(100*x.year+x.month)+x.day; params.TIME=100*(100*x.hour+x.min)+x.sec;
       if buy then  params.YVALUE=buy-0.1 else  params.YVALUE=sel+0.1 end;
       Label=AddLabel(Settings.tag,params); 
      end
      -------------------------------
   end
  i1=i;  
 return buy,sel;
 end

function Init() 
local t={} Settings.line =t;
   t[#t+1]={Name = "Bu",Color = RGB(0,255,0),Type = 10,Width = 4};
    t[#t+1]={Name = "Se",Color = RGB(255,0,0),Type = 11,Width = 4};
   return #t; end
    
function OnDestroy ()  DelAllLabels(Settings.tag) end

Settings={ tag="moving", Name = '*nk_test'}

function ind(i,tag,t)
  local M=getNumCandles (tag);  
  if M>=i then x=getCandlesByIndex(tag,0,i,1); if x then t[#t+1]=x[0].close end   end
  end

function OnCalculate(i)
local buy,sel;
  if i==1 then  i1=0; t={}; BS=0;
  elseif i1~=i  then  ind(i1,Settings.tag,t);  
      if #t>0 then  local x=t[#t];  if L(i)>x and 0>=BS then buy=L(i)-0.05; BS=1;  end  if x>H(i) and BS>=0 then sel=H(i)+0.05 BS=-1; end end
   end
  i1=i;  
 return buy,sel;
 end

function Init() 
local t={} Settings.line =t;
   t[#t+1]={Name = "Bu",Color = RGB(0,255,0),Type = 10,Width = 4};
    t[#t+1]={Name = "Se",Color = RGB(255,0,0),Type = 11,Width = 4};
   return #t; end

Settings={ tag="moving", Name = '*nk_test'}

function OnCalculate(i)
 if i==1 then  i1=0; t={};
 elseif i1~=i  then local M=getNumCandles (Settings.tag);  
    if M>=i then x=getCandlesByIndex(Settings.tag,0,i1,1); if x then t[#t+1]=x[0].close end  i1=i;  end
 end
 i1=i;  if #t>0 and t[#t]~=0 then  return t[#t]+0.1; end
end

function Init() 
local t={} Settings.line =t;
t[#t+1]={Name = "Bu",Color = RGB(0,255,0),Type = 10,Width = 3};
return #t;
end

function OnCalculate(index)
  ...
if v and v==0 then v=nil end
return v
end

function OnCalculate(index)
  ...
if v and v~=0 then return v end
end

   local t=getDataSourceInfo(); 
   int=t.interval; clas=t.class_code; sec=t.sec_code;

 Out = (O and O(I)) or (ds and ds:O(I))

(O and O(I)) 

(ds and ds:O(I))

 for i = 0, 50000 do
            local _, n = getCandlesByIndex(o.tag, o.line, i, 1)

Settings={ Name = "*nk_test", tag ="Metka"  }

params={R = 255, G = 255, B = 255, TRANSPARENCY = 0,FONT_HEIGHT = 10,TRANSPARENT_BACKGROUND = 1, FONT_FACE_NAME = 'Verdana' }

function OnCalculate(i)
   if i==1 then
   OnChangeSettings()
   elseif i== Size() then    -- последняя свеча
      if os.time() > LastSecond  then          -- раз в секунду (или больше)
           LastSecond = os.time();    -- потиковое обновление (с задержкой)
          DelAllLabels(Settings.tag);
            params.TEXT =tostring(C(i))
            params.HINT = tostring(i)
         local h=0   local  m=i;
         while 14>i-m  do if H(m) > h then h=H(m) end;m=m-1;   end
         local Ti=T(i-3)
         params.DATE=100*(100*Ti.year+Ti.month)+Ti.day;
         params.TIME=100*(100*Ti.hour+Ti.min)+Ti.sec;
         params.YVALUE =h;
         Label= AddLabel(Settings.tag, params)
        end -- every second
    end
end

function OnChangeSettings()
sec = getDataSourceInfo().sec_code; 
DelAllLabels(Settings.tag);
LastSecond=0  end
function OnDestroy() OnChangeSettings() end
function Init()  return 1 end

Settings={ Name = "*nk_test", tag ="Metka"  }

params={R = 255, G = 255, B = 255, TRANSPARENCY = 0,FONT_HEIGHT = 10,TRANSPARENT_BACKGROUND = 1, FONT_FACE_NAME = 'Verdana' }

function OnCalculate(i)
   if i==1 then
   OnChangeSettings()
   elseif i== Size() then    -- последняя свеча
      if os.time() > LastSecond  then          -- раз в секунду (или больше)
           LastSecond = os.time();    -- потиковое обновление (с задержкой)
          DelAllLabels(Settings.tag);
            params.TEXT =tostring(C(i))
            params.HINT = tostring(i)
         local h=0   local  m=i;
         while 14>i-m  do if H(m) > h then h=H(m) end;m=m-1;   end
         local Ti=T(i-3)
         params.DATE=100*(100*Ti.year+Ti.month)+Ti.day;
         params.TIME=100*(100*Ti.hour+Ti.min)+Ti.sec;
         params.YVALUE =h;
         Label= AddLabel(Settings.tag, params)
        end -- every second
    end
end

function OnChangeSettings()
sec = getDataSourceInfo().sec_code; 
DelAllLabels(Settings.tag);
LastSecond=0  end
function OnDestroy() OnChangeSettings() end
function Init()  return 1 end