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

local size = 1000000 local N=1023  local F = {}

local function shiftArray(x)
    F[3] = F[2]    F[2] = F[1]  F[1] = x  end
start = os.clock() for I=1,size do shiftArray(I) end time = 1000000*(os.clock()- start)/size
print("1. вариант 1(мкс):",time)

local index=0;
local function addElement(x) index=(index % 3)+1 F[index] = x end
start = os.clock()  for I=1,size do addElement(I) end time = 1000000*(os.clock()- start)/size
print("2. вариант 1a(мкс):", time)

index=0;
local function addElement(x)
    index=(index%3)+1 F[index]=x
    local result = {}  for i = 1,3 do  result[i]=F[(index-i+3)%3 + 1]    end
    return result
end
local index=0 start= os.clock() for I=1,size do  addElement(I)  end time = 1000000*(os.clock()- start)/size
print("3. вариант 2:(мкс):", time)

---- 3. Простой вариант с переменной currentIndex
local cIndex = 1
local function addElement(x) F[cIndex]=x cIndex=cIndex+1 if cIndex>N then cIndex=1 end end
start = os.clock()  for i= 1, size do   addElement(i) end  time = 1000000*(os.clock()- start)/size
print("4. вариант 3(мкс):", time)

local cIndex=1
local function addElementNK(x) F[cIndex&N]=x cIndex=cIndex + 1 end
start=os.clock() for i = 1, size do    addElementNK(i) end  time = 1000000*(os.clock()- start)/size
print("5. вариант NK(мкс):", time)

local cIndex = 1
start=os.clock() for i = 1, size do F[cIndex&N]=i;cIndex=cIndex+1 end time = 1000000*(os.clock()- start)/size
print("6. вариант NK без функции(мкс):", time)

1. вариант 1(мкс):   0.047
2. вариант 1a(мкс):   0.048
3. вариант 2:(мкс):   0.721
4. вариант 3(мкс):   0.045
5. вариант NK(мкс):   0.04
6. вариант NK без функции(мкс):   0.012
>Exit code: 0

---- 3. Простой вариант с переменной currentIndex
local F = {} for i = 1, 1000 do  F[i]=0 end
size=1000000
local N=1024
local currentIndex = 1
local function addElement(x) F[currentIndex]=x currentIndex=currentIndex+1 if currentIndex>N then currentIndex=1 end return F end
local start_time = os.clock()
for i = 1, size do   addElement(i) end -- повторяем 1 млн.
local end_time = os.clock()
print("4. Время выполнения для варианта 3:", end_time - start_time, "секунд")

local N=1024
local F = {} for i = 1,N do  F[i]=0 end
size=1000000
local currentIndex = 1
local function addElementNK(x) F[currentIndex&(N-1)]=x currentIndex=currentIndex + 1 return F end
local start_time = os.clock()
for i = 1, size do    addElementNK(i) end -- повторяем 1 млн.
local end_time = os.clock()
print("5. Время выполнения для варианта NK:", end_time - start_time, "секунд")

4. Время выполнения для варианта 3:   0.046   секунд
5. Время выполнения для варианта NK:   0.043   секунд

local N=1024
local F = {} for i = 1,N do  F[i]=0 end
size=1000000
local currentIndex = 1
local start_time = os.clock()
for i = 1, size do    F[currentIndex&(N-1)]=i;currentIndex=currentIndex + 1 end -- повторяем 1 млн.
local end_time = os.clock()
print("6. Время выполнения для варианта NK без функции:", end_time - start_time, "секунд")

6. Время выполнения для варианта NK без функции:   0.014   секунд

Время выполнения стек 0(сек):   0.048,0.051
Время выполнения очередь(сек):   0.036,0.051
>Exit code: 0

Время выполнения стек 0(сек):   0.003,0.001
Время выполнения очередь(сек):   0,0.001

1. Время выполнения для варианта 1:   0.005   секунд
2. Время выполнения для варианта 1a:   0.005   секунд
3. Время выполнения для варианта 2:   0.077   секунд
4. Время выполнения для варианта 3:   0.004   секунд
>Exit code: 0

1. Время выполнения для варианта 1:   0.001   секунд
2. Время выполнения для варианта 1a:   0.001   секунд
3. Время выполнения для варианта 2:   0.015   секунд
4. Время выполнения для варианта 3:   0   секунд
>Exit code: 0

