Форум QUIK [тема: Ввод собственных данных в виде индикатора в квик]

Ввод собственных данных в виде индикатора в квик

Mon, 14 Nov 2022 21:16:50 +0300

Ввод собственных данных в виде индикатора в квик индикатор для квик в форуме Программирование на языке Lua.
Вот тут посмотри https://quikluacsharp.ru/qlua-osnovy/peremennye-massivy-i-funkcii-v-qlua-lua/
14.11.2022 21:16:50, Евгений.

Ввод собственных данных в виде индикатора в квик

Mon, 14 Nov 2022 16:22:11 +0300

Ввод собственных данных в виде индикатора в квик индикатор для квик в форуме Программирование на языке Lua.
1) Начните с учебника по программированию на луа.
Для освоения Lua возьмите редактор текста SciTe.
В нем встроен отладчик и возможность запуска скиптов луа.
------------------------
2) Напишите свой алгоритм в редакторе и исполните его.
------------------------
3) изучите описание библиотеки QLUA и перепишите свой скрипт с учетом функций библиотеки.
14.11.2022 16:22:11, nikolz.

Ввод собственных данных в виде индикатора в квик

Mon, 14 Nov 2022 16:06:38 +0300

Ввод собственных данных в виде индикатора в квик индикатор для квик в форуме Программирование на языке Lua.

====quote====
Евгений написал:
Скрытый текст Settings = {
Name = "*MACDH (Moving Average Convergence/Divergence Histogram)",
SHORT_Period = 12,
LONG_Period = 26,
Metod = "EMA", --SMA, EMA, VMA, SMMA, VMA
VType = "Close", --Open, High, Low, Close, Volume, Median, Typical, Weighted, Difference
Signal_Metod = "SMA", --SMA, EMA, VMA, SMMA, VMA
Signal_Period = 9,
Percent=1,
line = {{
Name = "Horizontal line",
Type = TYPE_LINE,
Color = RGB(140, 140, 140)
},
{
Width = 3,
Name = "MACDH_Up",
Type = TYPE_HISTOGRAM,
Color = RGB(0, 206, 0)
},
{
Width = 3,
Name = "MACDH_Down",
Type = TYPE_HISTOGRAM,
Color = RGB(221, 44, 44)
},
{
Name = "MACDH - Signal",
Type = TYPE_LINE,
Color = RGB(255, 255, 255)
}
},
Round = "off",
Multiply = 1,
Horizontal_line="0"
}

function Init()
func = MACDH()
return #Settings.line
end

function OnCalculate(Index)
local Out1,Out2 = ConvertValue(Settings,func(Index, Settings))
local HL = tonumber(Settings.Horizontal_line)
if Out1 then
if Out1 > (HL or 0) then
return HL,Out1,nil,Out2
else
return HL,nil,Out1,Out2
end
else
return HL,nil,nil,nil
end
end

function MACDH() --MACD Histogram ("MACDH")
local MACDH_MACD = MACD()
local it = {p=0, l=0}
return function (I, Fsettings, ds)
local Fsettings=(Fsettings or {})
local ShortP = (Fsettings.SHORT_Period or 12)
local LongP = (Fsettings.LONG_Period or 26)
local M = (Fsettings.Metod or EMA)
local VT = (Fsettings.VType or CLOSE)
local SM = (Fsettings.Signal_Metod or SMA)
local SP = (Fsettings.Signal_Period or 9)
local Percent = (Fsettings.Percent or 1)
if (ShortP>0) and (LongP>0) and (SP>0) then
if I == 1 then
it = {p=0, l=0}
end
local Out, Signal = MACDH_MACD(I, {SHORT_Period=ShortP, LONG_Period=LongP, Metod=M,VType=VT, Signal_Metod=SM, Signal_Period=SP, Percent=Percent}, ds)
if CandleExist(I,ds) then
if I~=it.p then
it={p=I, l=it.l+1}
end
if Out and Signal then
return Out-Signal, Signal
end
end
end
return nil
end
end

function MACD() --Moving Average Convergence/Divergence ("MACD")
local MACD_MA = MA()
local Short_MA = MA()
local Long_MA = MA()
local it = {p=0, l=0}
return function (I, Fsettings, ds)
local Fsettings=(Fsettings or {})
local ShortP = (Fsettings.SHORT_Period or 12)
local LongP = (Fsettings.LONG_Period or 26)
local M = (Fsettings.Metod or EMA)
local VT = (Fsettings.VType or CLOSE)
local SM = (Fsettings.Signal_Metod or SMA)
local SP = (Fsettings.Signal_Period or 9)
local Percent = (Fsettings.Percent or 1)
if (ShortP>0) and (LongP>0) and (SP>0) then
if I == 1 then
it = {p=0, l=0}
end
local So = Short_MA(I, {Period=ShortP, Metod = M, VType=VT}, ds)
local Lo = Long_MA(I, {Period=LongP, Metod = M, VType=VT}, ds)
if CandleExist(I,ds) then
if I~=it.p then it={p=I, l=it.l+1} end
local i = it.l - math.max(ShortP, LongP) + 1
if (i>0) then
if Percent==0 then
t_MACD=So - Lo
else
t_MACD=100*(So - Lo) / Lo
end
if (SM~=SMA) and (SM~=EMA) then SM=SMA end
return t_MACD, MACD_MA(i, {Period=SP, Metod = SM, VType=ANY}, { = t_MACD})
end
end
end
return nil, nil
end
end

