name = "DAS CORES",
short_name = "SUPR", overlay = true, icon="indicators:BB"
}
input_group {
"MACD",
"Slow and fast EMA periods, used in MACD calculation",
fast = input (12, "[Link] period", [Link], 1, 250),
slow = input (26, "[Link] period", [Link], 1, 250)
}
input_group {
"[Link]-line",
"Reference signal series period",
signal_period = input (9, "[Link]", [Link], 1, 250)
}
input_group {
"[Link]",
ema_period = input (13, "[Link]", [Link], 1, 250)
}
input_group {
"[Link]",
positive = input { default = "#2CAC40", type = [Link] },
neutral = input { default = "#C7CAD1", type = [Link] },
negative = input { default = "#DB4931", type = [Link] },
}
function prev(s,i)
y=abs(round(i))
return s[y]
end
length = input(5, "Numero de Velas")
extTop = input(12, "Extreme Level Top")
extBot = input(-12, "Extreme Level Bottom")
sigTop = input(8, "Significant Level Top")
sigBot = input(-8, "Significant Level Bottom")
fairTop = input(4, "Fair Value Top")
fairBot = input(-4, "Fair Value Bottom")
input_group { "CALL", call_color = input{ default="blue", type = [Link]} }
input_group { "PUT", put_color = input{ default="orange", type = [Link]} }
fastMA = ema(close, fast)
slowMA = ema(close, slow)
macd = fastMA - slowMA
signal = sma(macd, signal_period)
hist = macd - signal
ema13 = ema (close, ema_period)
local bar_color
varp = round(length/5)
h_f = length > 7
vara= h_f and highest(high,varp)-lowest(low,varp) or 0
varr1 = h_f and iff(vara==0 and varp==1,abs(close-prev(close,-varp)),vara) or 0
varb=h_f and prev(highest(high,varp),-varp+1)-prev(lowest(low,varp),-varp) or 0
varr2 = h_f and iff(varb==0 and varp==1,abs( prev(close,-varp)-prev(close,-
varp*2) ),varb) or 0
varc=h_f and prev(highest(high,varp),-varp*2)-prev(lowest(low,varp),-varp*2) or 0
varr3 = h_f and iff(varc == 0 and varp==1,abs(prev(close,-varp*2)-prev(close,-
varp*3)),varc) or 0
vard = h_f and prev(highest(high,varp),-varp*3)-prev(lowest(low,varp),-varp*3) or 0
varr4 = h_f and iff(vard == 0 and varp==1,abs(prev(close,-varp*3)-prev(close,-
varp*4)),vard) or 0