instrument{name="MechasSenalesDago",icon='indicators:ADX',overlay=true}
local function a()
local b=make_series()
local c=high[2]
if not get_value(c) then return b end
local d=high<=c and high[1]<=c and high[3]<=c and high[4]<=c
b:set(iff(d,c,b[1]))
return b
end
local function e()
local b=make_series()
local c=low[2]
if not get_value(c) then return b end
local d=low>=c and low[1]>=c and low[3]>=c and low[4]>=c
b:set(iff(d,c,b[1]))
return b
end
input_group{
{"Color", color=input{default="lime", type=[Link]}},
{"Width", width=input{default=1, type=input.line_width}}
}
mechas_senalesdago_high = a()
mechas_senalesdago_low = e()
color_resistance_1 = "yellow"
color_resistance_3 = "red"
resistance_price_1 = low[1] + (0.85 * (high[1] - low[1]))
resistance_price_3 = high[1]
hline(resistance_price_1, "Resistance 1", color_resistance_1, width)
hline(resistance_price_3, "Resistance 3", color_resistance_3, width)
hline(mechas_senalesdago_high,"High", color, width)
hline(mechas_senalesdago_low,"Low", color, width)