function MA() --Moving Average ("MA")
local T_MA = {[SMA]=F_SMA(),[MMA]=F_MMA(),[EMA]=F_EMA(),[VMA]=F_VMA(),[SMMA]=F_SMMA(),[WMA]=F_WMA()}
return function (I, Fsettings, ds)
local Fsettings=(Fsettings or {})
local P = (Fsettings.Period or 14)
if (P > 0) then
return T_MA[string.upper(Fsettings.Metod or EMA)](I, P, (Fsettings.VType or CLOSE), ds)
end
return nil
end
end

------------------------------------------------------------------
----Moving Average SMA, MMA, EMA, WMA, SMMA, VMA
------------------------------------------------------------------
--[[Simple Moving Average (SMA)
SMA = sum(Pi) / n]]
function F_SMA()
local sum = {}
local it = {p=0, l=0}
return function (I, P, VT, ds)
if I == 1 then
sum = {}
it = {p=0, l=0}
end
if CandleExist(I,ds) then
if I~=it.p then it={p=I, l=it.l+1} end
local Ip,Ipp,Ippp = Squeeze(it.l,P),Squeeze(it.l-1,P),Squeeze(it.l-P,P)
sum[Ip] = (sum[Ipp] or 0) + GetValueEX(it.p,VT,ds)
if it.l >= P then
return (sum[Ip] - (sum[Ippp] or 0)) / P
end
end
return nil
end
end

--[[Modified Moving Average (MMA)
MMA = (MMAi-1*(n-1) + Pi) / n]]
function F_MMA()
local sum = {}
local tmp = {pp=nil, p=nil}
local it = {p=0, l=0}
return function(I, P, VT, ds)
if I == 1 then
sum = {}
tmp = {pp=nil, p=nil}
it = {p=0, l=0}
end
if CandleExist(I,ds) then
if I~=it.p then
it = {p=I, l=it.l+1}
tmp.pp = tmp.p
end
local Ip,Ipp,Ippp = Squeeze(it.l,P),Squeeze(it.l-1,P),Squeeze(it.l-P,P)
if it.l <= P + 1 then
sum[Ip] = (sum[Ipp] or 0) + GetValueEX(it.p,VT,ds)
if (it.l == P) or (it.l == P + 1) then
tmp.p = (sum[Ip] - (sum[Ippp] or 0)) / P
end
else
tmp.p = (tmp.pp*(P-1) + GetValueEX(it.p,VT,ds)) / P
end
if it.l >= P then
return tmp.p
end
end
return nil
end
end

--[[Exponential Moving Average (EMA)
EMAi = (EMAi-1*(n-1)+2*Pi) / (n+1)]]
function F_EMA()
local tmp = {pp=nil, p=nil}
local it = {p=0, l=0}
return function(I, P, VT, ds)
if I == 1 then
tmp = {pp=nil, p=nil}
it = {p=0, l=0}
end
if CandleExist(I,ds) then
if I~=it.p then
it = {p=I, l=it.l+1}
tmp.pp = tmp.p
end
if it.l == 1 then
tmp.p = GetValueEX(it.p,VT,ds)
else
tmp.p = (tmp.pp*(P-1) + 2*GetValueEX(it.p,VT,ds)) / (P+1)
end
if it.l >= P then
return tmp.p
end
end
return nil
end
end

--[[
William Moving Average (WMA)
( Previous WILLMA * ( Period - 1 ) + Data ) / Period]]
function F_WMA()
local tmp = {pp=nil, p=nil}
local it = {p=0, l=0}
return function(I, P, VT, ds)
if I == 1 then
tmp = {pp=nil, p=nil}
it = {p=0, l=0}
end
if CandleExist(I,ds) then
if I~=it.p then
it={p=I, l=it.l+1}
tmp.pp = tmp.p
end
if it.l == 1 then
tmp.p = GetValueEX(it.p,VT,ds)
else
tmp.p = (tmp.pp * (P-1) + GetValueEX(it.p,VT,ds)) / P
end
if it.l >= P then
return tmp.p
end
end
return nil
end
end

--[[Volume Adjusted Moving Average (VMA)
VMA = sum(Pi*Vi) / sum(Vi)]]
function F_VMA()
local sum = {}
local sum2 = {}
local it = {p=0, l=0}
return function(I, P, VT, ds)
if I == 1 then
sum = {}
sum2 = {}
it = {p=0, l=0}
end
if CandleExist(I,ds) then
if I~=it.p then it={p=I, l=it.l+1} end
local Ip,Ipp,Ippp = Squeeze(it.l,P),Squeeze(it.l-1,P),Squeeze(it.l-P,P)
sum[Ip] = (sum[Ipp] or 0) + GetValueEX(it.p,VT,ds) * GetValueEX(it.p,VOLUME,ds)
sum2[Ip] = (sum2[Ipp] or 0) + GetValueEX(it.p,VOLUME,ds)
if it.l >= P then
return (sum[Ip] - (sum[Ippp] or 0)) / (sum2[Ip] - (sum2[Ippp] or 0))
end
end
return nil
end
end

