instrument {

name = 'AREA 51 - SCRIPT @belgo_trader',

icon = 'indicators:BelkhayateTiming',
overlay = false
}

exibir_tracamento = input ( 1, "Desea exibir?", input.string_selection,

{"SI","No"})

input_group { "SMAA", smaa_color = input{ default = "yellow", type = input.color

}}
input_group { "SMAB", smab_color = input{ default = "black", type = input.color
}}

input_group { "Up", up_color = input{ default = "green", type = input.color }}

input_group { "Down", Down_color = input{ default = "red", type = input.color }}

sec = security(current_ticker_id, "5m")

smaa = sma(close, '3')

smab = sma(close, '50')
smaao = sma(open, '3')
smabo = sma(open, '50')

plot(smaa, "SMA", smaa_color)

plot(smab, "SMA", smab_color)

emaa = ema(close, '100')

period = input (12, "front.period", input.integer, 1)

source = input (1, "front.ind.source", input.string_selection, inputs.titles)

fn = input (1, "front.newind.average", input.string_selection,
averages.titles)

input_group {
"front.newind.barcolors",
up_color = input { default = "#2CAC40", type = input.color },
down_color = input { default = "#DB4931", type = input.color }
}

local sourceSeries = inputs [source]

local averageFunction = averages [fn]

mean = averageFunction (sourceSeries, period)

mad = sourceSeries - mean

rect {
first = 0,
second = mad,
color = mad >= mad [1] and up_color or down_color,
width = 0.4
}
if
( mad <= 0 and ( mad[1] > mad) and (smaa < smab) and (smaao > smabo) and close
<= emaa ) then
plot_shape (1,
"Down",
shape_style.arrowdown,
shape_size.auto,
down_color,
shape_location.abovebar,
0,
" Down ",
1)
end

if
( mad >= 0 and (mad > mad[1]) and (smaa > smab) and close >= emaa and smaao <
smabo)
then
plot_shape (1 ,
"Up",
shape_style.arrowup,
shape_size.auto,
up_color,
shape_location.belowbar,
0,
"Up",
1)

end

function prev(s,i)
y=abs(round(i))
return s[y]
end

length = input(5, "Numero de Velas")

extTop = input(10, "Extreme Level Top")
extTop1 = input(11, "Extreme Level Top")
extBot = input(-5, "Extreme Level Bottom")
sigTop = input(5, "Significant Level Top")
sigmeio = input(0, "Significant Level Top")
sigBot = input(-10, "Significant Level Bottom")
sigBot1 = input(-11, "Significant Level Bottom")
fairTop = input(5, "Fair Value Top")
fairBot = input(-5, "Fair Value Bottom")

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
vare = h_f and prev(highest(high,varp),-varp*4)-prev(lowest(low,varp),-varp*4)
or 0
varr5 = h_f and iff(vare == 0 and varp==1,abs(prev(close,-varp*4)-prev(close,-
varp*5)),vare) or 0
cdelta = abs(close - prev(close,-1))
var0 = (not h_f) and iff((cdelta > (high-low)) or (high==low),cdelta,(high-low))
or 0
lrange=h_f and ((varr1+varr2+varr3+varr4+varr5)/5)*.2 or sma(var0,5)*.2

mba = sma( (high+low)/2,length)

vopen = (open- mba)/lrange
vhigh = (high-mba)/lrange
vlow = (low-mba)/lrange
vclose = (close-mba)/lrange

colorr = open > close and "red" or "green"

plot_candle {
open = vopen,
high = vhigh,
low = vlow,
close = vclose,
candle_color = colorr
}

hline(extTop,"","red")
hline(extTop1,"","red")
hline(extBot,"","green")
hline(sigTop,"","red")
hline(sigmeio,"","gold")
hline(sigBot,"","green")
hline(sigBot1,"","green")
hline(fairTop,"","red")
hline(fairBot,"","green")

input_group { "ENG - UP COLOR", call_color = input { default="green", type =

input.color } }
input_group { "ENG - DOWN COLOR", put_color = input { default="red", type =
input.color } }

if ((close[1] < open[1]) and (close > open) and (close > high[1]) and close[1]
>= open) then

plot_shape(1,
'Bull_Engulfing',
shape_style.arrowup,
shape_size.huge,
call_color,
shape_location.belowbar,
0,
"Touro",
 call_color )
else
if ((close[1] > open[1]) and (close < open) and (close < low[1]) and close
[1] <= open) then

plot_shape(1,
'Bear_Engulfing',
shape_style.arrowdown,
shape_size.huge,
put_color,
shape_location.abovebar,
0,
"Urso",
put_color)
end
end