INDICADOR INDIANO - A LOGICA DO PREÇO

instrument {
    name = "INDIAN INDICATOR - THE LOGIC OF PRICE",
    overlay = true
}

--------------------------------------------------
-- INTERVALO ROTATIVO GLOBAL FIXO: 5 / 7 / 9 / 12
--------------------------------------------------
barsSinceSignal = make_series(9999)
intervalStage   = make_series(0)

local function getInterval(stage)
    if stage == 0 then return 5 end
    if stage == 1 then return 7 end
    if stage == 2 then return 9 end
    return 12
end

if na(barsSinceSignal[1]) then
    barsSinceSignal:set(9999)
else
    barsSinceSignal:set(barsSinceSignal[1] + 1)
end

local prevStage = na(intervalStage[1]) and 0 or intervalStage[1]
local currentInterval = getInterval(prevStage)

local canSignal = (barsSinceSignal[1] >= currentInterval)
local fired = false

--------------------------------------------------
-- FUNCTIONS
--------------------------------------------------
local function abs(x) return (x < 0) and -x or x end
local function max(a,b) return (a>b) and a or b end
local function min(a,b) return (a<b) and a or b end

local function overlap_len(a1,a2,b1,b2)
    local L = max(min(a1,a2), min(b1,b2))
    local R = min(max(a1,a2), max(b1,b2))
    return (R > L) and (R - L) or 0
end

--------------------------------------------------
-- MME 20 GLOBAL
--------------------------------------------------
mme20 = ema(close, 20)

--------------------------------------------------
-- SERIES DE SINAIS
--------------------------------------------------
diplBuy  = make_series(false)
diplSell = make_series(false)

thirdBuy  = make_series(false)
thirdSell = make_series(false)

arrBuy  = make_series(false)
arrSell = make_series(false)

simBuy  = make_series(false)
simSell = make_series(false)

--------------------------------------------------
-- 1) INDIANO DIPLOMATA
--------------------------------------------------
if canSignal and not fired then
    local bo_min = min(open[1], close[1])
    local bo_max = max(open[1], close[1])
    local bo_size = bo_max - bo_min

    if bo_size >= 0.0002 then
        for j = 2, 20 do
            if j > bar_index then break end

            local past_min = min(open[j], close[j])
            local past_max = max(open[j], close[j])

            if overlap_len(bo_min, bo_max, past_min, past_max) / bo_size >= 0.35 then
                if bo_min > past_min and close[1] < mme20 then
                    diplSell:set(true)
                    fired = true
                elseif bo_min <= past_min and close[1] > mme20 then
                    diplBuy:set(true)
                    fired = true
                end
                break
            end
        end
    end
end

--------------------------------------------------
-- 2) INDIANO 3ª VELA
--------------------------------------------------
if canSignal and not fired then
    if close[1] > mme20
       and close[3] < open[3]
       and close[2] > open[2]
       and close[1] > open[1] then
        thirdBuy:set(true)
        fired = true

    elseif close[1] < mme20
       and close[3] > open[3]
       and close[2] < open[2]
       and close[1] < open[1] then
        thirdSell:s

Показано первые 50% кода (символов: 4837)