--[[Smoothed Moving Average (SMMA)
SMMAi = (sum(Pi) - SMMAi-1 + Pi) / n]]
function F_SMMA()
local sum = {}
local sum2 = {}
local it = {p=0, l=0}
return function(I, P, VT, ds)
if I == 1 then
sum = {}
sum2 = {}
it = {p=0, l=0}
end
if CandleExist(I,ds) then
if I~=it.p then it={p=I, l=it.l+1} end
local Ip,Ipp,Ippp = Squeeze(it.l,P),Squeeze(it.l-1,P),Squeeze(it.l-P,P)
sum[Ip] = (sum[Ipp] or 0) + GetValueEX(it.p,VT,ds)
if it.l >= P then
if it.l == P then
sum2[Ip] = (sum[Ip] - (sum[Ippp] or 0)) / P
else
sum2[Ip] = ((sum[Ip] - (sum[Ippp] or 0)) - (sum2[Ipp] or 0)+ GetValueEX(it.p,VT,ds)) / P
end
return sum2[Ip]
end
end
return nil
end
end

SMA,MMA,EMA,WMA,SMMA,VMA = "SMA","MMA","EMA","WMA","SMMA","VMA"
OPEN,HIGH,LOW,CLOSE,VOLUME,MEDIAN,TYPICAL,WEIGHTED,DIFFERENCE,ANY = "O","H","L","C","V","M","T","W","D","A"

function CandleExist(I,ds)
return (type©=="function" and C(I)~=nil) or
(type(ds)=="table" and (ds~=nil or (type(ds.Size)=="function" and (I>0) and (I<=ds:Size()))))
end

function Squeeze(I,P)
return math.fmod(I-1,P+1)
end

function ConvertValue(T,...)
local function r(V, R)
if R and string.upper®== "ON" then R=0 end
if V and tonumber® then
if V >= 0 then return math.floor(V * 10^R + 0.5) / 10^R
else return math.ceil(V * 10^R - 0.5) / 10^R end
else return V end
end
local arg = {...}
arg.n = select('#', ...)
if arg.n > 0 then
for i = 1, arg.n do
arg=arg and r(arg * ((T and T.Multiply) or 1), (T and T.Round) or "off")
end
return unpack(arg)
else return nil end
end

function GetValueEX(I,VT,ds)
VT=(VT and string.upper(string.sub(VT,1,1))) or ANY
if VT == OPEN then --Open
return (O and O(I)) or (ds and ds:O(I))
elseif VT == HIGH then --High
return (H and H(I)) or (ds and ds:H(I))
elseif VT == LOW then --Low
return (L and L(I)) or (ds and ds:L(I))
elseif VT == CLOSE then --Close
return (C and C(I)) or (ds and ds:C(I))
elseif VT == VOLUME then --Volume
return (V and V(I)) or (ds and ds:V(I))
elseif VT == MEDIAN then --Median
return ((GetValueEX(I,HIGH,ds) + GetValueEX(I,LOW,ds)) / 2)
elseif VT == TYPICAL then --Typical
return ((GetValueEX(I,MEDIAN,ds) * 2 + GetValueEX(I,CLOSE,ds))/3)
elseif VT == WEIGHTED then --Weighted
return ((GetValueEX(I,TYPICAL,ds) * 3 + GetValueEX(I,OPEN,ds))/4)
elseif VT == DIFFERENCE then --Difference
return (GetValueEX(I,HIGH,ds) - GetValueEX(I,LOW,ds))
else --Any
return (ds and ds)
end
return nil
end
Используй TYPE_HISTOGRAM в настройках линий, ну и естественно вместо функций MACD MA добывь свои, если нет опыта в программировании закажи или изучай, других вариантов вроде нет
=============
Вот я и хотел изучать, только не пойму с чего начать. Это рабочий индикатор какой то? Смотрю на это и ума не приложу куда тут вставлять значения. А если заказывать не подскажешь сколько это может стоить?
14.11.2022 16:06:38, alexey.

Ввод собственных данных в виде индикатора в квик

Mon, 14 Nov 2022 15:37:21 +0300

Ввод собственных данных в виде индикатора в квик индикатор для квик в форуме Программирование на языке Lua.