name="*Vet_Rollback"
Settings={Name =name};

function OnCalculate(i)
  local Hi,Li=H(i),L(i)
  if i==1 then
   maxh=0
  else
  if Hi then
    if maxh<Hi then maxh = Hi end
    rollback=(Li-maxh)/maxh * 100
    message(tostring(maxh..";"..Hi..";"..Li..";"..rollback))
  end
  end
return rollback
end


function Init()
Settings.line ={ { Color = RGB(153, 204, 0),Type = TYPE_HISTOGRAM,Width = 0}}
return #Settings.line
end

local ChannelPDF={}
function ChannelPDF:FilterSmooth()
    local F = {0, 0, 0}  -- кольцевой буфер на 3 элемента
    local index = 1
    local start = true
    return function(I, x)
        if I == 1 or start then
            F = {0, 0, 0} -- Инициализация значений
            index = 1 -- Инициализация индекса
            start = false
        end
        F[index] = x -- Обновление (новое значение)
        local y = F[index] + 2 * F[(index - 1 - 1) % 3 + 1] + F[(index - 2 - 1) % 3 + 1]
        y = y and (y >= 1 and 0.999 or y <= -1 and -0.999 or x) or y
        index = index % 3 + 1 -- Обновление индекса
        return y
    end
end

function   shiftArray (x)  local  z = F[ 1 ] F[ 1 ] = F[ 2 ] F[ 2 ] = F[ 3 ] F[ 3 ] = x   return  z  end

path="C:/clibs/"  -- здесь лежит dll
package.cpath = package.cpath ..path.."?.dll"

 local   function   shiftArray (x)  local  z = F[ 1 ] F[ 1 ] = F[ 2 ] F[ 2 ] = F[ 3 ] F[ 3 ] = x   return  z  end 
---------------------------
 for  I =  1 , 10   do  print (shiftArray(I), F[ 1 ], F[ 2 ], F[ 3 ] )
 end 
-----------------------  
результат:
0   0   0   1
0   0   1   2
0   1   2   3
1   2   3   4
2   3   4   5
3   4   5   6
4   5   6   7
5   6   7   8
6   7   8   9
7   8   9   10
>Exit code: 0

- Метод FilterSmooth
local ChannelPDF={}
function ChannelPDF:FilterSmooth()
    local F = {0, 0, 0}  -- кольцевой буфер на 3 элемента
    local index = 1
    local start = true
    return function(I, x)
        if I == 1 or start then
            F = {0, 0, 0} -- Инициализация значений
            index = 1 -- Инициализация индекса
            start = false
        end
        F[index] = x -- Обновление (новое значение)
        local y = F[index] + 2 * F[(index - 1 - 1) % 3 + 1] + F[(index - 2 - 1) % 3 + 1]
        y = y and (y >= 1 and 0.999 or y <= -1 and -0.999 or x) or y
        index = index % 3 + 1 -- Обновление индекса
        return y
    end
end

local F={0,0,0} 
local function shiftArray(x) local x=F[1] F[1]=F[2] F[2]=F[3] F[3]=x  return x end

name="nk_insBar";
Settings={Name =name};
local function  Cn(i) local Ci,Oi=C(i),O(i);if Ci>=Oi then return Ci,Oi; end return Oi,Ci; end
j=1;
function OnCalculate(i)
    Hi,Li=H(i),L(i);
    if Hi~=Li then
        BH,BL=Cn(i)
        if i~=j then BH1,BL1=Cn(j); H1,L1=H(j),L(j); j=i; end
        if H_ then
      if Hi>H_ or L_>Li then H1_,L1_=H_,L_;  H_,L_=nil; end
        else
      if H1>=Hi and Li>=L1 then  BH_,BL_,H_,L_=BH1,BL1,H1,L1; end
        end
    end
    if H_ then return H_,L_; else return H1_,L1_; end
end

function Init()
   Settings.line = {
      {Name = "H_",Color = RGB(0, 0, 255), Type =3, Width = 2},
      {Name = "L_",Color = RGB(255, 0, 255), Type =3, Width = 2},
   };
   return #Settings.line;
end