QUIK -> DDE — Индикатор корреляции

Re: Индикатор корреляции

null@example.com (sam063rus) — Sat, 23 May 2015 16:39:24 +0000

Re: Индикатор корреляции

null@example.com (swerg) — Mon, 24 Feb 2014 17:53:19 +0000

Причина вот в чем.

Вот в этой строке

t,n,s = getCandlesByIndex(Settings.tag,0,n-Settings.period,Settings.period)

вы получаете таблицу t размером 10 элементов (т.к. Settings.period = 10, если смотреть на параметры по умолчанию). Причем индексы полученных элементов - от 0 до 9 включительно (т.е. существуют элементы t[0], t[1] .. t[9]) .

Далее, в цикле for вы формируете значение i, которое передаете в dMas() для индексации таблицы t:

for i = index-Settings.period+1, index do
xy = xy + dValue(i, Settings.value_type) * dMas(i, Settings.value_type)
end

Видно, что, например, для 100-й свечи графика (т.е. значении 100 в переменной index) значение i будет меняться от 91 до 100. Но в таблице t нет ведь таких индексов. Там только от 0 до 9.

Индикатор корреляции

null@example.com (shishkir_aleksandr) — Sun, 23 Feb 2014 17:52:07 +0000

Помогите подправить код, не пойму где я накосячил)

Settings=
{
    Name = "Correl",
    tag = "rts",
    period = 10,
    value_type = "C",
    line = 
    {
        {
            Name = "MA",
            Color = RGB(255, 0, 0),
            Type = TYPE_LINE,
            Width = 1
        }
    }
}
 
function dValue(i,param)
    local v = param or "C"
    
    if         v == "O" then 
                return O(i)
    elseif     v == "H" then
                return H(i)
    elseif     v == "L" then
                return L(i)
    elseif     v == "C" then
                return C(i)
    elseif     v == "V" then
                return V(i)
    elseif     v == "M" then
                return (H(i) + L(i))/2
    elseif     v == "T" then
                return (H(i) + L(i)+C(i))/3
    elseif     v == "W" then
                return (H(i) + L(i)+2*C(i))/4
    else 
        return C(i)
    end
end
 
function Init()
    return 1
end
 
function OnCalculate(index)
    
    n = getNumCandles (Settings.tag)
    
    t,n,s = getCandlesByIndex(Settings.tag,0,n-Settings.period,Settings.period)
    
    function dMas(i,param)
    
        local v = param or "C"
    
        if         v == "O" then 
                    return t[i].open
        elseif     v == "H" then
                    return t[i].high
        elseif     v == "L" then
                    return t[i].low
        elseif     v == "C" then
                    return t[i].close --говорит, что = nil 
        elseif     v == "M" then
                    return (t[i].high + t[i].low)/2
        elseif     v == "T" then
                    return (t[i].high + t[i].low+t[i].close)/3
        elseif     v == "W" then
                    return (t[i].high + t[i].low+t[i].close*2)/4
        else 
            return t[i].close
        end
    end
    if index < Settings.period then
        return nil
    else
        local xy = 0
        local x = 0
        local y = 0
        local x2 = 0
        local y2 = 0
        
        for i = index-Settings.period+1, index do
            
            xy = xy + dValue(i, Settings.value_type) * dMas(i, Settings.value_type)
            
        end
        
        for i = index-Settings.period+1, index do
            
            x = x + dValue(i, Settings.value_type)            
        end
        
        for i = index-Settings.period+1, index do
            
            y = y + dMas(i, Settings.value_type) 
            
        end
        
        for i = index-Settings.period+1, index do
            
            x2 = x2 + dValue(i, Settings.value_type)*dValue(i, Settings.value_type)
            
        end
        
        for i = index-Settings.period+1, index do
            
            y2 = y2 + dMas(i, Settings.value_type)*dMas(i, Settings.value_type)
            
        end
        
        r =(Settings.period*xy-x*y)/math.sqrt ((Settings.period*x2-x*x)*(Settings.period*y2-y*y))
        
        return r
    end
end