Скрытый текст
Settings = { Name = "MACDH (Moving Average Convergence/Divergence Histogram)", SHORT_Period = 12, LONG_Period = 26, Metod = "EMA", --SMA, EMA, VMA, SMMA, VMA VType = "Close", --Open, High, Low, Close, Volume, Median, Typical, Weighted, Difference Signal_Metod = "SMA", --SMA, EMA, VMA, SMMA, VMA Signal_Period = 9, Percent=1, line = {{ Name = "Horizontal line", Type = TYPE_LINE, Color = RGB(140, 140, 140) }, { Width = 3, Name = "MACDH_Up", Type = TYPE_HISTOGRAM, Color = RGB(0, 206, 0) }, { Width = 3, Name = "MACDH_Down", Type = TYPE_HISTOGRAM, Color = RGB(221, 44, 44) }, { Name = "MACDH - Signal", Type = TYPE_LINE, Color = RGB(255, 255, 255) } }, Round = "off", Multiply = 1, Horizontal_line="0" } function Init() func = MACDH() return #Settings.line end function OnCalculate(Index) local Out1,Out2 = ConvertValue(Settings,func(Index, Settings)) local HL = tonumber(Settings.Horizontal_line) if Out1 then if Out1 > (HL or 0) then return HL,Out1,nil,Out2 else return HL,nil,Out1,Out2 end else return HL,nil,nil,nil end end function MACDH() --MACD Histogram ("MACDH") local MACDH_MACD = MACD() local it = {p=0, l=0} return function (I, Fsettings, ds) local Fsettings=(Fsettings or {}) local ShortP = (Fsettings.SHORT_Period or 12) local LongP = (Fsettings.LONG_Period or 26) local M = (Fsettings.Metod or EMA) local VT = (Fsettings.VType or CLOSE) local SM = (Fsettings.Signal_Metod or SMA) local SP = (Fsettings.Signal_Period or 9) local Percent = (Fsettings.Percent or 1) if (ShortP>0) and (LongP>0) and (SP>0) then if I == 1 then it = {p=0, l=0} end local Out, Signal = MACDH_MACD(I, {SHORT_Period=ShortP, LONG_Period=LongP, Metod=M,VType=VT, Signal_Metod=SM, Signal_Period=SP, Percent=Percent}, ds) if CandleExist(I,ds) then if I~=it.p then it={p=I, l=it.l+1} end if Out and Signal then return Out-Signal, Signal end end end return nil end end function MACD() --Moving Average Convergence/Divergence ("MACD") local MACD_MA = MA() local Short_MA = MA() local Long_MA = MA() local it = {p=0, l=0} return function (I, Fsettings, ds) local Fsettings=(Fsettings or {}) local ShortP = (Fsettings.SHORT_Period or 12) local LongP = (Fsettings.LONG_Period or 26) local M = (Fsettings.Metod or EMA) local VT = (Fsettings.VType or CLOSE) local SM = (Fsettings.Signal_Metod or SMA) local SP = (Fsettings.Signal_Period or 9) local Percent = (Fsettings.Percent or 1) if (ShortP>0) and (LongP>0) and (SP>0) then if I == 1 then it = {p=0, l=0} end local So = Short_MA(I, {Period=ShortP, Metod = M, VType=VT}, ds) local Lo = Long_MA(I, {Period=LongP, Metod = M, VType=VT}, ds) if CandleExist(I,ds) then if I~=it.p then it={p=I, l=it.l+1} end local i = it.l - math.max(ShortP, LongP) + 1 if (i>0) then if Percent==0 then t_MACD=So - Lo else t_MACD=100(So - Lo) / Lo end if (SM~=SMA) and (SM~=EMA) then SM=SMA end return t_MACD, MACD_MA(i, {Period=SP, Metod = SM, VType=ANY}, {[i] = t_MACD}) end end end return nil, nil end end function MA() --Moving Average ("MA") local T_MA = {[SMA]=F_SMA(),[MMA]=F_MMA(),[EMA]=F_EMA(),[VMA]=F_VMA(),[SMMA]=F_SMMA(),[WMA]=F_WMA()} return function (I, Fsettings, ds) local Fsettings=(Fsettings or {}) local P = (Fsettings.Period or 14) if (P > 0) then return T_MA[string.upper(Fsettings.Metod or EMA)](I, P, (Fsettings.VType or CLOSE), ds) end return nil end end ------------------------------------------------------------------ ----Moving Average SMA, MMA, EMA, WMA, SMMA, VMA ------------------------------------------------------------------ --[[Simple Moving Average (SMA) SMA = sum(Pi) / n]] function F_SMA() local sum = {} local it = {p=0, l=0} return function (I, P, VT, ds) if I == 1 then sum = {} it = {p=0, l=0} end if CandleExist(I,ds) then if I~=it.p then it={p=I, l=it.l+1} end local Ip,Ipp,Ippp = Squeeze(it.l,P),Squeeze(it.l-1,P),Squeeze(it.l-P,P) sum[Ip] = (sum[Ipp] or 0) + GetValueEX(it.p,VT,ds) if it.l >= P then return (sum[Ip] - (sum[Ippp] or 0)) / P end end return nil end end --[[Modified Moving Average (MMA) MMA = (MMAi-1(n-1) + Pi) / n]] function F_MMA() local sum = {} local tmp = {pp=nil, p=nil} local it = {p=0, l=0} return function(I, P, VT, ds) if I == 1 then sum = {} tmp = {pp=nil, p=nil} it = {p=0, l=0} end if CandleExist(I,ds) then if I~=it.p then it = {p=I, l=it.l+1} tmp.pp = tmp.p end local Ip,Ipp,Ippp = Squeeze(it.l,P),Squeeze(it.l-1,P),Squeeze(it.l-P,P) if it.l <= P + 1 then sum[Ip] = (sum[Ipp] or 0) + GetValueEX(it.p,VT,ds) if (it.l == P) or (it.l == P + 1) then tmp.p = (sum[Ip] - (sum[Ippp] or 0)) / P end else tmp.p = (tmp.pp(P-1) + GetValueEX(it.p,VT,ds)) / P end if it.l >= P then return tmp.p end end return nil end end --[[Exponential Moving Average (EMA) EMAi = (EMAi-1(n-1)+2Pi) / (n+1)]] function F_EMA() local tmp = {pp=nil, p=nil} local it = {p=0, l=0} return function(I, P, VT, ds) if I == 1 then tmp = {pp=nil, p=nil} it = {p=0, l=0} end if CandleExist(I,ds) then if I~=it.p then it = {p=I, l=it.l+1} tmp.pp = tmp.p end if it.l == 1 then tmp.p = GetValueEX(it.p,VT,ds) else tmp.p = (tmp.pp(P-1) + 2GetValueEX(it.p,VT,ds)) / (P+1) end if it.l >= P then return tmp.p end end return nil end end --[[ William Moving Average (WMA) ( Previous WILLMA * ( Period - 1 ) + Data ) / Period]] function F_WMA() local tmp = {pp=nil, p=nil} local it = {p=0, l=0} return function(I, P, VT, ds) if I == 1 then tmp = {pp=nil, p=nil} it = {p=0, l=0} end if CandleExist(I,ds) then if I~=it.p then it={p=I, l=it.l+1} tmp.pp = tmp.p end if it.l == 1 then tmp.p = GetValueEX(it.p,VT,ds) else tmp.p = (tmp.pp * (P-1) + GetValueEX(it.p,VT,ds)) / P end if it.l >= P then return tmp.p end end return nil end end --[[Volume Adjusted Moving Average (VMA) VMA = sum(PiVi) / sum(Vi)]] function F_VMA() local sum = {} local sum2 = {} local it = {p=0, l=0} return function(I, P, VT, ds) if I == 1 then sum = {} sum2 = {} it = {p=0, l=0} end if CandleExist(I,ds) then if I~=it.p then it={p=I, l=it.l+1} end local Ip,Ipp,Ippp = Squeeze(it.l,P),Squeeze(it.l-1,P),Squeeze(it.l-P,P) sum[Ip] = (sum[Ipp] or 0) + GetValueEX(it.p,VT,ds) GetValueEX(it.p,VOLUME,ds) sum2[Ip] = (sum2[Ipp] or 0) + GetValueEX(it.p,VOLUME,ds) if it.l >= P then return (sum[Ip] - (sum[Ippp] or 0)) / (sum2[Ip] - (sum2[Ippp] or 0)) end end return nil end end --[[Smoothed Moving Average (SMMA) SMMAi = (sum(Pi) - SMMAi-1 + Pi) / n]] function F_SMMA() local sum = {} local sum2 = {} local it = {p=0, l=0} return function(I, P, VT, ds) if I == 1 then sum = {} sum2 = {} it = {p=0, l=0} end if CandleExist(I,ds) then if I~=it.p then it={p=I, l=it.l+1} end local Ip,Ipp,Ippp = Squeeze(it.l,P),Squeeze(it.l-1,P),Squeeze(it.l-P,P) sum[Ip] = (sum[Ipp] or 0) + GetValueEX(it.p,VT,ds) if it.l >= P then if it.l == P then sum2[Ip] = (sum[Ip] - (sum[Ippp] or 0)) / P else sum2[Ip] = ((sum[Ip] - (sum[Ippp] or 0)) - (sum2[Ipp] or 0)+ GetValueEX(it.p,VT,ds)) / P end return sum2[Ip] end end return nil end end SMA,MMA,EMA,WMA,SMMA,VMA = "SMA","MMA","EMA","WMA","SMMA","VMA" OPEN,HIGH,LOW,CLOSE,VOLUME,MEDIAN,TYPICAL,WEIGHTED,DIFFERENCE,ANY = "O","H","L","C","V","M","T","W","D","A" function CandleExist(I,ds) return (type©=="function" and C(I)~=nil) or (type(ds)=="table" and (ds[I]~=nil or (type(ds.Size)=="function" and (I>0) and (I<=ds:Size())))) end function Squeeze(I,P) return math.fmod(I-1,P+1) end function ConvertValue(T,...) local function r(V, R) if R and string.upper®== "ON" then R=0 end if V and tonumber® then if V >= 0 then return math.floor(V * 10^R + 0.5) / 10^R else return math.ceil(V * 10^R - 0.5) / 10^R end else return V end end local arg = {...} arg.n = select('#', ...) if arg.n > 0 then for i = 1, arg.n do arg[i]=arg[i] and r(arg[i] * ((T and T.Multiply) or 1), (T and T.Round) or "off") end return unpack(arg) else return nil end end function GetValueEX(I,VT,ds) VT=(VT and string.upper(string.sub(VT,1,1))) or ANY if VT == OPEN then --Open return (O and O(I)) or (ds and ds:O(I)) elseif VT == HIGH then --High return (H and H(I)) or (ds and ds:H(I)) elseif VT == LOW then --Low return (L and L(I)) or (ds and ds:L(I)) elseif VT == CLOSE then --Close return (C and C(I)) or (ds and ds:C(I)) elseif VT == VOLUME then --Volume return (V and V(I)) or (ds and ds:V(I)) elseif VT == MEDIAN then --Median return ((GetValueEX(I,HIGH,ds) + GetValueEX(I,LOW,ds)) / 2) elseif VT == TYPICAL then --Typical return ((GetValueEX(I,MEDIAN,ds) * 2 + GetValueEX(I,CLOSE,ds))/3) elseif VT == WEIGHTED then --Weighted return ((GetValueEX(I,TYPICAL,ds) * 3 + GetValueEX(I,OPEN,ds))/4) elseif VT == DIFFERENCE then --Difference return (GetValueEX(I,HIGH,ds) - GetValueEX(I,LOW,ds)) else --Any return (ds and ds[I]) end return nil end

