HTC_Bollinger_Band_Strategy_By_Corbacho
// This source code is subject to the terms of the Mozilla Public License 2.0 at https://mozilla.org/MPL/2.0/
// © mrcorbachofit

//@version=4
study("HTC_Bollinger_Band_Strategy_By_Corbacho", overlay=true)

//prueba de switch
//b = input(title="On/Off", type=input.bool, defval=true)
//plot(b ? open : na)

//Definición colores
green = #33FF33, blue = #33FFF3, red = #FF3333, purple = #B233FF

/////////////////////////////// 
//     ENTRADAS DE DATOS     //
/////////////////////////////// 

//Entradas de datos
//SMAs
sma_1   = input(200,  title= "SMA_1", type=input.integer)
//sma_2   = input(100, title= "SMA_2", type=input.integer)
//sma_3   = input(50, title= "SMA_3", type=input.integer)

//Bollinger
longitud  = input(20, title="Longitud BB", type=input.integer)
mult      = input(3.0, title="Multiplicador BB", type=input.float, step=0.2)
fuente    = input(close, title="Fuente BB", type=input.source)

pintar_sma = input (true, title="Pintar SMA")
pintar_bb = input (true, title="Pintar BB")

/////////////////////////////// 
//         CALCULOS          //
/////////////////////////////// 

//Calculo EMAs
sma_1_calc = sma(close, sma_1)
//sma_2_calc = sma(close, sma_2)
//sma_3_calc = sma(close, sma_3)

//Calculo BB 
[mm, banda_superior, banda_inferior] = bb(fuente, longitud, mult)

/////////////////////////////// 
// REPRESENTACIONES GRAFICAS //
/////////////////////////////// 

//Dibujo en gráfico de las 3 SMA

plot(pintar_sma ? sma_1_calc : na, color=green, linewidth=4, title='SMA 200')
//plot(pintar_sma ? mid   : na, color=blue, linewidth=3, title='EMA Media')
//plot(pintar_sma ? long  : na, color=red, linewidth=3, title='EMA Larga')
//plot(pintar_sma ? weighted : na, color=purple, linewidth=3, title='WMA Larga')

//Dibujo en gráfico de Bollinger

plot(pintar_bb ? banda_superior : na, color=color.blue, title='Bollinger superior')
plot(pintar_bb ? mm             : na, color=color.white, title='Bollinger media')
plot(pintar_bb ? banda_inferior : na, color=color.blue, title='Bollinger inferior')


//ps = plot(banda_superior, color=color.yellow, title='Bollinger superior')
//plot(mm, color=color.white, title='Bollinger media')
//pi = plot(banda_inferior, color=color.yellow, title='Bollinger inferior')
//fill(ps,pi, color=color.yellow, transp=90)
