instrument { name = "AM Pro V1", overlay = true }
input_group {
"buy",
buy_color = input {default = "green", type = input.color}
}
input_group {
"Periodo Max/Min",
doch_time = input {default = "10", type = input.string}
}
input_group {
"Periodo da Micro Tendencia",
emaa_per = input {default = "10", type = input.string}
}
input_group {
"Periodo da Macro Tendencia",
emab_per = input {default = "100", type = input.string}
}
input_group {
"Media Rapida",
emac_per = input {default = "3", type = input.string}
}
input_group {
"Media Lenta",
emad_per = input {default = "13", type = input.string}
}
input_group {
"sell",
sell_color = input {default = "#fcf805", type = input.color}
}
input_group {
"Candles",
positivo = input { default = "#0bd104",type = input.color },
neutro = input { default = "#F7FB3A", type = input.color },
negativo = input { default = "#f70202", type = input.color },
}
--PARAMETROS
EMAA = ema(close,emaa_per)
EMAB = ema(close,emab_per)
EMAC = ema(hlc3,emac_per)
EMAD = ema(hlc3,emad_per)
upper = highest (high, doch_time)
lower = lowest (low, doch_time)
--CALCULOS
TA = ((close > close[1]) and (close > EMAA) and (EMAA > EMAA[1]))
TB = ((close < close[1]) and (close < EMAA) and (EMAA < EMAA[1]))
ENC = ((EMAC[1] < EMAD[1]) and (EMAC > EMAD))
ENV = ((EMAC[1] > EMAD[1]) and (EMAC < EMAD))
sec = security (current_ticker_id, "1m")
if sec then
local bar_color
if (TA == true) then
bar_color = positivo
elseif (TB == true) then
bar_color = negativo
else
bar_color = neutro
end
plot_candle (open, high, low, close, "ES", bar_color)
plot (upper, "Resistencia", upline_color)
plot (lower, "Suporte",lowline_color)
end
input_group { "CALL - UP COLOR", call_color = input { default="#0bd104", type =
input.color } }
input_group { "PUT - DOWN COLOR", put_color = input { default="#f70202", type =
input.color } }
if ((close[1] < open[1]) and (close > open) and (close > high[1]) and close[2] >=
open) then
plot_shape(1,
'Bull_Engulfing',
shape_style.circle,
shape_size.huge,
call_color,
shape_location.belowbar,
0,
"Engulfing",
"#fcfc03"
)
else
if ((close[1] > open[1]) and (close < open) and (close < low[1]) and close[2]
<= open) then
plot_shape(1,
'Bear_Engulfing',
shape_style.circle,
shape_size.huge,
put_color,
shape_location.abovebar,
0,
"Engulfing",
"#fcfc03"
)
end
end
input_group { "UP - UP COLOR", call_color = input { default="#0bd104", type =
input.color } }
input_group { "DOWN - DOWN COLOR", put_color = input { default="#f70202", type =
input.color } }
if ((close > close[1]) and (close[1] > open[2]) and (close[3] > close[2])) then
plot_shape(1,
'Bull_UP',
shape_style.arrowup,
shape_size.huge,
call_color,
shape_location.belowbar,
0,
"Call",
"#fcfc03"
)
else
if ((close < close[1]) and (close[1] < open[2]) and (close[3] < close[2])) then
plot_shape(1,
'Bear_DOWN',
shape_style.arrowdown,
shape_size.huge,
put_color,
shape_location.abovebar,
0,
"Put",
"#fcfc03"
)
end
end
instrument { name = "AM Pro V1", overlay = true, icon="indicators:ATR" }
c1 = close[1] < open[1] and close > open
c2 = close > open[1]
c3 = lowest(low,3) < lowest (low,50)[1] or lowest(low,3) < lowest(low,50)[2] or
lowest(low,3) < lowest(low,50)[3]
buy = c1 and c2 and c3
c4 = close[1] > open[1] and close < open
c5 = close < open[1]
c6 = highest(high,3) > highest (high,50)[1] or highest(high,3) > highest(high,50)
[2] or highest(high,3) > highest(high,50)[3]
sell = c4 and c5 and c6
plot_shape(buy, "long", shape_style.arrowup, shape_size.huge, '#0bd104',
shape_location.belowbar,0,'BUY', '#fcfc03')
plot_shape(sell , "short", shape_style.arrowdown, shape_size.huge, '#f70202',
shape_location.abovebar,0,'SELL', '#fcfc03')
instrument { name = "AM Pro V1", overlay = true }
percentage = input (2, "Percentage", input.double, 0.01, 100, 1.0) / 100
period = 3
input_group {
"front.ind.dpo.generalline",
up_color = input { default = "#37FA0A", type = input.color },
down_color = input { default = "#FCA800", type = input.color },
width = input { default = 6, type = input.line }
}
local reference = make_series ()
reference:set(nz(reference[1], high))
local is_direction_up = make_series ()
is_direction_up:set(nz(is_direction_up[1], true))
local htrack = make_series ()
local ltrack = make_series ()
local pivot = make_series ()
reverse_range = reference * percentage / 100
if get_value (is_direction_up) then
htrack:set (max(high, nz(htrack[1], high)))
if close < htrack[1] - reverse_range then
pivot:set (htrack)
is_direction_up:set (false)
reference:set(htrack)
end
else
ltrack:set (min(low, nz(ltrack[1], low)))
if close > ltrack[1] + reverse_range then
pivot:set (ltrack)
is_direction_up:set(true)
reference:set (ltrack)
end
end
color = is_direction_up() and up_color or down_color
plot(pivot, 'ZZ', color, width, -1, style.area, na_mode.continue)
plot(pivot, 'ZZ', color, width, -1, style.dash_line, na_mode.continue)
instrument { name = "AM Pro V1", overlay = true }
percentage = input (2, "Percentage", input.double, 0.01, 100, 1.0) / 100
period = 3
input_group {
"front.ind.dpo.generalline",
up_color = input { default = "rgba(255, 138, 20, 0.36)", type = input.color },
down_color = input { default = "rgba(0, 253, 8, 0.36)", type = input.color },
width = input { default = 1, type = input.line_width }
}
local reference = make_series ()
reference:set(nz(reference[1], high))
local is_direction_up = make_series ()
is_direction_up:set(nz(is_direction_up[1], true))
local htrack = make_series ()
local ltrack = make_series ()
local pivot = make_series ()
reverse_range = reference * percentage / 100
if get_value (is_direction_up) then
htrack:set (max(high, nz(htrack[1], high)))
if close < htrack[1] - reverse_range then
pivot:set (htrack)
is_direction_up:set (false)
reference:set(htrack)
end
else
ltrack:set (min(low, nz(ltrack[1], low)))
if close > ltrack[1] + reverse_range then
pivot:set (ltrack)
is_direction_up:set(true)
reference:set (ltrack)
end
end
color = is_direction_up() and up_color or down_color
plot(pivot, 'ZZ', color, width, -1, style.area, na_mode.continue)