Скрытый текст

Settings = {
Name = "*MACDH (Moving Average Convergence/Divergence Histogram)",
SHORT_Period = 12,
LONG_Period = 26,
Metod = "EMA", --SMA, EMA, VMA, SMMA, VMA
VType = "Close", --Open, High, Low, Close, Volume, Median, Typical, Weighted, Difference
Signal_Metod = "SMA", --SMA, EMA, VMA, SMMA, VMA
Signal_Period = 9,
Percent=1,
line = {{
Name = "Horizontal line",
Type = TYPE_LINE,
Color = RGB(140, 140, 140)
},
{
Width = 3,
Name = "MACDH_Up",
Type = TYPE_HISTOGRAM,
Color = RGB(0, 206, 0)
},
{
Width = 3,
Name = "MACDH_Down",
Type = TYPE_HISTOGRAM,
Color = RGB(221, 44, 44)
},
{
Name = "MACDH - Signal",
Type = TYPE_LINE,
Color = RGB(255, 255, 255)
}
},
Round = "off",
Multiply = 1,
Horizontal_line="0"
}

function Init()
func = MACDH()
return #Settings.line
end

function OnCalculate(Index)
local Out1,Out2 = ConvertValue(Settings,func(Index, Settings))
local HL = tonumber(Settings.Horizontal_line)
if Out1 then
if Out1 > (HL or 0) then
return HL,Out1,nil,Out2
else
return HL,nil,Out1,Out2
end
else
return HL,nil,nil,nil
end
end

