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

study("3_RSI_V1a")

inpPeriod= input(title="Period", type=input.integer, defval=9)
Sobrecompra= input(title="Sobrecompra", type=input.integer, defval=70)
Sobreventa= input(title="Sobreventa", type=input.integer, defval=30)

alpha=1.0/max(inpPeriod,1)
RSI=rsi(close,inpPeriod)

Changa_High=0.0
Change_High=0.0
Change_Low=0.0
RSI_High=0.0
Changa_Low=0.0
RSI_Low=0.0
FLT_MIN=1.175494351e-38
diff=0.0
if bar_index<=6
    Changa_High := close/max(inpPeriod,1)
    RSI_High := 50.0*(Change_High/max(Changa_High,FLT_MIN)+1)
    
    Changa_Low := close/max(inpPeriod,1)
    RSI_Low := 50.0*(Change_Low/max(Changa_Low,FLT_MIN)+1)
else
    diff := high - close[1]
    Change_High := Change_High[1] + alpha*(diff - Change_High[1])
    Changa_High := Changa_High[1] + alpha*(abs(diff) - Changa_High[1])
    
    RSI_High := 50.0*(Change_High/max(Changa_High,FLT_MIN)+1)
    
    diff := close - close[1]
    Change_High := Change_High[1] + alpha*(diff - Change_High[1])
    Changa_High := Changa_High[1] + alpha*(abs(diff) - Changa_High[1])
    
    diff := low - close[1]
    Change_Low := Change_Low[1] + alpha*(diff - Change_Low[1])
    Changa_Low := Changa_Low[1] + alpha*(abs(diff) - Changa_Low[1])
    
    RSI_Low := 50.0*(Change_Low/max(Changa_Low,FLT_MIN)+1)
    
    diff := close - close[1]
    Change_Low := Change_Low[1] + alpha*(diff - Change_Low[1])
    Changa_Low := Changa_Low[1] + alpha*(abs(diff) - Changa_Low[1])
    
    
plot(RSI_High, title='RSI High', color=color.rgb(30,144,255), linewidth=1, style=plot.style_line,  offset=0, trackprice=true)
plot(RSI, title='High', color=color.yellow, linewidth=1, style=plot.style_line,  offset=0, trackprice=true)
plot(RSI_Low, title='RSI Low', color=color.rgb(250,128,114), linewidth=1, style=plot.style_line, offset=0, trackprice=true)

band1 = hline(Sobrecompra, "Upper Band", color = #787B86)
band0 = hline(Sobreventa, "Lower Band",  color = #787B86)
fill(band1, band0, color.rgb(33, 150, 243, 90), title = "Background")