function MACDH() --MACD Histogram ("MACDH")
local MACDH_MACD = MACD()
local it = {p=0, l=0}
return function (I, Fsettings, ds)
local Fsettings=(Fsettings or {})
local ShortP = (Fsettings.SHORT_Period or 12)
local LongP = (Fsettings.LONG_Period or 26)
local M = (Fsettings.Metod or EMA)
local VT = (Fsettings.VType or CLOSE)
local SM = (Fsettings.Signal_Metod or SMA)
local SP = (Fsettings.Signal_Period or 9)
local Percent = (Fsettings.Percent or 1)
if (ShortP>0) and (LongP>0) and (SP>0) then
if I == 1 then
it = {p=0, l=0}
end
local Out, Signal = MACDH_MACD(I, {SHORT_Period=ShortP, LONG_Period=LongP, Metod=M,VType=VT, Signal_Metod=SM, Signal_Period=SP, Percent=Percent}, ds)
if CandleExist(I,ds) then
if I~=it.p then
it={p=I, l=it.l+1}
end
if Out and Signal then
return Out-Signal, Signal
end
end
end
return nil
end
end

function MACD() --Moving Average Convergence/Divergence ("MACD")
local MACD_MA = MA()
local Short_MA = MA()
local Long_MA = MA()
local it = {p=0, l=0}
return function (I, Fsettings, ds)
local Fsettings=(Fsettings or {})
local ShortP = (Fsettings.SHORT_Period or 12)
local LongP = (Fsettings.LONG_Period or 26)
local M = (Fsettings.Metod or EMA)
local VT = (Fsettings.VType or CLOSE)
local SM = (Fsettings.Signal_Metod or SMA)
local SP = (Fsettings.Signal_Period or 9)
local Percent = (Fsettings.Percent or 1)
if (ShortP>0) and (LongP>0) and (SP>0) then
if I == 1 then
it = {p=0, l=0}
end
local So = Short_MA(I, {Period=ShortP, Metod = M, VType=VT}, ds)
local Lo = Long_MA(I, {Period=LongP, Metod = M, VType=VT}, ds)
if CandleExist(I,ds) then
if I~=it.p then it={p=I, l=it.l+1} end
local i = it.l - math.max(ShortP, LongP) + 1
if (i>0) then
if Percent==0 then
t_MACD=So - Lo
else
t_MACD=100*(So - Lo) / Lo
end
if (SM~=SMA) and (SM~=EMA) then SM=SMA end
return t_MACD, MACD_MA(i, {Period=SP, Metod = SM, VType=ANY}, {[i] = t_MACD})
end
end
end
return nil, nil
end
end

function MA() --Moving Average ("MA")
local T_MA = {[SMA]=F_SMA(),[MMA]=F_MMA(),[EMA]=F_EMA(),[VMA]=F_VMA(),[SMMA]=F_SMMA(),[WMA]=F_WMA()}
return function (I, Fsettings, ds)
local Fsettings=(Fsettings or {})
local P = (Fsettings.Period or 14)
if (P > 0) then
return T_MA[string.upper(Fsettings.Metod or EMA)](I, P, (Fsettings.VType or CLOSE), ds)
end
return nil
end
end

------------------------------------------------------------------
----Moving Average SMA, MMA, EMA, WMA, SMMA, VMA
------------------------------------------------------------------
--[[Simple Moving Average (SMA)
SMA = sum(Pi) / n]]
function F_SMA()
local sum = {}
local it = {p=0, l=0}
return function (I, P, VT, ds)
if I == 1 then
sum = {}
it = {p=0, l=0}
end
if CandleExist(I,ds) then
if I~=it.p then it={p=I, l=it.l+1} end
local Ip,Ipp,Ippp = Squeeze(it.l,P),Squeeze(it.l-1,P),Squeeze(it.l-P,P)
sum[Ip] = (sum[Ipp] or 0) + GetValueEX(it.p,VT,ds)
if it.l >= P then
return (sum[Ip] - (sum[Ippp] or 0)) / P
end
end
return nil
end
end

--[[Modified Moving Average (MMA)
MMA = (MMAi-1*(n-1) + Pi) / n]]
function F_MMA()
local sum = {}
local tmp = {pp=nil, p=nil}
local it = {p=0, l=0}
return function(I, P, VT, ds)
if I == 1 then
sum = {}
tmp = {pp=nil, p=nil}
it = {p=0, l=0}
end
if CandleExist(I,ds) then
if I~=it.p then
it = {p=I, l=it.l+1}
tmp.pp = tmp.p
end
local Ip,Ipp,Ippp = Squeeze(it.l,P),Squeeze(it.l-1,P),Squeeze(it.l-P,P)
if it.l <= P + 1 then
sum[Ip] = (sum[Ipp] or 0) + GetValueEX(it.p,VT,ds)
if (it.l == P) or (it.l == P + 1) then
tmp.p = (sum[Ip] - (sum[Ippp] or 0)) / P
end
else
tmp.p = (tmp.pp*(P-1) + GetValueEX(it.p,VT,ds)) / P
end
if it.l >= P then
return tmp.p
end
end
return nil
end
end

--[[Exponential Moving Average (EMA)
EMAi = (EMAi-1*(n-1)+2*Pi) / (n+1)]]
function F_EMA()
local tmp = {pp=nil, p=nil}
local it = {p=0, l=0}
return function(I, P, VT, ds)
if I == 1 then
tmp = {pp=nil, p=nil}
it = {p=0, l=0}
end
if CandleExist(I,ds) then
if I~=it.p then
it = {p=I, l=it.l+1}
tmp.pp = tmp.p
end
if it.l == 1 then
tmp.p = GetValueEX(it.p,VT,ds)
else
tmp.p = (tmp.pp*(P-1) + 2*GetValueEX(it.p,VT,ds)) / (P+1)
end
if it.l >= P then
return tmp.p
end
end
return nil
end
end

--[[
William Moving Average (WMA)
( Previous WILLMA * ( Period - 1 ) + Data ) / Period]]
function F_WMA()
local tmp = {pp=nil, p=nil}
local it = {p=0, l=0}
return function(I, P, VT, ds)
if I == 1 then
tmp = {pp=nil, p=nil}
it = {p=0, l=0}
end
if CandleExist(I,ds) then
if I~=it.p then
it={p=I, l=it.l+1}
tmp.pp = tmp.p
end
if it.l == 1 then
tmp.p = GetValueEX(it.p,VT,ds)
else
tmp.p = (tmp.pp * (P-1) + GetValueEX(it.p,VT,ds)) / P
end
if it.l >= P then
return tmp.p
end
end
return nil
end
end

--[[Volume Adjusted Moving Average (VMA)
VMA = sum(Pi*Vi) / sum(Vi)]]
function F_VMA()
local sum = {}
local sum2 = {}
local it = {p=0, l=0}
return function(I, P, VT, ds)
if I == 1 then
sum = {}
sum2 = {}
it = {p=0, l=0}
end
if CandleExist(I,ds) then
if I~=it.p then it={p=I, l=it.l+1} end
local Ip,Ipp,Ippp = Squeeze(it.l,P),Squeeze(it.l-1,P),Squeeze(it.l-P,P)
sum[Ip] = (sum[Ipp] or 0) + GetValueEX(it.p,VT,ds) * GetValueEX(it.p,VOLUME,ds)
sum2[Ip] = (sum2[Ipp] or 0) + GetValueEX(it.p,VOLUME,ds)
if it.l >= P then
return (sum[Ip] - (sum[Ippp] or 0)) / (sum2[Ip] - (sum2[Ippp] or 0))
end
end
return nil
end
end

--[[Smoothed Moving Average (SMMA)
SMMAi = (sum(Pi) - SMMAi-1 + Pi) / n]]
function F_SMMA()
local sum = {}
local sum2 = {}
local it = {p=0, l=0}
return function(I, P, VT, ds)
if I == 1 then
sum = {}
sum2 = {}
it = {p=0, l=0}
end
if CandleExist(I,ds) then
if I~=it.p then it={p=I, l=it.l+1} end
local Ip,Ipp,Ippp = Squeeze(it.l,P),Squeeze(it.l-1,P),Squeeze(it.l-P,P)
sum[Ip] = (sum[Ipp] or 0) + GetValueEX(it.p,VT,ds)
if it.l >= P then
if it.l == P then
sum2[Ip] = (sum[Ip] - (sum[Ippp] or 0)) / P
else
sum2[Ip] = ((sum[Ip] - (sum[Ippp] or 0)) - (sum2[Ipp] or 0)+ GetValueEX(it.p,VT,ds)) / P
end
return sum2[Ip]
end
end
return nil
end
end

SMA,MMA,EMA,WMA,SMMA,VMA = "SMA","MMA","EMA","WMA","SMMA","VMA"
OPEN,HIGH,LOW,CLOSE,VOLUME,MEDIAN,TYPICAL,WEIGHTED,DIFFERENCE,ANY = "O","H","L","C","V","M","T","W","D","A"

function CandleExist(I,ds)
return (type©=="function" and C(I)~=nil) or
(type(ds)=="table" and (ds[I]~=nil or (type(ds.Size)=="function" and (I>0) and (I<=ds:Size()))))
end

function Squeeze(I,P)
return math.fmod(I-1,P+1)
end

function ConvertValue(T,...)
local function r(V, R)
if R and string.upper®== "ON" then R=0 end
if V and tonumber® then
if V >= 0 then return math.floor(V * 10^R + 0.5) / 10^R
else return math.ceil(V * 10^R - 0.5) / 10^R end
else return V end
end
local arg = {...}
arg.n = select('#', ...)
if arg.n > 0 then
for i = 1, arg.n do
arg[i]=arg[i] and r(arg[i] * ((T and T.Multiply) or 1), (T and T.Round) or "off")
end
return unpack(arg)
else return nil end
end

function GetValueEX(I,VT,ds)
VT=(VT and string.upper(string.sub(VT,1,1))) or ANY
if VT == OPEN then --Open
return (O and O(I)) or (ds and ds:O(I))
elseif VT == HIGH then --High
return (H and H(I)) or (ds and ds:H(I))
elseif VT == LOW then --Low
return (L and L(I)) or (ds and ds:L(I))
elseif VT == CLOSE then --Close
return (C and C(I)) or (ds and ds:C(I))
elseif VT == VOLUME then --Volume
return (V and V(I)) or (ds and ds:V(I))
elseif VT == MEDIAN then --Median
return ((GetValueEX(I,HIGH,ds) + GetValueEX(I,LOW,ds)) / 2)
elseif VT == TYPICAL then --Typical
return ((GetValueEX(I,MEDIAN,ds) * 2 + GetValueEX(I,CLOSE,ds))/3)
elseif VT == WEIGHTED then --Weighted
return ((GetValueEX(I,TYPICAL,ds) * 3 + GetValueEX(I,OPEN,ds))/4)
elseif VT == DIFFERENCE then --Difference
return (GetValueEX(I,HIGH,ds) - GetValueEX(I,LOW,ds))
else --Any
return (ds and ds[I])
end
return nil
end

Используй TYPE_HISTOGRAM в настройках линий, ну и естественно вместо функций MACD MA добывь свои, если нет опыта в программировании закажи или изучай, других вариантов вроде нет
14.11.2022 15:37:21, Евгений.

Ввод собственных данных в виде индикатора в квик

Mon, 14 Nov 2022 14:32:30 +0300

Ввод собственных данных в виде индикатора в квик индикатор для квик в форуме Программирование на языке Lua.
Добрый день, подскажите как можно реализовать аналог индикатора объема но только с собственными данными. Допустим есть определенные данные за день разбитые поминутно их нужно перенести в квик в виде гистограммы по времени, то есть получится что то вроде обычного индикатора объема только со своими значениями, и если изменять таймфрейм инструмента данный индикатор будет соответственно перестраиваться. Опыта програмирования нет но могу попробовать повторить по образу подобию чего либо, прошу помощи с чего начать?
14.11.2022 14:32:30, alexey.